/[cmucl]/src/code/hash.lisp
ViewVC logotype

Diff of /src/code/hash.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by wlott, Wed Nov 21 08:57:57 1990 UTC revision 1.7 by wlott, Sat Nov 24 08:43:20 1990 UTC
# Line 429  Line 429 
429       (etypecase s-expr       (etypecase s-expr
430         (integer (ldb sxhash-bits-byte s-expr))         (integer (ldb sxhash-bits-byte s-expr))
431         (single-float         (single-float
432          (let ((bits (vm:single-float-bits s-expr)))          (let ((bits (single-float-bits s-expr)))
433            (ldb sxhash-bits-byte            (ldb sxhash-bits-byte
434                 (logxor (ash bits (- sxmash-rotate-bits))                 (logxor (ash bits (- sxmash-rotate-bits))
435                         bits))))                         bits))))
436         (double-float         (double-float
437          (let* ((val s-expr)          (let* ((val s-expr)
438                 (lo (vm:double-float-low-bits val))                 (lo (double-float-low-bits val))
439                 (hi (vm:double-float-high-bits val)))                 (hi (double-float-high-bits val)))
440            (ldb sxhash-bits-byte            (ldb sxhash-bits-byte
441                 (logxor (ash lo (- sxmash-rotate-bits))                 (logxor (ash lo (- sxmash-rotate-bits))
442                         (ash hi (- sxmash-rotate-bits))                         (ash hi (- sxmash-rotate-bits))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5