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

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

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

revision 3087, Tue Mar 17 16:35:47 2015 UTC revision 3088, Tue Mar 17 18:27:27 2015 UTC
# Line 65  Line 65 
65    (* generate code to initialize the global input variables from the command-line inputs *)    (* generate code to initialize the global input variables from the command-line inputs *)
66      fun genInitInputs (tgt, inputs) = let      fun genInitInputs (tgt, inputs) = let
67          (* the world pointer type *)          (* the world pointer type *)
68            val worldPtrTy = CL.T_Ptr(CL.T_Named(N.worldTy tgt))            val worldPtrTy = N.worldPtrTy tgt
69          (* the inputs pointer type *)          (* the inputs pointer type *)
70            val inputPtrTy = CL.T_Ptr(CL.T_Named(N.inputsTy tgt))            val inputPtrTy = N.inputsPtrTy tgt
71          (* some common variables *)          (* some common variables *)
72            val inpV = CL.mkVar "inp"            val inpV = CL.mkVar "inp"
73          (* initialize a given input global; for sequences and images, this requires          (* initialize a given input global; for sequences and images, this requires
# Line 122  Line 122 
122    
123      fun genCheckInputs (tgt, inputs) = let      fun genCheckInputs (tgt, inputs) = let
124          (* the world pointer type *)          (* the world pointer type *)
125            val worldPtrTy = CL.T_Ptr(CL.T_Named(N.worldTy tgt))            val worldPtrTy = N.worldPtrTy tgt
126            val wrldParam = CL.PARAM([], worldPtrTy, "wrld")            val wrldParam = CL.PARAM([], worldPtrTy, "wrld")
127          (* check that the specified input has been defined and, if not, define it to its default *)          (* check that the specified input has been defined and, if not, define it to its default *)
128  (* FIXME  (* FIXME

Legend:
Removed from v.3087  
changed lines
  Added in v.3088

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