From 486a1a7e86f4d46fa1d27e65252eb8251b9f3380 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 18 Dec 1986 13:24:11 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/compiler/machines/bobcat/lapgen.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index ca5eb1fc6..6846a9eca 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -37,7 +37,7 @@ ;;;; RTL Rules for 68020 -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.140 1986/12/16 06:27:48 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.141 1986/12/18 13:24:11 cph Exp $ (declare (usual-integrations)) (using-syntax (access lap-generator-syntax-table compiler-package) @@ -250,6 +250,10 @@ (ASSIGN (REGISTER 15) (OFFSET-ADDRESS (REGISTER 15) (? n))) (increment-anl 7 n)) +(define-rule statement + (ASSIGN (REGISTER (? target)) (CONSTANT (? source))) + `(,(load-constant source (coerce->any target)))) + (define-rule statement (ASSIGN (REGISTER (? target)) (REGISTER (? source))) (QUALIFIER (pseudo-register? target)) -- 2.25.1