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 4175, Fri Jul 8 15:26:30 2016 UTC revision 4185, Mon Jul 11 12:47:37 2016 UTC
# Line 499  Line 499 
499                | Op.Translate info => bindTREE (TOp.Translate info)                | Op.Translate info => bindTREE (TOp.Translate info)
500                | Op.ControlIndex(info, ctl, d) => bindTREE (TOp.ControlIndex(info, ctl, d))                | Op.ControlIndex(info, ctl, d) => bindTREE (TOp.ControlIndex(info, ctl, d))
501                | Op.LoadVoxel info => bindTREE (TOp.LoadVoxel info)                | Op.LoadVoxel info => bindTREE (TOp.LoadVoxel info)
 (*  
               | Op.Inside(info, s) => bindTREE (TOp.Inside(info, s))  
 *)  
502                | Op.Inside(info, s) => (case ImageInfo.dim info                | Op.Inside(info, s) => (case ImageInfo.dim info
503                     of 1 => bindTREE (TOp.Inside(VectorLayout.realLayout, info, s))                     of 1 => bindTREE (TOp.Inside(VectorLayout.realLayout, info, s))
504                      | d => let                      | d => let
# Line 512  Line 509 
509                            (Env.TREE(T.E_Op(TOp.Inside(layout, info, s), args@[img])), stms)                            (Env.TREE(T.E_Op(TOp.Inside(layout, info, s), args@[img])), stms)
510                          end                          end
511                    (* end case *))                    (* end case *))
512                  | Op.IndexInside(info, s) => bindTREE (TOp.IndexInside(info, s))
513                | Op.ImageDim(info, d) => bindTREE(TOp.ImageDim(info, d))                | Op.ImageDim(info, d) => bindTREE(TOp.ImageDim(info, d))
514                | Op.MathFn f => bindTREE (TOp.MathFn f)                | Op.MathFn f => bindTREE (TOp.MathFn f)
515                | rator => raise Fail("bogus operator " ^ Op.toString srcRator)                | rator => raise Fail("bogus operator " ^ Op.toString srcRator)

Legend:
Removed from v.4175  
changed lines
  Added in v.4185

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