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/sparc/emit/sparcAsm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/emit/sparcAsm.sml

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

revision 594, Tue Apr 4 23:41:47 2000 UTC revision 624, Fri Apr 21 03:06:21 2000 UTC
# Line 49  Line 49 
49         fun paren f = (emit "("; f(); emit ")")         fun paren f = (emit "("; f(); emit ")")
50         fun defineLabel lab = emit(Label.nameOf lab^":\n")         fun defineLabel lab = emit(Label.nameOf lab^":\n")
51         fun entryLabel lab = defineLabel lab         fun entryLabel lab = defineLabel lab
52         fun comment msg = emit("\t/* " ^ msg ^ " */")         fun comment msg = (tab(); emit("/* " ^ msg ^ " */"))
53         fun annotation a = (comment(Annotations.toString a); nl())         fun annotation a = (comment(Annotations.toString a); nl())
54         fun doNothing _ = ()         fun doNothing _ = ()
55         fun emit_region mem = comment(I.Region.toString mem)         fun emit_region mem = comment(I.Region.toString mem)
# Line 564  Line 564 
564          emit_leaf leaf;          emit_leaf leaf;
565          emit_nop nop )          emit_nop nop )
566        | I.ANNOTATION{i, a} =>        | I.ANNOTATION{i, a} =>
567          ( emitInstr i;          ( comment (Annotations.toString a);
568          comment (Annotations.toString a))          nl ();
569            emitInstr i )
570          | I.SOURCE{} => emit "source"
571          | I.SINK{} => emit "sink"
572          | I.PHI{} => emit "phi"
573         )         )
574            and emitInstr i = (tab(); emitInstr' i; nl())            and emitInstr i = (tab(); emitInstr' i; nl())
575            and emitInstrIndented i = (indent(); emitInstr' i; nl())            and emitInstrIndented i = (indent(); emitInstr' i; nl())

Legend:
Removed from v.594  
changed lines
  Added in v.624

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