From 347ab6ef2289f6ca2cf7455f98d8fbabc4d91d16 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 17 May 1988 16:57:01 +0000 Subject: [PATCH] Character Stuff. --- v7/src/compiler/machines/bobcat/rules1.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules1.scm b/v7/src/compiler/machines/bobcat/rules1.scm index fc8a2442a..52e9c029e 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.9 1988/05/10 00:38:45 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 4.10 1988/05/17 16:57:01 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -301,7 +301,7 @@ MIT in each case. |# (delete-dead-registers!) (let ((target-ref (register-reference (allocate-alias-register! target 'DATA)))) - (LAP (BFEXTU ,source-ref (& 0) (& 8) ,target-ref)))) + (LAP (BFEXTU ,source-ref (& 24) (& 8) ,target-ref)))) (byte-offset->register (indirect-char/ascii-reference! regnum:regs-pointer (pseudo-register-offset source)) -- 2.25.1