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
ViewVC logotype

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

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

revision 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 51  Line 51 
51     val bbsched = phase "MLRISC BackPatch.bbsched" BackPatch.bbsched     val bbsched = phase "MLRISC BackPatch.bbsched" BackPatch.bbsched
52     val finish  = phase "MLRISC BackPatch.finish" BackPatch.finish     val finish  = phase "MLRISC BackPatch.finish" BackPatch.finish
53    
    fun compile cluster =  
    let val cluster = opt cluster  
        val cluster = ra cluster  
    in  bbsched cluster end  
54    
55     (* Flowgraph generation *)     (* Flowgraph generation *)
56     structure FlowGraphGen =     structure FlowGraphGen =
57         ClusterGen(structure Flowgraph = F         ClusterGen(structure Flowgraph = F
58                    structure InsnProps = InsnProps                    structure InsnProps = InsnProps
59                    structure MLTree    = T                    structure MLTree    = T
                   val output = compile  
60                   )                   )
61    
62     (* GC Invocation *)     (* GC Invocation *)
# Line 71  Line 66 
66                 structure MS    = MachSpec                 structure MS    = MachSpec
67                )                )
68    
69       fun compile cluster =
70       let val cluster = opt cluster
71           val cluster = ra cluster
72       in  bbsched cluster end
73    
74     (* compilation of CPS to MLRISC *)     (* compilation of CPS to MLRISC *)
75     structure MLTreeGen =     structure MLTreeGen =
76        MLRiscGen(structure MachineSpec=MachSpec        MLRiscGen(structure MachineSpec=MachSpec
# Line 81  Line 81 
81                  structure PseudoOp=PseudoOps                  structure PseudoOp=PseudoOps
82                  structure CpsTreeify=CpsTreeify                  structure CpsTreeify=CpsTreeify
83                  structure Flowgen=FlowGraphGen                  structure Flowgen=FlowGraphGen
84                    val compile = compile
85                 )                 )
86    
87     val gen = phase "MLRISC MLTreeGen.codegen" MLTreeGen.codegen     val gen = phase "MLRISC MLTreeGen.codegen" MLTreeGen.codegen
88    
89     fun codegen x =     fun codegen x =
# Line 91  Line 93 
93          BackPatch.cleanUp();          BackPatch.cleanUp();
94          gen x          gen x
95         )         )
    val copyProp = RA.cp  
96    
97  end  end

Legend:
Removed from v.497  
changed lines
  Added in v.498

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