From d51d2df74c4702e227e55ce41a98af12debc1831 Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Mon, 21 Mar 1988 21:47:00 +0000 Subject: [PATCH] Had the right rule header, but wrong body. --- v7/src/compiler/machines/vax/rules2.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/vax/rules2.scm b/v7/src/compiler/machines/vax/rules2.scm index 1a2cdb551..59241b695 100644 --- a/v7/src/compiler/machines/vax/rules2.scm +++ b/v7/src/compiler/machines/vax/rules2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules2.scm,v 4.1 1988/01/05 15:59:31 bal Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules2.scm,v 4.2 1988/03/21 21:47:00 bal Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -74,8 +74,7 @@ MIT in each case. |# (TYPE-TEST (OBJECT->TYPE (OFFSET (REGISTER (? register)) (? offset))) (? type)) (set-standard-branches! 'EQLU) - (LAP ,(test-non-pointer (ucode-type unassigned) 0 - (coerce->any register)))) + (LAP ,(test-byte type (bump-type (indirect-reference! register offset))))) (define-rule predicate (UNASSIGNED-TEST (REGISTER (? register))) -- 2.25.1