From 6e9c53ff83a108063245d3656cc70f2546fe7d90 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 5 May 1991 15:37:01 +0000 Subject: [PATCH] Fixed data-vector-set/unsigned-byte-{1,2,4} to be big endian in addition to data-vector-ref. --- compiler/rt/array.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/rt/array.lisp b/compiler/rt/array.lisp index d7cbdf912..a77f378ce 100644 --- a/compiler/rt/array.lisp +++ b/compiler/rt/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.5 1991/05/04 18:29:38 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.6 1991/05/05 15:37:01 wlott Exp $ ;;; ;;; This file contains the IBM RT definitions for array operations. ;;; @@ -287,6 +287,7 @@ (inst nilz shift index ,(ash (1- elements-per-word) 2)) ,@(unless (= bits 4) `((inst sr shift ,(- 3 (integer-length bits))))))) + (inst xil shift ,(1- elements-per-word)) ;; Unless our immediate is all 1's, zero the destination bits. (unless (and (sc-is value immediate) -- GitLab