More profiling stuff

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index ad012dfedc71572f5a1477d725f8adf605fc3e4c..1f8a82a94fc9e1d163208a2cd606069b9d0e8823 100644 (file)
--- 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*))