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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/gen-outputs.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/gen-outputs.sml

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

revision 3924, Fri Jun 3 17:30:27 2016 UTC revision 3927, Sat Jun 4 21:20:01 2016 UTC
# Line 211  Line 211 
211                      then dimSizes ::                      then dimSizes ::
212                        List.tabulate (nAxes, fn i =>                        List.tabulate (nAxes, fn i =>
213                          setSizes(i+1, CL.mkSubscript(CL.mkIndirect(wrldV, "size"), mkInt(nAxes-i-1)))) @                          setSizes(i+1, CL.mkSubscript(CL.mkIndirect(wrldV, "size"), mkInt(nAxes-i-1)))) @
214                        [U.maybeAlloc (nLengthsV, Nrrd.tyToEnum Nrrd.TypeInt, nAxes+1)]                        [U.maybeAlloc (env, nLengthsV, Nrrd.tyToEnum Nrrd.TypeInt, nAxes+1)]
215                      else [                      else [
216                          dimSizes, setSizes(1, numStableV),                          dimSizes, setSizes(1, numStableV),
217                          U.maybeAlloc (nLengthsV, Nrrd.tyToEnum Nrrd.TypeInt, 2)                          U.maybeAlloc (env, nLengthsV, Nrrd.tyToEnum Nrrd.TypeInt, 2)
218                        ])                        ])
219                  end                  end
220          (* code to check for no data to output (i.e., all of the output sequences are empty) *)          (* code to check for no data to output (i.e., all of the output sequences are empty) *)
# Line 232  Line 232 
232                  then [ (* drop data axis for scalar data by convention *)                  then [ (* drop data axis for scalar data by convention *)
233                      CL.mkComment["allocate nData nrrd"],                      CL.mkComment["allocate nData nrrd"],
234                      setSizes(0, numElemsV),                      setSizes(0, numElemsV),
235                      U.maybeAlloc (nDataV, Nrrd.tyToEnum nrrdType, 1)                      U.maybeAlloc (env, nDataV, Nrrd.tyToEnum nrrdType, 1)
236                    ]                    ]
237                  else [                  else [
238                      CL.mkComment["allocate nData nrrd"],                      CL.mkComment["allocate nData nrrd"],
239                      setSizes(0, mkInt nElems),                      setSizes(0, mkInt nElems),
240                      setSizes(1, numElemsV),                      setSizes(1, numElemsV),
241                      U.maybeAlloc (nDataV, Nrrd.tyToEnum nrrdType, 2)                      U.maybeAlloc (env, nDataV, Nrrd.tyToEnum nrrdType, 2)
242                    ]                    ]
243          (* generate the nLengths copy code *)          (* generate the nLengths copy code *)
244            val copyLengths = let            val copyLengths = let
# Line 375  Line 375 
375                  initSizes @                  initSizes @
376                  checkForEmpty @                  checkForEmpty @
377                  CL.mkComment["Allocate nData nrrd"] ::                  CL.mkComment["Allocate nData nrrd"] ::
378                  U.maybeAlloc (nDataV, Nrrd.tyToEnum  nrrdType, nAxes+nDataAxes) ::                  U.maybeAlloc (env, nDataV, Nrrd.tyToEnum  nrrdType, nAxes+nDataAxes) ::
379                  CL.mkComment["copy data to output nrrd"] ::                  CL.mkComment["copy data to output nrrd"] ::
380                  copyCode @                  copyCode @
381                  [CL.mkReturn(SOME(CL.mkVar "false"))]                  [CL.mkReturn(SOME(CL.mkVar "false"))]

Legend:
Removed from v.3924  
changed lines
  Added in v.3927

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