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

Diff of /sml/trunk/src/MLRISC/sparc/emit/sparcMC.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 515  Line 515 
515              then r31              then r31
516              else r15), i=I.IMMED 8};              else r15), i=I.IMMED 8};
517           delay {nop=nop})           delay {nop=nop})
      | emitInstr (I.ANNOTATION{i, a}) = emitInstr i  
518       | emitInstr (I.SOURCE{}) = ()       | emitInstr (I.SOURCE{}) = ()
519       | emitInstr (I.SINK{}) = ()       | emitInstr (I.SINK{}) = ()
520       | emitInstr (I.PHI{}) = ()       | emitInstr (I.PHI{}) = ()
# Line 523  Line 522 
522             emitInstr instr             emitInstr instr
523         end         end
524    
525       fun emitInstruction(I.ANNOTATION{i, ...}) = emitInstruction(i)
526         | emitInstruction(I.INSTR(i)) = emitter(i)
527         | emitInstruction(I.LIVE _)  = ()
528         | emitInstruction(I.KILL _)  = ()
529       | emitInstruction _ = error "emitInstruction"
530    
531     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
532                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
533                  emit=emitter,                  emit=emitInstruction,
534                  endCluster=fail,                  endCluster=fail,
535                  defineLabel=doNothing,                  defineLabel=doNothing,
536                  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