Fix a warning when compiling the C stubs with OCaml 5

ocsigen · Jan 17, 2023 · e5b4d29 · e5b4d29
1 parent 3d6f0fa
commit e5b4d29
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/src/unix/unix_c/unix_tcsetattr_job.c b/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
diff --git a/src/unix/unix_c/unix_termios_conversion.c b/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;

diff --git a/src/unix/unix_c/unix_termios_conversion.h b/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