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

SCM Repository

[diderot] Diff of /trunk/src/compiler/simplify/lift.sml
ViewVC logotype

Diff of /trunk/src/compiler/simplify/lift.sml

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

revision 2355, Sun Apr 7 11:35:08 2013 UTC revision 2356, Sun Apr 7 14:45:25 2013 UTC
# Line 136  Line 136 
136                }                }
137            end            end
138    
139      fun transform (prog as S.Program{globals, globalInit, init, strands}) = let      fun transform (prog as S.Program{globals, globalInit, funcs, init, strands}) = let
140            val statics = findStatics globalInit            val statics = findStatics globalInit
141            val staticEnv = Eval.evalStatics (statics, globalInit)            val staticEnv = Eval.evalStatics (statics, globalInit)
142            val globalInit = reduce (staticEnv, globalInit)            val globalInit = reduce (staticEnv, globalInit)
# Line 145  Line 145 
145              S.Program{              S.Program{
146                  globals = globals,                  globals = globals,
147                  globalInit = globalInit,                  globalInit = globalInit,
148                    funcs = funcs,
149                  init = init,                  init = init,
150                  strands = strands                  strands = strands
151                }                }

Legend:
Removed from v.2355  
changed lines
  Added in v.2356

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