From 3f3e9877f5bacc8d80d09046cf867f83f68009a6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 10 Mar 1989 08:05:25 +0000 Subject: [PATCH] Add rule for (ASSIGN (BYTE-OFFSET (REGISTER (? address)) (? offset)) (REGISTER (? source))) --- v7/src/compiler/machines/bobcat/rules1.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/rules1.scm b/v7/src/compiler/machines/bobcat/rules1.scm index 5aa09ea0c..600e2545a 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 4.20 1989/01/21 09:21:37 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 4.21 1989/03/10 08:05:25 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -632,6 +632,13 @@ MIT in each case. |# (& ,(char->signed-8-bit-immediate character)) ,(indirect-byte-reference! address offset)))) +(define-rule statement + (ASSIGN (BYTE-OFFSET (REGISTER (? address)) (? offset)) + (REGISTER (? source))) + (let ((source (coerce->any/byte-reference source))) + (let ((target (indirect-byte-reference! address offset))) + (LAP (MOV B ,source ,target))))) + (define-rule statement (ASSIGN (BYTE-OFFSET (REGISTER (? address)) (? offset)) (CHAR->ASCII (REGISTER (? source)))) -- 2.25.1