Skip to content
Snippets Groups Projects
Commit 4dfe7952 authored by wlott's avatar wlott
Browse files

Make sxhash-single-string return (unsigned-byte 27) so that we don't have

to figure out how to cross compile different most-positive-fixnums.
parent ac95f606
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.4 1990/03/29 21:29:45 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.5 1990/04/13 20:29:43 wlott Exp $
;;; ;;;
;;; This file contains the support routines for arrays and vectors. ;;; This file contains the support routines for arrays and vectors.
;;; ;;;
...@@ -197,7 +197,8 @@ ...@@ -197,7 +197,8 @@
done done
(inst sll result accum 2)) (inst sll result accum 5)
(inst srl result result 3))
(define-assembly-routine (sxhash-simple-substring (define-assembly-routine (sxhash-simple-substring
...@@ -285,4 +286,5 @@ ...@@ -285,4 +286,5 @@
done done
(inst sll result accum 2)) (inst sll result accum 5)
(inst srl result result 3))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment