Merge pull request #163 from djs55/cstruct-stubs

Update cstruct_stubs.c from 2.0.0
mirage · May 1, 2016 · 1b28878 · 1b28878
2 parents 9ba2835 + 019be15
commit 1b28878
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/bindings/cstruct_stubs.c b/bindings/cstruct_stubs.c
@@ -19,6 +19,7 @@
 #include <stdlib.h>
 #include <errno.h>
 #include <string.h>
+#include <stdint.h>
 
 #include <caml/mlvalues.h>
 #include <caml/memory.h>
@@ -69,3 +70,11 @@ caml_fill_bigstring(value val_buf, value val_ofs, value val_len, value val_byte)
          Long_val(val_len));
   return Val_unit;
 }
+
+CAMLprim value
+caml_check_alignment_bigstring(value val_buf, value val_ofs, value val_alignment)
+{
+  uint64_t address = (uint64_t) (Caml_ba_data_val(val_buf) + Long_val(val_ofs));
+  int alignment = Int_val(val_alignment);
+  return Val_bool(address % alignment == 0);
+}