Constify caml_unix_socket_{domain,type}_table in OCaml 5.03

Signed-off-by: Antonin Décimo <[email protected]>
ocsigen · Feb 2, 2024 · 79e0f5a · 79e0f5a
1 parent 5d60d4d
commit 79e0f5a
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/unix/unix_c/unix_recv_send_utils.h b/src/unix/unix_c/unix_recv_send_utils.h
@@ -36,9 +36,15 @@
 #define caml_unix_socket_type_table socket_type_table
 #endif
 
-extern const int msg_flag_table[];
+#if OCAML_VERSION < 50300
 extern int caml_unix_socket_domain_table[];
 extern int caml_unix_socket_type_table[];
+#else
+extern const int caml_unix_socket_domain_table[];
+extern const int caml_unix_socket_type_table[];
+#endif
+
+extern const int msg_flag_table[];
 extern void get_sockaddr(value mladdr, union sock_addr_union *addr /*out*/,
                          socklen_t *addr_len /*out*/);
 value wrapper_recv_msg(int fd, int n_iovs, struct iovec *iovs);