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/x86/flowgraph/x86GasPseudoOps.sml
ViewVC logotype

Annotation of /sml/trunk/src/MLRISC/x86/flowgraph/x86GasPseudoOps.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 981 - (view) (download)

1 : george 981 functor X86GasPseudoOps
2 :     ( structure T : MLTREE
3 :     structure MLTreeEval : MLTREE_EVAL where T = T
4 :     ) : PSEUDO_OPS_BASIS =
5 :    
6 :     struct
7 :     structure T = T
8 :     structure PB = PseudoOpsBasisTyp
9 :     structure Fmt = Format
10 :    
11 :     structure Endian =
12 :     PseudoOpsLittle
13 :     (structure T = T
14 :     structure MLTreeEval=MLTreeEval
15 :     val icache_alignment = 16
16 :     val max_alignment = SOME 7
17 :     val nop = {sz=1, en=0wx90: Word32.word})
18 :    
19 :     structure GasPseudoOps =
20 :     GasPseudoOps(structure T = T
21 :     val labFmt = {gPrefix="", aPrefix="L"})
22 :    
23 :     type 'a pseudo_op = (T.labexp, 'a) PB.pseudo_op
24 :    
25 :     fun error msg = MLRiscErrorMsg.error ("GasPseudoOps.", msg)
26 :    
27 :     val sizeOf = Endian.sizeOf
28 :     val emitValue = Endian.emitValue
29 :     val lexpToString = GasPseudoOps.lexpToString
30 :     val toString = GasPseudoOps.toString
31 :     val defineLabel = GasPseudoOps.defineLabel
32 :     end

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