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-asm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Tools/MDL/mdl-gen-asm.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 238  Line 238 
238          asmFuns,          asmFuns,
239          Comp.declOf md "Assembly",          Comp.declOf md "Assembly",
240          emitInstrFun,          emitInstrFun,
241          $["       and emitInstr i = (tab(); emitInstr' i; nl())",          $["   in  tab(); emitInstr' instr; nl()",
242            "       and emitInstrIndented i = (indent(); emitInstr' i; nl())",            "   end (* emitter *)",
243              "   and emitInstrIndented i = (indent(); emitInstr i; nl())",
244            "       and emitInstrs instrs =",            "       and emitInstrs instrs =",
245            "        app (if !indent_copies then emitInstrIndented",            "        app (if !indent_copies then emitInstrIndented",
246            "             else emitInstr) instrs",            "             else emitInstr) instrs",
247            "   in  emitInstr instr end",            "",
248              "   and emitInstr(I.ANNOTATION{i,a}) =",
249              "        ( comment(Annotations.toString a);",
250              "           nl();",
251              "           emitInstr i )",
252              "     | emitInstr(I.LIVE{regs, spilled})  = ",
253              "         comment(\"live= \" ^ CellsBasis.CellSet.toString regs ^",
254              "                 \"spilled= \" ^ CellsBasis.CellSet.toString spilled)",
255              "     | emitInstr(I.KILL{regs, spilled})  = ",
256              "         comment(\"killed:: \" ^ CellsBasis.CellSet.toString regs ^",
257              "                 \"spilled:: \" ^ CellsBasis.CellSet.toString spilled)",
258              "     | emitInstr(I.INSTR i) = emitter i",
259              "     | emitInstr _ = error \"emitInstr\"",
260            "",            "",
261            "in  S.STREAM{beginCluster=init,",            "in  S.STREAM{beginCluster=init,",
262            "             pseudoOp=pseudoOp,",            "             pseudoOp=pseudoOp,",
263            "             emit=emitter,",            "             emit=emitInstr,",
264            "             endCluster=fail,",            "             endCluster=fail,",
265            "             defineLabel=defineLabel,",            "             defineLabel=defineLabel,",
266            "             entryLabel=entryLabel,",            "             entryLabel=entryLabel,",

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