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/ra/mem-ra.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ra/mem-ra.sml

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

revision 705, Wed Sep 27 18:44:44 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 136  Line 136 
136    fun spillPropagation(G as GRAPH{bitMatrix, memRegs, ...}) nodesToSpill =    fun spillPropagation(G as GRAPH{bitMatrix, memRegs, ...}) nodesToSpill =
137    let val spillCoalescing = spillCoalescing G    let val spillCoalescing = spillCoalescing G
138        exception SpillProp        exception SpillProp
139        val visited = Intmap.new(32, SpillProp) : bool Intmap.intmap        val visited =
140        val hasBeenVisited = Intmap.mapWithDefault (visited, false)            IntHashTable.mkTable(32, SpillProp) : bool IntHashTable.hash_table
141        val markAsVisited = Intmap.add visited        fun hasBeenVisited i = getOpt (IntHashTable.find visited i, false)
142          val markAsVisited = IntHashTable.insert visited
143        val member = BM.member(!bitMatrix)        val member = BM.member(!bitMatrix)
144    
145        (* compute savings due to spill coalescing.        (* compute savings due to spill coalescing.

Legend:
Removed from v.705  
changed lines
  Added in v.733

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