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/compiler/CodeGen/x86/x86StackSpills.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/x86/x86StackSpills.sml

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

revision 732, Mon Nov 13 21:59:12 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 30  Line 30 
30      if (n > spillAreaSz) then error "newOffset - spill area is too small"      if (n > spillAreaSz) then error "newOffset - spill area is too small"
31      else spillOffset := n      else spillOffset := n
32    
33    val spillTbl : I.operand Intmap.intmap = Intmap.new(0, RegSpills)    val spillTbl : I.operand IntHashTable.hash_table =
34    val lookupTbl = Intmap.map spillTbl        IntHashTable.mkTable(0, RegSpills)
35    val addTbl    = Intmap.add spillTbl    val lookupTbl = IntHashTable.lookup spillTbl
36      val addTbl    = IntHashTable.insert spillTbl
37    
38    fun init () =    fun init () =
39      (spillOffset:=initialSpillOffset;      (spillOffset:=initialSpillOffset;
40       availableOffsets := [];       availableOffsets := [];
41       availableFPOffsets := [];       availableFPOffsets := [];
42       Intmap.clear spillTbl       IntHashTable.clear spillTbl
43      )      )
44    
45    val toInt32 = Int32.fromInt    val toInt32 = Int32.fromInt

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

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