Changeset 15257

Timestamp:

Mar 19, 2012, 6:20:22 AM (13 years ago)

Author:

Gary Byers

Message:

On ARM, rename the 'altivec_present' kernel global to 'float_abi'; set
this to fixnum one if the kernel was compiled with '-mfloat-abi=hard'.

Location:

trunk/source

Files:

• compiler/ARM/arm-arch.lisp (modified) (1 diff)
• lisp-kernel/arm-constants.s (modified) (1 diff)
• lisp-kernel/lisp_globals.h (modified) (1 diff)
• lisp-kernel/pmcl-kernel.c (modified) (1 diff)

trunk/source/compiler/ARM/arm-arch.lisp

@@ -213 +213 @@
     oldspace-dnode-count                ; number of dnodes in dynamic space that are older than
                                         ; youngest generation
-    altivec-present                     ; non-zero if cpu supports AltiVec 
+    float-abi                           ; non-zero if using hard float abi
     fwdnum                              ; fixnum: GC "forwarder" call count.
     gc-count                            ; fixnum: GC call count.

trunk/source/lisp-kernel/arm-constants.s

@@ -581 +581 @@
          _node(gc_num)                  /* fixnum: GC call count. */
          _node(fwdnum)                  /* fixnum: GC "forwarder" call count. */
-         _node(altivec_present)         /* non-zero when AltiVec available */
+         _node(float_abi)         /* non-zero when hard-float */
          _node(oldspace_dnode_count)    /* dynamic dnodes older than g0 start */
          _node(refbits)                 /* EGC refbits */

trunk/source/lisp-kernel/lisp_globals.h

@@ -40 +40 @@
 #define REFBITS (-17)
 #define OLDSPACE_DNODE_COUNT (-18) /* count of dynamic dnodes older than generation 0 */
+#ifdef PPC
 #define ALTIVEC_PRESENT (-19)   /* non-zero if AltiVec present. */
+#endif
+#ifdef ARM
+#define FLOAT_ABI (-19)         /* non zero when hard-float ABI in effect */
+#endif
 #define FWDNUM (-20)            /* fixnum: GC "forwarder" call count. */
 #define GC_NUM (-21)            /* fixnum: GC call count. */

trunk/source/lisp-kernel/pmcl-kernel.c

@@ -2070 +2070 @@
 #ifdef PPC
   lisp_global(ALTIVEC_PRESENT) = altivec_present << fixnumshift;
+#endif
+#ifdef ARM
+#if defined (__ARM_PCS_VFP)
+ /* would be nice if there was a way to test for this (armhf) at runtime */
+  lisp_global(FLOAT_ABI) = 1 << fixnumshift;
+#endif
 #endif
 #if STATIC