Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/Glue/mlrisc-glue.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Glue/mlrisc-glue.sml

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

revision 656, Fri Jun 9 03:39:04 2000 UTC revision 657, Fri Jun 9 05:20:54 2000 UTC
# Line 93  Line 93 
93        structure InsnProps = InsnProps        structure InsnProps = InsnProps
94       )       )
95    
96       structure CPR = CriticalPathReduction
97         (structure IR        = IR
98          structure InsnProps = InsnProps
99         )
100    
101     structure ClusterGraph = ClusterGraph(Flowgraph)     structure ClusterGraph = ClusterGraph(Flowgraph)
102    
103     structure ClusterViewer = ClusterViewer     structure ClusterViewer = ClusterViewer
# Line 105  Line 110 
110     fun view' cluster = if !view_IR then     fun view' cluster = if !view_IR then
111        ClusterViewer.view(ClusterGraph.clusterGraph cluster) else ()        ClusterViewer.view(ClusterGraph.clusterGraph cluster) else ()
112    
    val ssaParams = {copyPropagation=false,keepName=true,semiPruned=false}  
   
113     fun optimize cluster =     fun optimize cluster =
114     let datatype rep = IR of IR.IR     let datatype rep = IR of IR.IR
115                      | CLUSTER of F.cluster                      | CLUSTER of F.cluster
# Line 116  Line 119 
119           | doPhase "guess" (r as IR ir) = (Guess.run ir; r)           | doPhase "guess" (r as IR ir) = (Guess.run ir; r)
120           | doPhase "reshape"   (r as IR ir) = (Reshape.run ir; r)           | doPhase "reshape"   (r as IR ir) = (Reshape.run ir; r)
121           | doPhase "branch-chaining" (r as IR ir) = (BranchChaining.run ir; r)           | doPhase "branch-chaining" (r as IR ir) = (BranchChaining.run ir; r)
122             | doPhase "cpr"   (r as IR ir) = (CPR.run ir; r)
123           | doPhase "view-cfg"  (r as IR ir) = (view "cfg" ir; r)           | doPhase "view-cfg"  (r as IR ir) = (view "cfg" ir; r)
124           | doPhase "view-dom"  (r as IR ir) = (view "dom" ir; r)           | doPhase "view-dom"  (r as IR ir) = (view "dom" ir; r)
125           | doPhase "view-pdom" (r as IR ir) = (view "pdom" ir; r)           | doPhase "view-pdom" (r as IR ir) = (view "pdom" ir; r)

Legend:
Removed from v.656  
changed lines
  Added in v.657

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