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

* scmsigs.c (scm_sigaction): Cast SIG_DFL and SIG_IGN to SCM, not

Browse source 
int.  That way, if we get a warning on this line, it's more likely
that we're really missing bits we care about.
This commit is contained in:
Jim Blandy 1999-07-19 07:53:21 +00:00
parent 435220a73c
commit 8638b0979a
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/scmsigs.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. /* Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -212,8 +212,10 @@ scm_sigaction (SCM signum, SCM handler, SCM flags)
query_only = 1; query_only = 1;
else if (SCM_INUMP (handler)) else if (SCM_INUMP (handler))
{ {
if (SCM_INUM (handler) == (int) SIG_DFL /* It's really ugly to assume that SIG_DFL can be nicely cast to
|| SCM_INUM (handler) == (int) SIG_IGN) a fixnum. This has got to go. */
if (SCM_INUM (handler) == (SCM) SIG_DFL
|| SCM_INUM (handler) == (SCM) SIG_IGN)
{ {
#ifdef HAVE_SIGACTION #ifdef HAVE_SIGACTION
action.sa_handler = (SIGRETTYPE (*) (int)) SCM_INUM (handler); action.sa_handler = (SIGRETTYPE (*) (int)) SCM_INUM (handler);
@ -276,7 +278,7 @@ scm_sigaction (SCM signum, SCM handler, SCM flags)
orig_handlers[csig] = old_action; orig_handlers[csig] = old_action;
} }
if (old_action.sa_handler == SIG_DFL || old_action.sa_handler == SIG_IGN) if (old_action.sa_handler == SIG_DFL || old_action.sa_handler == SIG_IGN)
old_handler = SCM_MAKINUM ((int) old_action.sa_handler); old_handler = SCM_MAKINUM ((SCM) old_action.sa_handler);
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
return scm_cons (old_handler, SCM_MAKINUM (old_action.sa_flags)); return scm_cons (old_handler, SCM_MAKINUM (old_action.sa_flags));
#else #else