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/ppc/emit/ppcAsm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/emit/ppcAsm.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 511  Line 511 
511              dst=dst, src=src})              dst=dst, src=src})
512         | I.FCOPY{dst, src, impl, tmp} => emitInstrs (Shuffle.shufflefp {tmp=tmp,         | I.FCOPY{dst, src, impl, tmp} => emitInstrs (Shuffle.shufflefp {tmp=tmp,
513              dst=dst, src=src})              dst=dst, src=src})
        | I.ANNOTATION{i, a} =>  
          ( comment (Annotations.toString a);  
            nl ();  
            emitInstr i )  
514         | I.SOURCE{} => emit "source"         | I.SOURCE{} => emit "source"
515         | I.SINK{} => emit "sink"         | I.SINK{} => emit "sink"
516         | I.PHI{} => emit "phi"         | I.PHI{} => emit "phi"
517         )         )
518            and emitInstr i = (tab(); emitInstr' i; nl())        in  tab(); emitInstr' instr; nl()
519            and emitInstrIndented i = (indent(); emitInstr' i; nl())        end (* emitter *)
520          and emitInstrIndented i = (indent(); emitInstr i; nl())
521            and emitInstrs instrs =            and emitInstrs instrs =
522             app (if !indent_copies then emitInstrIndented             app (if !indent_copies then emitInstrIndented
523                  else emitInstr) instrs                  else emitInstr) instrs
524        in  emitInstr instr end  
525          and emitInstr(I.ANNOTATION{i,a}) =
526               ( comment(Annotations.toString a);
527                  nl();
528                  emitInstr i )
529            | emitInstr(I.LIVE{regs, spilled})  =
530                comment("live= " ^ CellsBasis.CellSet.toString regs ^
531                        "spilled= " ^ CellsBasis.CellSet.toString spilled)
532            | emitInstr(I.KILL{regs, spilled})  =
533                comment("killed:: " ^ CellsBasis.CellSet.toString regs ^
534                        "spilled:: " ^ CellsBasis.CellSet.toString spilled)
535            | emitInstr(I.INSTR i) = emitter i
536            | emitInstr _ = error "emitInstr"
537    
538     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
539                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
540                  emit=emitter,                  emit=emitInstr,
541                  endCluster=fail,                  endCluster=fail,
542                  defineLabel=defineLabel,                  defineLabel=defineLabel,
543                  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