Changeset 15257


Ignore:
Timestamp:
Mar 19, 2012, 1:20:22 PM (7 years ago)
Author:
gb
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:
4 edited

Legend:

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

    r15204 r15257  
    213213    oldspace-dnode-count                ; number of dnodes in dynamic space that are older than
    214214                                        ; youngest generation
    215     altivec-present                     ; non-zero if cpu supports AltiVec
     215    float-abi                           ; non-zero if using hard float abi
    216216    fwdnum                              ; fixnum: GC "forwarder" call count.
    217217    gc-count                            ; fixnum: GC call count.
  • trunk/source/lisp-kernel/arm-constants.s

    r15197 r15257  
    581581         _node(gc_num)                  /* fixnum: GC call count. */
    582582         _node(fwdnum)                  /* fixnum: GC "forwarder" call count. */
    583          _node(altivec_present)         /* non-zero when AltiVec available */
     583         _node(float_abi)         /* non-zero when hard-float */
    584584         _node(oldspace_dnode_count)    /* dynamic dnodes older than g0 start */
    585585         _node(refbits)                 /* EGC refbits */
  • trunk/source/lisp-kernel/lisp_globals.h

    r15197 r15257  
    4040#define REFBITS (-17)
    4141#define OLDSPACE_DNODE_COUNT (-18) /* count of dynamic dnodes older than generation 0 */
     42#ifdef PPC
    4243#define ALTIVEC_PRESENT (-19)   /* non-zero if AltiVec present. */
     44#endif
     45#ifdef ARM
     46#define FLOAT_ABI (-19)         /* non zero when hard-float ABI in effect */
     47#endif
    4348#define FWDNUM (-20)            /* fixnum: GC "forwarder" call count. */
    4449#define GC_NUM (-21)            /* fixnum: GC call count. */
  • trunk/source/lisp-kernel/pmcl-kernel.c

    r15234 r15257  
    20702070#ifdef PPC
    20712071  lisp_global(ALTIVEC_PRESENT) = altivec_present << fixnumshift;
     2072#endif
     2073#ifdef ARM
     2074#if defined (__ARM_PCS_VFP)
     2075 /* would be nice if there was a way to test for this (armhf) at runtime */
     2076  lisp_global(FLOAT_ABI) = 1 << fixnumshift;
     2077#endif
    20722078#endif
    20732079#if STATIC
Note: See TracChangeset for help on using the changeset viewer.