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 3184, Tue Mar 31 20:54:43 2015 UTC revision 3185, Tue Mar 31 20:58:49 2015 UTC
# Line 178  Line 178 
178                          setSizes(i+nDataAxes, CL.mkSubscript(CL.mkIndirect(wrldV, "size"), mkInt(nAxes-i-1))))                          setSizes(i+nDataAxes, CL.mkSubscript(CL.mkIndirect(wrldV, "size"), mkInt(nAxes-i-1))))
179                      else dimSizes (* raise Fail "output for collection is unimplemented" *)                      else dimSizes (* raise Fail "output for collection is unimplemented" *)
180                  end                  end
181          (* code to copy the data from the GPU *)          (* code to call the output helper *)
182            val copyCode = [] (* FIXME *)            val copyCode = if #isArray tgt
183                    then CL.mkApply("OutputGridFixed", [
184                        CL.mkVar "wrld", CL.mkInt(IntInf.fromInt sizesDim), CL.mkVar "sizes",
185                        CL.mkVar(NrrdEnums.tyToEnum nrrdType),
186                        CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"
187                      ])
188                    else CL.mkApply("OutputCollectionFixed", [
189                        CL.mkVar "wrld", CL.mkSubscript(CL.mkVar "sizes", CL.mkInt 0),
190                        CL.mkVar(NrrdEnums.tyToEnum nrrdType),
191                        CL.mkIndirect(CL.mkVar "wrld", OCLNames.getOutputKern name), CL.mkVar "nData"
192                      ])
193          (* the function body *)          (* the function body *)
194            val stms =            val stms =
195                  CL.mkComment["Compute sizes of nrrd file"] ::                  CL.mkComment["Compute sizes of nrrd file"] ::

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

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