mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

* threads.h: Include null-threads.h when !USE_COOP_THREADS.

Browse source 
* threads.c: Include null-threads.c when !USE_COOP_THREADS.
(scm_init_threads): Use generic type names scm_t_mutex and
scm_t_coop instead of coop_m and coop_t.
This commit is contained in:
Marius Vollmer 2002-10-16 15:57:13 +00:00
parent 3d527b2755
commit 212d33ec60
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/threads.c
View file

@ -133,6 +133,8 @@ SCM_REGISTER_PROC(s_signal_condition_variable, "signal-condition-variable", 1, 0
#ifdef USE_COOP_THREADS #ifdef USE_COOP_THREADS
#include "libguile/coop-threads.c" #include "libguile/coop-threads.c"
#else
#include "libguile/null-threads.c"
#endif #endif
@ -141,8 +143,9 @@ void
scm_init_threads (SCM_STACKITEM *i) scm_init_threads (SCM_STACKITEM *i)
{ {
scm_tc16_thread = scm_make_smob_type ("thread", 0); scm_tc16_thread = scm_make_smob_type ("thread", 0);
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m)); scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (scm_t_mutex));
scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c)); scm_tc16_condvar = scm_make_smob_type ("condition-variable",
sizeof (scm_t_condvar));
#include "libguile/threads.x" #include "libguile/threads.x"
/* Initialize implementation specific details of the threads support */ /* Initialize implementation specific details of the threads support */

2
libguile/threads.h
View file

@ -108,6 +108,8 @@ SCM_API scm_root_state *scm_i_thread_root (SCM thread);
#ifdef USE_COOP_THREADS #ifdef USE_COOP_THREADS
#include "libguile/coop-defs.h" #include "libguile/coop-defs.h"
#else
#include "libguile/null-threads.h"
#endif #endif
#endif /* SCM_THREADS_H */ #endif /* SCM_THREADS_H */