From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 27 Apr 1987 16:28:49 +0000 (+0000)
Subject: Change `apply-stack' prefix to subtract 1 from the n-levels, because
X-Git-Tag: 20090517-FFI~13579
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=384cd33eff8e94147a88ab696bf8c43b4e547cec;p=mit-scheme.git

Change `apply-stack' prefix to subtract 1 from the n-levels, because
the innermost stack frame does not have a message receiver pushed.
---

diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm
index 1dbfb9f80..010bdc440 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.12 1987/04/21 16:57:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.13 1987/04/27 16:28:49 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -482,11 +482,12 @@ MIT in each case. |#
   (let ((block (combination-block combination)))
     `(APPLY-STACK ,number-pushed
 		  ,(+ number-pushed (block-frame-size block))
-		  ,(block-ancestor-distance
-		    block
-		    (block-parent
-		     (procedure-block
-		      (combination-known-operator combination)))))))
+		  ,(-1+
+		    (block-ancestor-distance
+		     block
+		     (block-parent
+		      (procedure-block
+		       (combination-known-operator combination))))))))
 
 (define (invocation-prefix:internal->sibling combination number-pushed)
    `(MOVE-FRAME-UP ,number-pushed