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 26ff01841c265a19629b7837c3ca6c3ec7e7da69..243369e3143577837c86fedada327eebd854d6eb 100644 (file)
--- 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)))))))