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 1012 - (view) (download)

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

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