Merge pull request #1004 from jamesjer/master

raphael-proust · web-flow · commit 2d276686c2d8 · 2024-05-03T11:30:18.000+02:00
Prepare for stricter checking in GCC 14
diff --git a/src/unix/config/discover.ml b/src/unix/config/discover.ml
@@ -652,56 +652,55 @@ struct
 
         int main()
         {
-            struct hostent *he;
-            struct servent *se;
-            he =
+            int x;
+            x =
               gethostbyname_r(
                 (const char*)NULL,
                 (struct hostent*)NULL,
                 (char*)NULL,
                 (int)0,
                 (struct hostent**)NULL,
                 (int*)NULL);
-            he =
+            x =
               gethostbyaddr_r(
-                (const char*)NULL,
+                (const void*)NULL,
                 (int)0,
                 (int)0,
                 (struct hostent*)NULL,
                 (char*)NULL,
                 (int)0,
                 (struct hostent**)NULL,
                 (int*)NULL);
-            se =
+            x =
               getservbyname_r(
                 (const char*)NULL,
                 (const char*)NULL,
                 (struct servent*)NULL,
                 (char*)NULL,
                 (int)0,
                 (struct servent**)NULL);
-            se =
+            x =
               getservbyport_r(
                 (int)0,
                 (const char*)NULL,
                 (struct servent*)NULL,
                 (char*)NULL,
                 (int)0,
                 (struct servent**)NULL);
-            pr =
+            x =
               getprotoent_r(
                 (struct protoent*)NULL,
                 (char*)NULL,
                 (int)0,
                 (struct protoent**)NULL);
-            pr =
+            x =
               getprotobyname_r(
                 (const char*)NULL,
                 (struct protoent*)NULL,
                 (char*)NULL,
                 (int)0,
                 (struct protoent**)NULL);
-            pr =
+            x =
               getprotobynumber_r(
                 (int)0,
                 (struct protoent*)NULL,
@@ -793,7 +792,7 @@ struct
 
         int main()
         {
-            int (*mincore_ptr)(const void*, size_t, char*) = mincore;
+            int (*mincore_ptr)(void*, size_t, unsigned char*) = mincore;
             return (int)(mincore_ptr == NULL);
         }
       |}
diff --git a/src/unix/unix_c/unix_getprotoby_getservby_job.c b/src/unix/unix_c/unix_getprotoby_getservby_job.c
@@ -9,6 +9,7 @@
 
 #define ARGS(args...) args
 
+#include <errno.h>
 #include <caml/alloc.h>
 #include <caml/fail.h>
 #include <caml/memory.h>
