mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 12:52:08 -08:00
Code Issues Projects Releases Packages Wiki Activity

si_trap_fpe can only be invoked when the environment has been set up.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-13 19:59:27 +02:00
parent edae4ae652
commit 1e284476bf
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/unixint.d
View file

@ -248,14 +248,16 @@ signal_catcher(int sig)
#ifdef GBC_BOEHM
int old_GC_enabled = GC_enabled();
#endif
if (!ecl_get_option(ECL_OPT_BOOTED)) {
mysignal(sig, signal_catcher);
return;
}
if (!ecl_interrupt_enable ||
(ecl_get_option(ECL_OPT_BOOTED) &&
ecl_symbol_value(@'si::*interrupt-enable*') == Cnil)) {
Null(ecl_symbol_value(@'si::*interrupt-enable*'))) {
mysignal(sig, signal_catcher);
cl_env.interrupt_pending = sig;
return;
}
mysignal(sig, signal_catcher);
#ifdef HAVE_SIGPROCMASK
CL_UNWIND_PROTECT_BEGIN {
#ifdef SA_SIGINFO
@ -456,7 +458,6 @@ init_unixint(int pass)
#ifdef SIGFPE
if (ecl_get_option(ECL_OPT_TRAP_SIGFPE)) {
mysignal(SIGFPE, signal_catcher);
si_trap_fpe(Ct, Ct);
}
#endif
#if defined(ECL_THREADS) && !defined(_MSC_VER) && !defined(mingw32)
@ -475,6 +476,7 @@ init_unixint(int pass)
si_Xmake_constant(name, MAKE_FIXNUM(known_signals[i].code));
}
ECL_SET(@'si::*interrupt-enable*', Ct);
si_trap_fpe(Ct, Ct);
ecl_interrupt_enable = 1;
}
ecl_interrupt_enable = 1;
}