12 lines
576 B
Diff
12 lines
576 B
Diff
--- 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;
|