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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-opt/low-opt.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-opt/low-opt.sml

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

revision 3714, Sat Apr 2 16:14:41 2016 UTC revision 3747, Tue Apr 12 12:03:49 2016 UTC
# Line 27  Line 27 
27            }            }
28    
29      fun transform (ctl, timer, phase, transform, prog) =      fun transform (ctl, timer, phase, transform, prog) =
30            if !ctl            if Controls.get ctl
31              then checkAfter (phase, PhaseTimer.withTimer timer transform prog)              then checkAfter (phase, PhaseTimer.withTimer timer transform prog)
32              else prog              else prog
33    
34      fun optimize prog = let      fun optimize prog = let
35            val prog = transform (vnFlag, Timers.timeLowVN, "value numbering", VN.transform, prog)            val prog = transform (Ctl.lowVN, Timers.timeLowVN, "value numbering", VN.transform, prog)
36              val prog = transform (Ctl.lowContract, Timers.timeLowContract, "contraction", LowContract.transform, prog)
37            in            in
38              prog              prog
39            end            end

Legend:
Removed from v.3714  
changed lines
  Added in v.3747

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