Changeset 14078

Timestamp:

Jul 29, 2010, 3:51:49 PM (9 years ago)

Author:

gb

Message:

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

File:

• branches/arm/compiler/ARM/arm-arch.lisp (modified) (1 diff)

branches/arm/compiler/ARM/arm-arch.lisp

@@ -1409 +1409 @@
   xp)
 
-
+(defconstant real-tags-mask (logior (ash 1 tag-fixnum)
+                                    (ash 1 subtag-bignum)
+                                    (ash 1 subtag-single-float)
+                                    (ash 1 subtag-double-float)
+                                    (ash 1 subtag-ratio)))
+(defconstant numeric-tags-mask (logior real-tags-mask (ash 1 subtag-complex)))
+
+  
 
 (provide "ARM-ARCH")