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

was updating sexp_context_timeout for wrong context in sexp_insert_timed

Browse source
This commit is contained in:
Alex Shinn 2010-08-26 20:47:53 +09:00
parent 0bfb97851b
commit 148528ecab
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -97,22 +97,22 @@ static void sexp_insert_timed (sexp ctx, sexp thread, sexp timeout) {
#endif #endif
sexp ls1=SEXP_NULL, ls2=sexp_global(ctx, SEXP_G_THREADS_PAUSED); sexp ls1=SEXP_NULL, ls2=sexp_global(ctx, SEXP_G_THREADS_PAUSED);
if (sexp_integerp(timeout) || sexp_flonump(timeout)) if (sexp_integerp(timeout) || sexp_flonump(timeout))
gettimeofday(&sexp_context_timeval(ctx), NULL); gettimeofday(&sexp_context_timeval(thread), NULL);
if (sexp_integerp(timeout)) { if (sexp_integerp(timeout)) {
sexp_context_timeval(ctx).tv_sec += sexp_unbox_fixnum(timeout); sexp_context_timeval(thread).tv_sec += sexp_unbox_fixnum(timeout);
#if SEXP_USE_FLONUMS #if SEXP_USE_FLONUMS
} else if (sexp_flonump(timeout)) { } else if (sexp_flonump(timeout)) {
d = sexp_flonum_value(timeout); d = sexp_flonum_value(timeout);
sexp_context_timeval(ctx).tv_sec += trunc(d); sexp_context_timeval(thread).tv_sec += trunc(d);
sexp_context_timeval(ctx).tv_usec += (d-trunc(d))*1000000; sexp_context_timeval(thread).tv_usec += (d-trunc(d))*1000000;
#endif #endif
} else { } else {
sexp_context_timeval(ctx).tv_sec = 0; sexp_context_timeval(thread).tv_sec = 0;
sexp_context_timeval(ctx).tv_usec = 0; sexp_context_timeval(thread).tv_usec = 0;
} }
if (sexp_numberp(timeout)) if (sexp_numberp(timeout))
while (sexp_pairp(ls2) while (sexp_pairp(ls2)
&& sexp_context_before(sexp_car(ls2), sexp_context_timeval(ctx))) && sexp_context_before(sexp_car(ls2), sexp_context_timeval(thread)))
ls1=ls2, ls2=sexp_cdr(ls2); ls1=ls2, ls2=sexp_cdr(ls2);
else else
while (sexp_pairp(ls2) && sexp_context_timeval(sexp_car(ls2)).tv_sec) while (sexp_pairp(ls2) && sexp_context_timeval(sexp_car(ls2)).tv_sec)