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

SCM Repository

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

Diff of /branches/vis12/src/compiler/high-to-mid/high-to-mid.sml

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

revision 2026, Thu Oct 11 00:26:15 2012 UTC revision 2027, Thu Oct 11 10:40:12 2012 UTC
# Line 32  Line 32 
32            (* end case *))            (* end case *))
33    
34      fun getRHSImage x = (case getRHS x      fun getRHSImage x = (case getRHS x
35             of (SrcOp.Input(InP.INP{init=SOME(InP.Proxy(_, v)), ...}), _) => v             of (SrcOp.LoadImage(_, _, v), _) => v
36                | (SrcOp.Input(InP.INP{init=SOME(InP.Proxy(_, v)), ...}), _) => v
37              | (SrcOp.Input(InP.INP{init=SOME(InP.Image v), ...}), _) => v              | (SrcOp.Input(InP.INP{init=SOME(InP.Image v), ...}), _) => v
38              | _ => raise Fail "bogus image variable"              | _ => raise Fail "bogus image variable"
39            (* end case *))            (* end case *))
# Line 278  Line 279 
279                | SrcOp.ScaleField => dummy()                | SrcOp.ScaleField => dummy()
280                | SrcOp.NegField => dummy()                | SrcOp.NegField => dummy()
281                | SrcOp.DiffField => dummy()                | SrcOp.DiffField => dummy()
282                  | SrcOp.LoadSeq(ty, nrrd) => assign (DstOp.LoadSeq(cvtTy ty, nrrd))
283                  | SrcOp.LoadImage(ty, nrrd, info) => assign (DstOp.LoadImage(cvtTy ty, nrrd, info))
284                | SrcOp.Input inp => assign (DstOp.Input(Inputs.map cvtTy inp))                | SrcOp.Input inp => assign (DstOp.Input(Inputs.map cvtTy inp))
285                | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)                | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)
286              (* end case *)              (* end case *)

Legend:
Removed from v.2026  
changed lines
  Added in v.2027

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