diff --git a/compiler/alpha/array.lisp b/compiler/alpha/array.lisp index 1f65f76f8cdde490b93b0f3d67b02da273701446..126c29b8cdcf3ced8a26539b819574ccd881fa3c 100644 --- a/compiler/alpha/array.lisp +++ b/compiler/alpha/array.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/array.lisp,v 1.6 1998/03/03 17:35:32 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/array.lisp,v 1.7 1998/03/10 18:35:12 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -188,8 +188,6 @@ other-pointer-type) lip) (inst and index ,(1- elements-per-word) temp) - ,@(when (eq (backend-byte-order *backend*) :big-endian) - `((inst xor temp ,(1- elements-per-word) temp))) ,@(unless (= bits 1) `((inst sll temp ,(1- (integer-length bits)) temp))) (inst srl result temp result) @@ -212,8 +210,6 @@ (:result-types positive-fixnum) (:generator 15 (multiple-value-bind (word extra) (floor index ,elements-per-word) - ,@(when (eq (backend-byte-order *backend*) :big-endian) - `((setf extra (logxor extra (1- ,elements-per-word))))) (loadw result object (+ word vector-data-offset) other-pointer-type) (unless (zerop extra) @@ -242,8 +238,6 @@ other-pointer-type) lip) (inst and index ,(1- elements-per-word) shift) - ,@(when (eq (backend-byte-order *backend*) :big-endian) - `((inst xor shift ,(1- elements-per-word) shift))) ,@(unless (= bits 1) `((inst sll shift ,(1- (integer-length bits)) shift))) (unless (and (sc-is value immediate) @@ -291,8 +285,6 @@ (:temporary (:scs (non-descriptor-reg)) temp old) (:generator 20 (multiple-value-bind (word extra) (floor index ,elements-per-word) - ,@(when (eq (backend-byte-order *backend*) :big-endian) - `((setf extra (logxor extra (1- ,elements-per-word))))) (inst ldl object (- (* (+ word vector-data-offset) word-bytes) other-pointer-type)