Merge pull request #976 from MisterDA/ocaml-5-volatile-field

Fix a warning when compiling the C stubs with OCaml 5

Author: raphael-proust

CHANGES

@@ -12,6 +12,8 @@
 
   * Remove unused dependency in dune file. (#969, Kate Deplaix)
 
+  * Fix some compilation warnings for C stubs with OCaml 5. (#976, Antonin Décimo)
+
 ===== 5.6.1 =====
 
 ====== Fixes ======

src/unix/unix_c/unix_tcsetattr_job.c

@@ -56,7 +56,7 @@ CAMLprim value lwt_unix_tcsetattr_job(value fd, value when, value termios)
     LWT_UNIX_INIT_JOB(job, tcsetattr, 0);
     job->fd = Int_val(fd);
     job->when = when_flag_table[Int_val(when)];
-    memcpy(&job->termios, &Field(termios, 0), NFIELDS * sizeof(value));
+    memcpy(&job->termios, (value *)&Field(termios, 0), NFIELDS * sizeof(value));
     return lwt_unix_alloc_job(&job->job);
 }
 #endif

src/unix/unix_c/unix_termios_conversion.c

@@ -150,7 +150,7 @@ static tcflag_t *choose_field(struct termios *terminal_status, long field)
     }
 }
 
-void encode_terminal_status(struct termios *terminal_status, value *dst)
+void encode_terminal_status(struct termios *terminal_status, volatile value *dst)
 {
     long *pc;
     int i;
@@ -207,7 +207,7 @@ void encode_terminal_status(struct termios *terminal_status, value *dst)
     }
 }
 
-int decode_terminal_status(struct termios *terminal_status, value *src)
+int decode_terminal_status(struct termios *terminal_status, volatile value *src)
 {
     long *pc;
     int i;

src/unix/unix_c/unix_termios_conversion.h

@@ -24,6 +24,6 @@
 
 #define NFIELDS 38
 
-void encode_terminal_status(struct termios *terminal_status, value *dst);
-int decode_terminal_status(struct termios *terminal_status, value *src);
+void encode_terminal_status(struct termios *terminal_status, volatile value *dst);
+int decode_terminal_status(struct termios *terminal_status, volatile value *src);
 #endif