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

SCM Repository

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

Diff of /trunk/src/compiler/cl-target/cl-target.sml

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

revision 1840, Fri Apr 13 23:46:36 2012 UTC revision 1907, Sun Jun 3 08:17:19 2012 UTC
# Line 849  Line 849 
849          fun init (Strand{name, tyName, code, init_code, ...}, params, init) = let          fun init (Strand{name, tyName, code, init_code, ...}, params, init) = let
850                val fName = RN.strandInit name                val fName = RN.strandInit name
851                val params =                val params =
852    (* FIXME: the params should not have CL types, since this code is generated to the C file! *)
853                      clParam ("",CL.T_Ptr(CL.T_Named tyName), "selfOut") ::                      clParam ("",CL.T_Ptr(CL.T_Named tyName), "selfOut") ::
854                        List.map (fn (ToCL.V(ty, x)) => CL.PARAM([], ty, x)) params                        List.map (fn (ToCL.V(ty, x)) => CL.PARAM([], ty, x)) params
855                val initFn = CL.D_Func([], CL.voidTy, fName, params, init)                val initFn = CL.D_Func([], CL.voidTy, fName, params, init)

Legend:
Removed from v.1840  
changed lines
  Added in v.1907

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