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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/translate/translate.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/translate/translate.sml

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

revision 608, Fri Mar 11 22:38:23 2011 UTC revision 609, Sat Mar 12 02:03:38 2011 UTC
# Line 279  Line 279 
279                }                }
280            end            end
281    
282      fun translate (S.Program{globals, globalInit, strands}) = let      fun translate (S.Program{globals, globalInit, init, strands}) = let
283            val (globalInit, env) = cvtTopLevelBlock (VMap.empty, globalInit)            val (globalInit, env) = cvtTopLevelBlock (VMap.empty, globalInit)
284          (* get the SSA names for the globals and a reduced environment that just defines          (* get the SSA names for the globals and a reduced environment that just defines
285           * the globals.           * the globals.

Legend:
Removed from v.608  
changed lines
  Added in v.609

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