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/instructions/sparcPeephole.peep
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/instructions/sparcPeephole.peep

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1054, Wed Feb 6 19:27:27 2002 UTC revision 1055, Thu Feb 7 20:38:59 2002 UTC
# Line 18  Line 18 
18    
19     (* IMPORTANT: instructions are now given in forward order *)     (* IMPORTANT: instructions are now given in forward order *)
20     fun peephole instrs =     fun peephole instrs =
21     let fun isZero(I.LAB le)  = Eval.valueOf le = 0     let fun isZero(I.LAB le)  = ((Eval.valueOf le = 0) handle _ => false)
22           | isZero(I.REG r)   = CB.registerNum r = 0           | isZero(I.REG r)   = CB.registerNum r = 0
23           | isZero(I.IMMED i) = i = 0           | isZero(I.IMMED i) = i = 0
24           | isZero _ = false           | isZero _ = false

Legend:
Removed from v.1054  
changed lines
  Added in v.1055

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0