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

SCM Repository

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

Diff of /branches/lamont/src/compiler/mid-il/mid-contract.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 70  Line 70 
70              loop (Stats.sum{from=firstCounter, to=lastCounter})              loop (Stats.sum{from=firstCounter, to=lastCounter})
71            end            end
72    
73      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
74            fun doCFG cfg = (            fun doCFG cfg = (
75                  loopToFixPt (fn () => IL.CFG.apply simplify cfg);                  loopToFixPt (fn () => IL.CFG.apply simplify cfg);
76                  loopToFixPt (fn () => ignore(UnusedElim.reduce cfg)))                  loopToFixPt (fn () => ignore(UnusedElim.reduce cfg)))
# Line 81  Line 81 
81            fun optPass () = (            fun optPass () = (
82                  doCFG globalInit;                  doCFG globalInit;
83          doCFG globalBlock;          doCFG globalBlock;
84            doCFG globalReduce;
85                  List.app doStrand strands)                  List.app doStrand strands)
86            in            in
87              loopToFixPt optPass;              loopToFixPt optPass;
# Line 89  Line 90 
90                  props = props,                  props = props,
91                  globalInit = globalInit,                  globalInit = globalInit,
92          globalBlock = globalBlock,          globalBlock = globalBlock,
93            globalReduce = globalReduce,
94                  initially = initially,  (* FIXME: we should optimize this code *)                  initially = initially,  (* FIXME: we should optimize this code *)
95                  strands = strands                  strands = strands
96                }                }

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