From 0507df12b0dfbbee35d5720506873dacb43185ef Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Thu, 11 Feb 1988 19:25:31 +0000 Subject: [PATCH] Added ASSIGNMENT-CACHE rule (it was missing) --- v7/src/compiler/machines/vax/rules1.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/vax/rules1.scm b/v7/src/compiler/machines/vax/rules1.scm index 652b2408b..ef0cbd103 100644 --- a/v7/src/compiler/machines/vax/rules1.scm +++ b/v7/src/compiler/machines/vax/rules1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules1.scm,v 4.1 1988/01/05 15:59:05 bal Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules1.scm,v 4.2 1988/02/11 19:25:31 bal Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -74,6 +74,13 @@ MIT in each case. |# (@PCR ,(free-reference-label name)) ,(reference-assignment-alias! target 'GENERAL)))) +(define-rule statement + (ASSIGN (REGISTER (? target)) (ASSIGNMENT-CACHE (? name))) + (QUALIFIER (pseudo-register? target)) + (LAP (MOV L + (@PCR ,(free-assignment-label name)) + ,(reference-assignment-alias! target 'DATA)))) + (define-rule statement (ASSIGN (REGISTER (? target)) (REGISTER (? source))) (QUALIFIER (pseudo-register? target)) -- 2.25.1