version 1.34, 2007/03/25 21:30:59
|
version 1.48, 2012/03/23 22:39:00
|
Line 1
|
Line 1
|
/* signal handling |
/* signal handling |
|
|
Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2011 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Gforth is free software; you can redistribute it and/or |
Gforth is free software; you can redistribute it and/or |
modify it under the terms of the GNU General Public License |
modify it under the terms of the GNU General Public License |
as published by the Free Software Foundation; either version 2 |
as published by the Free Software Foundation, either version 3 |
of the License, or (at your option) any later version. |
of the License, or (at your option) any later version. |
|
|
This program is distributed in the hope that it will be useful, |
This program is distributed in the hope that it will be useful, |
Line 15
|
Line 15
|
GNU General Public License for more details. |
GNU General Public License for more details. |
|
|
You should have received a copy of the GNU General Public License |
You should have received a copy of the GNU General Public License |
along with this program; if not, write to the Free Software |
along with this program; if not, see http://www.gnu.org/licenses/. |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
*/ |
*/ |
|
|
Line 30
|
Line 29
|
#if !defined(apollo) && !defined(MSDOS) |
#if !defined(apollo) && !defined(MSDOS) |
#include <sys/ioctl.h> |
#include <sys/ioctl.h> |
#endif |
#endif |
/* #include <asm/signal.h> */ |
|
#include <sys/types.h> |
#include <sys/types.h> |
#include <signal.h> |
#include <signal.h> |
|
#include <termios.h> |
#include "io.h" |
#include "io.h" |
|
|
|
#ifdef HAS_DEBUG |
|
extern int debug; |
|
# define debugp(x...) do { if (debug) fprintf(x); } while (0) |
|
#else |
|
# define perror(x...) |
|
# define fprintf(x...) |
|
# define debugp(x...) |
|
#endif |
|
|
#ifndef HAVE_STACK_T |
#ifndef HAVE_STACK_T |
/* Darwin uses "struct sigaltstack" instead of "stack_t" */ |
/* Darwin uses "struct sigaltstack" instead of "stack_t" */ |
typedef struct sigaltstack stack_t; |
typedef struct sigaltstack stack_t; |
#endif |
#endif |
|
|
#define DEFAULTCOLS 80 |
#define DEFAULTCOLS 80 |
#if defined(MSDOS) || defined (_WIN32) |
#if defined(MSDOS) || defined (_WIN32) || defined (__CYGWIN__) |
#define DEFAULTROWS 25 |
#define DEFAULTROWS 25 |
#else |
#else |
#define DEFAULTROWS 24 |
#define DEFAULTROWS 24 |
Line 93 graceful_exit (int sig)
|
Line 101 graceful_exit (int sig)
|
exit (0x80|sig); |
exit (0x80|sig); |
} |
} |
|
|
jmp_buf throw_jmp_buf; |
__thread jmp_buf * throw_jmp_handler; |
|
|
void throw(int code) |
void throw(int code) |
{ |
{ |
longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */ |
debugp(stderr,"\nthrow code %d to %p\n", code, *throw_jmp_handler); |
|
longjmp(*throw_jmp_handler,code); /* !! or use siglongjmp ? */ |
} |
} |
|
|
static void |
static void |
signal_throw(int sig) |
signal_throw(int sig) |
{ |
{ |
int code; |
int code; |
|
debugp(stderr,"\ncaught signal %d\n", sig); |
|
|
switch (sig) { |
switch (sig) { |
case SIGINT: code=-28; break; |
case SIGINT: code=-28; break; |
Line 132 signal_throw(int sig)
|
Line 142 signal_throw(int sig)
|
static void |
static void |
sigaction_throw(int sig, siginfo_t *info, void *_) |
sigaction_throw(int sig, siginfo_t *info, void *_) |
{ |
{ |
|
debugp(stderr,"\nsigaction_throw %d 0x%p 0x%p\n", sig, info, _); |
signal_throw(sig); |
signal_throw(sig); |
} |
} |
|
|
Line 140 static void fpe_handler(int sig, siginfo
|
Line 151 static void fpe_handler(int sig, siginfo
|
{ |
{ |
int code; |
int code; |
|
|
|
debugp(stderr,"\nfpe_handler %d %x %x\n", sig, info, _); |
|
|
switch(info->si_code) { |
switch(info->si_code) { |
#ifdef FPE_INTDIV |
#ifdef FPE_INTDIV |
case FPE_INTDIV: code=BALL_DIVZERO; break; |
case FPE_INTDIV: code=BALL_DIVZERO; break; |
Line 186 static void segv_handler(int sig, siginf
|
Line 199 static void segv_handler(int sig, siginf
|
Address addr=info->si_addr; |
Address addr=info->si_addr; |
ImageHeader *h=gforth_header; |
ImageHeader *h=gforth_header; |
|
|
|
debugp(stderr,"\nsegv_handler %d 0x%p 0x%p\n", sig, info, _); |
|
|
if (JUSTUNDER(addr, h->data_stack_base)) |
if (JUSTUNDER(addr, h->data_stack_base)) |
code=-3; |
code=-3; |
else if (JUSTOVER(addr, NEXTPAGE(h->data_stack_base+h->data_stack_size))) |
else if (JUSTOVER(addr, NEXTPAGE(h->data_stack_base+h->data_stack_size))) |
Line 232 void get_winsize()
|
Line 247 void get_winsize()
|
#endif |
#endif |
if (rows==0) |
if (rows==0) |
rows=DEFAULTROWS; |
rows=DEFAULTROWS; |
if (rows==0) |
if (cols==0) |
cols=DEFAULTCOLS; |
cols=DEFAULTCOLS; |
} |
} |
|
|
Line 401 void install_signal_handlers(void)
|
Line 416 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 |
#if defined(SIGSTKSZ) && defined(HAS_SIGALTSTACK) |
stack_t sigstack; |
stack_t sigstack; |
int sas_retval=-1; |
int sas_retval=-1; |
|
|
Line 415 void install_signal_handlers(void)
|
Line 430 void install_signal_handlers(void)
|
sigstack.ss_flags=0; |
sigstack.ss_flags=0; |
sas_retval=sigaltstack(&sigstack,(stack_t *)0); |
sas_retval=sigaltstack(&sigstack,(stack_t *)0); |
} |
} |
#ifdef HAS_FILE |
#if defined(HAS_FILE) || !defined(STANDALONE) |
if (debug) |
debugp(stderr,"sigaltstack: %s\n",strerror(sas_retval)); |
fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval)); |
|
#endif |
#endif |
#endif |
#endif |
|
|