Skip to content
Snippets Groups Projects
Commit 5fe3f9b3 authored by dtc's avatar dtc
Browse files

Fix the handling of fixnums in sxhash; the fixnum hash must be

consistent with the integer sxhash transform.
parent 323d722f
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.6 2000/01/13 16:53:23 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.7 2000/01/13 16:54:31 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -886,7 +886,7 @@ ...@@ -886,7 +886,7 @@
(typecase s-expr (typecase s-expr
;; The pointers and immediate types. ;; The pointers and immediate types.
(list (sxhash-list s-expr depth)) (list (sxhash-list s-expr depth))
(fixnum (logand s-expr (1- most-positive-fixnum))) (fixnum (ldb sxhash-bits-byte s-expr))
(instance (instance
(if (typep s-expr 'structure-object) (if (typep s-expr 'structure-object)
(internal-sxhash (class-name (layout-class (%instance-layout s-expr))) (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.30 2000/01/13 16:53:24 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.31 2000/01/13 16:54:31 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -855,7 +855,7 @@ ...@@ -855,7 +855,7 @@
(typecase s-expr (typecase s-expr
;; The pointers and immediate types. ;; The pointers and immediate types.
(list (sxhash-list s-expr depth)) (list (sxhash-list s-expr depth))
(fixnum (logand s-expr (1- most-positive-fixnum))) (fixnum (ldb sxhash-bits-byte s-expr))
(instance (instance
(if (typep s-expr 'structure-object) (if (typep s-expr 'structure-object)
(internal-sxhash (class-name (layout-class (%instance-layout s-expr))) (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment