--- gforth/engine/signals.c	2011/11/16 01:25:58	1.41
+++ gforth/engine/signals.c	2012/03/23 19:53:37	1.45
@@ -1,6 +1,6 @@
 /* signal handling
 
-  Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007 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.
 
@@ -34,6 +34,15 @@
 #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;
@@ -92,10 +101,11 @@ graceful_exit (int sig)
   exit (0x80|sig);
 }
 
-jmp_buf throw_jmp_buf;
+__thread jmp_buf throw_jmp_buf;
 
 void throw(int code)
 {
+  debugp(stderr,"\nthrow code %d to %lx\n", code, (intptr_t)throw_jmp_buf);
   longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */
 }
 
@@ -103,6 +113,7 @@ static void
 signal_throw(int sig)
 {
   int code;
+  debugp(stderr,"\ncaught signal %d\n", sig);
 
   switch (sig) {
   case SIGINT: code=-28; break;
@@ -131,6 +142,7 @@ signal_throw(int sig)
 static void
 sigaction_throw(int sig, siginfo_t *info, void *_)
 {
+  debugp(stderr,"\nsigaction_throw %d 0x%lx 0x%lx\n", sig, (intptr_t)info, (intptr_t)_);
   signal_throw(sig);
 }
 
@@ -139,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;
@@ -185,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%lx 0x%lx\n", sig, (intptr_t)info, (intptr_t)_);
+
   if (JUSTUNDER(addr, h->data_stack_base))
     code=-3;
   else if (JUSTOVER(addr, NEXTPAGE(h->data_stack_base+h->data_stack_size)))
@@ -415,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