From 49824b5998fa7f462c9ca99a0dcba72f2914bb86 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 17 Apr 1987 10:55:17 +0000 Subject: [PATCH] Add new rules for cases which arise when dead-code-elimination phase is not performed. --- v7/src/compiler/machines/bobcat/lapgen.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 9d807240f..0af2af795 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.156 1987/04/12 00:24:56 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.157 1987/04/17 10:55:17 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -244,6 +244,15 @@ MIT in each case. |# (ASSIGN (REGISTER 15) (OFFSET-ADDRESS (REGISTER 15) (? n))) (increment-anl 7 n)) +(define-rule statement + (ASSIGN (REGISTER (? target)) (OFFSET-ADDRESS (REGISTER 15) (? n))) + (QUALIFIER (pseudo-register? target)) + `((LEA (@AO 7 ,(* 4 n)) ,(reference-assignment-alias! target 'ADDRESS)))) + +(define-rule statement + (ASSIGN (REGISTER 15) (REGISTER (? source))) + `((MOVE L ,(coerce->any source) (A 7)))) + (define-rule statement (ASSIGN (REGISTER (? target)) (CONSTANT (? source))) `(,(load-constant source (coerce->any target)))) -- 2.25.1