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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4128, Thu Jun 30 23:19:13 2016 UTC revision 4151, Sat Jul 2 17:42:55 2016 UTC
# Line 457  Line 457 
457                | Op.Translate info => bindTREE (TOp.Translate info)                | Op.Translate info => bindTREE (TOp.Translate info)
458                | Op.ControlIndex(info, ctl, d) => bindTREE (TOp.ControlIndex(info, ctl, d))                | Op.ControlIndex(info, ctl, d) => bindTREE (TOp.ControlIndex(info, ctl, d))
459                | Op.LoadVoxel info => bindTREE (TOp.LoadVoxel info)                | Op.LoadVoxel info => bindTREE (TOp.LoadVoxel info)
460    (*
461                | Op.Inside(info, s) => bindTREE (TOp.Inside(info, s))                | Op.Inside(info, s) => bindTREE (TOp.Inside(info, s))
462    *)
463                  | Op.Inside(info, s) => (case ImageInfo.dim info
464                       of 1 => bindTREE (TOp.Inside(VectorLayout.realLayout, info, s))
465                        | d => let
466                            val [x, img] = args
467                            val (layout, args, stms) = vectorArg (env, x)
468                            val (img, stms) = simpleArg env (img, stms)
469                            in
470                              (Env.TREE(T.E_Op(TOp.Inside(layout, info, s), args@[img])), stms)
471                            end
472                      (* end case *))
473                | Op.ImageDim(info, d) => bindTREE(TOp.ImageDim(info, d))                | Op.ImageDim(info, d) => bindTREE(TOp.ImageDim(info, d))
474                | Op.MathFn f => bindTREE (TOp.MathFn f)                | Op.MathFn f => bindTREE (TOp.MathFn f)
475                | rator => raise Fail("bogus operator " ^ Op.toString srcRator)                | rator => raise Fail("bogus operator " ^ Op.toString srcRator)

Legend:
Removed from v.4128  
changed lines
  Added in v.4151

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