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

Fixes in unixint.c (J James)

Browse source 
* Return without a value in a C function.
* Conditionalize a text message that is only used with sigprocmask.
* Replace a use of mysignal with signal()
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-19 22:26:42 +01:00
parent a50a496f2b
commit def35532a6
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/unixint.d
View file

@ -258,7 +258,7 @@ handler_fn_protype(lisp_signal_handler, int sig, siginfo_t *info, void *aux)
cl_env_ptr the_env = ecl_process_env();
/* The lisp environment might not be installed. */
if (the_env == NULL)
return;
return Cnil;
#if defined(ECL_THREADS) && !defined(ECL_MS_WINDOWS_HOST)
if (sig == ecl_get_option(ECL_OPT_THREAD_INTERRUPT_SIGNAL)) {
return pop_signal(the_env);
@ -542,12 +542,14 @@ handler_fn_protype(sigsegv_handler, int sig, siginfo_t *info, void *aux)
"\n;;;\n;;; Stack overflow.\n"
";;; Jumping to the outermost toplevel prompt\n"
";;;\n\n";
#ifndef HAVE_SIGPROCMASK
static const char *segv_msg =
"\n;;;\n"
";;; Detected access to protected memory, "
"also kwown as 'segmentation fault'.\n"
";;; Jumping to the outermost toplevel prompt\n"
";;;\n\n";
#endif
cl_env_ptr the_env;
reinstall_signal(sig, sigsegv_handler);
if (!ecl_get_option(ECL_OPT_BOOTED)) {
@ -688,7 +690,7 @@ si_catch_signal(cl_object code, cl_object boolean)
for (i = 0; known_signals[i].code >= 0; i++) {
if (known_signals[i].code == code_int) {
if (Null(boolean))
mysignal(code_int, SIG_DFL);
signal(code_int, SIG_DFL);
else if (code_int == SIGSEGV)
mysignal(code_int, sigsegv_handler);
#ifdef SIGBUS