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

SCM Repository

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

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

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

revision 1381, Thu Jun 23 19:20:18 2011 UTC revision 1382, Thu Jun 23 20:03:05 2011 UTC
# Line 348  Line 348 
348        (***** OUTPUT *****)        (***** OUTPUT *****)
349          fun genStrandPrint (Strand{name, tyName, state, output, code,...}) = let          fun genStrandPrint (Strand{name, tyName, state, output, code,...}) = let
350              (* the print function *)              (* the print function *)
351                val prFnName = concat[name, "_print"]                val prFnName = concat[name, "Print"]
352                val prFn = let                val prFn = let
353                      val params = [                      val params = [
354                              CL.PARAM([], CL.T_Ptr(CL.T_Named "FILE"), "outS"),                              CL.PARAM([], CL.T_Ptr(CL.T_Named "FILE"), "outS"),
# Line 638  Line 638 
638                            ("outputSzb", CL.I_Exp(CL.mkSizeof(ToC.trTy outTy))),                            ("outputSzb", CL.I_Exp(CL.mkSizeof(ToC.trTy outTy))),
639  *)  *)
640                            ("update", fnPtr("update_method_t", "0")),                            ("update", fnPtr("update_method_t", "0")),
641                            ("print", fnPtr("print_method_cl_t", name ^ "_print"))                            ("print", fnPtr("print_method_t", name ^ "Print"))
642                          ]                          ]
643                      end                      end
644                val desc = CL.D_Var([], CL.T_Named N.strandDescTy, N.strandDesc name, SOME descI)                val desc = CL.D_Var([], CL.T_Named N.strandDescTy, N.strandDesc name, SOME descI)

Legend:
Removed from v.1381  
changed lines
  Added in v.1382

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