mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

* Makefile.am (modinclude_HEADERS): Added threads-plugin.h.

Browse source 
(EXTRA_DIST): Added threads-plugin.c.

* threads-plugin.h, threads-plugin.c: New files.

* threads.h: #include "libguile/threads-plugin.h".

* threads.c: #include "libguile/threads-plugin.c".

* pthread-threads.c: Temporarily remove debugging functions.

* threads.c, threads.h (scm_yield): Added back.
This commit is contained in:
Mikael Djurfeldt 2002-12-18 13:42:58 +00:00
parent 62d4fd94a6
commit 29717c8931
8 changed files with 349 additions and 322 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/threads.c
View file

@ -460,6 +460,15 @@ SCM_DEFINE (scm_call_with_new_thread, "call-with-new-thread", 2, 0, 0,
}
#undef FUNC_NAME
SCM_DEFINE (scm_yield, "yield", 0, 0, 0,
(),
"Move the calling thread to the end of the scheduling queue.")
#define FUNC_NAME s_scm_yield
{
return SCM_BOOL (scm_thread_yield);
}
#undef FUNC_NAME
SCM_DEFINE (scm_join_thread, "join-thread", 1, 0, 0,
(SCM thread),
"Suspend execution of the calling thread until the target @var{thread} "
@ -1312,6 +1321,7 @@ scm_t_rec_mutex scm_i_defer_mutex;
#ifdef USE_PTHREAD_THREADS
#include "libguile/pthread-threads.c"
#endif
#include "libguile/threads-plugin.c"
/*** Initialization */