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-ssa-optimizer.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Glue/mlrisc-ssa-optimizer.sml

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

revision 469, Wed Nov 10 22:42:52 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 9  Line 9 
9      structure P  : INSN_PROPERTIES      structure P  : INSN_PROPERTIES
10      structure SP : SSA_PROPERTIES      structure SP : SSA_PROPERTIES
11      structure GCP : GC_PROPERTIES      structure GCP : GC_PROPERTIES
12        structure GCMap : GC_MAP
13      structure FreqProps : FREQUENCY_PROPERTIES      structure FreqProps : FREQUENCY_PROPERTIES
14         sharing P.I = SP.I = GCP.I = Asm.I = F.I = FreqProps.I = MLTreeComp.I         sharing P.I = SP.I = GCP.I = Asm.I = F.I = FreqProps.I = MLTreeComp.I
15         sharing F.P = Asm.P = MLTreeComp.T.PseudoOp         sharing F.P = Asm.P = MLTreeComp.T.PseudoOp
16         sharing MLTreeComp.T.Constant = F.I.Constant         sharing MLTreeComp.T.Constant = F.I.Constant
17           sharing GCP.GC = GCMap.GC
18      val callgc : { id     : int,      val callgc : { id     : int,
19                     label  : Label.label,                     gcLabel  : Label.label,
20                       returnLabel  : Label.label,
21                     roots  : (P.I.C.cell * GCP.GC.gctype) list,                     roots  : (P.I.C.cell * GCP.GC.gctype) list,
22                     stream : (MLTreeComp.T.stm,P.I.C.regmap) MLTreeComp.T.stream                     stream : (MLTreeComp.T.stm,P.I.C.regmap) MLTreeComp.T.stream
23                   } -> unit                   } -> unit
# Line 26  Line 29 
29    
30     val view_IR    = MLRiscControl.getFlag "view-IR"     val view_IR    = MLRiscControl.getFlag "view-IR"
31     val verbose    = MLRiscControl.getFlag "verbose"     val verbose    = MLRiscControl.getFlag "verbose"
    val viewer     = MLRiscControl.getString "viewer"  
32     val min_blocks = MLRiscControl.getInt "min-blocks"     val min_blocks = MLRiscControl.getInt "min-blocks"
33    
34     fun error msg = MLRiscErrorMsg.error("SSAOptimizer",msg)     fun error msg = MLRiscErrorMsg.error("SSAOptimizer",msg)
35    
36     structure GraphViewer = GraphViewerFn(AllDisplaysFn(val viewer = viewer))     structure GraphViewer = GraphViewerFn(AllDisplays)
37    
38     structure FormatInsn = FormatInstructionFn(Asm)     structure FormatInsn = FormatInstructionFn(Asm)
39    
# Line 141  Line 143 
143     structure GCTyping = GCTyping     structure GCTyping = GCTyping
144        (structure IR = IR        (structure IR = IR
145         structure GCProps = GCP         structure GCProps = GCP
146           structure GCMap = GCMap
147         structure Props = P         structure Props = P
148        )        )
149    
150     structure GCGen = GCGen     structure GCGen = GCGen
151        (structure MLTreeComp = MLTreeComp        (structure MLTreeComp = MLTreeComp
152         structure IR = IR         structure IR = IR
153         structure GC = GCP.GC         structure GCMap = GCMap
154         structure InsnProps = P         structure InsnProps = P
155        )        )
156    

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

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