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

minor __scm.h cleanup

Browse source 
* libguile/__scm.h: Clean up setjmp/longjmp portability defines.
This commit is contained in:
Andy Wingo 2011-05-15 12:06:41 +02:00
parent 8e450381bf
commit 5c838a9759
1 changed files with 35 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

39
libguile/__scm.h
View file

@ -336,39 +336,46 @@ typedef void *scm_t_subr;
#endif #endif
#ifdef vms
/* Setjmp and longjmp
*/
#if defined (vms)
/* VMS: Implement setjmp in terms of setjump. */
typedef int jmp_buf[17]; typedef int jmp_buf[17];
extern int setjump(jmp_buf env); extern int setjump(jmp_buf env);
extern int longjump(jmp_buf env, int ret); extern int longjump(jmp_buf env, int ret);
# define setjmp setjump # define setjmp setjump
# define longjmp longjump # define longjmp longjump
#else /* ndef vms */
# ifdef _CRAY1 #elif defined (_CRAY1)
typedef int jmp_buf[112]; /* Cray: Implement setjmp in terms of setjump. */
extern int setjump(jmp_buf env); typedef int jmp_buf[112];
extern int longjump(jmp_buf env, int ret); extern int setjump(jmp_buf env);
extern int longjump(jmp_buf env, int ret);
# define setjmp setjump # define setjmp setjump
# define longjmp longjump # define longjmp longjump
# else /* ndef _CRAY1 */
# if defined (__ia64__) #elif defined (__ia64__)
/* For IA64, emulate the setjmp API using getcontext. */ /* IA64: Implement setjmp in terms of getcontext. */
# include <signal.h> # include <signal.h>
# include <ucontext.h> # include <ucontext.h>
typedef struct { typedef struct {
ucontext_t ctx; ucontext_t ctx;
int fresh; int fresh;
} scm_i_jmp_buf; } scm_i_jmp_buf;
# define SCM_I_SETJMP(JB) \ # define SCM_I_SETJMP(JB) \
( (JB).fresh = 1, \ ( (JB).fresh = 1, \
getcontext (&((JB).ctx)), \ getcontext (&((JB).ctx)), \
((JB).fresh ? ((JB).fresh = 0, 0) : 1) ) ((JB).fresh ? ((JB).fresh = 0, 0) : 1) )
# define SCM_I_LONGJMP(JB,VAL) scm_ia64_longjmp (&(JB), VAL) # define SCM_I_LONGJMP(JB,VAL) scm_ia64_longjmp (&(JB), VAL)
void scm_ia64_longjmp (scm_i_jmp_buf *, int); void scm_ia64_longjmp (scm_i_jmp_buf *, int);
# else /* ndef __ia64__ */
#else
/* All other systems just use setjmp.h. */
# include <setjmp.h> # include <setjmp.h>
# endif /* ndef __ia64__ */
# endif /* ndef _CRAY1 */ #endif
#endif /* ndef vms */
/* For any platform where SCM_I_SETJMP hasn't been defined in some /* For any platform where SCM_I_SETJMP hasn't been defined in some
special way above, map SCM_I_SETJMP, SCM_I_LONGJMP and special way above, map SCM_I_SETJMP, SCM_I_LONGJMP and