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

Adjust 'W_EXITCODE' for Windows.

Browse source 
* libguile/posix.c (W_EXITCODE) [_WIN32]: New specialized definition.
This commit is contained in:
Ludovic Courtès 2023-01-18 18:24:11 +01:00
parent cd7475541a
commit 4404b553a5
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/posix.c
View file

@ -100,7 +100,11 @@
#ifndef W_EXITCODE #ifndef W_EXITCODE
/* Macro for constructing a status value. Found in glibc. */ /* Macro for constructing a status value. Found in glibc. */
# ifdef _WIN32 /* see Gnulib's posix-w32.h */
# define W_EXITCODE(ret, sig) (ret)
# else
# define W_EXITCODE(ret, sig) ((ret) << 8 | (sig)) # define W_EXITCODE(ret, sig) ((ret) << 8 | (sig))
# endif
#endif #endif
verify (WEXITSTATUS (W_EXITCODE (127, 0)) == 127); verify (WEXITSTATUS (W_EXITCODE (127, 0)) == 127);