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/tree-to-cxx.sml
ViewVC logotype

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

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

revision 4516, Mon Sep 5 16:19:47 2016 UTC revision 4517, Mon Sep 5 16:22:42 2016 UTC
# Line 104  Line 104 
104                  then "out_state"                  then "out_state"
105                  else "local_state"                  else "local_state"
106            in            in
107              CL.mkIndirect(CL.mkIndirectDispatch(strands env, m, [ix]), TreeStateVar.qname x)              CL.mkIndirect(CL.mkDispatch(strands env, m, [ix]), TreeStateVar.qname x)
108            end            end
109      fun rvalueStateVarIx (env, x, ix) = let      fun rvalueStateVarIx (env, x, ix) = let
110            val m = if isSharedVar (env, x)            val m = if isSharedVar (env, x)
111                  then "in_state"                  then "in_state"
112                  else "local_state"                  else "local_state"
113            in            in
114              CL.mkIndirect(CL.mkIndirectDispatch(strands env, m, [ix]), TreeStateVar.qname x)              CL.mkIndirect(CL.mkDispatch(strands env, m, [ix]), TreeStateVar.qname x)
115            end            end
116      end (* local *)      end (* local *)
117    

Legend:
Removed from v.4516  
changed lines
  Added in v.4517

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