1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00

Fix 32/64 bit bug in INTEGER_ACCESSOR_PROLOGUE

This commit is contained in:
Daniel Llorens 2018-10-10 19:45:30 +02:00
parent 2d09e0513f
commit b9cf3517ef

View file

@ -79,7 +79,7 @@
_sign char *c_bv; \ _sign char *c_bv; \
\ \
SCM_VALIDATE_##validate (1, bv); \ SCM_VALIDATE_##validate (1, bv); \
c_index = scm_to_uint (index); \ c_index = scm_to_size_t (index); \
\ \
c_len = SCM_BYTEVECTOR_LENGTH (bv); \ c_len = SCM_BYTEVECTOR_LENGTH (bv); \
c_bv = (_sign char *) SCM_BYTEVECTOR_CONTENTS (bv); \ c_bv = (_sign char *) SCM_BYTEVECTOR_CONTENTS (bv); \