From ccf62ba2d30364531efaf837fd12ddb4cff586a6 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Fri, 17 Jun 1994 17:47:41 +0000 Subject: [PATCH] Fixed sxhash-simple-substring for the sgi. It was messed up since the byte order changed. --- assembly/mips/array.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp index 856370d34..d16ca2503 100644 --- a/assembly/mips/array.lisp +++ b/assembly/mips/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.22 1993/05/19 11:16:52 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.23 1994/06/17 17:47:41 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -140,7 +140,8 @@ (inst bne length zero-tn done) (inst nop) - (inst srl byte data 16) + #+sgi (inst srl byte data 8) + #+pmax (inst srl byte data 16) (inst and byte byte #xff) (inst xor accum accum byte) (inst sll byte accum 5) @@ -149,7 +150,8 @@ two-more - (inst srl byte data 8) + #+sgi (inst srl byte data 16) + #+pmax (inst srl byte data 8) (inst and byte byte #xff) (inst xor accum accum byte) (inst sll byte accum 5) @@ -158,6 +160,7 @@ one-more + #+sgi (inst srl data data 24) (inst and byte data #xff) (inst xor accum accum byte) (inst sll byte accum 5) -- GitLab