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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/low-il/check-low-il.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/low-il/check-low-il.sml

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

revision 3080, Mon Mar 16 22:01:42 2015 UTC revision 3081, Mon Mar 16 22:08:21 2015 UTC
# Line 105  Line 105 
105              | Op.RealToInt d => (Ty.SeqTy(Ty.IntTy, d), [Ty.SeqTy(Ty.realTy, d)])              | Op.RealToInt d => (Ty.SeqTy(Ty.IntTy, d), [Ty.SeqTy(Ty.realTy, d)])
106  *)  *)
107              | Op.ImageAddress info => (Ty.AddrTy info, [Ty.ImageTy info])              | Op.ImageAddress info => (Ty.AddrTy info, [Ty.ImageTy info])
108                | Op.ControlIndex(info, ictl, d) => (Ty.IntTy, [Ty.ImageTy info, Ty.IntTy])
109              | Op.LoadVoxels(info, n) => (Ty.vecTy n, [Ty.AddrTy info])              | Op.LoadVoxels(info, n) => (Ty.vecTy n, [Ty.AddrTy info])
110              | Op.PosToImgSpace info => let              | Op.PosToImgSpace info => let
111                  val dim = ImageInfo.dim info                  val dim = ImageInfo.dim info
# Line 132  Line 133 
133                  | _ => false                  | _ => false
134                (* end case *))                (* end case *))
135              else false              else false
136          | typeOfCons _ = false
137    
138    end    end
139    

Legend:
Removed from v.3080  
changed lines
  Added in v.3081

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