From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 Jun 1987 21:19:34 +0000 (+0000)
Subject: Change the frame-size for invocation:lookup to indicate the size of
X-Git-Tag: 20090517-FFI~13422
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=24cc12efd52329acf99c946a12dcac1d64c2b366;p=mit-scheme.git

Change the frame-size for invocation:lookup to indicate the size of
the frame at application time rather than when it executes the
instruction.
---

diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm
index a1d7a31c8..e56bf85f3 100644
--- a/v7/src/compiler/rtlgen/rgcomb.scm
+++ b/v7/src/compiler/rtlgen/rgcomb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.22 1987/06/01 21:05:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.23 1987/06/02 21:19:34 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -316,7 +316,7 @@ MIT in each case. |#
 					  (scfg-next-hooks n4)))))
 	      (let ((block (reference-block operator)))
 		(rtl:make-invocation:lookup
-		 frame-size
+		 frame-size*
 		 (prefix combination frame-size)
 		 continuation
 		 (nearest-ic-block-expression block)