From 70cd1520c3ecbe8ce505aa034e5b0e2ca299719b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Jan 1987 19:41:14 +0000 Subject: [PATCH] Change sizes of message receivers to reflect new interpretive implementation. --- v7/src/compiler/machines/bobcat/machin.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.25.1