mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Redone completely, you might start testing it now.

Browse source
This commit is contained in:
Marius Vollmer 2002-11-02 01:02:35 +00:00
parent cfe062d097
commit 0019d6a19d
2 changed files with 542 additions and 370 deletions
Download patch file Download diff file Expand all files Collapse all files

888
libguile/coop-pthreads.c
View file

File diff suppressed because it is too large Load diff

24
libguile/coop-pthreads.h
View file

@ -46,9 +46,9 @@
/* The coop-pthreads implementation. We provide implement threads,
mutices and condition variables using the pthread ones, but only
one thread can ever be active inside Guile at any one time.
/* The coop-pthreads implementation. We use pthreads for the basic
multi threading stuff, but rig it so that only one thread is ever
active inside Guile.
*/
#include <pthread.h>
@ -61,25 +61,25 @@
#define SCM_CRITICAL_SECTION_START
#define SCM_CRITICAL_SECTION_END
#define SCM_THREAD_SWITCH_COUNT 50
#define SCM_I_THREAD_SWITCH_COUNT 50
#define SCM_THREAD_SWITCHING_CODE \
do { \
scm_switch_counter--; \
if (scm_switch_counter == 0) \
scm_i_switch_counter--; \
if (scm_i_switch_counter == 0) \
{ \
scm_switch_counter = SCM_THREAD_SWITCH_COUNT; \
scm_i_switch_counter = SCM_I_THREAD_SWITCH_COUNT; \
scm_yield(); \
} \
} while (0)
SCM_API int scm_switch_counter;
SCM_API int scm_i_switch_counter;
#define SCM_THREAD_LOCAL_DATA (scm_copt_thread_data ())
#define SCM_SET_THREAD_LOCAL_DATA(ptr) (scm_copt_set_thread_data (ptr))
#define SCM_THREAD_LOCAL_DATA (scm_i_copt_thread_data)
#define SCM_SET_THREAD_LOCAL_DATA(ptr) (scm_i_copt_set_thread_data (ptr))
SCM_API void *scm_copt_thread_data (void);
SCM_API void scm_copt_set_thread_data (void *);
SCM_API void *scm_i_copt_thread_data;
SCM_API void scm_i_copt_set_thread_data (void *data);
#endif /* SCM_COOP_PTHREAD_H */