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-global-update.sml
ViewVC logotype

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

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

revision 4499, Sat Sep 3 15:43:37 2016 UTC revision 4500, Sat Sep 3 15:44:18 2016 UTC
# Line 8  Line 8 
8    
9  structure GenGlobalUpdate : sig  structure GenGlobalUpdate : sig
10    
11    (* generate the global initially/update function *)    (* generate the global start/update function *)
12      val gen : CodeGenEnv.t * string * TreeIR.block -> CLang.decl      val gen : CodeGenEnv.t * string * TreeIR.block -> CLang.decl
13    
14    end = struct    end = struct
# Line 117  Line 117 
117              (env, loopStm :: List.revAppend(accDcls, stms))              (env, loopStm :: List.revAppend(accDcls, stms))
118            end            end
119    
120    (* generate the global initially/update function *)    (* generate the global start/update function *)
121      fun gen (env, name, body) = let      fun gen (env, name, body) = let
122            val env = Env.insert(env, PseudoVars.world, "this")            val env = Env.insert(env, PseudoVars.world, "this")
123            val _ = Env.setMapReduceCB (env, genMapReduceSeq)            val _ = Env.setMapReduceCB (env, genMapReduceSeq)

Legend:
Removed from v.4499  
changed lines
  Added in v.4500

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