guile/guile-core/libguile tags.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/11 20:13:00

Modified files:
        guile-core/libguile: tags.h 

Log message:
        (SIZEOF_SCM_T_BITS): Define it appropriately.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/tags.h.diff?cvsroot=OldCVS&tr1=1.89&tr2=1.90&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/tags.h
diff -u guile/guile-core/libguile/tags.h:1.89 
guile/guile-core/libguile/tags.h:1.90
--- guile/guile-core/libguile/tags.h:1.89       Thu Nov  1 19:19:11 2001
+++ guile/guile-core/libguile/tags.h    Sun Nov 11 20:13:00 2001
@@ -65,12 +65,14 @@
 #ifdef HAVE_UINTPTR_T
 typedef uintptr_t scm_t_bits;
 typedef intptr_t scm_t_signed_bits;
+#define SIZEOF_SCM_T_BITS SIZEOF_UINTPTR_T
 #define SCM_T_BITS_MAX UINTPTR_MAX
 #define SCM_T_SIGNED_BITS_MAX INTPTR_MAX
 #define SCM_T_SIGNED_BITS_MIN INTPTR_MIN
 #else
 typedef unsigned long scm_t_bits;
 typedef signed long scm_t_signed_bits;
+#define SIZEOF_SCM_T_BITS SIZEOF_LONG
 #define SCM_T_BITS_MAX ULONG_MAX
 #define SCM_T_SIGNED_BITS_MAX LONG_MAX
 #define SCM_T_SIGNED_BITS_MIN LONG_MIN