--- gforth/engine/signals.c	2007/12/16 15:22:05	1.37
+++ gforth/engine/signals.c	2012/03/23 22:39:00	1.48
@@ -1,12 +1,12 @@
 /* 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.
 
   Gforth is free software; you can redistribute it and/or
   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.
 
   This program is distributed in the hope that it will be useful,
@@ -15,8 +15,7 @@
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
-  along with this program; if not, write to the Free Software
-  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
+  along with this program; if not, see http://www.gnu.org/licenses/.
 
 */
 
@@ -30,11 +29,20 @@
 #if !defined(apollo) && !defined(MSDOS)
 #include <sys/ioctl.h>
 #endif
-/* #include <asm/signal.h> */
 #include <sys/types.h>
 #include <signal.h>
+#include <termios.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
 /* Darwin uses "struct sigaltstack" instead of "stack_t" */
 typedef struct sigaltstack stack_t;
@@ -93,17 +101,19 @@ graceful_exit (int sig)
   exit (0x80|sig);
 }
 
-jmp_buf throw_jmp_buf;
+__thread jmp_buf * throw_jmp_handler;
 
 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 
 signal_throw(int sig)
 {
   int code;
+  debugp(stderr,"\ncaught signal %d\n", sig);
 
   switch (sig) {
   case SIGINT: code=-28; break;
@@ -132,6 +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, _);
   signal_throw(sig);
 }
 
@@ -140,6 +151,8 @@ static void fpe_handler(int sig, siginfo
 {
   int code;
 
+  debugp(stderr,"\nfpe_handler %d %x %x\n", sig, info, _);
+
   switch(info->si_code) {
 #ifdef FPE_INTDIV
   case FPE_INTDIV: code=BALL_DIVZERO; break;
@@ -186,6 +199,8 @@ static void segv_handler(int sig, siginf
   Address addr=info->si_addr;
   ImageHeader *h=gforth_header;
 
+  debugp(stderr,"\nsegv_handler %d 0x%p 0x%p\n", sig, info, _);
+
   if (JUSTUNDER(addr, h->data_stack_base))
     code=-3;
   else if (JUSTOVER(addr, NEXTPAGE(h->data_stack_base+h->data_stack_size)))
@@ -401,7 +416,7 @@ void install_signal_handlers(void)
   };
   int i;
   void (*throw_handler)() = die_on_signal ? graceful_exit : signal_throw;
-#ifdef SIGSTKSZ 
+#if defined(SIGSTKSZ) && defined(HAS_SIGALTSTACK)
   stack_t sigstack;
   int sas_retval=-1;
 
@@ -416,8 +431,7 @@ void install_signal_handlers(void)
     sas_retval=sigaltstack(&sigstack,(stack_t *)0);
   }
 #if defined(HAS_FILE) || !defined(STANDALONE)
-  if (debug)
-    fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval));
+  debugp(stderr,"sigaltstack: %s\n",strerror(sas_retval));
 #endif
 #endif