diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/bytearray_stubs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/bytearray_stubs.c b/src/bytearray_stubs.c index c1ed4ac..e64a6ab 100644 --- a/src/bytearray_stubs.c +++ b/src/bytearray_stubs.c @@ -33,7 +33,7 @@ CAMLprim value ml_unmarshal_from_bigarray(value b, value ofs) CAMLprim value ml_blit_string_to_bigarray (value s, value i, value a, value j, value l) { - char *src = String_val(s) + Int_val(i); + char *src = String_val(s) + Long_val(i); char *dest = Array_data(Bigarray_val(a), j); memcpy(dest, src, Long_val(l)); return Val_unit; |