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 4518, Mon Sep 5 16:48:58 2016 UTC revision 4519, Mon Sep 5 17:30:22 2016 UTC
# Line 58  Line 58 
58                  else members                  else members
59            val members = memberFun (CL.uint32, "run", [CL.PARAM([], CL.uint32, "max_nsteps")]) :: members            val members = memberFun (CL.uint32, "run", [CL.PARAM([], CL.uint32, "max_nsteps")]) :: members
60            val members = memberFun (CL.voidTy, "swap_state", []) :: members            val members = memberFun (CL.voidTy, "swap_state", []) :: members
 (* FIXME: the following three functions should be "const" functions *)  
           val members = memberFun (CL.uint32, "num_stable_strands", []) :: members  
           val members = memberFun (CL.uint32, "num_all_strands", []) :: members  
           val members = memberFun (CL.uint32, "num_active_strands", []) :: members  
61            val members = if #hasGlobalStart spec            val members = if #hasGlobalStart spec
62                  then memberFun (CL.voidTy, "global_start", []) :: members                  then memberFun (CL.voidTy, "global_start", []) :: members
63                  else members                  else members

Legend:
Removed from v.4518  
changed lines
  Added in v.4519

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