From e73b2b8d5861ddac3cb6c474c55d7de41a268a5d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 23 Apr 1988 12:37:41 +0000 Subject: [PATCH] Add missing rule. --- v7/src/compiler/machines/bobcat/rules3.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index 225252a0d..90bc7aac6 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 4.7 1988/04/01 23:43:17 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 4.8 1988/04/23 12:37:41 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -145,6 +145,10 @@ MIT in each case. |# (INVOCATION-PREFIX:MOVE-FRAME-UP 0 (REGISTER 15)) (LAP)) +(define-rule statement + (INVOCATION-PREFIX:MOVE-FRAME-UP (? frame-size) (REGISTER 12)) + (generate/move-frame-up frame-size (offset-reference 12 0))) + (define-rule statement (INVOCATION-PREFIX:MOVE-FRAME-UP (? frame-size) (OFFSET-ADDRESS (REGISTER 15) (? offset))) -- 2.25.1