mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Include <stdint.h> when we have it.

Browse source 
(scm_bits_t): Changed to be a unsigned type.  Use uintptr_t when
available.  Else use "unsigned long".
(scm_signed_bits_t): New.
This commit is contained in:
Marius Vollmer 2001-06-14 17:39:30 +00:00
parent 38956d845c
commit 4a19973db3
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/tags.h
View file

@ -52,11 +52,21 @@
** It is here that tag bits are assigned for various purposes. ** 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: /* 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 /* But as external interface, we use SCM, which may, according to the desired
* level of type checking, be defined in several ways: * level of type checking, be defined in several ways: