mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Add `scm_sigaction_for_thread' stub for MinGW.

Browse source 
* libguile/scmsigs.c (scm_sigaction_for_thread)[__MINGW32__]: New stub.
(SIGHUP, SIGPIPE)[__MINGW32__]: New defines.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-03-21 13:06:56 +01:00 • committed by Michael Gran
parent eaa38d6381
commit 2b86a3b1cb
2 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/posix.c
View file

@ -54,7 +54,9 @@
#ifdef __MINGW32__
# include "posix-w32.h"
#endif
# define SIGHUP 1
# define SIGPIPE 13
#endif /* __MINGW32__ */
#include "async.h"
#include "bitvectors.h"

19
libguile/scmsigs.c
View file

@ -419,6 +419,23 @@ scm_sigaction (SCM signum, SCM handler, SCM flags)
return scm_sigaction_for_thread (signum, handler, flags, SCM_UNDEFINED);
}
#if __MINGW32__
SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
(SCM signum, SCM handler, SCM flags, SCM thread),
"sigaction stub")
#define FUNC_NAME s_scm_sigaction_for_thread
{
(void) signum;
(void) handler;
(void) flags;
(void) thread;
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
#else /* !__MINGW32__ */
/* user interface for installation of signal handlers. */
SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
(SCM signum, SCM handler, SCM flags, SCM thread),
@ -618,6 +635,8 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
}
#undef FUNC_NAME
#endif /* !__MINGW32__ */
SCM_DEFINE (scm_restore_signals, "restore-signals", 0, 0, 0,
(void),
"Return all signal handlers to the values they had before any call to\n"