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/IR/mlrisc-cfg-gen2.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/IR/mlrisc-cfg-gen2.sml

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

revision 743, Thu Dec 7 15:31:24 2000 UTC revision 744, Fri Dec 8 04:11:42 2000 UTC
# Line 31  Line 31 
31    
32     fun newStream{compile,flowgraph} =     fun newStream{compile,flowgraph} =
33     let val cfg = ref(case flowgraph of     let val cfg = ref(case flowgraph of
34                         NONE => CFG.new(I.C.regmap())                         NONE => CFG.new()
35                       | SOME cfg => cfg                       | SOME cfg => cfg
36                      )                      )
37         val {stream,next} = Builder.builder(!cfg)         val {stream,next} = Builder.builder(!cfg)
38         val S.STREAM{beginCluster,endCluster,pseudoOp,emit,exitBlock,         val S.STREAM{beginCluster,endCluster,pseudoOp,emit,exitBlock,
39                      comment,annotation,defineLabel,entryLabel,alias,phi,...}                      comment,annotation,defineLabel,entryLabel,...}
40                        = stream                        = stream
41         fun endCFG a =         fun endCFG a =
42         let val _      = endCluster a         let val _      = endCluster a
43             val oldCFG = !cfg             val oldCFG = !cfg
44             val newCFG = CFG.new(I.C.regmap())             val newCFG = CFG.new()
45         in  cfg := newCFG;         in  cfg := newCFG;
46             next newCFG;             next newCFG;
47             compile oldCFG             compile oldCFG
# Line 55  Line 55 
55                  comment     = comment,                  comment     = comment,
56                  annotation  = annotation,                  annotation  = annotation,
57                  defineLabel = defineLabel,                  defineLabel = defineLabel,
58                  entryLabel  = entryLabel,                  entryLabel  = entryLabel
                 alias       = alias,  
                 phi         = phi  
59                 }                 }
60     end     end
61    

Legend:
Removed from v.743  
changed lines
  Added in v.744

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