Ignore:
Timestamp:
Dec 3, 2012, 10:48:41 PM (7 years ago)
Author:
gb
Message:

Do STRIP-TAG-TO-FIXNUM the same way on all platforms: clear the
argument's tag bits (making it an even fixnum) and then logically
shift right 1 bit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-hash.lisp

    r13447 r15521  
    122122;;; Strip the tag bits to turn x into a fixnum
    123123(defx8632lapfunction strip-tag-to-fixnum ((x arg_z))
    124   (andb ($ (lognot x8632::fixnummask)) (%b x))
     124  (andl ($ (lognot target::fulltagmask)) (% x))
     125  (shrl ($ (- target::ntagbits target::fixnumshift)) (% arg_z))
    125126  (single-value-return))
    126127
Note: See TracChangeset for help on using the changeset viewer.