1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
--- 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
/*** same as in Boehm's GC */
-#define SCM_SIG_SUSPEND SIGPWR
+#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)
|
