version 1.31, 2006/10/21 22:13:49
|
version 1.36, 2007/04/01 13:31:26
|
Line 1
|
Line 1
|
/* signal handling |
/* signal handling |
|
|
Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Line 41 typedef struct sigaltstack stack_t;
|
Line 41 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 142 static void fpe_handler(int sig, siginfo
|
Line 142 static void fpe_handler(int sig, siginfo
|
|
|
switch(info->si_code) { |
switch(info->si_code) { |
#ifdef FPE_INTDIV |
#ifdef FPE_INTDIV |
case FPE_INTDIV: code=-10; break; /* integer divide by zero */ |
case FPE_INTDIV: code=BALL_DIVZERO; break; |
#endif |
#endif |
#ifdef FPE_INTOVF |
#ifdef FPE_INTOVF |
case FPE_INTOVF: code=-11; break; /* integer overflow */ |
case FPE_INTOVF: code=BALL_RESULTRANGE; break; /* integer overflow */ |
#endif |
#endif |
#ifdef FPE_FLTDIV |
#ifdef FPE_FLTDIV |
case FPE_FLTDIV: code=-42; break; /* floating point divide by zero */ |
case FPE_FLTDIV: code=-42; break; /* floating point divide by zero */ |
Line 415 void install_signal_handlers(void)
|
Line 415 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); |
} |
} |
|
#if defined(HAS_FILE) || !defined(STANDALONE) |
if (debug) |
if (debug) |
fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval)); |
fprintf(stderr,"sigaltstack: %s\n",strerror(sas_retval)); |
#endif |
#endif |
|
#endif |
|
|
#define DIM(X) (sizeof (X) / sizeof *(X)) |
#define DIM(X) (sizeof (X) / sizeof *(X)) |
/* |
/* |