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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml

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

revision 1292, Wed Jun 8 19:09:25 2011 UTC revision 1293, Wed Jun 8 19:09:52 2011 UTC
# Line 318  Line 318 
318              (* the strand's descriptor object *)              (* the strand's descriptor object *)
319                val descI = let                val descI = let
320                      fun fnPtr (ty, f) = CL.I_Exp(CL.mkCast(CL.T_Named ty, CL.mkVar f))                      fun fnPtr (ty, f) = CL.I_Exp(CL.mkCast(CL.T_Named ty, CL.mkVar f))
321                        val SOME(outTy, _) = !output
322                      in                      in
323                        CL.I_Struct[                        CL.I_Struct[
324                            ("name", CL.I_Exp(CL.E_Str name)),                            ("name", CL.I_Exp(CL.mkStr name)),
325                            ("stateSzb", CL.I_Exp(CL.mkSizeof(CL.T_Named(N.strandTy name)))),                            ("stateSzb", CL.I_Exp(CL.mkSizeof(CL.T_Named(N.strandTy name)))),
326    (*
327                              ("outputSzb", CL.I_Exp(CL.mkSizeof(ToC.trTy outTy))),
328    *)
329                            ("update", fnPtr("update_method_t", name ^ "_update")),                            ("update", fnPtr("update_method_t", name ^ "_update")),
330                            ("print", fnPtr("print_method_t", prFnName))                            ("print", fnPtr("print_method_t", prFnName))
331                          ]                          ]

Legend:
Removed from v.1292  
changed lines
  Added in v.1293

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