Add new rules for cases which arise when dead-code-elimination phase

is not performed.

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 9d807240f06e3698c0220cffab1a80f2c2c83805..0af2af79511366a8dfabedb3b42c5ab9797ca61f 100644 (file)
--- 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))))