From 7e2c2d669b969f2b7150ba7e18c0bd785b5107a8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 15 Jun 1987 22:03:23 +0000 Subject: [PATCH] In `indirect-reference!', need to load the alias register that is allocated under certain circumstances. --- v7/src/compiler/machines/bobcat/lapgen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 9952afc92..e6f2f4512 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.182 1987/06/13 20:56:33 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.183 1987/06/15 22:03:23 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -186,7 +186,7 @@ MIT in each case. |# (begin (warn "Needed to load indirect register!" register) ;; Should specify preference for ADDRESS but will ;; accept DATA if no ADDRESS registers available. - (allocate-alias-register! register 'ADDRESS)))) + (load-alias-register! register 'ADDRESS)))) offset))) (define (coerce->any register) -- 2.25.1