From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Feb 1987 00:41:08 +0000 (+0000)
Subject: Add new method for `unassigned-test' predicate type.
X-Git-Tag: 20090517-FFI~13704
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce2b3610a3f8501925c010756529ff04fd917a44;p=mit-scheme.git

Add new method for `unassigned-test' predicate type.
---

diff --git a/v7/src/compiler/rtlopt/rcse1.scm b/v7/src/compiler/rtlopt/rcse1.scm
index 7f99cb979..3ac437078 100644
--- a/v7/src/compiler/rtlopt/rcse1.scm
+++ b/v7/src/compiler/rtlopt/rcse1.scm
@@ -38,7 +38,7 @@
 ;;;; RTL Common Subexpression Elimination
 ;;;  Based on the GNU C Compiler
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 1.97 1986/12/21 23:44:21 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 1.98 1987/02/12 00:41:08 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -171,6 +171,9 @@
 (define-trivial-one-arg-method 'TYPE-TEST
   rtl:type-test-expression rtl:set-type-test-expression!)
 
+(define-trivial-one-arg-method 'UNASSIGNED-TEST
+  rtl:type-test-expression rtl:set-unassigned-test-expression!)
+
 (define-cse-method 'RETURN noop)
 (define-cse-method 'PROCEDURE-HEAP-CHECK noop)
 (define-cse-method 'CONTINUATION-HEAP-CHECK noop)