Changeset 14078 for branches


Ignore:
Timestamp:
Jul 29, 2010, 3:51:49 PM (9 years ago)
Author:
gb
Message:

arm::real-tags-mask, arm::numeric-tags-mask.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-arch.lisp

    r14032 r14078  
    14091409  xp)
    14101410
    1411 
     1411(defconstant real-tags-mask (logior (ash 1 tag-fixnum)
     1412                                    (ash 1 subtag-bignum)
     1413                                    (ash 1 subtag-single-float)
     1414                                    (ash 1 subtag-double-float)
     1415                                    (ash 1 subtag-ratio)))
     1416(defconstant numeric-tags-mask (logior real-tags-mask (ash 1 subtag-complex)))
     1417
     1418 
    14121419
    14131420(provide "ARM-ARCH")
Note: See TracChangeset for help on using the changeset viewer.