1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 23:10:21 +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 committed by Andy Wingo
parent f65ccc6afe
commit e4da1b456a

View file

@ -88,7 +88,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); \