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

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-04-10 12:38:19 +00:00
parent 51523cd1f2
commit 3da01fa367
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-04-10 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* coop.c (mother): Handled EINTR (the wait has been interrupted by
a signal).
2000-04-07 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-04-07 Dirk Herrmann <D.Herrmann@tu-bs.de>
* __scm.h (SCM_WTA_DISPATCH_[012n]): To test whether a SCM value * __scm.h (SCM_WTA_DISPATCH_[012n]): To test whether a SCM value

7
libguile/coop.c
View file

@ -40,7 +40,7 @@
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
/* $Id: coop.c,v 1.23 2000-04-10 12:35:57 mdj Exp $ */ /* $Id: coop.c,v 1.24 2000-04-10 12:38:19 mdj Exp $ */
/* Cooperative thread library, based on QuickThreads */ /* Cooperative thread library, based on QuickThreads */
@ -560,11 +560,14 @@ static void *
dummy_start (void *coop_thread) dummy_start (void *coop_thread)
{ {
coop_t *t = (coop_t *) coop_thread; coop_t *t = (coop_t *) coop_thread;
int res;
t->sp = (qt_t *) (&t + COOP_STACK_ROOM); t->sp = (qt_t *) (&t + COOP_STACK_ROOM);
pthread_mutex_init (&t->dummy_mutex, NULL); pthread_mutex_init (&t->dummy_mutex, NULL);
pthread_mutex_lock (&t->dummy_mutex); pthread_mutex_lock (&t->dummy_mutex);
coop_child = 0; coop_child = 0;
pthread_cond_wait (&coop_cond_quit, &t->dummy_mutex); do
res = pthread_cond_wait (&coop_cond_quit, &t->dummy_mutex);
while (res == EINTR);
return 0; return 0;
} }