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

Diff of /sml/trunk/compiler/CodeGen/cpscompile/spill-new.sml

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

revision 2162, Thu Nov 2 21:20:47 2006 UTC revision 4454, Thu Sep 21 18:25:19 2017 UTC
# Line 1  Line 1 
1  (* spill.sml  (* spill-new.sml
2     *
3     * COPYRIGHT (c) 2017 The Fellowship of SML/NJ (http://www.smlnj.org)
4     * All rights reserved.
5   *   *
  * Copyright 2002 by Bell Laboratories  
  *)  
   
 (*  
6   * This is a complete rewrite of the old Spill module.   * This is a complete rewrite of the old Spill module.
7   * The old module suffers from some serious performance problem but   * The old module suffers from some serious performance problem but
8   * I cannot decipher the old code fully, so instead of patching the problems up,   * I cannot decipher the old code fully, so instead of patching the problems up,
# Line 193  Line 192 
192       fun rmv(S, x) = Set.delete(S, x) handle _ => S       fun rmv(S, x) = Set.delete(S, x) handle _ => S
193    end    end
194    
195    fun rkToCty (CPS.RK_FCONT | CPS.RK_FBLOCK) = CPS.FLTt    fun rkToCty (CPS.RK_FCONT | CPS.RK_FBLOCK) = CPS.FLTt 64  (* REAL32: FIXME *)
196      | rkToCty _ = CPS.BOGt      | rkToCty _ = CPS.BOGt
197    
198    fun splittable CPS.RK_VECTOR = false (* not supported in backend (yet) *)    fun splittable CPS.RK_VECTOR = false (* not supported in backend (yet) *)
# Line 225  Line 224 
224        exception FloatSet        exception FloatSet
225        val floatSet = H.mkTable(32,FloatSet)        val floatSet = H.mkTable(32,FloatSet)
226        val addToFloatSet = H.insert floatSet        val addToFloatSet = H.insert floatSet
227        fun fp(r,CPS.FLTt) = addToFloatSet(r,true)        fun fp(r, CPS.FLTt _) = addToFloatSet(r,true)
228          | fp(r,_)        = ()          | fp(r,_)        = ()
229        exception RecordSet        exception RecordSet
230        val recordSet = H.mkTable(32,RecordSet)        val recordSet = H.mkTable(32,RecordSet)

Legend:
Removed from v.2162  
changed lines
  Added in v.4454

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