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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/cxx-names.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/cxx-names.sml

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

revision 4504, Sat Sep 3 21:57:49 2016 UTC revision 4505, Sun Sep 4 14:14:14 2016 UTC
# Line 32  Line 32 
32      val selfInVar    : CLang.var      val selfInVar    : CLang.var
33      val selfOutVar   : CLang.var      val selfOutVar   : CLang.var
34    
35      (* get the strand array struct *)
36        val strandArray : CodeGenEnv.t -> CLang.exp
37    
38    (* the strand type *)    (* the strand type *)
39      val strandTyName : string -> string      val strandTyName : string -> string
40      val strandTy     : string -> CLang.ty      val strandTy     : string -> CLang.ty
# Line 102  Line 105 
105      val selfInVar    = "selfIn"      val selfInVar    = "selfIn"
106      val selfOutVar   = "selfOut"      val selfOutVar   = "selfOut"
107    
108        fun strandArray env = CL.mkIndirect(CL.mkVar(Env.world env), "_strands")
109    
110      fun strandTyName s = s ^ "_strand"      fun strandTyName s = s ^ "_strand"
111      fun strandTy s = CL.T_Named(strandTyName s)      fun strandTy s = CL.T_Named(strandTyName s)
112      fun localTyName s = s ^ "_local"      fun localTyName s = s ^ "_local"

Legend:
Removed from v.4504  
changed lines
  Added in v.4505

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