From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 9 Jan 1987 19:41:14 +0000 (+0000)
Subject: Change sizes of message receivers to reflect new interpretive
X-Git-Tag: 20090517-FFI~13758
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=70cd1520c3ecbe8ce505aa034e5b0e2ca299719b;p=mit-scheme.git

Change sizes of message receivers to reflect new interpretive
implementation.
---

diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm
index 599a57b6c..ef3eb0268 100644
--- a/v7/src/compiler/machines/bobcat/machin.scm
+++ b/v7/src/compiler/machines/bobcat/machin.scm
@@ -37,13 +37,13 @@
 
 ;;;; Machine Model for 68020
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 1.41 1986/12/15 05:48:50 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 1.42 1987/01/09 19:41:14 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
-(define (rtl:message-receiver-size:closure) 2)
-(define (rtl:message-receiver-size:stack) 2)
-(define (rtl:message-receiver-size:subproblem) 2)
+(define (rtl:message-receiver-size:closure) 1)
+(define (rtl:message-receiver-size:stack) 1)
+(define (rtl:message-receiver-size:subproblem) 1)
 
 (define-integrable (stack->memory-offset offset)
   offset)