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/compiler/CodeGen/main/machine-gen.sml
[smlnj] / sml / trunk / compiler / CodeGen / main / machine-gen.sml  
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/main/machine-gen.sml

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

revision 1135, Tue Mar 12 16:09:26 2002 UTC revision 1136, Tue Mar 12 19:44:02 2002 UTC
# Line 55  Line 55 
55            (structure CFG = CFG            (structure CFG = CFG
56             structure Shuffle = Shuffle)             structure Shuffle = Shuffle)
57    
58       structure ComputeFreqs =
59          ComputeFreqsFn(structure CFG=CFG)
60    
61     structure BlockPlacement =     structure BlockPlacement =
62        BlockPlacement        BlockPlacement
63            (structure CFG = CFG            (structure CFG = CFG
# Line 83  Line 86 
86       else cfg       else cfg
87     end     end
88    
89       fun computeFreqs cfg = (ComputeFreqs.compute cfg;   cfg)
90    
91     type mlriscPhase = string * (CFG.cfg -> CFG.cfg)     type mlriscPhase = string * (CFG.cfg -> CFG.cfg)
92    
93     fun phase x = Stats.doPhase (Stats.makePhase x)     fun phase x = Stats.doPhase (Stats.makePhase x)
# Line 92  Line 97 
97     val placement  = phase "MLRISC Block placement" BlockPlacement.blockPlacement     val placement  = phase "MLRISC Block placement" BlockPlacement.blockPlacement
98     val chainJumps = phase "MLRISC Jump chaining" JumpChaining.run     val chainJumps = phase "MLRISC Jump chaining" JumpChaining.run
99     val finish     = phase "MLRISC BackPatch.finish" BackPatch.finish     val finish     = phase "MLRISC BackPatch.finish" BackPatch.finish
100       val compFreqs  = phase "MLRISC Compute frequencies" computeFreqs
101     val ra         = phase "MLRISC ra" RA.run     val ra         = phase "MLRISC ra" RA.run
102     val omitfp     = phase "MLRISC omit frame pointer" omitFramePointer     val omitfp     = phase "MLRISC omit frame pointer" omitFramePointer
103     val expandCpys = phase "MLRISC expand copies" ExpandCpys.run     val expandCpys = phase "MLRISC expand copies" ExpandCpys.run
# Line 99  Line 105 
105     val raPhase = ("ra",ra)     val raPhase = ("ra",ra)
106    
107     val optimizerHook =     val optimizerHook =
108       ref [("ra", ra),       ref [("compFreqs", compFreqs),
109              ("ra", ra),
110            ("omitfp", omitfp),            ("omitfp", omitfp),
111            ("expand copies", expandCpys)            ("expand copies", expandCpys)
112           ]           ]
Legend:
Removed from v.1135  
changed lines
  Added in v.1136
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge