summaryrefslogtreecommitdiff
path: root/libguile/scmsigs.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-24 00:03:00 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-24 00:03:00 +0000
commit3843f734d198339837a604ac03e8c3df579bf4db (patch)
tree27996e326095a30d86186c6faee42643316faa5c /libguile/scmsigs.c
parent8b3747f9c6c7714f6796e216095d840f9627f3cb (diff)
downloadguile-3843f734d198339837a604ac03e8c3df579bf4db.tar.gz
(scm_sigaction_for_thread): Use scm_to_long for
sa_handler, needs to be a long on 64-bit systems where int is only 32 bits.
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r--libguile/scmsigs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index 33afc8391..618506ea7 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -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