diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-10-11 10:57:43 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-03-01 19:58:31 +0100 |
| commit | 7d6f309ccde91711a957485a2fbb82f2e81d4db2 (patch) | |
| tree | 77ee6cb53d333e4e93ef75a356ad9bbcbc90b767 /libguile/posix.c | |
| parent | 1107db3eb193f2afa0aa18d37e3688ad74c77a14 (diff) | |
| download | guile-7d6f309ccde91711a957485a2fbb82f2e81d4db2.tar.gz | |
Treat 'SIG_IGN' as a pointer.
* libguile/posix.c (scm_system_star): Cast 'SIG_IGN' to
'scm_t_uintptr_t' and use 'scm_from_uintptr_t'. This fixes an
'int-conversion' warning with GCC 6.2.
Diffstat (limited to 'libguile/posix.c')
| -rw-r--r-- | libguile/posix.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libguile/posix.c b/libguile/posix.c index 686b801ff..041b8b129 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1,6 +1,6 @@ /* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, * 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, - * 2014 Free Software Foundation, Inc. + * 2014, 2016 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -1489,10 +1489,12 @@ SCM_DEFINE (scm_system_star, "system*", 0, 0, 1, scm_dynwind_begin (0); /* Make sure the child can't kill us (as per normal system call). */ - scm_dynwind_sigaction (SIGINT, scm_from_long ((long) SIG_IGN), + scm_dynwind_sigaction (SIGINT, + scm_from_uintptr_t ((scm_t_uintptr) SIG_IGN), SCM_UNDEFINED); #ifdef SIGQUIT - scm_dynwind_sigaction (SIGQUIT, scm_from_long ((long) SIG_IGN), + scm_dynwind_sigaction (SIGQUIT, + scm_from_uintptr_t ((scm_t_uintptr) SIG_IGN), SCM_UNDEFINED); #endif |