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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/gen-strand.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/gen-strand.sml

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

revision 3917, Sat May 28 16:41:39 2016 UTC revision 3918, Mon May 30 06:31:35 2016 UTC
# Line 10  Line 10 
10    
11  structure GenStrand : sig  structure GenStrand : sig
12    
13      val gen : CodeGenEnv.t * TreeIR.strand -> CLang.decl list      val gen : CodeGenEnv.t * TreeIR.strand -> {
14                structDef : CLang.decl,
15                methods : CLang.decl list
16              }
17    
18    end = struct    end = struct
19    
# Line 79  Line 82 
82            val name = Atom.toString name            val name = Atom.toString name
83            val strandTy = CL.T_Ptr(CL.T_Named(name ^ "_strand"))            val strandTy = CL.T_Ptr(CL.T_Named(name ^ "_strand"))
84            val params = List.map (TreeToCxx.trParam env) params            val params = List.map (TreeToCxx.trParam env) params
85            in            in {
86              genStrandStruct (env, name, state) ::              structDef = genStrandStruct (env, name, state),
87              genStateInit (env, name, strandTy, params, stateInit) ::              methods = genStateInit (env, name, strandTy, params, stateInit) ::
88              genInitiallyMethod (env, name, strandTy, initM) @              genInitiallyMethod (env, name, strandTy, initM) @
89              genUpdateMethod (env, name, strandTy, updateM) ::              genUpdateMethod (env, name, strandTy, updateM) ::
90              genStabilizeMethod (env, name, strandTy, stabilizeM)              genStabilizeMethod (env, name, strandTy, stabilizeM)
91            end            } end
92    
93    end    end

Legend:
Removed from v.3917  
changed lines
  Added in v.3918

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