simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2025-11-25 19:21:11 -05:00
parent 14ad490c7e
commit 01402388e4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leb128/stubs.c
View file

@ -58,14 +58,14 @@ static inline void ix_leb128_varint(unsigned char *str, uint64_t i) {
// write `i` starting at `idx` // write `i` starting at `idx`
CAMLprim value caml_cc_leb128_varint(value _str, intnat idx, int64_t i) { CAMLprim value caml_cc_leb128_varint(value _str, intnat idx, int64_t i) {
char *str = Bytes_val(_str); unsigned char *str = Bytes_val(_str);
ix_leb128_varint(str + idx, i); ix_leb128_varint(str + idx, i);
return Val_unit; return Val_unit;
} }
CAMLprim value caml_cc_leb128_varint_byte(value _str, value _idx, value _i) { CAMLprim value caml_cc_leb128_varint_byte(value _str, value _idx, value _i) {
CAMLparam3(_str, _idx, _i); CAMLparam3(_str, _idx, _i);
char *str = Bytes_val(_str); unsigned char *str = Bytes_val(_str);
int idx = Int_val(_idx); int idx = Int_val(_idx);
int64_t i = Int64_val(_i); int64_t i = Int64_val(_i);
ix_leb128_varint(str + idx, i); ix_leb128_varint(str + idx, i);