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/branches/SMLNJ/src/MLRISC/Glue/mlrisc-glue.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/Glue/mlrisc-glue.sml

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

revision 428, Wed Sep 8 09:47:00 1999 UTC revision 429, Wed Sep 8 09:47:00 1999 UTC
# Line 19  Line 19 
19     structure I = F.I     structure I = F.I
20     structure B = F.B     structure B = F.B
21    
22     val viewer  = MLRISC_Control.getString     "viewer"     val viewer  = MLRiscControl.getString     "viewer"
23     val mlrisc  = MLRISC_Control.getFlag       "mlrisc"     val mlrisc  = MLRiscControl.getFlag       "mlrisc"
24     val phases  = MLRISC_Control.getStringList "mlrisc-phases"     val phases  = MLRiscControl.getStringList "mlrisc-phases"
25     val view_IR = MLRISC_Control.getFlag       "view-IR"     val view_IR = MLRiscControl.getFlag       "view-IR"
26     val verbose = MLRISC_Control.getFlag       "verbose"     val verbose = MLRiscControl.getFlag       "verbose"
27    
28     fun error msg = MLRiscErrorMsg.error("MLRISCGlue",msg)     fun error msg = MLRiscErrorMsg.error("MLRISCGlue",msg)
29    
# Line 37  Line 37 
37         structure P = F.P         structure P = F.P
38         structure GraphImpl = DirectedGraph         structure GraphImpl = DirectedGraph
39         structure Asm = Asm         structure Asm = Asm
40         structure Ctrl = MLRISC_Control        )
41    
42       structure Util = CFGUtilFn
43          (structure CFG = CFG
44           structure P   = P
45        )        )
46    
47     structure CFG2Cluster = CFG2ClusterFn     structure CFG2Cluster = CFG2ClusterFn
48        (structure CFG = CFG        (structure CFG = CFG
49           structure Util = Util
50         structure F   = F         structure F   = F
51        )        )
52    
53     structure Cluster2CFG = Cluster2CFGFn     structure Cluster2CFG = Cluster2CFGFn
54        (structure CFG = CFG        (structure CFG = CFG
55           structure Util = Util
56         structure F   = F         structure F   = F
57         structure P   = P         structure P   = P
58        )        )
# Line 63  Line 69 
69         structure GraphImpl = DirectedGraph         structure GraphImpl = DirectedGraph
70        )        )
71    
    structure Util = CFGUtilFn  
       (structure CFG = CFG  
        structure P   = P  
       )  
   
72     structure IR = MLRISC_IRFn     structure IR = MLRISC_IRFn
73        (structure CFG         = CFG        (structure CFG         = CFG
74         structure CDG         = CDG         structure CDG         = CDG
75         structure Loop        = Loop         structure Loop        = Loop
76         structure GraphViewer = GraphViewer         structure GraphViewer = GraphViewer
77         structure Util        = Util         structure Util        = Util
        structure Ctrl        = MLRISC_Control  
78        )        )
79    
80     structure Guess = StaticBranchPredictionFn     structure Guess = StaticBranchPredictionFn

Legend:
Removed from v.428  
changed lines
  Added in v.429

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