--- gforth/engine/signals.c 2012/03/23 22:39:00 1.48 +++ gforth/engine/signals.c 2012/07/20 19:34:27 1.51 @@ -101,7 +101,7 @@ graceful_exit (int sig) exit (0x80|sig); } -__thread jmp_buf * throw_jmp_handler; +PER_THREAD jmp_buf * throw_jmp_handler; void throw(int code) { @@ -142,7 +142,7 @@ signal_throw(int sig) static void sigaction_throw(int sig, siginfo_t *info, void *_) { - debugp(stderr,"\nsigaction_throw %d 0x%p 0x%p\n", sig, info, _); + debugp(stderr,"\nsigaction_throw %d %p %p\n", sig, info, _); signal_throw(sig); } @@ -192,26 +192,27 @@ static void fpe_handler(int sig, siginfo #define JUSTOVER(addr1,addr2) (((UCell)((addr1)-(addr2)))si_addr; - ImageHeader *h=gforth_header; - debugp(stderr,"\nsegv_handler %d 0x%p 0x%p\n", sig, info, _); + debugp(stderr,"\nsegv_handler %d %p %p @%p\n", sig, info, _, addr); - if (JUSTUNDER(addr, h->data_stack_base)) + if (JUSTUNDER(addr, NEXTPAGE3(gforth_UP))) code=-3; - else if (JUSTOVER(addr, NEXTPAGE(h->data_stack_base+h->data_stack_size))) + else if (JUSTOVER(addr, NEXTPAGE(gforth_UP->sp0))) code=-4; - else if (JUSTUNDER(addr, h->return_stack_base)) + else if (JUSTUNDER(addr, NEXTPAGE2(gforth_UP->sp0))) code=-5; - else if (JUSTOVER(addr, NEXTPAGE(h->return_stack_base+h->return_stack_size))) + else if (JUSTOVER(addr, NEXTPAGE(gforth_UP->rp0))) code=-6; - else if (JUSTUNDER(addr, h->fp_stack_base)) + else if (JUSTUNDER(addr, NEXTPAGE2(gforth_UP->rp0))) code=-44; - else if (JUSTOVER(addr, NEXTPAGE(h->fp_stack_base+h->fp_stack_size))) + else if (JUSTOVER(addr, NEXTPAGE(gforth_UP->fp0))) code=-45; throw(code); } @@ -416,7 +417,9 @@ void install_signal_handlers(void) }; int i; void (*throw_handler)() = die_on_signal ? graceful_exit : signal_throw; -#if defined(SIGSTKSZ) && defined(HAS_SIGALTSTACK) +#if 0 + /* sigaltstack is now called by gforth_stacks() */ +#if defined(SIGSTKSZ) stack_t sigstack; int sas_retval=-1; @@ -434,6 +437,7 @@ void install_signal_handlers(void) debugp(stderr,"sigaltstack: %s\n",strerror(sas_retval)); #endif #endif +#endif #define DIM(X) (sizeof (X) / sizeof *(X)) /*