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

changing sexp_call_sigaction to avoid casts

Browse source
This commit is contained in:
Alex Shinn 2012-07-21 17:27:09 +09:00
parent 1053d99084
commit 73e02601e4
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/signal.c
View file

@ -18,8 +18,7 @@ static void sexp_call_sigaction (int signum, siginfo_t *info, void *uctx) {
if (ctx) { if (ctx) {
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
sexp_global(ctx, SEXP_G_THREADS_SIGNALS) = sexp_global(ctx, SEXP_G_THREADS_SIGNALS) =
(sexp) ((sexp_uint_t)sexp_global(ctx, SEXP_G_THREADS_SIGNALS) sexp_make_fixnum((1UL<<signum) | sexp_unbox_fixnum(sexp_global(ctx, SEXP_G_THREADS_SIGNALS)));
| (sexp_uint_t)sexp_make_fixnum(1UL<<signum));
#else #else
handler = sexp_vector_ref(sexp_global(ctx, SEXP_G_SIGNAL_HANDLERS), handler = sexp_vector_ref(sexp_global(ctx, SEXP_G_SIGNAL_HANDLERS),
sexp_make_fixnum(signum)); sexp_make_fixnum(signum));