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

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/Tools/MDL/mdl-gen-mc.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Tools/MDL/mdl-gen-mc.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 983, Wed Nov 21 18:44:55 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 33  Line 33 
33    
34         (* Arguments for the functor *)         (* Arguments for the functor *)
35         val args = ["structure Instr : "^Comp.signame md "INSTR",         val args = ["structure Instr : "^Comp.signame md "INSTR",
36                       "structure MLTreeEval : MLTREE_EVAL where T = Instr.T",
37                       "structure Stream : INSTRUCTION_STREAM ",
38                     "structure CodeString : CODE_STRING"                     "structure CodeString : CODE_STRING"
39                    ] @                    ] @
40                    (if debugOn then                    (if debugOn then
41                       ["structure Assembler : INSTRUCTION_EMITTER",                       ["structure Assembler : INSTRUCTION_EMITTER",
42                        "  where I = Instr and S = Instr.T.Stream"                        "  where I = Instr and S = MLTreeStream.S.Stream"
43                       ]                       ]
44                     else [])                     else [])
45    
# Line 243  Line 245 
245         val strBody =         val strBody =
246         [$["structure I = Instr",         [$["structure I = Instr",
247            "structure C = I.C",            "structure C = I.C",
           "structure LabelExp = I.LabelExp",  
248            "structure Constant = I.Constant",            "structure Constant = I.Constant",
249            "structure T = I.T",            "structure T = I.T",
250            "structure S = T.Stream",            "structure S = Stream",
251            "structure P = S.P",            "structure P = S.P",
252            "structure W = Word32",            "structure W = Word32",
253            "",            "",
# Line 269  Line 270 
270            "    val emit_int = itow",            "    val emit_int = itow",
271            "    fun emit_word w = w",            "    fun emit_word w = w",
272            "    fun emit_label l = itow(Label.addrOf l)",            "    fun emit_label l = itow(Label.addrOf l)",
273            "    fun emit_labexp le = itow(LabelExp.valueOf le)",            "    fun emit_labexp le = itow(MLTreeEval.valueOf le)",
274            "    fun emit_const c = itow(Constant.valueOf c)",            "    fun emit_const c = itow(Constant.valueOf c)",
275            "    val loc = ref 0",            "    val loc = ref 0",
276            "",            "",

Legend:
Removed from v.983  
changed lines
  Added in v.984

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