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 /MLRISC/trunk/gc-safety/gc-liveness.sml
ViewVC logotype

Diff of /MLRISC/trunk/gc-safety/gc-liveness.sml

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

revision 545, Thu Feb 24 13:56:44 2000 UTC revision 624, Fri Apr 21 03:06:21 2000 UTC
# Line 82  Line 82 
82           )           )
83    
84    fun liveness (IR as G.GRAPH cfg) =    fun liveness (IR as G.GRAPH cfg) =
85    let val an = CFG.getAnnotations IR    let val an = !(CFG.annotations IR)
86        val gcmap = #lookup GCMap.GCMAP (CFG.getAnnotations IR)        val gcmap = #lookup GCMap.GCMAP an
87        val regmap = CFG.regmap IR        val regmap = CFG.regmap IR
88        val table = A.array(#capacity cfg (),{liveIn=R.empty,liveOut=R.empty})        val table = A.array(#capacity cfg (),{liveIn=R.empty,liveOut=R.empty})
89        val gclookup = Intmap.mapWithDefault (gcmap,GC.TOP)        val gclookup = Intmap.mapWithDefault (gcmap,GC.TOP)

Legend:
Removed from v.545  
changed lines
  Added in v.624

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