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/x86/emit/x86Asm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/emit/x86Asm.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 710  Line 710 
710             emit_rsrc rsrc )             emit_rsrc rsrc )
711         | I.SAHF => emit "sahf"         | I.SAHF => emit "sahf"
712         | I.LAHF => emit "lahf"         | I.LAHF => emit "lahf"
        | I.ANNOTATION{i, a} =>  
          ( comment (Annotations.toString a);  
            nl ();  
            emitInstr i )  
713         | I.SOURCE{} => emit "source"         | I.SOURCE{} => emit "source"
714         | I.SINK{} => emit "sink"         | I.SINK{} => emit "sink"
715         | I.PHI{} => emit "phi"         | I.PHI{} => emit "phi"
716         )         )
717            and emitInstr i = (tab(); emitInstr' i; nl())        in  tab(); emitInstr' instr; nl()
718            and emitInstrIndented i = (indent(); emitInstr' i; nl())        end (* emitter *)
719          and emitInstrIndented i = (indent(); emitInstr i; nl())
720            and emitInstrs instrs =            and emitInstrs instrs =
721             app (if !indent_copies then emitInstrIndented             app (if !indent_copies then emitInstrIndented
722                  else emitInstr) instrs                  else emitInstr) instrs
723        in  emitInstr instr end  
724          and emitInstr(I.ANNOTATION{i,a}) =
725               ( comment(Annotations.toString a);
726                  nl();
727                  emitInstr i )
728            | emitInstr(I.LIVE{regs, spilled})  =
729                comment("live= " ^ CellsBasis.CellSet.toString regs ^
730                        "spilled= " ^ CellsBasis.CellSet.toString spilled)
731            | emitInstr(I.KILL{regs, spilled})  =
732                comment("killed:: " ^ CellsBasis.CellSet.toString regs ^
733                        "spilled:: " ^ CellsBasis.CellSet.toString spilled)
734            | emitInstr(I.INSTR i) = emitter i
735            | emitInstr _ = error "emitInstr"
736    
737     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
738                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
739                  emit=emitter,                  emit=emitInstr,
740                  endCluster=fail,                  endCluster=fail,
741                  defineLabel=defineLabel,                  defineLabel=defineLabel,
742                  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