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

SCM Repository

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

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

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

revision 1956, Sun Jul 8 12:17:56 2012 UTC revision 2009, Fri Oct 5 17:58:18 2012 UTC
# Line 104  Line 104 
104                  end                  end
105              | Op.TensorToWorldSpace(info, ty) => (ty, [Ty.ImageTy info, ty])              | Op.TensorToWorldSpace(info, ty) => (ty, [Ty.ImageTy info, ty])
106              | Op.EvalKernel(d, _, _) => (Ty.vecTy d, [Ty.vecTy d])              | Op.EvalKernel(d, _, _) => (Ty.vecTy d, [Ty.vecTy d])
107    (* DEPRECATED
108              | Op.LoadImage info => (Ty.ImageTy info, [Ty.StringTy])              | Op.LoadImage info => (Ty.ImageTy info, [Ty.StringTy])
109    *)
110              | Op.Inside(info, _) => (Ty.BoolTy, [Ty.vecTy(ImageInfo.dim info), Ty.ImageTy info])              | Op.Inside(info, _) => (Ty.BoolTy, [Ty.vecTy(ImageInfo.dim info), Ty.ImageTy info])
111              | Op.Input(ty, _, _) => (ty, [])              | Op.Input(ty, _, _) => (ty, [])
112              | Op.InputWithDefault(ty, _, _) => (ty, [ty])              | Op.InputWithDefault(ty, _, _) => (ty, [ty])
113                | Op.InputNrrd(ty, _, _) => (ty, [])
114                | Op.InputNrrdWithDefault(ty, _, _, _) => (ty, [])
115              | Op.Print tys => (Ty.TupleTy[], tys)              | Op.Print tys => (Ty.TupleTy[], tys)
116              | _ => raise Fail("sigOf: invalid operator " ^ Op.toString rator)              | _ => raise Fail("sigOf: invalid operator " ^ Op.toString rator)
117            (* end case *))            (* end case *))

Legend:
Removed from v.1956  
changed lines
  Added in v.2009

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