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/branches/SMLNJ/src/compiler/CodeGen/cpscompile/spill.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/cpscompile/spill.sml

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

revision 410, Fri Sep 3 00:25:03 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 17  Line 17 
17    val maxgpfree = MachSpec.spillAreaSz div (2 * MachSpec.valueSize)    val maxgpfree = MachSpec.spillAreaSz div (2 * MachSpec.valueSize)
18    val maxfpfree = MachSpec.spillAreaSz div (2 * MachSpec.realSize)    val maxfpfree = MachSpec.spillAreaSz div (2 * MachSpec.realSize)
19    val spillname = Symbol.varSymbol "spillrec"    val spillname = Symbol.varSymbol "spillrec"
20    fun sortp x = Sort.sort (fn ((i:int,_),(j,_)) => i>j) x    fun sortp x = ListMergeSort.sort (fn ((i:int,_),(j,_)) => i>j) x
21    val app2 = ListPair.app    val app2 = ListPair.app
22    val unboxedfloat = MachSpec.unboxedFloats    val unboxedfloat = MachSpec.unboxedFloats
23    structure CGoptions = Control.CG    structure CGoptions = Control.CG
# Line 482  Line 482 
482  end (* functor Spill *)  end (* functor Spill *)
483    
484  (*  (*
485   * $Log$   * $Log: spill.sml,v $
486     * Revision 1.1  1998/12/22 17:01:19  jhr
487     *   Added CPS spill phase to fix MLRisc spill area overflow.
488     *
489   *)   *)

Legend:
Removed from v.410  
changed lines
  Added in v.411

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