From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Tue, 26 Apr 1988 18:48:18 +0000 (+0000)
Subject: Added fixnums to non-object-invalidate. Someday we may not
X-Git-Tag: 20090517-FFI~12801
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dc8b3c0a6c50a983eed820592b022dbf423787cb;p=mit-scheme.git

Added fixnums to non-object-invalidate. Someday we may not
need to do this. We may be able to keep these guys around.
See the log message for rtlbase/rtlcon.scm 4.6 for some more info.
---

diff --git a/v7/src/compiler/rtlopt/rcse2.scm b/v7/src/compiler/rtlopt/rcse2.scm
index 26ff01841..243369e31 100644
--- a/v7/src/compiler/rtlopt/rcse2.scm
+++ b/v7/src/compiler/rtlopt/rcse2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse2.scm,v 4.4 1988/03/14 20:59:05 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse2.scm,v 4.5 1988/04/26 18:48:18 markf Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -96,10 +96,12 @@ MIT in each case. |#
    (lambda (element)
      (let ((expression (element-expression element)))
        (if (rtl:register? expression)
-	   (register-contains-address? (rtl:register-number expression))
+	   (or (register-contains-address? (rtl:register-number expression))
+	       (register-contains-fixnum? (rtl:register-number expression)))
 	   (memq (rtl:expression-type expression)
 		 '(OBJECT->ADDRESS OBJECT->DATUM
 				   OBJECT->TYPE
+				   OBJECT->FIXNUM
 				   OFFSET-ADDRESS
 				   VARIABLE-CACHE
 				   ASSIGNMENT-CACHE)))))))