mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(HAVE_UINTPTR_T): Only define if UINTPTR_T attributes

Browse source 
are defined: UINTPTR_MAX, INTPTR_MAX, INTPTR_MIN.
This commit is contained in:
Thien-Thi Nguyen 2002-02-03 05:19:05 +00:00
parent 329e496820
commit 3dd84ef10c
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/__scm.h
View file

@ -293,7 +293,11 @@
* - ... add more * - ... add more
*/ */
#if SIZEOF_UINTPTR_T != 0 #if SIZEOF_UINTPTR_T != 0 && defined(UINTPTR_MAX) \
&& defined(INTPTR_MAX) \
&& defined(INTPTR_MIN)
/* Used as SCM if available, so we bundle related attributes to avoid possible
type incon[st][oi]n[ae]nce later. Word in tags.h. */
#define HAVE_UINTPTR_T 1 #define HAVE_UINTPTR_T 1
#endif #endif
@ -384,7 +388,7 @@ typedef long ptrdiff_t;
/* James Clark came up with this neat one instruction fix for /* James Clark came up with this neat one instruction fix for
* continuations on the SPARC. It flushes the register windows so * continuations on the SPARC. It flushes the register windows so
* that all the state of the process is contained in the stack. * that all the state of the process is contained in the stack.
*/ */
#ifdef sparc #ifdef sparc
@ -393,7 +397,7 @@ typedef long ptrdiff_t;
# define SCM_FLUSH_REGISTER_WINDOWS /* empty */ # define SCM_FLUSH_REGISTER_WINDOWS /* empty */
#endif #endif
/* If stack is not longword aligned then /* If stack is not longword aligned then
*/ */
/* #define SHORT_ALIGN */ /* #define SHORT_ALIGN */
@ -415,8 +419,8 @@ typedef long SCM_STACKITEM;
#ifndef USE_THREADS #ifndef USE_THREADS
#define SCM_CRITICAL_SECTION_START #define SCM_CRITICAL_SECTION_START
#define SCM_CRITICAL_SECTION_END #define SCM_CRITICAL_SECTION_END
#define SCM_THREAD_SWITCHING_CODE #define SCM_THREAD_SWITCHING_CODE
#endif #endif
@ -573,7 +577,7 @@ do { \
/** SCM_ASSERT /** SCM_ASSERT
** **
**/ **/
@ -659,7 +663,7 @@ SCM_API SCM scm_apply_generic (SCM gf, SCM args);
#define SCM_ARG4 4 #define SCM_ARG4 4
#define SCM_ARG5 5 #define SCM_ARG5 5
#define SCM_ARG6 6 #define SCM_ARG6 6
#define SCM_ARG7 7 #define SCM_ARG7 7
#endif /* SCM_MAGIC_SNARFER */ #endif /* SCM_MAGIC_SNARFER */