From 0d35ee0a8b0707a5c6c6fe3d24deb274f6d23ffe Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 10 Jan 1987 00:29:59 +0000 Subject: [PATCH] Change type offsets to 16-byte intervals to match new microcode. --- v7/src/compiler/machines/bobcat/lapgen.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 8cc6aebf2..3cd80b3ce 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -37,7 +37,7 @@ ;;;; RTL Rules for 68020 -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.150 1987/01/09 23:24:13 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.151 1987/01/10 00:29:59 cph Exp $ (declare (usual-integrations)) (using-syntax (access lap-generator-syntax-table compiler-package) @@ -731,11 +731,11 @@ (define-rule statement (MESSAGE-RECEIVER:STACK (? frame-size)) - `((MOVE L (& ,(+ #x00200000 (* frame-size 4))) (@-A 7)))) + `((MOVE L (& ,(+ #x00100000 (* frame-size 4))) (@-A 7)))) (define-rule statement (MESSAGE-RECEIVER:SUBPROBLEM (? continuation)) - (list '(MOVE L (& #x00400000) (@-A 7)))) + (list '(MOVE L (& #x00200000) (@-A 7)))) (define (apply-closure-sequence frame-size receiver-offset label) `((MOVEQ (& -1) (D 0)) -- 2.25.1