From b7a2e37ad3b32be0fc55458ad75067d2dd78b190 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 12 Apr 1987 01:14:46 +0000 Subject: [PATCH] Forgot to wrap `fetch' around reference to stack pointer register. --- v7/src/compiler/rtlgen/rtlgen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm index f817e027a..d2968195a 100644 --- a/v7/src/compiler/rtlgen/rtlgen.scm +++ b/v7/src/compiler/rtlgen/rtlgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 1.8 1987/04/12 00:22:55 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 1.9 1987/04/12 01:14:46 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -105,7 +105,7 @@ MIT in each case. |# (define (cellify-variable variable) (if (variable-in-cell? variable) (let ((locative - (stack-locative-offset register:stack-pointer + (stack-locative-offset (rtl:make-fetch register:stack-pointer) (variable-offset block variable)))) (rtl:make-assignment locative -- 2.25.1