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/gen-output.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/gen-output.sml

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

revision 3185, Tue Mar 31 20:58:49 2015 UTC revision 3186, Tue Mar 31 21:01:59 2015 UTC
# Line 186  Line 186 
186                      CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"                      CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"
187                    ])                    ])
188                  else CL.mkApply("OutputCollectionFixed", [                  else CL.mkApply("OutputCollectionFixed", [
189                      CL.mkVar "wrld", CL.mkSubscript(CL.mkVar "sizes", CL.mkInt 0),                      CL.mkVar "wrld", CL.mkInt(IntInf.fromInt sizesDim), CL.mkVar "sizes",
190                      CL.mkVar(NrrdEnums.tyToEnum nrrdType),                      CL.mkVar(NrrdEnums.tyToEnum nrrdType),
191                      CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"                      CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"
192                    ])                    ])
# Line 194  Line 194 
194            val stms =            val stms =
195                  CL.mkComment["Compute sizes of nrrd file"] ::                  CL.mkComment["Compute sizes of nrrd file"] ::
196                  initSizes @                  initSizes @
197                  [CL.mkReturn(SOME(CL.mkApply("OutputGridFixed", [                  [CL.mkReturn(SOME copyCode)]
                     CL.mkVar "wrld", CL.mkInt(IntInf.fromInt sizesDim), CL.mkVar "sizes",  
                     CL.mkVar(NrrdEnums.tyToEnum nrrdType),  
                     CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"  
                   ])))]  
198            in            in
199              ([CL.PARAM([], nrrdPtrTy, "nData")], CL.mkBlock stms)              ([CL.PARAM([], nrrdPtrTy, "nData")], CL.mkBlock stms)
200            end            end

Legend:
Removed from v.3185  
changed lines
  Added in v.3186

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