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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/codegen/low-to-tree.sml

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

revision 612, Sat Mar 12 17:56:24 2011 UTC revision 613, Sat Mar 12 19:29:23 2011 UTC
# Line 322  Line 322 
322                }                }
323            end            end
324    
325      fun translate (IL.Program{globals, globalInit, strands}) = let      fun translate (IL.Program{globals, globalInit, initially, strands}) = let
326            val env = newEnv()            val env = newEnv()
327            val globals = List.map            val globals = List.map
328                  (fn x => let val x' = newGlobal x in global(env, x, x'); x' end)                  (fn x => let val x' = newGlobal x in global(env, x, x'); x' end)
329                    globals                    globals
330            in            in
331    (* FIXME: translate initially code *)
332              T.Program{              T.Program{
333                  globals = globals,                  globals = globals,
334                  globalInit = trCFG (env, [], fn _ => [], globalInit),                  globalInit = trCFG (env, [], fn _ => [], globalInit),

Legend:
Removed from v.612  
changed lines
  Added in v.613

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