X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=include%2Fcln%2Ftypes.h;h=8bb8f92fde5ab418a793834031d0156a3c169701;hb=eefd94b485ccd7effb744c497b04a83cfe1213e5;hp=5f4837ef14dc2c115aa217feaa8214f406fd1192;hpb=850abfde7f0d985ba01526c346bcd0d733562943;p=cln.git

diff --git a/include/cln/types.h b/include/cln/types.h
index 5f4837e..8bb8f92 100644
--- a/include/cln/types.h
+++ b/include/cln/types.h
@@ -48,7 +48,7 @@
     #undef HAVE_LONGLONG
    #endif
   #endif
-  #if defined(HAVE_LONGLONG) && (defined(__alpha__) || defined(__mips64__) || (defined(__mips__) && defined(_ABIN32)) || defined(__sparc64__))
+  #if defined(HAVE_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__mips64__) || defined(__powerpc64__) || defined(__sparc64__) || defined(__x86_64__))
     // 64 bit registers in hardware
     #define HAVE_FAST_LONGLONG
   #endif
@@ -68,16 +68,6 @@
     typedef uint64 uintQ;
   #endif
 
-// Boolean type.
-#if 1
-  typedef enum { cl_false = 0, cl_true = 1 }
-          cl_boolean;
-#else
-  typedef bool cl_boolean;
-  #define cl_false 0
-  #define cl_true  1
-#endif
-
 // Type for three values (0, +1, -1).
   typedef int  cl_signean;
   #define signean_plus  1
@@ -85,7 +75,8 @@
   #define signean_minus -1
 
 // Integer type used for counters.
-  #if (defined(HAVE_FAST_LONGLONG) && defined(__alpha__))
+// Constraint: sizeof(uintC) >= sizeof(uintL)
+  #if (defined(HAVE_FAST_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__powerpc64__) || defined(__x86_64__)))
     #define intCsize long_bitsize
     typedef long           sintC;
     typedef unsigned long  uintC;
@@ -95,48 +86,71 @@
     typedef unsigned int  uintC;
   #endif
 
+// Integer type used for lfloat exponents.
+// Constraint: sizeof(uintE) >= sizeof(uintC)
+#if (defined(HAVE_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__powerpc64__) || defined(__x86_64__) || defined(__i386__) || defined(__mips__) || defined(__rs6000__)))
+    #define intEsize 64
+    typedef sint64  sintE;
+    typedef uint64  uintE;
+  #else
+    #define intEsize 32
+    typedef sint32  sintE;
+    typedef uint32  uintE;
+  #endif
+
 // Integer type as large as a pointer.
 // Assumption: sizeof(long) == sizeof(void*)
   #define intPsize long_bitsize
   typedef long           sintP;
   typedef unsigned long  uintP;
 
-// Largest integer type which can be manipulated as efficiently as a pointer.
-// This is normally the same as the hardware register size.
-// Assumption: cl_word_size >= intPsize
-  #ifdef HAVE_FAST_LONGLONG
-    #define cl_word_size  64
-  #else
-    #define cl_word_size  32
-  #endif
+// Integer type used for the value of a fixnum.
+  #define intVsize long_bitsize
+  typedef long           sintV;
+  typedef unsigned long  uintV;
 
 // Numbers in the heap are stored as "digit" sequences.
 // A digit is an unsigned int with intDsize bits.
-// intDsize should be 8 or 16 or 32 or 64.
-  #if (defined(HAVE_FAST_LONGLONG) && defined(__alpha__))
-    #define intDsize 64
-    #define intDDsize 128  // = 2*intDsize
-    #define log2_intDsize  6  // = log2(intDsize)
-  #else
-    #define intDsize 32
-    #define intDDsize 64  // = 2*intDsize
-    #define log2_intDsize  5  // = log2(intDsize)
-  #endif
-  #if (intDsize==8)
-    typedef sint8  sintD;
-    typedef uint8  uintD;
-  #endif
-  #if (intDsize==16)
-    typedef sint16  sintD;
-    typedef uint16  uintD;
-  #endif
-  #if (intDsize==32)
-    typedef sint32  sintD;
-    typedef uint32  uintD;
+// intDsize should be 8 or 16 or 32 or 64 and it should match mp_limb_t,
+// if CLN is sitting on top of GMP.
+  #if defined(GMP_DEMANDS_UINTD_LONG_LONG)
+    #define HAVE_FAST_LONGLONG
+    #define intDsize long_long_bitsize
+    typedef long long sintD;
+    typedef unsigned long long uintD;
+  #elif defined(GMP_DEMANDS_UINTD_LONG)
+    #define intDsize long_bitsize
+    typedef long sintD;
+    typedef unsigned long uintD;
+  #elif defined(GMP_DEMANDS_UINTD_INT)
+    #define intDsize int_bitsize
+    typedef int sintD;
+    typedef unsigned int uintD;
+  #else  // we are not using GMP, so just guess something reasonable
+    #if (defined(HAVE_FAST_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__powerpc64__) || defined(__x86_64__)))
+      #define intDsize 64
+      typedef sint64  sintD;
+      typedef uint64  uintD;
+    #else
+      #define intDsize 32
+      typedef sint32  sintD;
+      typedef uint32  uintD;
+    #endif
   #endif
   #if (intDsize==64)
-    typedef sint64  sintD;
-    typedef uint64  uintD;
+    #define intDDsize 128    // = 2*intDsize
+    #define log2_intDsize 6  // = log2(intDsize)
+  #elif (intDsize==32)
+    #define intDDsize 64     // = 2*intDsize
+    #define log2_intDsize 5  // = log2(intDsize)
+  #elif (intDsize==16)
+    #define intDDsize 32     // = 2*intDsize
+    #define log2_intDsize 4  // = log2(intDsize)
+  #elif (intDsize==8)
+    #define intDDsize 16     // = 2*intDsize
+    #define log2_intDsize 3  // = log2(intDsize)
+  #else
+    #error "What is intDsize again?"
   #endif
 // HAVE_DD means that there are unsigned ints with 2*intDsize bits.
   #if (intDDsize <= (defined(HAVE_FAST_LONGLONG) ? 64 : 32))
@@ -157,4 +171,13 @@
     #define HAVE_DD 0
   #endif
 
+// Largest integer type which can be manipulated as efficiently as a pointer.
+// This is normally the same as the hardware register size.
+// Assumption: cl_word_size >= intPsize
+  #ifdef HAVE_FAST_LONGLONG
+    #define cl_word_size  64
+  #else
+    #define cl_word_size  32
+  #endif
+
 #endif /* _CL_TYPES_H */