jjames / rpms / ocaml-lwt

Forked from rpms/ocaml-lwt a year ago
Clone
Blob Blame History Raw
--- src/unix/lwt_unix_stubs.c.old	2020-02-25 11:21:55.690509741 +0000
+++ src/unix/lwt_unix_stubs.c	2020-02-25 11:22:16.500678309 +0000
@@ -124,7 +124,7 @@
 CAMLprim value lwt_unix_blit_to_bytes(value val_buf1, value val_ofs1,
                                       value val_buf2, value val_ofs2,
                                       value val_len) {
-  memcpy(String_val(val_buf2) + Long_val(val_ofs2),
+  memcpy(Bytes_val(val_buf2) + Long_val(val_ofs2),
          (char *)Caml_ba_data_val(val_buf1) + Long_val(val_ofs1),
          Long_val(val_len));
   return Val_unit;