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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/mid-il/mid-il.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/mid-il/mid-il.sml

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

revision 821, Wed Apr 13 23:17:35 2011 UTC revision 822, Thu Apr 14 14:24:20 2011 UTC
# Line 57  Line 57 
57        | CL        | CL
58        | PrincipleEvec of ty        | PrincipleEvec of ty
59        | Identity of int        | Identity of int
60          | Zero of ty
61        | Trace of int        | Trace of int
62        | Subscript of ty        | Subscript of ty
63        | Ceiling of int        | Ceiling of int
# Line 104  Line 105 
105        | arity CL = 1        | arity CL = 1
106        | arity (PrincipleEvec _) = 2        | arity (PrincipleEvec _) = 2
107        | arity (Identity _) = 0        | arity (Identity _) = 0
108          | arity (Zero _) = 0
109        | arity (Trace _) = 1        | arity (Trace _) = 1
110        | arity (Subscript _) = 2        | arity (Subscript _) = 2
111        | arity (Ceiling _) = 1        | arity (Ceiling _) = 1
# Line 151  Line 153 
153        | same (CL, CL) = true        | same (CL, CL) = true
154        | same (PrincipleEvec(a0), PrincipleEvec(b0)) = samety(a0, b0)        | same (PrincipleEvec(a0), PrincipleEvec(b0)) = samety(a0, b0)
155        | same (Identity(a0), Identity(b0)) = sameint(a0, b0)        | same (Identity(a0), Identity(b0)) = sameint(a0, b0)
156          | same (Zero(a0), Zero(b0)) = samety(a0, b0)
157        | same (Trace(a0), Trace(b0)) = sameint(a0, b0)        | same (Trace(a0), Trace(b0)) = sameint(a0, b0)
158        | same (Subscript(a0), Subscript(b0)) = samety(a0, b0)        | same (Subscript(a0), Subscript(b0)) = samety(a0, b0)
159        | same (Ceiling(a0), Ceiling(b0)) = sameint(a0, b0)        | same (Ceiling(a0), Ceiling(b0)) = sameint(a0, b0)
# Line 199  Line 202 
202        | hash CL = 0w107        | hash CL = 0w107
203        | hash (PrincipleEvec(a0)) = 0w109 + hashty a0        | hash (PrincipleEvec(a0)) = 0w109 + hashty a0
204        | hash (Identity(a0)) = 0w113 + hashint a0        | hash (Identity(a0)) = 0w113 + hashint a0
205        | hash (Trace(a0)) = 0w127 + hashint a0        | hash (Zero(a0)) = 0w127 + hashty a0
206        | hash (Subscript(a0)) = 0w131 + hashty a0        | hash (Trace(a0)) = 0w131 + hashint a0
207        | hash (Ceiling(a0)) = 0w137 + hashint a0        | hash (Subscript(a0)) = 0w137 + hashty a0
208        | hash (Floor(a0)) = 0w139 + hashint a0        | hash (Ceiling(a0)) = 0w139 + hashint a0
209        | hash (Round(a0)) = 0w149 + hashint a0        | hash (Floor(a0)) = 0w149 + hashint a0
210        | hash (Trunc(a0)) = 0w151 + hashint a0        | hash (Round(a0)) = 0w151 + hashint a0
211        | hash IntToReal = 0w157        | hash (Trunc(a0)) = 0w157 + hashint a0
212        | hash (RealToInt(a0)) = 0w163 + hashint a0        | hash IntToReal = 0w163
213        | hash (VoxelAddress(a0)) = 0w167 + ImageInfo.hash a0        | hash (RealToInt(a0)) = 0w167 + hashint a0
214        | hash (LoadVoxels(a0,a1)) = 0w173 + ImageInfo.hash a0 + hashint a1        | hash (VoxelAddress(a0)) = 0w173 + ImageInfo.hash a0
215        | hash (PosToImgSpace(a0)) = 0w179 + ImageInfo.hash a0        | hash (LoadVoxels(a0,a1)) = 0w179 + ImageInfo.hash a0 + hashint a1
216        | hash (GradToWorldSpace(a0)) = 0w181 + ImageInfo.hash a0        | hash (PosToImgSpace(a0)) = 0w181 + ImageInfo.hash a0
217        | hash (EvalKernel(a0,a1,a2)) = 0w191 + hashint a0 + Kernel.hash a1 + hashint a2        | hash (GradToWorldSpace(a0)) = 0w191 + ImageInfo.hash a0
218        | hash (LoadImage(a0)) = 0w193 + ImageInfo.hash a0        | hash (EvalKernel(a0,a1,a2)) = 0w193 + hashint a0 + Kernel.hash a1 + hashint a2
219        | hash (Inside(a0,a1)) = 0w197 + ImageInfo.hash a0 + hashint a1        | hash (LoadImage(a0)) = 0w197 + ImageInfo.hash a0
220        | hash (Input(a0,a1)) = 0w199 + hashty a0 + hashstring a1        | hash (Inside(a0,a1)) = 0w199 + ImageInfo.hash a0 + hashint a1
221        | hash (InputWithDefault(a0,a1)) = 0w211 + hashty a0 + hashstring a1        | hash (Input(a0,a1)) = 0w211 + hashty a0 + hashstring a1
222          | hash (InputWithDefault(a0,a1)) = 0w223 + hashty a0 + hashstring a1
223    
224      fun toString (Add(a0)) = concat["Add<", tyToString a0, ">"]      fun toString (Add(a0)) = concat["Add<", tyToString a0, ">"]
225        | toString (Sub(a0)) = concat["Sub<", tyToString a0, ">"]        | toString (Sub(a0)) = concat["Sub<", tyToString a0, ">"]
# Line 246  Line 250 
250        | toString CL = "CL"        | toString CL = "CL"
251        | toString (PrincipleEvec(a0)) = concat["PrincipleEvec<", tyToString a0, ">"]        | toString (PrincipleEvec(a0)) = concat["PrincipleEvec<", tyToString a0, ">"]
252        | toString (Identity(a0)) = concat["Identity<", intToString a0, ">"]        | toString (Identity(a0)) = concat["Identity<", intToString a0, ">"]
253          | toString (Zero(a0)) = concat["Zero<", tyToString a0, ">"]
254        | toString (Trace(a0)) = concat["Trace<", intToString a0, ">"]        | toString (Trace(a0)) = concat["Trace<", intToString a0, ">"]
255        | toString (Subscript(a0)) = concat["Subscript<", tyToString a0, ">"]        | toString (Subscript(a0)) = concat["Subscript<", tyToString a0, ">"]
256        | toString (Ceiling(a0)) = concat["Ceiling<", intToString a0, ">"]        | toString (Ceiling(a0)) = concat["Ceiling<", intToString a0, ">"]

Legend:
Removed from v.821  
changed lines
  Added in v.822

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