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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/high-il/normalize.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/high-il/normalize.sml

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

revision 2245, Sun Mar 3 12:51:51 2013 UTC revision 2246, Sun Mar 3 14:51:31 2013 UTC
# Line 181  Line 181 
181              loop (Stats.sum{from=firstCounter, to=lastCounter})              loop (Stats.sum{from=firstCounter, to=lastCounter})
182            end            end
183    
184      fun transform (prog as IL.Program{props, globalInit, globalBlock, initially, strands}) = let      fun transform (prog as IL.Program{props, globalInit, globalBlock, globalReduce, initially, strands}) = let
185            fun doCFG cfg = (            fun doCFG cfg = (
186                  loopToFixPt (fn () => IL.CFG.apply simplify cfg);                  loopToFixPt (fn () => IL.CFG.apply simplify cfg);
187                  loopToFixPt (fn () => ignore(UnusedElim.reduce cfg)))                  loopToFixPt (fn () => ignore(UnusedElim.reduce cfg)))
# Line 192  Line 192 
192            fun optPass () = (            fun optPass () = (
193                  doCFG globalInit;                  doCFG globalInit;
194          doCFG globalBlock;          doCFG globalBlock;
195            doCFG globalReduce;
196                  List.app doStrand strands)                  List.app doStrand strands)
197            in            in
198              loopToFixPt optPass;              loopToFixPt optPass;
# Line 200  Line 201 
201                  props = props,                  props = props,
202                  globalInit = globalInit,                  globalInit = globalInit,
203          globalBlock = globalBlock,          globalBlock = globalBlock,
204            globalReduce = globalReduce,
205                  initially = initially,  (* FIXME: we should optimize this code *)                  initially = initially,  (* FIXME: we should optimize this code *)
206                  strands = strands                  strands = strands
207                }                }

Legend:
Removed from v.2245  
changed lines
  Added in v.2246

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