From: Chris Hanson Date: Tue, 10 Feb 1987 22:14:37 +0000 (+0000) Subject: Fix incorrect subproblem receiver size. X-Git-Tag: 20090517-FFI~13711 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=531a49743f8bed44db1341dd6978e26822a4143b;p=mit-scheme.git Fix incorrect subproblem receiver size. --- diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm index ef3eb0268..35105a812 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.42 1987/01/09 19:41:14 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 1.43 1987/02/10 22:14:37 cph Exp $ (declare (usual-integrations)) (using-syntax (access compiler-syntax-table compiler-package) (define (rtl:message-receiver-size:closure) 1) (define (rtl:message-receiver-size:stack) 1) -(define (rtl:message-receiver-size:subproblem) 1) +(define (rtl:message-receiver-size:subproblem) 2) (define-integrable (stack->memory-offset offset) offset)