From ab1207d4eb975f25f6f969c8893d05d4430af975 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 23 Jan 1991 21:34:30 +0000 Subject: [PATCH] Fix a bug in statement rule for (ASSIGN (OFFSET (REGISTER (? address)) (? offset)) (BYTE-OFFSET-ADDRESS (OFFSET (REGISTER (? address)) (? offset)) (? n))) --- v7/src/compiler/machines/bobcat/rules1.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules1.scm b/v7/src/compiler/machines/bobcat/rules1.scm index 675a8c25c..af22c487c 100644 --- a/v7/src/compiler/machines/bobcat/rules1.scm +++ b/v7/src/compiler/machines/bobcat/rules1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 4.33 1990/05/03 15:17:28 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 4.34 1991/01/23 21:34:30 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -385,7 +385,7 @@ MIT in each case. |# (? n))) (if (zero? n) (LAP) - (let ((target (indirect-byte-reference! address offset))) + (let ((target (indirect-reference! address offset))) (cond ((<= 1 n 8) (LAP (ADDQ L (& ,n) ,target))) ((<= -8 n -1) -- 2.25.1