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