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 1478, Thu Sep 1 13:09:11 2011 UTC revision 1479, Fri Sep 2 14:17:54 2011 UTC
# Line 335  Line 335 
335                val descI = let                val descI = let
336                      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))
337                      val nrrdTy = NrrdTypes.toNrrdType outTy                      val nrrdTy = NrrdTypes.toNrrdType outTy
338                        val nrrdSize = NrrdTypes.toNrrdSize outTy
339                            in                            in
340                              CL.I_Struct[                              CL.I_Struct[
341                                  ("name", CL.I_Exp(CL.mkStr name)),                                  ("name", CL.I_Exp(CL.mkStr name)),
342                                  ("stateSzb", CL.I_Exp(CL.mkSizeof(CL.T_Named(N.strandTy name)))),                                  ("stateSzb", CL.I_Exp(CL.mkSizeof(CL.T_Named(N.strandTy name)))),
343                                  ("outputSzb", CL.I_Exp(CL.mkSizeof(ToC.trType outTy))),                                  ("outputSzb", CL.I_Exp(CL.mkInt nrrdSize)),
344                                  ("nrrdType", CL.I_Exp(CL.mkInt nrrdTy)),                                  ("nrrdType", CL.I_Exp(CL.mkInt nrrdTy)),
345  (* FIXME: should use MethodName.toString here *)  (* FIXME: should use MethodName.toString here *)
346                                  ("update", fnPtr("update_method_t", name ^ "Update")),                                  ("update", fnPtr("update_method_t", name ^ "Update")),

Legend:
Removed from v.1478  
changed lines
  Added in v.1479

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