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 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 314  Line 314 
314            ),            ),
315            "    end",            "    end",
316            "",            "",
317              "fun emitInstruction(I.ANNOTATION{i, ...}) = emitInstruction(i)",
318              "  | emitInstruction(I.INSTR(i)) = emitter(i)",
319              "  | emitInstruction(I.LIVE _)  = ()",
320              "  | emitInstruction(I.KILL _)  = ()",
321              "| emitInstruction _ = error \"emitInstruction\"",
322              "",
323            "in  S.STREAM{beginCluster=init,",            "in  S.STREAM{beginCluster=init,",
324            "             pseudoOp=pseudoOp,",            "             pseudoOp=pseudoOp,",
325            "             emit=emitter,",            "             emit=emitInstruction,",
326            "             endCluster=fail,",            "             endCluster=fail,",
327            "             defineLabel=doNothing,",            "             defineLabel=doNothing,",
328            "             entryLabel=doNothing,",            "             entryLabel=doNothing,",

Legend:
Removed from v.1002  
changed lines
  Added in v.1003

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