gforth/engine/signals.c - diff

Return to signals.c CVS log

Up to [gforth] / gforth / engine

version 1.18, 2002/11/02 15:26:03	version 1.23, 2003/02/01 14:28:07
Line 21	Line 21
*/	*/


#define _GNU_SOURCE	#include "config.h"
	#include "forth.h"
#include <stdio.h>	#include <stdio.h>
#include <setjmp.h>	#include <setjmp.h>
#include <string.h>	#include <string.h>
Line 31	Line 31
#include <sys/ioctl.h>	#include <sys/ioctl.h>
#endif	#endif
/* #include <asm/signal.h> */	/* #include <asm/signal.h> */
	#include <sys/types.h>
#include <signal.h>	#include <signal.h>
#include "config.h"
#include "forth.h"
#include "io.h"	#include "io.h"

	#ifndef HAVE_STACK_T
	/* Darwin uses "struct sigaltstack" instead of "stack_t" */
	typedef struct sigaltstack stack_t;
	#endif

#define DEFAULTCOLS 80	#define DEFAULTCOLS 80
#if defined(MSDOS) \|\| defined (_WIN32)	#if defined(MSDOS) \|\| defined (_WIN32)
Line 371 void install_signal_handlers(void)	Line 374 void install_signal_handlers(void)
int sas_retval=-1;	int sas_retval=-1;

sigstack.ss_size=SIGSTKSZ;	sigstack.ss_size=SIGSTKSZ;
if ((sigstack.ss_sp = my_alloc(sigstack.ss_size)) != NULL) {	/* Actually the stack should only be ss_size large, and according to
	SUSv2 ss_sp should point to the start of the stack, but
	unfortunately Irix 6.5 (at least) expects ss_sp to point to the
	end, so we work around this issue by accomodating everyone. */
	if ((sigstack.ss_sp = my_alloc(sigstack.ss_size*2)) != NULL) {
	sigstack.ss_sp += sigstack.ss_size;
sigstack.ss_flags=0;	sigstack.ss_flags=0;
sas_retval=sigaltstack(&sigstack,(stack_t *)0);	sas_retval=sigaltstack(&sigstack,(stack_t *)0);
}	}