mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-20 14:10:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Catch additional signals (M.Goffioul)

Browse source
This commit is contained in:
jjgarcia 2004-12-15 13:08:13 +00:00
parent b969ac649c
commit bdc1894549
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/unixint.d
View file

@ -154,6 +154,14 @@ LONG WINAPI W32_exception_filter(struct _EXCEPTION_POINTERS* ep)
case EXCEPTION_FLT_STACK_CHECK:
handle_signal(SIGFPE);
break;
/* Catch segmentation fault */
case EXCEPTION_ACCESS_VIOLATION:
handle_signal(SIGSEGV);
break;
/* Catch illegal instruction */
case EXCEPTION_ILLEGAL_INSTRUCTION:
handle_signal(SIGILL);
break;
/* Do not catch anything else */
default:
excpt_result = EXCEPTION_CONTINUE_SEARCH;