Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing usec calculation in sexp_wait_on_single_thread

Browse source
This commit is contained in:
Alex Shinn 2010-08-27 08:54:49 +09:00
parent 280d0dc7b3
commit c712c0823f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/18/threads.c
View file

@ -262,6 +262,8 @@ void sexp_wait_on_single_thread (sexp ctx) {
usecs = (sexp_context_timeval(ctx).tv_sec - tval.tv_sec) * 1000000; usecs = (sexp_context_timeval(ctx).tv_sec - tval.tv_sec) * 1000000;
if (tval.tv_usec < sexp_context_timeval(ctx).tv_usec) if (tval.tv_usec < sexp_context_timeval(ctx).tv_usec)
usecs += sexp_context_timeval(ctx).tv_usec - tval.tv_usec; usecs += sexp_context_timeval(ctx).tv_usec - tval.tv_usec;
else if (usecs > 0)
usecs -= tval.tv_usec - sexp_context_timeval(ctx).tv_usec;
usleep(usecs); usleep(usecs);
} }