diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-24 00:03:00 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-24 00:03:00 +0000 |
commit | 3843f734d198339837a604ac03e8c3df579bf4db (patch) | |
tree | 27996e326095a30d86186c6faee42643316faa5c /libguile/scmsigs.c | |
parent | 8b3747f9c6c7714f6796e216095d840f9627f3cb (diff) | |
download | guile-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.c | 2 |
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 |