flambda-backend: Fix warnings (runtime) (#1973)

* Avoid multiple definitions. * Fix C prototypes.
ocaml-flambda · Oct 31, 2023 · 603d278 · 603d278
1 parent 59c1640
commit 603d278
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/ocamltest/run_stubs.c b/ocamltest/run_stubs.c
@@ -17,7 +17,9 @@
 
 #define _GNU_SOURCE
 
+#ifndef CAML_INTERNALS
 #define CAML_INTERNALS
+#endif
 
 #include <stdio.h>
 #include <stdlib.h>

diff --git a/ocamltest/run_unix.c b/ocamltest/run_unix.c
@@ -15,7 +15,9 @@
 
 /* Run programs with rediretions and timeouts under Unix */
 
+#ifndef CAML_INTERNALS
 #define CAML_INTERNALS
+#endif
 
 #include <stdio.h>
 #include <limits.h>

diff --git a/runtime4/caml/major_gc.h b/runtime4/caml/major_gc.h
@@ -92,7 +92,7 @@ void caml_init_major_heap (asize_t);           /* size in bytes */
 asize_t caml_clip_heap_chunk_wsz (asize_t wsz);
 void caml_darken (value, value *);
 void caml_major_collection_slice (intnat);
-void caml_shrink_mark_stack ();
+void caml_shrink_mark_stack (void);
 void major_collection (void);
 void caml_finish_major_cycle (void);
 void caml_set_major_window (int);