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/ppcMC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/emit/ppcMC.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 726  Line 726 
726            lk=true}            lk=true}
727       | emitInstr (I.COPY{dst, src, impl, tmp}) = error "COPY"       | emitInstr (I.COPY{dst, src, impl, tmp}) = error "COPY"
728       | emitInstr (I.FCOPY{dst, src, impl, tmp}) = error "FCOPY"       | emitInstr (I.FCOPY{dst, src, impl, tmp}) = error "FCOPY"
      | emitInstr (I.ANNOTATION{i, a}) = emitInstr i  
729       | emitInstr (I.SOURCE{}) = ()       | emitInstr (I.SOURCE{}) = ()
730       | emitInstr (I.SINK{}) = ()       | emitInstr (I.SINK{}) = ()
731       | emitInstr (I.PHI{}) = ()       | emitInstr (I.PHI{}) = ()
# Line 734  Line 733 
733             emitInstr instr             emitInstr instr
734         end         end
735    
736       fun emitInstruction(I.ANNOTATION{i, ...}) = emitInstruction(i)
737         | emitInstruction(I.INSTR(i)) = emitter(i)
738         | emitInstruction(I.LIVE _)  = ()
739         | emitInstruction(I.KILL _)  = ()
740       | emitInstruction _ = error "emitInstruction"
741    
742     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
743                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
744                  emit=emitter,                  emit=emitInstruction,
745                  endCluster=fail,                  endCluster=fail,
746                  defineLabel=doNothing,                  defineLabel=doNothing,
747                  entryLabel=doNothing,                  entryLabel=doNothing,

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