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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cfg-ir/translate-env-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/translate-env-fn.sml

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

revision 3801, Tue May 3 13:11:50 2016 UTC revision 3802, Tue May 3 17:13:30 2016 UTC
# Line 68  Line 68 
68                 end                 end
69           (* end case *))           (* end case *))
70    
71        fun renameList (env, xs) = List.map (fn x => rename (env, x)) xs
72    
73      fun renameGV (E{gvMap, ...}, x) = (case SrcGV.Tbl.find gvMap x      fun renameGV (E{gvMap, ...}, x) = (case SrcGV.Tbl.find gvMap x
74             of SOME x' => x'             of SOME x' => x'
75              | NONE => let              | NONE => let
# Line 90  Line 92 
92                  end                  end
93            (* end case *))            (* end case *))
94    
     fun renameList (env, xs) = List.map (fn x => rename (env, x)) xs  
   
95      fun insertNd (E{ndMap, ...}, id, nd) = Stamp.Tbl.insert ndMap (id, nd)      fun insertNd (E{ndMap, ...}, id, nd) = Stamp.Tbl.insert ndMap (id, nd)
96    
97      fun findNd (E{ndMap, ...}) = Stamp.Tbl.find ndMap      fun findNd (E{ndMap, ...}) = Stamp.Tbl.find ndMap

Legend:
Removed from v.3801  
changed lines
  Added in v.3802

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