Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/high-il/high-il.sml
ViewVC logotype

Diff of /trunk/src/compiler/high-il/high-il.sml

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

revision 363, Wed Sep 29 18:05:48 2010 UTC revision 364, Wed Sep 29 18:06:12 2010 UTC
# Line 73  Line 73 
73        | NegField        | NegField
74        | DiffField        | DiffField
75        | Probe        | Probe
       | Transform of ImageInfo.info  
76        | Input of string        | Input of string
77        | InputWithDefault of string        | InputWithDefault of string
78    
# Line 117  Line 116 
116        | arity NegField = 1        | arity NegField = 1
117        | arity DiffField = 1        | arity DiffField = 1
118        | arity Probe = 2        | arity Probe = 2
       | arity (Transform _) = 1  
119        | arity (Input _) = 0        | arity (Input _) = 0
120        | arity (InputWithDefault _) = 1        | arity (InputWithDefault _) = 1
121    
# Line 161  Line 159 
159        | same (NegField, NegField) = true        | same (NegField, NegField) = true
160        | same (DiffField, DiffField) = true        | same (DiffField, DiffField) = true
161        | same (Probe, Probe) = true        | same (Probe, Probe) = true
       | same (Transform(a0), Transform(b0)) = ImageInfo.same(a0, b0)  
162        | same (Input(a0), Input(b0)) = samestring(a0, b0)        | same (Input(a0), Input(b0)) = samestring(a0, b0)
163        | same (InputWithDefault(a0), InputWithDefault(b0)) = samestring(a0, b0)        | same (InputWithDefault(a0), InputWithDefault(b0)) = samestring(a0, b0)
164        | same _ = false        | same _ = false
# Line 206  Line 203 
203        | hash NegField = 0w167        | hash NegField = 0w167
204        | hash DiffField = 0w173        | hash DiffField = 0w173
205        | hash Probe = 0w179        | hash Probe = 0w179
206        | hash (Transform(a0)) = 0w181 + ImageInfo.hash a0        | hash (Input(a0)) = 0w181 + hashstring a0
207        | hash (Input(a0)) = 0w191 + hashstring a0        | hash (InputWithDefault(a0)) = 0w191 + hashstring a0
       | hash (InputWithDefault(a0)) = 0w193 + hashstring a0  
208    
209      fun toString (Add(a0)) = concat["Add<", tyToString a0, ">"]      fun toString (Add(a0)) = concat["Add<", tyToString a0, ">"]
210        | toString (Sub(a0)) = concat["Sub<", tyToString a0, ">"]        | toString (Sub(a0)) = concat["Sub<", tyToString a0, ">"]
# Line 250  Line 246 
246        | toString NegField = "NegField"        | toString NegField = "NegField"
247        | toString DiffField = "DiffField"        | toString DiffField = "DiffField"
248        | toString Probe = "Probe"        | toString Probe = "Probe"
       | toString (Transform(a0)) = concat["Transform<", ImageInfo.toString a0, ">"]  
249        | toString (Input(a0)) = concat["Input<", stringToString a0, ">"]        | toString (Input(a0)) = concat["Input<", stringToString a0, ">"]
250        | toString (InputWithDefault(a0)) = concat["InputWithDefault<", stringToString a0, ">"]        | toString (InputWithDefault(a0)) = concat["InputWithDefault<", stringToString a0, ">"]
251    

Legend:
Removed from v.363  
changed lines
  Added in v.364

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