guile/guile-core/libguile tags.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/14 10:39:30

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

Log message:
        Include <stdint.h> when we have it.
        (scm_bits_t): Changed to be a unsigned type.  Use uintptr_t when
        available.  Else use "unsigned long".
        (scm_signed_bits_t): New.

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

Patches:
Index: guile/guile-core/libguile/tags.h
diff -u guile/guile-core/libguile/tags.h:1.80 
guile/guile-core/libguile/tags.h:1.81
--- guile/guile-core/libguile/tags.h:1.80       Sun May 27 15:00:03 2001
+++ guile/guile-core/libguile/tags.h    Thu Jun 14 10:39:30 2001
@@ -52,11 +52,21 @@
  ** It is here that tag bits are assigned for various purposes.
  **/
 
+#ifdef HAVE_STDINT_H
+#include <stdint.h>
+#endif
+
 
 
 /* In the beginning was the Word:
  */
-typedef long scm_bits_t;
+#ifdef HAVE_UINTPTR_T
+typedef uintptr_t scm_bits_t;
+typedef intptr_t scm_signed_bits_t;
+#else
+typedef unsigned long scm_bits_t;
+typedef signed long scm_signed_bits_t;
+#endif
 
 /* But as external interface, we use SCM, which may, according to the desired
  * level of type checking, be defined in several ways: