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 751, Fri Dec 8 21:04:14 2000 UTC revision 752, Fri Dec 8 23:32:37 2000 UTC
# Line 1  Line 1 
1  (* WARNING: this is generated by running 'wheregen 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   *)   *)
4    
# Line 22  Line 22 
22               | isZero _ = false               | isZero _ = false
23    
24  (*#line 19.8 "sparcPeephole.peep"*)  (*#line 19.8 "sparcPeephole.peep"*)
25             fun removable (I.ARITH{a=(I.ADD | I.SUB), r, i, d}) = (C.sameColor (r,             fun removable (I.ARITH{a=(I.ADD | I.SUB), r, i, d}) = (C.sameColor (r, d)) andalso (isZero i)
                   d)) andalso (isZero i)  
26               | removable (I.ANNOTATION{i, a}) = removable i               | removable (I.ANNOTATION{i, a}) = removable i
27               | removable _ = false               | removable _ = false
28    

Legend:
Removed from v.751  
changed lines
  Added in v.752

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