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 3925, Fri Jun 3 17:30:49 2016 UTC revision 3926, Sat Jun 4 05:01:29 2016 UTC
# Line 76  Line 76 
76      fun rvalueStateVar (env, x) = CL.mkIndirect(CL.mkVar(Env.selfIn env), TreeStateVar.qname x)      fun rvalueStateVar (env, x) = CL.mkIndirect(CL.mkVar(Env.selfIn env), TreeStateVar.qname x)
77    
78    (* generate new variables *)    (* generate new variables *)
79      local      val freshVar = CodeGenUtil.freshVar
       val count = ref 0  
       fun freshName prefix = let  
             val n = !count  
             in  
               count := n+1;  
               concat[prefix, "_", Int.toString n]  
             end  
     in  
     fun tmpVar () = freshName "tmp"  
     fun freshVar prefix = freshName prefix  
     end (* local *)  
80    
81    (* integer literal expression *)    (* integer literal expression *)
82      fun intExp (i : int) = CL.mkInt(IntInf.fromInt i)      fun intExp (i : int) = CL.mkInt(IntInf.fromInt i)

Legend:
Removed from v.3925  
changed lines
  Added in v.3926

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