diff options
| author | bcpierce00 <bcpierce00@users.noreply.github.com> | 2016-12-23 10:31:00 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-12-23 10:31:00 -0500 |
| commit | 18322845cf589482f0297f8ac5fcb4035dbc123c (patch) | |
| tree | c0fbf95c4f66a9d4f6e5960e7047c68767ef68b5 /src | |
| parent | 89914e4de5b621a6f808fdd9b33249e7cd893a7f (diff) | |
| parent | f59663d67f4593a5bc1e554058fe6864751e805e (diff) | |
| download | unison-18322845cf589482f0297f8ac5fcb4035dbc123c.zip unison-18322845cf589482f0297f8ac5fcb4035dbc123c.tar.gz unison-18322845cf589482f0297f8ac5fcb4035dbc123c.tar.bz2 | |
Merge pull request #56 from alexmarkley/theoretical-overflow
Fix a theoretical integer overflow.
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 ec1ed65..f9b4b51 100644 --- a/src/bytearray_stubs.c +++ b/src/bytearray_stubs.c @@ -29,7 +29,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; |