From 02c7d1191a6366415fd3a681bba7a91441565eab Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 7 Jul 1987 22:31:24 +0000 Subject: [PATCH] Redefine meaning of frame-size slot for `invocation:primitive'. Fix bug in meaning of that slot for `invocation:uuo-link'. --- v7/src/compiler/machines/bobcat/rules3.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index 08de06fe8..3efed529e 100644 --- a/v7/src/compiler/machines/bobcat/rules3.scm +++ b/v7/src/compiler/machines/bobcat/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.5 1987/07/03 21:57:52 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.6 1987/07/07 22:31:24 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -102,21 +102,21 @@ MIT in each case. |# (JMP ,entry:compiler-lookup-apply))))) (define-rule statement - (INVOCATION:PRIMITIVE (? number-pushed) (? prefix) (? continuation) + (INVOCATION:PRIMITIVE (? frame-size) (? prefix) (? continuation) (? primitive)) (disable-frame-pointer-offset! `(,@(generate-invocation-prefix prefix '()) ,@(if (eq? primitive compiled-error-procedure) - `(,(load-dnw (1+ number-pushed) 0) + `(,(load-dnw frame-size 0) (JMP ,entry:compiler-error)) `(,(load-dnw (primitive-datum primitive) 6) (JMP ,entry:compiler-primitive-apply)))))) (define-rule statement - (INVOCATION:UUO-LINK (? number-pushed) (? prefix) (? continuation) (? name)) + (INVOCATION:UUO-LINK (? frame-size) (? prefix) (? continuation) (? name)) (disable-frame-pointer-offset! `(,@(generate-invocation-prefix prefix '()) - ,(load-dnw (1+ number-pushed) 0) + ,(load-dnw frame-size 0) (MOVE L (@PCR ,(free-uuo-link-label name)) (D 1)) (MOVE L (D 1) (@-A 7)) (AND L (D 7) (D 1)) -- 2.25.1