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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/IL/value-numbering-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/IL/value-numbering-fn.sml

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

revision 1504, Mon Sep 19 17:55:42 2011 UTC revision 1505, Tue Sep 20 13:24:45 2011 UTC
# Line 257  Line 257 
257            end            end
258    
259      fun transform prog = let      fun transform prog = let
260            val IL.Program{globalInit, initially, strands} = prog            val IL.Program{props, globalInit, initially, strands} = prog
261            val {cfg=globalInit, rename} = transformCFG' ([], [], globalInit)            val {cfg=globalInit, rename} = transformCFG' ([], [], globalInit)
262            val globals = IL.CFG.liveAtExit globalInit            val globals = IL.CFG.liveAtExit globalInit
263          (* transform the strand initialization code *)          (* transform the strand initialization code *)
# Line 316  Line 316 
316            val strands = List.map transformStrand strands            val strands = List.map transformStrand strands
317            in            in
318              IL.Program{              IL.Program{
319                    props = props,
320                  globalInit = globalInit,                  globalInit = globalInit,
321                  initially = initially,                  initially = initially,
322                  strands = strands                  strands = strands

Legend:
Removed from v.1504  
changed lines
  Added in v.1505

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