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

Diff of /sml/trunk/src/MLRISC/x86/instructions/x86Peephole.peep

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

revision 1055, Thu Feb 7 20:38:59 2002 UTC revision 1056, Thu Feb 7 21:05:19 2002 UTC
# Line 32  Line 32 
32     let fun isStackPtr(I.Direct r) = CBase.sameColor(r, C.esp)     let fun isStackPtr(I.Direct r) = CBase.sameColor(r, C.esp)
33           | isStackPtr _ = false           | isStackPtr _ = false
34    
35           fun isZeroLE le = (Eval.valueOf le = 0) handle _ => false
36    
37         fun isZero(I.Immed n) = n = 0         fun isZero(I.Immed n) = n = 0
38           | isZero(I.ImmedLabel le) = ((Eval.valueOf le = 0) handle _ => false)           | isZero(I.ImmedLabel le) = isZeroLE le
39           | isZero _ = false           | isZero _ = false
40    
41         fun isZeroOpt NONE = true         fun isZeroOpt NONE = true
42           | isZeroOpt (SOME opn) = isZero opn           | isZeroOpt (SOME opn) = isZero opn
43    
        fun isZeroLE le = (Eval.valueOf le = 0) handle _ => false  
   
44         fun loop(code, instrs) =         fun loop(code, instrs) =
45             (case code of             (case code of
46               [] => instrs               [] => instrs

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

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