0.7.13.7:
[sbcl.git] / src / code / sxhash.lisp
1 ;;;; that part of SXHASH logic which runs not only in the target Lisp but
2 ;;;; in the cross-compilation host Lisp
3
4 ;;;; This software is part of the SBCL system. See the README file for
5 ;;;; more information.
6 ;;;;
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
12
13 (in-package "SB!C")
14
15 (sb!xc:define-modify-macro mixf (y) mix)
16
17 ;;; SXHASH of FLOAT values is defined directly in terms of DEFTRANSFORM in
18 ;;; order to avoid boxing.
19 (deftransform sxhash ((x) (single-float))
20   '(let ((bits (single-float-bits x)))
21      (logxor 66194023
22              (sxhash (the fixnum
23                           (logand most-positive-fixnum
24                                   (logxor bits
25                                           (ash bits -7))))))))
26 (deftransform sxhash ((x) (double-float))
27   '(let* ((val x)
28           (hi (double-float-high-bits val))
29           (lo (double-float-low-bits val))
30           (hilo (logxor hi lo)))
31      (logxor 475038542
32              (sxhash (the fixnum
33                           (logand most-positive-fixnum
34                                   (logxor hilo
35                                           (ash hilo -7))))))))
36
37 ;;; SXHASH of FIXNUM values is defined as a DEFTRANSFORM because it's so
38 ;;; simple.
39 (deftransform sxhash ((x) (fixnum))
40   '(logand most-positive-fixnum
41            (logxor x
42                    (ash x -3) ; to get sign bit into hash
43                    361475658)))
44
45 ;;; Some other common SXHASH cases are defined as DEFTRANSFORMs in
46 ;;; order to avoid having to do TYPECASE at runtime.
47 ;;;
48 ;;; We also take the opportunity to handle the cases of constant
49 ;;; strings, and of symbols whose names are known at compile time;
50 ;;; except that since SXHASH on the cross-compilation host is not in
51 ;;; general compatible with SXHASH on the target SBCL, we can't so
52 ;;; easily do this optimization in the cross-compiler, and SBCL itself
53 ;;; doesn't seem to need this optimization, so we don't try.
54 (deftransform sxhash ((x) (simple-string))
55   (if #+sb-xc-host nil #-sb-xc-host (constant-continuation-p x)
56       (sxhash (continuation-value x))
57       '(%sxhash-simple-string x)))
58 (deftransform sxhash ((x) (symbol))
59   (if #+sb-xc-host nil #-sb-xc-host (constant-continuation-p x)
60       (sxhash (continuation-value x))
61       '(%sxhash-simple-string (symbol-name x))))