mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
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.
This commit is contained in:
parent
38956d845c
commit
4a19973db3
1 changed files with 11 additions and 1 deletions
|
@ -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:
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue