Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/MLRISC/amd64/flowgraph/amd64-darwin-pseudo-ops.sml
ViewVC logotype

Annotation of /sml/trunk/src/MLRISC/amd64/flowgraph/amd64-darwin-pseudo-ops.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2065 - (view) (download)

1 : mblume 2065 (* x86-darwin-pseudo-ops.sml
2 :     *
3 :     * COPYRIGHT (c) 2006 The SML/NJ Fellowship (www.smlnj.org)
4 :     * All rights reserved.
5 :     *)
6 :    
7 :     functor AMD64DarwinPseudoOps
8 :     ( structure T : MLTREE
9 :     structure MLTreeEval : MLTREE_EVAL where T = T
10 :     ) : PSEUDO_OPS_BASIS =
11 :    
12 :     struct
13 :     structure T = T
14 :     structure PB = PseudoOpsBasisTyp
15 :     structure Fmt = Format
16 :    
17 :     structure Endian =
18 :     PseudoOpsLittle
19 :     (structure T = T
20 :     structure MLTreeEval=MLTreeEval
21 :     val icache_alignment = 16
22 :     val max_alignment = SOME 7
23 :     val nop = {sz=1, en=0wx90: Word32.word})
24 :    
25 :     structure POps = DarwinPseudoOps(
26 :     structure T = T
27 :     val labFmt = {gPrefix="", aPrefix="L"})
28 :    
29 :     type 'a pseudo_op = (T.labexp, 'a) PB.pseudo_op
30 :    
31 :     fun error msg = MLRiscErrorMsg.error ("AMD64DarwinPseudoOps.", msg)
32 :    
33 :     val sizeOf = Endian.sizeOf
34 :     val emitValue = Endian.emitValue
35 :     val lexpToString = POps.lexpToString
36 :     val toString = POps.toString
37 :     val defineLabel = POps.defineLabel
38 :     end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0