133 |
|
|
134 |
#ifdef USE_COOP_THREADS |
#ifdef USE_COOP_THREADS |
135 |
#include "libguile/coop-threads.c" |
#include "libguile/coop-threads.c" |
136 |
|
#else |
137 |
|
#include "libguile/null-threads.c" |
138 |
#endif |
#endif |
139 |
|
|
140 |
|
|
143 |
scm_init_threads (SCM_STACKITEM *i) |
scm_init_threads (SCM_STACKITEM *i) |
144 |
{ |
{ |
145 |
scm_tc16_thread = scm_make_smob_type ("thread", 0); |
scm_tc16_thread = scm_make_smob_type ("thread", 0); |
146 |
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m)); |
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (scm_t_mutex)); |
147 |
scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c)); |
scm_tc16_condvar = scm_make_smob_type ("condition-variable", |
148 |
|
sizeof (scm_t_condvar)); |
149 |
|
|
150 |
#include "libguile/threads.x" |
#include "libguile/threads.x" |
151 |
/* Initialize implementation specific details of the threads support */ |
/* Initialize implementation specific details of the threads support */ |