From 964dba8ec00ba12c3842a050402f38ac2fa59fa0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Jan 1987 21:57:22 +0000 Subject: [PATCH] Fix typo and adjust message receiver type bits to correct values. --- v7/src/compiler/machines/bobcat/lapgen.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 594efaf52..a71de5cda 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.148 1987/01/09 20:16:35 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.149 1987/01/09 21:57:22 cph Exp $ (declare (usual-integrations)) (using-syntax (access lap-generator-syntax-table compiler-package) @@ -730,18 +730,18 @@ (define-rule statement (MESSAGE-RECEIVER:STACK (? frame-size)) - `((MOVE L (& ,(+ #x0020000 frame-size)) (@-A 7)))) + `((MOVE L (& ,(+ #x00200000 frame-size)) (@-A 7)))) (define-rule statement (MESSAGE-RECEIVER:SUBPROBLEM (? continuation)) - (list `(MOVE L (& #x0040000) (@-A 7)))) + (list `(MOVE L (& #x00400000) (@-A 7)))) (define (apply-closure-sequence frame-size receiver-offset label) `((MOVEQ (& -1) (D 0)) ,(load-dnw frame-size 1) (LEA (@AO 7 ,(* receiver-offset 4)) (A 0)) (LEA (@PCR ,label) (A 1)) - (JMP ,popper:apply_closure))) + (JMP ,popper:apply-closure))) (define (apply-stack-sequence frame-size receiver-offset n-levels label) `((MOVEQ (& ,n-levels) (D 0)) -- 2.25.1