diff options
Diffstat (limited to 'lang/qscheme/files/patch-s.h')
| -rw-r--r-- | lang/qscheme/files/patch-s.h | 34 |
1 files changed, 32 insertions, 2 deletions
diff --git a/lang/qscheme/files/patch-s.h b/lang/qscheme/files/patch-s.h index 6797b6926a87..aa68f70c921c 100644 --- a/lang/qscheme/files/patch-s.h +++ b/lang/qscheme/files/patch-s.h @@ -1,5 +1,5 @@ ---- s.h.orig Sun Feb 10 12:45:20 2002 -+++ s.h Sun Feb 10 12:45:32 2002 +--- s.h.orig 2000-06-16 00:15:42.000000000 +0300 ++++ s.h 2009-03-03 17:35:11.000000000 +0200 @@ -203,7 +203,7 @@ #ifdef SCM_WITH_THREADS @@ -8,3 +8,33 @@ +#define SCM_SIG_SUSPEND SIGUSR1 #define SCM_SIG_RESUME SIGXCPU #endif + +@@ -539,6 +539,7 @@ + #define SCM_CATCH_CONTEXT_UNWIND(x) SCM_CATCH_CONTEXT(x)->unwind + + #define SCM_AUX(x) SCM_VALUE(x,aux,aux) ++#define SCM_AUX_SET(x,v) SCM_VALUE(x,aux,aux)=(v); + + /*-- type predicates */ + /*#define SCM_OBJTYPE(x) (SCM_INUMP(x)?SOBJ_T_INUM:(x?SCM_OBJREF(x)->type:-1)) */ +@@ -656,6 +657,11 @@ + SCM_ERR_THROW, + SCM_ERR_MAX }; + ++struct CHR_SYM { ++ char *str; ++ char chr; ++}; ++ + #include "sproto.h" + + #define scm_sp scm_vmd()->reg.sp +@@ -668,6 +674,8 @@ + #define SCM_THREAD(x) ((SCM_VMD*)(SCM_AUX(x))) + #define SCM_MUTEX(x) ((pthread_mutex_t *)SCM_AUX(x)) + #define SCM_SEMAPHORE(x) ((sem_t *)SCM_AUX(x)) ++#define SCM_MUTEX_SET SCM_AUX_SET ++#define SCM_SEMAPHORE_SET SCM_AUX_SET + + #define SCM_THREADP(x) (SCM_OBJTYPE(x) == SOBJ_T_THREAD) + #define SCM_MUTEXP(x) (SCM_OBJTYPE(x) == SOBJ_T_MUTEX) |