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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/cl-target/tree-to-cl.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/tree-to-cl.sml

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

revision 2011, Sun Oct 7 21:14:31 2012 UTC revision 2012, Mon Oct 8 14:27:53 2012 UTC
# Line 217  Line 217 
217  *)  *)
218              | (Op.Inside(info, s), [pos, img]) =>              | (Op.Inside(info, s), [pos, img]) =>
219                  CL.mkApply(RN.inside(ImageInfo.dim info), [pos, CL.mkUnOp(CL.%&,img), intExp s])                  CL.mkApply(RN.inside(ImageInfo.dim info), [pos, CL.mkUnOp(CL.%&,img), intExp s])
220              | (Op.Input(ty, name, desc), []) =>              | (Op.Input _, []) => raise Fail("impossible " ^ Op.toString rator)
                 raise Fail("impossible " ^ Op.toString rator)  
             | (Op.InputWithDefault(ty, name, desc), [a]) =>  
                 raise Fail("impossible " ^ Op.toString rator)  
221              | _ => raise Fail(concat[              | _ => raise Fail(concat[
222                "unknown or incorrect operator ", Op.toString rator                "unknown or incorrect operator ", Op.toString rator
223              ])              ])
# Line 399  Line 396 
396                | IL.S_New _ => raise Fail "new not supported yet" (* FIXME *)                | IL.S_New _ => raise Fail "new not supported yet" (* FIXME *)
397                | IL.S_Save([x], exp) => trSet (env, trLHSStateVar x, exp)                | IL.S_Save([x], exp) => trSet (env, trLHSStateVar x, exp)
398                | IL.S_Input _ => raise Fail "impossible S_Input in OpenCL"                | IL.S_Input _ => raise Fail "impossible S_Input in OpenCL"
               | IL.S_InputImage _ => raise Fail "impossible S_Input in OpenCL"  
               | IL.S_InputSeq _ => raise Fail "impossible S_Input in OpenCL"  
399                | IL.S_Exit args => [CL.mkReturn NONE]                | IL.S_Exit args => [CL.mkReturn NONE]
400                | IL.S_Active => [CL.mkReturn(SOME(CL.mkVar RN.kActive))]                | IL.S_Active => [CL.mkReturn(SOME(CL.mkVar RN.kActive))]
401                | IL.S_Stabilize => [CL.mkReturn(SOME(CL.mkVar RN.kStabilize))]                | IL.S_Stabilize => [CL.mkReturn(SOME(CL.mkVar RN.kStabilize))]

Legend:
Removed from v.2011  
changed lines
  Added in v.2012

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