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/hppa/emit/hppaAsm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/hppa/emit/hppaAsm.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 579  Line 579 
579              src=src, dst=dst})              src=src, dst=dst})
580         | I.FCOPY{dst, src, impl, tmp} => emitInstrs (Shuffle.shufflefp {tmp=tmp,         | I.FCOPY{dst, src, impl, tmp} => emitInstrs (Shuffle.shufflefp {tmp=tmp,
581              src=src, dst=dst})              src=src, dst=dst})
        | I.ANNOTATION{i, a} =>  
          ( comment (Annotations.toString a);  
            nl ();  
            emitInstr i )  
582         | I.SOURCE{} => emit "source"         | I.SOURCE{} => emit "source"
583         | I.SINK{} => emit "sink"         | I.SINK{} => emit "sink"
584         | I.PHI{} => emit "phi"         | I.PHI{} => emit "phi"
585         )         )
586            and emitInstr i = (tab(); emitInstr' i; nl())        in  tab(); emitInstr' instr; nl()
587            and emitInstrIndented i = (indent(); emitInstr' i; nl())        end (* emitter *)
588          and emitInstrIndented i = (indent(); emitInstr i; nl())
589            and emitInstrs instrs =            and emitInstrs instrs =
590             app (if !indent_copies then emitInstrIndented             app (if !indent_copies then emitInstrIndented
591                  else emitInstr) instrs                  else emitInstr) instrs
592        in  emitInstr instr end  
593          and emitInstr(I.ANNOTATION{i,a}) =
594               ( comment(Annotations.toString a);
595                  nl();
596                  emitInstr i )
597            | emitInstr(I.LIVE{regs, spilled})  =
598                comment("live= " ^ CellsBasis.CellSet.toString regs ^
599                        "spilled= " ^ CellsBasis.CellSet.toString spilled)
600            | emitInstr(I.KILL{regs, spilled})  =
601                comment("killed:: " ^ CellsBasis.CellSet.toString regs ^
602                        "spilled:: " ^ CellsBasis.CellSet.toString spilled)
603            | emitInstr(I.INSTR i) = emitter i
604            | emitInstr _ = error "emitInstr"
605    
606     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
607                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
608                  emit=emitter,                  emit=emitInstr,
609                  endCluster=fail,                  endCluster=fail,
610                  defineLabel=defineLabel,                  defineLabel=defineLabel,
611                  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