version 1.16, 2002/10/26 12:48:25
|
version 1.30, 2006/10/21 19:22:03
|
Line 1
|
Line 1
|
/* signal handling |
/* signal handling |
|
|
Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Line 21
|
Line 21
|
*/ |
*/ |
|
|
|
|
#define _GNU_SOURCE |
#include "config.h" |
|
#include "forth.h" |
#include <stdio.h> |
#include <stdio.h> |
#include <setjmp.h> |
#include <setjmp.h> |
#include <string.h> |
#include <string.h> |
Line 31
|
Line 31
|
#include <sys/ioctl.h> |
#include <sys/ioctl.h> |
#endif |
#endif |
/* #include <asm/signal.h> */ |
/* #include <asm/signal.h> */ |
|
#include <sys/types.h> |
#include <signal.h> |
#include <signal.h> |
#include "config.h" |
|
#include "forth.h" |
|
#include "io.h" |
#include "io.h" |
|
|
|
#ifndef HAVE_STACK_T |
|
/* Darwin uses "struct sigaltstack" instead of "stack_t" */ |
|
typedef struct sigaltstack stack_t; |
|
#endif |
|
|
#define DEFAULTCOLS 80 |
#define DEFAULTCOLS 80 |
#if defined(MSDOS) || defined (_WIN32) |
#if defined(MSDOS) || defined (_WIN32) |
Line 52 UCell rows=DEFAULTROWS;
|
Line 55 UCell rows=DEFAULTROWS;
|
/* systems that don't have SA_NODEFER hopefully don't block anyway */ |
/* systems that don't have SA_NODEFER hopefully don't block anyway */ |
#endif |
#endif |
|
|
|
#ifndef SA_ONSTACK |
|
#define SA_ONSTACK 0 |
|
#endif |
|
|
#ifdef SA_SIGINFO |
#ifdef SA_SIGINFO |
void install_signal_handler(int sig, void (*handler)(int, siginfo_t *, void *)) |
void install_signal_handler(int sig, void (*handler)(int, siginfo_t *, void *)) |
/* installs three-argument signal handler for sig */ |
/* installs three-argument signal handler for sig */ |
Line 65 void install_signal_handler(int sig, voi
|
Line 72 void install_signal_handler(int sig, voi
|
} |
} |
#endif |
#endif |
|
|
typedef void Sigfunc(int); |
|
|
|
Sigfunc *bsd_signal(int signo, Sigfunc *func) |
Sigfunc *bsd_signal(int signo, Sigfunc *func) |
{ |
{ |
struct sigaction act, oact; |
struct sigaction act, oact; |
|
|
act.sa_handler=func; |
act.sa_handler=func; |
sigemptyset(&act.sa_mask); |
sigemptyset(&act.sa_mask); |
act.sa_flags=SA_NODEFER|SA_ONSTACK; |
act.sa_flags=SA_NODEFER; /* SA_ONSTACK does not work for graceful_exit */ |
if (sigaction(signo,&act,&oact) < 0) |
if (sigaction(signo,&act,&oact) < 0) |
return SIG_ERR; |
return SIG_ERR; |
else |
else |
Line 102 signal_throw(int sig)
|
Line 107 signal_throw(int sig)
|
case SIGBUS: code=-23; break; |
case SIGBUS: code=-23; break; |
#endif |
#endif |
case SIGSEGV: code=-9; break; |
case SIGSEGV: code=-9; break; |
|
#ifdef SIGPIPE |
|
case SIGPIPE: code=-2049; break; |
|
#endif |
default: code=-256-sig; break; |
default: code=-256-sig; break; |
} |
} |
|
#ifdef __CYGWIN__ |
|
/* the SA_NODEFER apparently does not work on Cygwin 1.3.18(0.69/3/2) */ |
|
{ |
|
sigset_t emptyset; |
|
sigemptyset(&emptyset); |
|
sigprocmask(SIG_SETMASK, &emptyset, NULL); |
|
} |
|
#endif |
longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */ |
longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */ |
} |
} |
|
|
#ifdef SA_SIGINFO |
#ifdef SA_SIGINFO |
|
static void |
|
sigaction_throw(int sig, siginfo_t *info, void *_) |
|
{ |
|
signal_throw(sig); |
|
} |
|
|
static void fpe_handler(int sig, siginfo_t *info, void *_) |
static void fpe_handler(int sig, siginfo_t *info, void *_) |
/* handler for SIGFPE */ |
/* handler for SIGFPE */ |
{ |
{ |
Line 120 static void fpe_handler(int sig, siginfo
|
Line 142 static void fpe_handler(int sig, siginfo
|
#ifdef FPE_INTOVF |
#ifdef FPE_INTOVF |
case FPE_INTOVF: code=-11; break; /* integer overflow */ |
case FPE_INTOVF: code=-11; break; /* integer overflow */ |
#endif |
#endif |
|
#ifdef FPE_FLTDIV |
case FPE_FLTDIV: code=-42; break; /* floating point divide by zero */ |
case FPE_FLTDIV: code=-42; break; /* floating point divide by zero */ |
|
#endif |
|
#ifdef FPE_FLTOVF |
case FPE_FLTOVF: code=-43; break; /* floating point overflow */ |
case FPE_FLTOVF: code=-43; break; /* floating point overflow */ |
|
#endif |
|
#ifdef FPE_FLTUND |
case FPE_FLTUND: code=-54; break; /* floating point underflow */ |
case FPE_FLTUND: code=-54; break; /* floating point underflow */ |
|
#endif |
|
#ifdef FPE_FLTRES |
case FPE_FLTRES: code=-41; break; /* floating point inexact result */ |
case FPE_FLTRES: code=-41; break; /* floating point inexact result */ |
|
#endif |
#if 0 /* defined by Unix95, but unnecessary */ |
#if 0 /* defined by Unix95, but unnecessary */ |
case FPE_FLTINV: /* invalid floating point operation */ |
case FPE_FLTINV: /* invalid floating point operation */ |
case FPE_FLTSUB: /* subscript out of range */ |
case FPE_FLTSUB: /* subscript out of range */ |
Line 284 void install_signal_handlers(void)
|
Line 314 void install_signal_handlers(void)
|
}; |
}; |
#endif |
#endif |
|
|
|
static short async_sigs_to_throw [] = { |
|
#ifdef SIGINT |
|
SIGINT, |
|
#endif |
|
#ifdef SIGALRM |
|
SIGALRM, |
|
#endif |
|
#ifdef SIGPOLL |
|
SIGPOLL, |
|
#endif |
|
#ifdef SIGPROF |
|
SIGPROF, |
|
#endif |
|
#ifdef SIGURG |
|
SIGURG, |
|
#endif |
|
#ifdef SIGPIPE |
|
SIGPIPE, |
|
#endif |
|
#ifdef SIGUSR1 |
|
SIGUSR1, |
|
#endif |
|
#ifdef SIGUSR2 |
|
SIGUSR2, |
|
#endif |
|
#ifdef SIGVTALRM |
|
SIGVTALRM, |
|
#endif |
|
#ifdef SIGXFSZ |
|
SIGXFSZ, |
|
#endif |
|
}; |
|
|
static short sigs_to_throw [] = { |
static short sigs_to_throw [] = { |
#ifdef SIGBREAK |
#ifdef SIGBREAK |
SIGBREAK, |
SIGBREAK, |
#endif |
#endif |
#ifdef SIGINT |
|
SIGINT, |
|
#endif |
|
#ifdef SIGILL |
#ifdef SIGILL |
SIGILL, |
SIGILL, |
#endif |
#endif |
Line 306 void install_signal_handlers(void)
|
Line 366 void install_signal_handlers(void)
|
#ifdef SIGSEGV |
#ifdef SIGSEGV |
SIGSEGV, |
SIGSEGV, |
#endif |
#endif |
#ifdef SIGALRM |
|
SIGALRM, |
|
#endif |
|
#ifdef SIGPIPE |
|
SIGPIPE, |
|
#endif |
|
#ifdef SIGPOLL |
|
SIGPOLL, |
|
#endif |
|
#ifdef SIGPROF |
|
SIGPROF, |
|
#endif |
|
#ifdef SIGBUS |
#ifdef SIGBUS |
SIGBUS, |
SIGBUS, |
#endif |
#endif |
Line 327 void install_signal_handlers(void)
|
Line 375 void install_signal_handlers(void)
|
#ifdef SIGTRAP |
#ifdef SIGTRAP |
SIGTRAP, |
SIGTRAP, |
#endif |
#endif |
#ifdef SIGURG |
|
SIGURG, |
|
#endif |
|
#ifdef SIGUSR1 |
|
SIGUSR1, |
|
#endif |
|
#ifdef SIGUSR2 |
|
SIGUSR2, |
|
#endif |
|
#ifdef SIGVTALRM |
|
SIGVTALRM, |
|
#endif |
|
#ifdef SIGXFSZ |
|
SIGXFSZ, |
|
#endif |
|
}; |
}; |
|
|
static short sigs_to_quit [] = { |
static short sigs_to_quit [] = { |
#ifdef SIGQUIT |
#ifdef SIGQUIT |
SIGQUIT, |
SIGQUIT, |
Line 362 void install_signal_handlers(void)
|
Line 396 void install_signal_handlers(void)
|
}; |
}; |
int i; |
int i; |
void (*throw_handler)() = die_on_signal ? graceful_exit : signal_throw; |
void (*throw_handler)() = die_on_signal ? graceful_exit : signal_throw; |
|
#ifdef SIGSTKSZ |
stack_t sigstack; |
stack_t sigstack; |
int sas_retval=-1; |
int sas_retval=-1; |
|
|
sigstack.ss_size=SIGSTKSZ; |
sigstack.ss_size=SIGSTKSZ; |
if ((sigstack.ss_sp = my_alloc(sigstack.ss_size)) != NULL) { |
/* Actually the stack should only be ss_size large, and according to |
|
SUSv2 ss_sp should point to the start of the stack, but |
|
unfortunately Irix 6.5 (at least) expects ss_sp to point to the |
|
end, so we work around this issue by accomodating everyone. */ |
|
if ((sigstack.ss_sp = gforth_alloc(sigstack.ss_size*2)) != NULL) { |
|
sigstack.ss_sp += sigstack.ss_size; |
sigstack.ss_flags=0; |
sigstack.ss_flags=0; |
sas_retval=sigaltstack(&sigstack,(stack_t *)0); |
sas_retval=sigaltstack(&sigstack,(stack_t *)0); |
} |
} |
if (debug) |
if (debug) |
fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval)); |
fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval)); |
|
#endif |
|
|
#define DIM(X) (sizeof (X) / sizeof *(X)) |
#define DIM(X) (sizeof (X) / sizeof *(X)) |
/* |
/* |
Line 380 void install_signal_handlers(void)
|
Line 421 void install_signal_handlers(void)
|
*/ |
*/ |
for (i = 0; i < DIM (sigs_to_throw); i++) |
for (i = 0; i < DIM (sigs_to_throw); i++) |
bsd_signal(sigs_to_throw[i], throw_handler); |
bsd_signal(sigs_to_throw[i], throw_handler); |
|
for (i = 0; i < DIM (async_sigs_to_throw); i++) |
|
bsd_signal(async_sigs_to_throw[i], |
|
ignore_async_signals ? SIG_IGN : throw_handler); |
for (i = 0; i < DIM (sigs_to_quit); i++) |
for (i = 0; i < DIM (sigs_to_quit); i++) |
bsd_signal(sigs_to_quit [i], graceful_exit); |
bsd_signal(sigs_to_quit [i], graceful_exit); |
#ifdef SA_SIGINFO |
#ifdef SA_SIGINFO |
if (!die_on_signal) { |
if (!die_on_signal) { |
|
#ifdef SIGFPE |
install_signal_handler(SIGFPE, fpe_handler); |
install_signal_handler(SIGFPE, fpe_handler); |
|
#endif |
|
#ifdef SIGSEGV |
install_signal_handler(SIGSEGV, segv_handler); |
install_signal_handler(SIGSEGV, segv_handler); |
} |
|
#endif |
#endif |
|
/* use SA_ONSTACK for all signals that could come from executing |
|
wrong code */ |
|
#ifdef SIGILL |
|
install_signal_handler(SIGILL, sigaction_throw); |
|
#endif |
|
#ifdef SIGBUS |
|
install_signal_handler(SIGBUS, sigaction_throw); |
|
#endif |
|
#ifdef SIGTRAP |
|
install_signal_handler(SIGTRAP, sigaction_throw); |
|
#endif |
|
} |
|
#endif /* defined(SA_SIGINFO) */ |
#ifdef SIGCONT |
#ifdef SIGCONT |
bsd_signal(SIGCONT, termprep); |
bsd_signal(SIGCONT, termprep); |
#endif |
#endif |