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 599a57b6c05245a0e0af8348ffc2e3c50eacf8a2..ef3eb0268a793cbf711f0e3d3b43af4d851ed177 100644 (file)
--- 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)
-\f(define (rtl:message-receiver-size:closure) 2)
-(define (rtl:message-receiver-size:stack) 2)
-(define (rtl:message-receiver-size:subproblem) 2)
+\f(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)