Fix possible 32bit integer overflow of offset in bigarray C implement…

…ation.
ocaml · Mar 16, 2022 · 978bebe · 978bebe
1 parent 1447446
commit 978bebe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/runtime/bigarray.c b/runtime/bigarray.c
@@ -524,7 +524,7 @@ CAMLprim value caml_ba_create(value vkind, value vlayout, value vdim)
    are within the bounds and return the offset of the corresponding
    array element in the data part of the array. */
 
-static long caml_ba_offset(struct caml_ba_array * b, intnat * index)
+static intnat caml_ba_offset(struct caml_ba_array * b, intnat * index)
 {
   intnat offset;
   int i;