2009-04-01 22:31:31 +00:00
|
|
|
--- s.h.orig 2000-06-16 00:15:42.000000000 +0300
|
|
|
|
|
+++ s.h 2009-03-03 17:35:11.000000000 +0200
|
2002-06-27 14:32:30 +00:00
|
|
|
@@ -203,7 +203,7 @@
|
|
|
|
|
|
|
|
|
|
#ifdef SCM_WITH_THREADS
|
|
|
|
|
/*** same as in Boehm's GC */
|
|
|
|
|
-#define SCM_SIG_SUSPEND SIGPWR
|
|
|
|
|
+#define SCM_SIG_SUSPEND SIGUSR1
|
|
|
|
|
#define SCM_SIG_RESUME SIGXCPU
|
|
|
|
|
#endif
|
2009-04-01 22:31:31 +00:00
|
|
|
|
|
|
|
|
@@ -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)
|
