From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Aug 1988 23:18:23 +0000 (+0000)
Subject: Flush `expression-non-object?' since that is now defined elsewhere.
X-Git-Tag: 20090517-FFI~12565
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cdae7ba320bf5b516ba8d81643236923a06bcb49;p=mit-scheme.git

Flush `expression-non-object?' since that is now defined elsewhere.
---

diff --git a/v7/src/compiler/rtlopt/rcseep.scm b/v7/src/compiler/rtlopt/rcseep.scm
index 0aa04c3da..4124d79fd 100644
--- a/v7/src/compiler/rtlopt/rcseep.scm
+++ b/v7/src/compiler/rtlopt/rcseep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseep.scm,v 4.4 1988/08/11 20:10:58 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseep.scm,v 4.5 1988/08/29 23:18:23 cph Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -79,20 +79,6 @@ MIT in each case. |#
   (and (rtl:offset? expression)
        (interpreter-regs-pointer? (rtl:offset-register expression))))
 
-(define (expression-non-object? expression)
-  (if (rtl:register? 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
-	      CHAR->ASCII
-	      OFFSET-ADDRESS
-	      VARIABLE-CACHE
-	      ASSIGNMENT-CACHE))))
-
 (define (expression-address-varies? expression)
   (and (not (interpreter-register-reference? expression))
        (or (memq (rtl:expression-type expression)