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

SCM Repository

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

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

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

revision 331, Thu Aug 19 20:17:39 2010 UTC revision 332, Thu Aug 19 20:18:53 2010 UTC
# Line 26  Line 26 
26        | tyToString (VecTy 0) = "real"        | tyToString (VecTy 0) = "real"
27        | tyToString (VecTy d) = "vec" ^ Int.toString d        | tyToString (VecTy d) = "vec" ^ Int.toString d
28    
29        fun sameint (i1 : int, i2) = (i1 = i2)
30        fun hashint i = Word.fromInt i
31        fun intToString i = Int.toString i
32    
33      fun samestring (s1 : string, s2) = (s1 = s2)      fun samestring (s1 : string, s2) = (s1 = s2)
34      val hashstring = HashString.hashString      val hashstring = HashString.hashString
35      fun stringToString s = String.concat["\"", s, "\""]      fun stringToString s = String.concat["\"", s, "\""]
# Line 224  Line 228 
228        | toString CeilToInt = "CeilToInt"        | toString CeilToInt = "CeilToInt"
229        | toString FloorToInt = "FloorToInt"        | toString FloorToInt = "FloorToInt"
230        | toString (VoxelAddress(a0)) = concat["VoxelAddress<", ImageInfo.toString a0, ">"]        | toString (VoxelAddress(a0)) = concat["VoxelAddress<", ImageInfo.toString a0, ">"]
231        | toString (LoadVoxels(a0,a1)) = concat["LoadVoxels<", RawTypes.toString a0",", intToString a0, ">"]        | toString (LoadVoxels(a0,a1)) = concat["LoadVoxels<", RawTypes.toString a0, ",", intToString a1, ">"]
232        | toString (Transform(a0)) = concat["Transform<", ImageInfo.toString a0, ">"]        | toString (Transform(a0)) = concat["Transform<", ImageInfo.toString a0, ">"]
233        | toString (EvalKernel(a0,a1,a2)) = concat["EvalKernel<", intToString a0",", Kernel.toString a0",", intToString a0, ">"]        | toString (EvalKernel(a0,a1,a2)) = concat["EvalKernel<", intToString a0, ",", Kernel.toString a1, ",", intToString a2, ">"]
234        | toString (LoadImage(a0)) = concat["LoadImage<", ImageInfo.toString a0, ">"]        | toString (LoadImage(a0)) = concat["LoadImage<", ImageInfo.toString a0, ">"]
235        | toString Inside = "Inside"        | toString Inside = "Inside"
236        | toString (Input(a0)) = concat["Input<", stringToString a0, ">"]        | toString (Input(a0)) = concat["Input<", stringToString a0, ">"]

Legend:
Removed from v.331  
changed lines
  Added in v.332

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