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 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 568  Line 568 
568           ( emit "ret";           ( emit "ret";
569             emit_leaf leaf;             emit_leaf leaf;
570             emit_nop nop )             emit_nop nop )
        | I.ANNOTATION{i, a} =>  
          ( comment (Annotations.toString a);  
            nl ();  
            emitInstr i )  
571         | I.SOURCE{} => emit "source"         | I.SOURCE{} => emit "source"
572         | I.SINK{} => emit "sink"         | I.SINK{} => emit "sink"
573         | I.PHI{} => emit "phi"         | I.PHI{} => emit "phi"
574         )         )
575            and emitInstr i = (tab(); emitInstr' i; nl())        in  tab(); emitInstr' instr; nl()
576            and emitInstrIndented i = (indent(); emitInstr' i; nl())        end (* emitter *)
577          and emitInstrIndented i = (indent(); emitInstr i; nl())
578            and emitInstrs instrs =            and emitInstrs instrs =
579             app (if !indent_copies then emitInstrIndented             app (if !indent_copies then emitInstrIndented
580                  else emitInstr) instrs                  else emitInstr) instrs
581        in  emitInstr instr end  
582          and emitInstr(I.ANNOTATION{i,a}) =
583               ( comment(Annotations.toString a);
584                  nl();
585                  emitInstr i )
586            | emitInstr(I.LIVE{regs, spilled})  =
587                comment("live= " ^ CellsBasis.CellSet.toString regs ^
588                        "spilled= " ^ CellsBasis.CellSet.toString spilled)
589            | emitInstr(I.KILL{regs, spilled})  =
590                comment("killed:: " ^ CellsBasis.CellSet.toString regs ^
591                        "spilled:: " ^ CellsBasis.CellSet.toString spilled)
592            | emitInstr(I.INSTR i) = emitter i
593            | emitInstr _ = error "emitInstr"
594    
595     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
596                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
597                  emit=emitter,                  emit=emitInstr,
598                  endCluster=fail,                  endCluster=fail,
599                  defineLabel=defineLabel,                  defineLabel=defineLabel,
600                  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