From 63983b54bfc9fcc87c700599450876cd2127a87a Mon Sep 17 00:00:00 2001
From: Nick Roberts <nroberts@janestreet.com>
Date: Tue, 9 Jul 2024 15:30:40 -0400
Subject: [PATCH] Fix C stubs to avoid returning void

---
 lib/bigstringaf_stubs.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/bigstringaf_stubs.c b/lib/bigstringaf_stubs.c
index 915d47d..d66e676 100644
--- a/lib/bigstringaf_stubs.c
+++ b/lib/bigstringaf_stubs.c
@@ -35,31 +35,34 @@
 #include <caml/mlvalues.h>
 #include <caml/bigarray.h>
 
-void
+CAMLprim value
 bigstringaf_blit_to_bytes(value vsrc, value vsrc_off, value vdst, value vdst_off, value vlen)
 {
     void *src = ((char *)Caml_ba_data_val(vsrc)) + Unsigned_long_val(vsrc_off),
          *dst = ((char *)String_val(vdst))       + Unsigned_long_val(vdst_off);
     size_t len = Unsigned_long_val(vlen);
     memcpy(dst, src, len);
+    return Val_unit;
 }
 
-void
+CAMLprim value
 bigstringaf_blit_to_bigstring(value vsrc, value vsrc_off, value vdst, value vdst_off, value vlen)
 {
     void *src = ((char *)Caml_ba_data_val(vsrc)) + Unsigned_long_val(vsrc_off),
          *dst = ((char *)Caml_ba_data_val(vdst)) + Unsigned_long_val(vdst_off);
     size_t len = Unsigned_long_val(vlen);
     memmove(dst, src, len);
+    return Val_unit;
 }
 
-void
+CAMLprim value
 bigstringaf_blit_from_bytes(value vsrc, value vsrc_off, value vdst, value vdst_off, value vlen)
 {
     void *src = ((char *)String_val(vsrc))       + Unsigned_long_val(vsrc_off),
          *dst = ((char *)Caml_ba_data_val(vdst)) + Unsigned_long_val(vdst_off);
     size_t len = Unsigned_long_val(vlen);
     memcpy(dst, src, len);
+    return Val_unit;
 }
 
 CAMLprim value