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

Diff of /branches/vis15/src/compiler/target-cpu/gen-world.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 176  Line 176 
176                                (* NOTE: the args' list must match the parameters in GenStrand *)                                (* NOTE: the args' list must match the parameters in GenStrand *)
177                                  val args' = List.map (fn e => ToCxx.trExp(env, e)) args                                  val args' = List.map (fn e => ToCxx.trExp(env, e)) args
178                                  val args' =                                  val args' =
179                                        CL.mkDispatch(CL.mkIndirect(thisV, "_strands"), "strand", [idxV])                                        CL.mkDispatch(RN.strandArray env, "strand", [idxV])
180                                        :: args'                                        :: args'
181                                  val args' = if hasG                                  val args' = if hasG
182                                        then CL.mkIndirect(thisV, "_globals") :: args'                                        then CL.mkIndirect(thisV, "_globals") :: args'

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