From 74e90e04b7a6cc4f9f3d7b9c66b9f74362983211 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 15 Feb 1992 16:16:57 +0000 Subject: [PATCH] Add byte-unsigned-offset-reference. --- v7/src/compiler/machines/i386/lapgen.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/i386/lapgen.scm b/v7/src/compiler/machines/i386/lapgen.scm index d6ac536e5..9722af0b8 100644 --- a/v7/src/compiler/machines/i386/lapgen.scm +++ b/v7/src/compiler/machines/i386/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.14 1992/02/15 14:31:42 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.15 1992/02/15 16:16:57 jinx Exp $ $MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.42 1991/05/28 19:14:26 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -163,6 +163,14 @@ MIT in each case. |# (else (INST-EA (@RO W ,register ,offset))))) +(define (byte-unsigned-offset-reference register offset) + (cond ((zero? offset) + (INST-EA (@R ,register))) + ((fits-in-unsigned-byte? offset) + (INST-EA (@RO UB ,register ,offset))) + (else + (INST-EA (@RO UW ,register ,offset))))) + (define-integrable (pseudo-register-offset register) (+ (+ (* 16 4) (* 80 4)) (* 3 (register-renumber register)))) -- 2.25.1