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 824, Thu Apr 14 15:54:24 2011 UTC revision 825, Thu Apr 14 19:46:35 2011 UTC
# Line 50  Line 50 
50        | MulMatMat of int * int * int        | MulMatMat of int * int * int
51        | Cross        | Cross
52        | Select of ty * int        | Select of ty * int
53        | Norm of int        | Norm of ty
54        | Normalize of int        | Normalize of int
55        | Scale of int        | Scale of int
56        | InvScale of int        | InvScale of int
# Line 146  Line 146 
146        | same (MulMatMat(a0,a1,a2), MulMatMat(b0,b1,b2)) = sameint(a0, b0) andalso sameint(a1, b1) andalso sameint(a2, b2)        | same (MulMatMat(a0,a1,a2), MulMatMat(b0,b1,b2)) = sameint(a0, b0) andalso sameint(a1, b1) andalso sameint(a2, b2)
147        | same (Cross, Cross) = true        | same (Cross, Cross) = true
148        | same (Select(a0,a1), Select(b0,b1)) = samety(a0, b0) andalso sameint(a1, b1)        | same (Select(a0,a1), Select(b0,b1)) = samety(a0, b0) andalso sameint(a1, b1)
149        | same (Norm(a0), Norm(b0)) = sameint(a0, b0)        | same (Norm(a0), Norm(b0)) = samety(a0, b0)
150        | same (Normalize(a0), Normalize(b0)) = sameint(a0, b0)        | same (Normalize(a0), Normalize(b0)) = sameint(a0, b0)
151        | same (Scale(a0), Scale(b0)) = sameint(a0, b0)        | same (Scale(a0), Scale(b0)) = sameint(a0, b0)
152        | same (InvScale(a0), InvScale(b0)) = sameint(a0, b0)        | same (InvScale(a0), InvScale(b0)) = sameint(a0, b0)
# Line 195  Line 195 
195        | hash (MulMatMat(a0,a1,a2)) = 0w73 + hashint a0 + hashint a1 + hashint a2        | hash (MulMatMat(a0,a1,a2)) = 0w73 + hashint a0 + hashint a1 + hashint a2
196        | hash Cross = 0w79        | hash Cross = 0w79
197        | hash (Select(a0,a1)) = 0w83 + hashty a0 + hashint a1        | hash (Select(a0,a1)) = 0w83 + hashty a0 + hashint a1
198        | hash (Norm(a0)) = 0w89 + hashint a0        | hash (Norm(a0)) = 0w89 + hashty a0
199        | hash (Normalize(a0)) = 0w97 + hashint a0        | hash (Normalize(a0)) = 0w97 + hashint a0
200        | hash (Scale(a0)) = 0w101 + hashint a0        | hash (Scale(a0)) = 0w101 + hashint a0
201        | hash (InvScale(a0)) = 0w103 + hashint a0        | hash (InvScale(a0)) = 0w103 + hashint a0
# Line 243  Line 243 
243        | toString (MulMatMat(a0,a1,a2)) = concat["MulMatMat<", intToString a0, ",", intToString a1, ",", intToString a2, ">"]        | toString (MulMatMat(a0,a1,a2)) = concat["MulMatMat<", intToString a0, ",", intToString a1, ",", intToString a2, ">"]
244        | toString Cross = "Cross"        | toString Cross = "Cross"
245        | toString (Select(a0,a1)) = concat["Select<", tyToString a0, ",", intToString a1, ">"]        | toString (Select(a0,a1)) = concat["Select<", tyToString a0, ",", intToString a1, ">"]
246        | toString (Norm(a0)) = concat["Norm<", intToString a0, ">"]        | toString (Norm(a0)) = concat["Norm<", tyToString a0, ">"]
247        | toString (Normalize(a0)) = concat["Normalize<", intToString a0, ">"]        | toString (Normalize(a0)) = concat["Normalize<", intToString a0, ">"]
248        | toString (Scale(a0)) = concat["Scale<", intToString a0, ">"]        | toString (Scale(a0)) = concat["Scale<", intToString a0, ">"]
249        | toString (InvScale(a0)) = concat["InvScale<", intToString a0, ">"]        | toString (InvScale(a0)) = concat["InvScale<", intToString a0, ">"]

Legend:
Removed from v.824  
changed lines
  Added in v.825

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