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/amd64/staged-allocation/test.sml
ViewVC logotype

Diff of /MLRISC/trunk/amd64/staged-allocation/test.sml

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

revision 2993, Thu Apr 17 01:02:19 2008 UTC revision 2995, Fri Apr 18 06:59:04 2008 UTC
# Line 200  Line 200 
200          end          end
201      fun spillInit _ = ()      fun spillInit _ = ()
202      fun spillLoc {info=frame, an, cell, id=loc} =      fun spillLoc {info=frame, an, cell, id=loc} =
203          {opnd = AMD64Instr.Immed 0, kind = SPILL_LOC}  raise Fail ""
204    (*        {opnd = AMD64Instr.Immed 0, kind = SPILL_LOC}*)
205      val phases = [SPILL_PROPAGATION, SPILL_COLORING]      val phases = [SPILL_PROPAGATION, SPILL_COLORING]
206    end (* IntRA *)    end (* IntRA *)
207    
# Line 209  Line 210 
210      val avail = C.Regs CellsBasis.FP {from=0, to=15, step=1}      val avail = C.Regs CellsBasis.FP {from=0, to=15, step=1}
211      val dedicated = []      val dedicated = []
212      fun spillInit _ = ()      fun spillInit _ = ()
213      fun spillLoc (info, ans, id) = AMD64Instr.Immed 0      fun spillLoc (info, ans, id) = raise Fail ""
214      val phases = [SPILL_PROPAGATION, SPILL_COLORING]      val phases = [SPILL_PROPAGATION, SPILL_COLORING]
215    end (* FloatRA *)    end (* FloatRA *)
216    

Legend:
Removed from v.2993  
changed lines
  Added in v.2995

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