mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* scmsigs.c: fix the definition of orig_handlers for the case

Browse source 
that HAVE_SIGACTION is not defined (thanks to
	Kalle Olavi Niemitalo).
This commit is contained in:
Gary Houston 2000-05-01 22:19:33 +00:00
parent 7f5fa419d3
commit da6e81b6b5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/scmsigs.c
View file

@ -114,7 +114,7 @@ static SCM *signal_handlers;
#ifdef HAVE_SIGACTION #ifdef HAVE_SIGACTION
static struct sigaction orig_handlers[NSIG]; static struct sigaction orig_handlers[NSIG];
#else #else
static SIGRETTYPE (*orig_handlers)(int)[NSIG]; static SIGRETTYPE (*orig_handlers[NSIG])(int);
#endif #endif
static SIGRETTYPE static SIGRETTYPE
@ -325,7 +325,7 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
orig_handlers[csig] = old_chandler; orig_handlers[csig] = old_chandler;
} }
if (old_chandler == SIG_DFL || old_chandler == SIG_IGN) if (old_chandler == SIG_DFL || old_chandler == SIG_IGN)
old_handler = scm_long2num (old_chandler); old_handler = scm_long2num ((long) old_chandler);
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
return scm_cons (old_handler, SCM_MAKINUM (0)); return scm_cons (old_handler, SCM_MAKINUM (0));
#endif #endif