mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 02:00:26 +02:00
Code Activity

(SIZEOF_SCM_T_BITS): Define it appropriately.

Browse source
This commit is contained in:
Marius Vollmer 2001-11-12 01:13:00 +00:00
parent 3d2e8ceb97
commit 08ae876872
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/tags.h
View file

@ -65,12 +65,14 @@
#ifdef HAVE_UINTPTR_T #ifdef HAVE_UINTPTR_T
typedef uintptr_t scm_t_bits; typedef uintptr_t scm_t_bits;
typedef intptr_t scm_t_signed_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_BITS_MAX UINTPTR_MAX
#define SCM_T_SIGNED_BITS_MAX INTPTR_MAX #define SCM_T_SIGNED_BITS_MAX INTPTR_MAX
#define SCM_T_SIGNED_BITS_MIN INTPTR_MIN #define SCM_T_SIGNED_BITS_MIN INTPTR_MIN
#else #else
typedef unsigned long scm_t_bits; typedef unsigned long scm_t_bits;
typedef signed long scm_t_signed_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_BITS_MAX ULONG_MAX
#define SCM_T_SIGNED_BITS_MAX LONG_MAX #define SCM_T_SIGNED_BITS_MAX LONG_MAX
#define SCM_T_SIGNED_BITS_MIN LONG_MIN #define SCM_T_SIGNED_BITS_MIN LONG_MIN