From 4404b553a5a135aee5a606dedea9b6fa25363be4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 18 Jan 2023 18:24:11 +0100
Subject: Adjust 'W_EXITCODE' for Windows.

* libguile/posix.c (W_EXITCODE) [_WIN32]: New specialized definition.
---
 libguile/posix.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/libguile/posix.c b/libguile/posix.c
index 3f7207bbc..74c743119 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -100,7 +100,11 @@
 
 #ifndef W_EXITCODE
 /* Macro for constructing a status value.  Found in glibc.  */
-# define W_EXITCODE(ret, sig)   ((ret) << 8 | (sig))
+# ifdef _WIN32                            /* see Gnulib's posix-w32.h */
+#  define W_EXITCODE(ret, sig)   (ret)
+# else
+#  define W_EXITCODE(ret, sig)   ((ret) << 8 | (sig))
+# endif
 #endif
 verify (WEXITSTATUS (W_EXITCODE (127, 0)) == 127);
 
-- 
cgit v1.2.1