mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +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
static struct sigaction orig_handlers[NSIG];
#else
static SIGRETTYPE (*orig_handlers)(int)[NSIG];
static SIGRETTYPE (*orig_handlers[NSIG])(int);
#endif
static SIGRETTYPE
@ -325,7 +325,7 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
orig_handlers[csig] = old_chandler;
}
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;
return scm_cons (old_handler, SCM_MAKINUM (0));
#endif