From 970fd08fb48d1c8cdf2627576d4a964602cf1f04 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 5 Dec 1989 20:15:12 +0000 Subject: [PATCH] Change `move-frame-up' rule to use "mov" rather than "lea" when the source is an address register. --- v7/src/compiler/machines/bobcat/rules3.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index 981119062..232f3219f 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.19 1989/11/30 16:06:05 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 4.20 1989/12/05 20:15:12 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -181,7 +181,9 @@ MIT in each case. |# (define-rule statement (INVOCATION-PREFIX:MOVE-FRAME-UP (? frame-size) (REGISTER 12)) - (generate/move-frame-up frame-size (offset-reference 12 0))) + (let ((temp (allocate-temporary-register! 'ADDRESS))) + (LAP (MOV L ,(register-reference 12) ,(register-reference temp)) + ,@(generate/move-frame-up* frame-size temp)))) (define-rule statement (INVOCATION-PREFIX:MOVE-FRAME-UP (? frame-size) -- 2.25.1