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/main/regalloc.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/main/regalloc.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 94  Line 94 
94     val initialSpillOffset = MachSpec.initialSpillOffset     val initialSpillOffset = MachSpec.initialSpillOffset
95     val spillOffset = ref initialSpillOffset     val spillOffset = ref initialSpillOffset
96     val spillAreaSz = MachSpec.spillAreaSz     val spillAreaSz = MachSpec.spillAreaSz
97     val regspills : int Intmap.intmap = Intmap.new(0,RegSpills)     val regspills : int IntHashTable.hash_table =
98     val fregspills : int Intmap.intmap = Intmap.new(0,FregSpills)         IntHashTable.mkTable(0,RegSpills)
99     val lookupReg  = Intmap.map regspills     val fregspills : int IntHashTable.hash_table =
100     val enterReg   = Intmap.add regspills         IntHashTable.mkTable(0,FregSpills)
101     val lookupFreg = Intmap.map fregspills     val lookupReg  = IntHashTable.lookup regspills
102     val enterFreg  = Intmap.add fregspills     val enterReg   = IntHashTable.insert regspills
103       val lookupFreg = IntHashTable.lookup fregspills
104       val enterFreg  = IntHashTable.insert fregspills
105    
106     fun spillInit() =     fun spillInit() =
107        ((* Reset the regspills/fregspills map by need. *)        ((* Reset the regspills/fregspills map by need. *)
108         if !spillOffset = initialSpillOffset then ()         if !spillOffset = initialSpillOffset then ()
109         else (Intmap.clear regspills;         else (IntHashTable.clear regspills;
110               Intmap.clear fregspills               IntHashTable.clear fregspills
111              )              )
112         ;         ;
113         spillOffset := initialSpillOffset         spillOffset := initialSpillOffset

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