From 799242048789d91a1839cc3cc2cc93a4a5d65abc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 18 Jun 1987 01:08:51 +0000 Subject: [PATCH] Add new rule. --- v7/src/compiler/machines/bobcat/rules1.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/rules1.scm b/v7/src/compiler/machines/bobcat/rules1.scm index 153fe01ca..7c1c2dd5b 100644 --- a/v7/src/compiler/machines/bobcat/rules1.scm +++ b/v7/src/compiler/machines/bobcat/rules1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 1.3 1987/06/15 22:44:31 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 1.4 1987/06/18 01:08:51 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -136,6 +136,11 @@ MIT in each case. |# (CONSTANT (? object))) `(,(load-constant object (indirect-reference! a n)))) +(define-rule statement + (ASSIGN (OFFSET (REGISTER (? a)) (? n)) + (UNASSIGNED)) + `(,(load-non-pointer type-code:unassigned 0 (indirect-reference! a n)))) + (define-rule statement (ASSIGN (OFFSET (REGISTER (? a)) (? n)) (REGISTER (? r))) -- 2.25.1