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

Diff of /sml/trunk/src/MLRISC/x86/emit/x86MC.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 263  Line 263 
263       | emitInstr (I.FCMP{fsize, lsrc, rsrc}) = error "FCMP"       | emitInstr (I.FCMP{fsize, lsrc, rsrc}) = error "FCMP"
264       | emitInstr (I.SAHF) = error "SAHF"       | emitInstr (I.SAHF) = error "SAHF"
265       | emitInstr (I.LAHF) = error "LAHF"       | emitInstr (I.LAHF) = error "LAHF"
      | emitInstr (I.ANNOTATION{i, a}) = error "ANNOTATION"  
266       | emitInstr (I.SOURCE{}) = ()       | emitInstr (I.SOURCE{}) = ()
267       | emitInstr (I.SINK{}) = ()       | emitInstr (I.SINK{}) = ()
268       | emitInstr (I.PHI{}) = ()       | emitInstr (I.PHI{}) = ()
# Line 271  Line 270 
270             emitInstr instr             emitInstr instr
271         end         end
272    
273       fun emitInstruction(I.ANNOTATION{i, ...}) = emitInstruction(i)
274         | emitInstruction(I.INSTR(i)) = emitter(i)
275         | emitinstruction(I.LIVE _)  = ()
276         | emitinstruction(I.KILL _)  = ()
277       | emitInstruction _ = error "emitInstruction"
278    
279     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
280                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
281                  emit=emitter,                  emit=emitInstruction,
282                  endCluster=fail,                  endCluster=fail,
283                  defineLabel=doNothing,                  defineLabel=doNothing,
284                  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