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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/cl-target/cl-target.sml
ViewVC logotype

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

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

revision 1793, Thu Apr 5 09:53:28 2012 UTC revision 1803, Fri Apr 6 13:46:37 2012 UTC
# Line 294  Line 294 
294                  })                  })
295    
296        (* register the code that is used to register command-line options for input variables *)        (* register the code that is used to register command-line options for input variables *)
297          fun inputs (Prog{topDecls, ...}, stm) = let          fun inputs (Prog{topDecls, ...}, env, blk) = let
298                val inputsFn = CL.D_Func(                val inputsFn = CL.D_Func(
299                      [], CL.voidTy, RN.registerOpts,                      [], CL.voidTy, RN.registerOpts,
300                      [CL.PARAM([], CL.T_Ptr(CL.T_Named RN.optionsTy), "opts")],                      [CL.PARAM([], CL.T_Ptr(CL.T_Named RN.optionsTy), "opts")],
301                      stm)                      Tr.block (env, blk))
302                in                in
303                  topDecls := inputsFn :: !topDecls                  topDecls := inputsFn :: !topDecls
304                end                end

Legend:
Removed from v.1793  
changed lines
  Added in v.1803

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