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

(scm_sigaction_for_thread): Use scm_to_long for

Browse source 
sa_handler, needs to be a long on 64-bit systems where int is only 32
bits.
This commit is contained in:
Kevin Ryde 2005-01-24 00:03:00 +00:00
parent 8b3747f9c6
commit 3843f734d1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/scmsigs.c
View file

@ -333,7 +333,7 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
|| SCM_NUM2LONG (2, handler) == (long) SIG_IGN)
{
#ifdef HAVE_SIGACTION
action.sa_handler = (SIGRETTYPE (*) (int)) scm_to_int (handler);
action.sa_handler = (SIGRETTYPE (*) (int)) scm_to_long (handler);
#else
chandler = (SIGRETTYPE (*) (int)) scm_to_int (handler);
#endif