From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 23 Nov 1994 21:31:58 +0000 (+0000)
Subject: More profiling stuff
X-Git-Tag: 20090517-FFI~6975
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0a7f781b479f02b93967596bb897b16794904e51;p=mit-scheme.git

More profiling stuff
---

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index ad012dfed..1f8a82a94 100644
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.3 1994/11/22 23:33:29 gjr Exp $
+$Id: rtlgen.scm,v 1.4 1994/11/23 21:31:58 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -884,6 +884,7 @@ MIT in each case. |#
 	    (eq-set-difference (delq rtlgen/cont-register available)
 			       arg-regs))))
 |#
+#|
 (define (rtlgen/available-registers available)
   (let ((arg-regs (rtlgen/argument-registers)))
     ;; Order is important!
@@ -894,6 +895,13 @@ MIT in each case. |#
 					  (rtlgen/reference-to-cont))
 					 available))
 			       arg-regs))))
+|#
+(define (rtlgen/available-registers available)
+  (let ((arg-regs (rtlgen/argument-registers)))
+    ;; Order is important!
+    (append arg-regs
+	    (eq-set-difference available
+			       arg-regs))))
 
 (define (rtlgen/number-of-argument-registers)
   (vector-length *rtlgen/argument-registers*))