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/releases/release-110.64/ra/ra-spill.sml
ViewVC logotype

Diff of /MLRISC/releases/release-110.64/ra/ra-spill.sml

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

revision 957, Thu Oct 11 15:47:53 2001 UTC revision 958, Fri Oct 12 03:54:43 2001 UTC
# Line 70  Line 70 
70    
71     fun error msg = MLRiscErrorMsg.error("RASpill",msg)     fun error msg = MLRiscErrorMsg.error("RASpill",msg)
72    
73     fun dec n = Word.toIntX(Word.fromInt n - 0w1)     fun dec1 n = Word.toIntX(Word.fromInt n - 0w1)
74       fun dec{block,insn} = {block=block,insn=dec1 insn}
75    
76     structure T = RASpillTypes(I)     structure T = RASpillTypes(I)
77     open T     open T
78    
79     fun uniq s = CB.SortedCells.return(CB.SortedCells.uniq s)     fun uniq s = CB.SortedCells.return(CB.SortedCells.uniq s)
80     val i2s    = Int.toString     val i2s    = Int.toString
81       fun pt2s{block,insn} = "b"^i2s block^":"^i2s insn
82    
83     val Asm.S.STREAM{emit, ...} = Asm.makeStream[]     val Asm.S.STREAM{emit, ...} = Asm.makeStream[]
84    
# Line 412  Line 414 
414                                                 don'tOverwrite)                                                 don'tOverwrite)
415    
416                           val _ = if debug then                           val _ = if debug then
417                                 (print("pt="^i2s pt^"\n");                                 (print("pt="^pt2s pt^"\n");
418                                  case spillRegs of                                  case spillRegs of
419                                    [] => ()                                    [] => ()
420                                  |  _ => (print("Spilling ");                                  |  _ => (print("Spilling ");

Legend:
Removed from v.957  
changed lines
  Added in v.958

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