From 43a9bdf394fef8c6d664ffa89c6dbde7f7e96858 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 8 Jul 1993 21:56:26 +0000 Subject: [PATCH] Fix bug in last edit. I used rtl:make-offset instead of rtl:locative-offset. --- v7/src/compiler/rtlgen/rgcomb.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm index 7a885d49d..74f80ecba 100644 --- a/v7/src/compiler/rtlgen/rgcomb.scm +++ b/v7/src/compiler/rtlgen/rgcomb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rgcomb.scm,v 4.18 1993/07/01 03:27:04 gjr Exp $ +$Id: rgcomb.scm,v 4.19 1993/07/08 21:56:26 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -132,9 +132,9 @@ MIT in each case. |# (if (zero? distance) call-code (let ((locative - (rtl:make-offset (rtl:make-fetch (interpreter-stack-pointer)) - (rtl:make-machine-constant - (stack->memory-offset 0))))) + (rtl:locative-offset + (rtl:make-fetch (interpreter-stack-pointer)) + (rtl:make-machine-constant (stack->memory-offset 0))))) (scfg*scfg->scfg! (rtl:make-assignment locative -- 2.25.1