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/ARM/arm-hash.lisp

    r15093 r15521  
    113113;;; Strip the tag bits to turn x into a fixnum
    114114(defarmlapfunction strip-tag-to-fixnum ((x arg_z))
    115   (bic arg_z x (:$ arm::fixnummask))
     115  (bic arg_z x (:$ arm::fulltagmask))
     116  (mov arg_z (:lsr arg_z (:$ (- arm::ntagbits arm::nfixnumtagbits))))
    116117  (bx lr))
    117118
Note: See TracChangeset for help on using the changeset viewer.