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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/gen-load-nrrd.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/gen-load-nrrd.sml

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

revision 3985, Thu Jun 16 20:22:54 2016 UTC revision 3986, Thu Jun 16 21:13:09 2016 UTC
# Line 25  Line 25 
25      structure RN = CxxNames      structure RN = CxxNames
26      structure Ty = APITypes      structure Ty = APITypes
27    
     val wrldPrefixTy = CL.T_Ptr(CL.T_Named "WorldBase")  
   
28      fun loadImage (img, arg) = let      fun loadImage (img, arg) = let
29            val loadExp = CL.mkApplyExp(CL.mkSelect(img, "load"), [CL.mkVar "wrld", arg])            val loadExp = CL.mkApplyExp(CL.mkSelect(img, "load"), [CL.mkVar "wrld", arg])
30            in            in
# Line 57  Line 55 
55                  CL.mkAssign(                  CL.mkAssign(
56                    lhs,                    lhs,
57                    CL.mkApply(loadFn elemTy, [                    CL.mkApply(loadFn elemTy, [
58                        CL.mkCast(CL.T_Ptr(CL.T_Named "WorldBase"), CL.mkVar "wrld"),                        CL.mkVar "wrld",
59                        arg,                        arg,
60                        CL.mkInt(IntInf.fromInt nDims),                        CL.mkInt(IntInf.fromInt nDims),
61                        dimExp                        dimExp

Legend:
Removed from v.3985  
changed lines
  Added in v.3986

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