Ignore:
Timestamp:
Mar 14, 2013, 11:05:56 PM (7 years ago)
Author:
gb
Message:

STRIP-TAG-TO-FIXNUM: if arg is a fixnum, return it.
Fixes ticket:1069 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/ARM/arm-hash.lisp

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