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

SCM Repository

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

Diff of /branches/charisee/src/compiler/c-target/c-target.sml

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

revision 1765, Sat Mar 24 10:08:44 2012 UTC revision 1766, Sat Mar 24 10:09:29 2012 UTC
# Line 267  Line 267 
267          fun genStrand (Strand{name, tyName, state, output, code}) = let          fun genStrand (Strand{name, tyName, state, output, code}) = let
268              (* the type declaration for the strand's state struct *)              (* the type declaration for the strand's state struct *)
269                val selfTyDef = CL.D_StructDef(                val selfTyDef = CL.D_StructDef(
270                        NONE,
271                        List.rev (List.map (fn CL.V(ty, x) => (ty, x)) state),                        List.rev (List.map (fn CL.V(ty, x) => (ty, x)) state),
272                        tyName)                      SOME tyName)
273              (* the type and access expression for the strand's output variable *)              (* the type and access expression for the strand's output variable *)
274                val (outTy, outState) = (#1 output, CL.mkIndirect(CL.mkVar "self", #2 output))                val (outTy, outState) = (#1 output, CL.mkIndirect(CL.mkVar "self", #2 output))
275              (* the print function *)              (* the print function *)

Legend:
Removed from v.1765  
changed lines
  Added in v.1766

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