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

* iselect.c (coop_timout_qinsert): Moved to coop.c

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-12 00:34:19 +00:00
parent df26ebfdc9
commit dd276c8eb3
1 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/iselect.c
View file

@ -128,27 +128,6 @@ SELECT_TYPE rexceptfds;
when polling. */
static struct timeval timeout0;
/* Insert thread t into the ordered queue q.
q is ordered after wakeup_time. Threads which aren't sleeping but
waiting for I/O go last into the queue. */
static void
coop_timeout_qinsert (coop_q_t *q, coop_t *t)
{
coop_t *pred = &q->t;
int sec = t->wakeup_time.tv_sec;
int usec = t->wakeup_time.tv_usec;
while (pred->next != &q->t
&& pred->next->timeoutp
&& (pred->next->wakeup_time.tv_sec < sec
|| (pred->next->wakeup_time.tv_sec == sec
&& pred->next->wakeup_time.tv_usec < usec)))
pred = pred->next;
t->next = pred->next;
pred->next = t;
if (t->next == &q->t)
q->tail = t;
}
/* As select, but doesn't destroy the file descriptor sets passed as
arguments. The results are stored into the result sets. */
static int