simgear/nasal/naref.h

   1 #ifndef _NAREF_H
   2 #define _NAREF_H
   3
   4 /* Rather than play elaborate and complicated games with
   5  * platform-dependent endianness headers, just detect the platforms we
   6  * support.  This list is simpler and smaller, yet still quite
   7  * complete. */
   8 #if (defined(__x86_64) && defined(__linux__)) || defined(__sparcv9) || \
   9     defined(__powerpc64__)
  10 /* Win64 and Irix should work with this too, but have not been
  11  * tested */
  12 # define NASAL_NAN64
  13 #elif defined(_M_IX86) || defined(i386) || defined(__x86_64) || \
  14       defined(__ia64__) || defined(_M_IA64) || defined(__ARMEL__) || \
  15       defined(_M_X64)
  16 # define NASAL_LE
  17 #elif defined(__sparc) || defined(__ppc__) || defined(__PPC) || \
  18       defined (__powerpc__) || defined (__powerpc64__) || defined (__alpha__) || \
  19       defined(__mips) || defined(__ARMEB__)
  20 # define NASAL_BE
  21 #else
  22 # error Unrecognized CPU architecture
  23 #endif
  24
  25 typedef union {
  26     struct naObj* obj;
  27     struct naStr* str;
  28     struct naVec* vec;
  29     struct naHash* hash;
  30     struct naCode* code;
  31     struct naFunc* func;
  32     struct naCCode* ccode;
  33     struct naGhost* ghost;
  34 } naPtr;
  35
  36 /* On supported 64 bit platforms (those where all memory returned from
  37  * naAlloc() is guaranteed to lie between 0 and 2^48-1) we union the
  38  * double with the pointer, and use fancy tricks (see data.h) to make
  39  * sure all pointers are stored as NaNs.  32 bit layouts (and 64 bit
  40  * platforms where we haven't tested the trick above) need
  41  * endianness-dependent ordering to make sure that the reftag lies in
  42  * the top bits of the double */
  43
  44 #if defined(NASAL_LE)
  45 typedef struct { naPtr ptr; int reftag; } naRefPart;
  46 #elif defined(NASAL_BE)
  47 typedef struct { int reftag; naPtr ptr; } naRefPart;
  48 #endif
  49
  50 #if defined(NASAL_NAN64)
  51 typedef union { double num; void* ptr; } naRef;
  52 #else
  53 typedef union { double num; naRefPart ref; } naRef;
  54 #endif
  55
  56 #endif // _NAREF_H