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

* coop.c: Changed return type of usleep to int.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-04-20 00:39:15 +00:00
parent 64e121dca3
commit 2c4e1a3484
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
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.8 1998-04-12 23:34:40 mdj Exp $ */ /* $Id: coop.c,v 1.9 1998-04-20 00:39:15 mdj Exp $ */
/* Cooperative thread library, based on QuickThreads */ /* Cooperative thread library, based on QuickThreads */
@ -652,13 +652,15 @@ coop_sleephelp (sp, old, bolckq)
#ifdef GUILE_ISELECT #ifdef GUILE_ISELECT
void int
usleep (unsigned usec) usleep (unsigned usec)
{ {
struct timeval timeout; struct timeval timeout;
timeout.tv_sec = 0; timeout.tv_sec = 0;
timeout.tv_usec = usec; timeout.tv_usec = usec;
scm_internal_select (0, NULL, NULL, NULL, &timeout); scm_internal_select (0, NULL, NULL, NULL, &timeout);
return 0; /* Maybe we should calculate actual time slept,
but this is faster... :) */
} }
unsigned unsigned