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-inputs.sml
ViewVC logotype

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

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

revision 3987, Fri Jun 17 03:08:25 2016 UTC revision 3988, Fri Jun 17 17:26:51 2016 UTC
# Line 151  Line 151 
151                         of Inp.NoDefault => undef ()                         of Inp.NoDefault => undef ()
152                          | Inp.ConstExpr => CL.mkBlock[] (* initialization was handled in constInit *)                          | Inp.ConstExpr => CL.mkBlock[] (* initialization was handled in constInit *)
153                          | Inp.LoadSeq file =>                          | Inp.LoadSeq file =>
154                              GenLoadNrrd.loadSeqFromFile (global var, ty, CL.mkStr file)                              GenLoadNrrd.loadSeqFromFile (env, global var, ty, CL.mkStr file)
155                          | Inp.Proxy(file, _) => GenLoadNrrd.loadImage (global var, CL.mkStr file)                          | Inp.Proxy(file, _) => GenLoadNrrd.loadImage (global var, CL.mkStr file)
156                          | Inp.Image _ => undef ()                          | Inp.Image _ => undef ()
157                        (* end case *))                        (* end case *))
# Line 246  Line 246 
246                                  CL.boolTy, GenAPI.inputSetByName(spec, name),                                  CL.boolTy, GenAPI.inputSetByName(spec, name),
247                                  [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")],                                  [wrldParam, CL.PARAM(["const"], CL.charPtr, "s")],
248                                  CL.appendStm(                                  CL.appendStm(
249                                    GenLoadNrrd.loadSeqFromFile (global var, elemTy, CL.mkVar "s"),                                    GenLoadNrrd.loadSeqFromFile (env, global var, elemTy, CL.mkVar "s"),
250                                    CL.mkReturn(SOME(CL.mkBool false)))),                                    CL.mkReturn(SOME(CL.mkBool false)))),
251                                cFunc(                                cFunc(
252                                  CL.boolTy, GenAPI.inputSet(spec, name),                                  CL.boolTy, GenAPI.inputSet(spec, name),
253                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],
254                                  CL.appendStm(                                  CL.appendStm(
255                                    GenLoadNrrd.loadSeq (global var, elemTy, CL.mkVar "nin"),                                    GenLoadNrrd.loadSeq (env, global var, elemTy, CL.mkVar "nin"),
256                                    CL.mkReturn(SOME(CL.mkBool false))))                                    CL.mkReturn(SOME(CL.mkBool false))))
257                              ]                              ]
258                          | _ => [                          | _ => [

Legend:
Removed from v.3987  
changed lines
  Added in v.3988

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