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/PPC/ppc-hash.lisp

    r13067 r15521  
    162162;;; Strip the tag bits to turn x into a fixnum
    163163(defppclapfunction strip-tag-to-fixnum ((x arg_z))
    164   (unbox-fixnum imm0 x)
    165   (box-fixnum arg_z imm0)
     164  (clrrri arg_z x target::ntagbits)
     165  (srri arg_z arg_z (- target::ntagbits target::fixnumshift))
    166166  (blr))
    167167
Note: See TracChangeset for help on using the changeset viewer.