Skip to content
Snippets Groups Projects
Commit 2a9b9d16 authored by rtoy's avatar rtoy
Browse files

The SYMBOL-HASH vop actually returns a fixnum, not a positive-fixnum,

to allow returning the -1 uninitialized hash indicator.
parent 16acb0ce
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.14 2004/05/17 17:22:31 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.15 2004/05/18 02:29:12 rtoy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -139,7 +139,7 @@ ...@@ -139,7 +139,7 @@
(:translate symbol-hash) (:translate symbol-hash)
(:args (symbol :scs (descriptor-reg))) (:args (symbol :scs (descriptor-reg)))
(:results (res :scs (any-reg))) (:results (res :scs (any-reg)))
(:result-types positive-fixnum) (:result-types tagged-num)
(:generator 2 (:generator 2
;; the symbol-hash slot of NIL holds NIL because it is also the cdr ;; the symbol-hash slot of NIL holds NIL because it is also the cdr
;; slot, so we have to strip off the two low bits to make sure it is ;; slot, so we have to strip off the two low bits to make sure it is
......
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