mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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

63
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);
# define setjmp setjump extern int longjump(jmp_buf env, int ret);
# define longjmp longjump # define setjmp setjump
# else /* ndef _CRAY1 */ # define longjmp longjump
# if defined (__ia64__)
/* For IA64, emulate the setjmp API using getcontext. */ #elif defined (__ia64__)
# include <signal.h> /* IA64: Implement setjmp in terms of getcontext. */
# include <ucontext.h> # include <signal.h>
typedef struct { # include <ucontext.h>
ucontext_t ctx; typedef struct {
int fresh; ucontext_t ctx;
} scm_i_jmp_buf; int fresh;
# define SCM_I_SETJMP(JB) \ } scm_i_jmp_buf;
( (JB).fresh = 1, \ # define SCM_I_SETJMP(JB) \
getcontext (&((JB).ctx)), \ ( (JB).fresh = 1, \
((JB).fresh ? ((JB).fresh = 0, 0) : 1) ) getcontext (&((JB).ctx)), \
# define SCM_I_LONGJMP(JB,VAL) scm_ia64_longjmp (&(JB), VAL) ((JB).fresh ? ((JB).fresh = 0, 0) : 1) )
void scm_ia64_longjmp (scm_i_jmp_buf *, int); # define SCM_I_LONGJMP(JB,VAL) scm_ia64_longjmp (&(JB), VAL)
# else /* ndef __ia64__ */ void scm_ia64_longjmp (scm_i_jmp_buf *, int);
# include <setjmp.h>
# endif /* ndef __ia64__ */ #else
# endif /* ndef _CRAY1 */ /* All other systems just use setjmp.h. */
#endif /* ndef vms */ # include <setjmp.h>
#endif
/* 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