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 3158, Sat Mar 28 07:17:20 2015 UTC revision 3159, Sat Mar 28 09:40:50 2015 UTC
# Line 94  Line 94 
94                                CLUtil.globalParam(CNames.imagePtrTy d, "img"),                                CLUtil.globalParam(CNames.imagePtrTy d, "img"),
95                                CLUtil.globalParam(CL.voidPtr, "data")                                CLUtil.globalParam(CL.voidPtr, "data")
96                              ]                              ]
97                        fun mkLHS fld = CL.mkIndirect(CL.mkIndirect(globV, "gv_" ^ name), fld)                        fun mkLHS fld = CL.mkSelect(CL.mkIndirect(globV, "gv_" ^ name), fld)
98                        fun mkLHS' (fld, i) = CL.mkSubscript(mkLHS fld, CL.mkInt i)                        fun mkLHS' (fld, i) = CL.mkSubscript(mkLHS fld, CL.mkInt i)
99                        fun mkRHS fld = CL.mkIndirect(CL.mkVar "img", fld)                        fun mkRHS fld = CL.mkIndirect(CL.mkVar "img", fld)
100                        fun mkRHS' (fld, i) = CL.mkSubscript(mkRHS fld, CL.mkInt i)                        fun mkRHS' (fld, i) = CL.mkSubscript(mkRHS fld, CL.mkInt i)
# Line 138  Line 138 
138              gen (inputs, [])              gen (inputs, [])
139            end            end
140    
141    (* generate code to initialize the global input variables from the command-line inputs *)    (* generate C code to initialize the global input variables from the command-line inputs *)
142      fun genInitInputs (tgt, inputs) = let      fun genInitInputs (tgt, inputs) = let
143          (* the world pointer type *)          (* the world pointer type *)
144            val worldPtrTy = N.worldPtrTy tgt            val worldPtrTy = N.worldPtrTy tgt

Legend:
Removed from v.3158  
changed lines
  Added in v.3159

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