From dc8b3c0a6c50a983eed820592b022dbf423787cb Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Tue, 26 Apr 1988 18:48:18 +0000 Subject: [PATCH] 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. --- v7/src/compiler/rtlopt/rcse2.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))))))) -- 2.25.1