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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/cl-target/tree-to-cl.sml
[diderot] / branches / pure-cfg / src / compiler / cl-target / tree-to-cl.sml  
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/cl-target/tree-to-cl.sml

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

revision 1315, Sat Jun 11 21:10:15 2011 UTC revision 1316, Sat Jun 11 22:45:44 2011 UTC
# Line 107  Line 107 
107    
108    (* translate a variable use *)    (* translate a variable use *)
109      fun trVar (env, x) = (case V.kind x      fun trVar (env, x) = (case V.kind x
110             of IL.VK_Global => CL.mkVar(lookup(env, x))             of IL.VK_Global => CL.mkIndirect(CL.E_Var RN.globalsVarName, lookup(env, x))
111              | IL.VK_State strand => CL.mkIndirect(CL.mkVar "selfIn", lookup(env, x))              | IL.VK_State strand => CL.mkIndirect(CL.mkVar "selfIn", lookup(env, x))
112              | IL.VK_Local => CL.mkVar(lookup(env, x))              | IL.VK_Local => CL.mkVar(lookup(env, x))
113            (* end case *))            (* end case *))
Legend:
Removed from v.1315  
changed lines
  Added in v.1316
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge