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

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

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 1  Line 1 
1  (* WARNING: this is generated by running 'nowhere sparcPeephole.peep'.  (* WARNING: this is generated by running 'nowhere sparcPeephole.peep'.
2   * Do not edit this file directly.   * Do not edit this file directly.
3   * Version 1.2   * Version 1.2.2
4   *)   *)
5    
6  (*#line 10.1 "sparcPeephole.peep"*)  (*#line 10.1 "sparcPeephole.peep"*)
# Line 26  Line 26 
26     fun peephole instrs =     fun peephole instrs =
27         let         let
28  (*#line 21.8 "sparcPeephole.peep"*)  (*#line 21.8 "sparcPeephole.peep"*)
29             fun isZero (I.LAB le) = (Eval.valueOf le) = 0             fun isZero (I.LAB le) = ((Eval.valueOf le) = 0)handle _ => false
30    
31               | isZero (I.REG r) = (CB.registerNum r) = 0               | isZero (I.REG r) = (CB.registerNum r) = 0
32               | isZero (I.IMMED i) = i = 0               | isZero (I.IMMED i) = i = 0
33               | 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