--- gforth/engine/signals.c	2006/10/21 19:22:03	1.30
+++ gforth/engine/signals.c	2012/07/20 19:34:27	1.51
@@ -1,12 +1,12 @@
 /* signal handling
 
-  Copyright (C) 1995,1996,1997,1998,2000,2003 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,18 +29,27 @@
 #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;
 #endif
 
 #define DEFAULTCOLS 80
-#if defined(MSDOS) || defined (_WIN32)
+#if defined(MSDOS) || defined (_WIN32) || defined (__CYGWIN__)
 #define DEFAULTROWS 25
 #else
 #define DEFAULTROWS 24
@@ -93,12 +101,19 @@ graceful_exit (int sig)
   exit (0x80|sig);
 }
 
-jmp_buf throw_jmp_buf;
+PER_THREAD jmp_buf * throw_jmp_handler;
+
+void throw(int code)
+{
+  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;
@@ -120,13 +135,14 @@ signal_throw(int sig)
     sigprocmask(SIG_SETMASK, &emptyset, NULL);
   }
 #endif
-  longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */
+  throw(code);
 }
 
 #ifdef SA_SIGINFO
 static void
 sigaction_throw(int sig, siginfo_t *info, void *_)
 {
+  debugp(stderr,"\nsigaction_throw %d %p %p\n", sig, info, _);
   signal_throw(sig);
 }
 
@@ -135,12 +151,14 @@ 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=-10; break; /* integer divide by zero */
+  case FPE_INTDIV: code=BALL_DIVZERO; break;
 #endif
 #ifdef FPE_INTOVF
-  case FPE_INTOVF: code=-11; break; /* integer overflow */
+  case FPE_INTOVF: code=BALL_RESULTRANGE; break; /* integer overflow */
 #endif
 #ifdef FPE_FLTDIV
   case FPE_FLTDIV: code=-42; break; /* floating point divide by zero */
@@ -160,7 +178,7 @@ static void fpe_handler(int sig, siginfo
 #endif
   default: code=-55; break;
   }
-  longjmp(throw_jmp_buf,code);
+  throw(code);
 }
 
 
@@ -174,26 +192,29 @@ static void fpe_handler(int sig, siginfo
 #define JUSTOVER(addr1,addr2) (((UCell)((addr1)-(addr2)))<SPILLAGE)
 
 #define NEXTPAGE(addr) ((Address)((((UCell)(addr)-1)&-pagesize)+pagesize))
+#define NEXTPAGE2(addr) ((Address)((((UCell)(addr)-1)&-pagesize)+2*pagesize))
+#define NEXTPAGE3(addr) ((Address)((((UCell)(addr)-1)&-pagesize)+3*pagesize))
 
 static void segv_handler(int sig, siginfo_t *info, void *_)
 {
   int code=-9;
   Address addr=info->si_addr;
-  ImageHeader *h=gforth_header;
 
-  if (JUSTUNDER(addr, h->data_stack_base))
+  debugp(stderr,"\nsegv_handler %d %p %p @%p\n", sig, info, _, addr);
+
+  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;
-  longjmp(throw_jmp_buf,code);
+  throw(code);
 }
 
 #endif /* defined(SA_SIGINFO) */
@@ -227,7 +248,7 @@ void get_winsize()
 #endif
   if (rows==0)
     rows=DEFAULTROWS;
-  if (rows==0)
+  if (cols==0)
     cols=DEFAULTCOLS;
 }
 
@@ -396,7 +417,9 @@ void install_signal_handlers(void)
   };
   int i;
   void (*throw_handler)() = die_on_signal ? graceful_exit : signal_throw;
-#ifdef SIGSTKSZ 
+#if 0
+  /* sigaltstack is now called by gforth_stacks() */
+#if defined(SIGSTKSZ)
   stack_t sigstack;
   int sas_retval=-1;
 
@@ -410,8 +433,10 @@ void install_signal_handlers(void)
     sigstack.ss_flags=0;
     sas_retval=sigaltstack(&sigstack,(stack_t *)0);
   }
-  if (debug)
-    fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval));
+#if defined(HAS_FILE) || !defined(STANDALONE)
+  debugp(stderr,"sigaltstack: %s\n",strerror(sas_retval));
+#endif
+#endif
 #endif
 
 #define DIM(X)		(sizeof (X) / sizeof *(X))