summaryrefslogtreecommitdiff
path: root/libguile/bytevectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r--libguile/bytevectors.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index 2484a64a4..83058ba0b 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -74,7 +74,7 @@
#define INTEGER_ACCESSOR_PROLOGUE(_len, _sign) \
- unsigned c_len, c_index; \
+ size_t c_len, c_index; \
_sign char *c_bv; \
\
SCM_VALIDATE_BYTEVECTOR (1, bv); \
@@ -184,14 +184,14 @@ SCM scm_null_bytevector = SCM_UNSPECIFIED;
static inline SCM
-make_bytevector_from_buffer (unsigned len, signed char *contents)
+make_bytevector_from_buffer (size_t len, signed char *contents)
{
/* Assuming LEN > SCM_BYTEVECTOR_INLINE_THRESHOLD. */
SCM_RETURN_NEWSMOB2 (scm_tc16_bytevector, len, contents);
}
static inline SCM
-make_bytevector (unsigned len)
+make_bytevector (size_t len)
{
SCM bv;
@@ -212,7 +212,7 @@ make_bytevector (unsigned len)
/* Return a new bytevector of size LEN octets. */
SCM
-scm_c_make_bytevector (unsigned len)
+scm_c_make_bytevector (size_t len)
{
return (make_bytevector (len));
}
@@ -220,7 +220,7 @@ scm_c_make_bytevector (unsigned len)
/* Return a bytevector of size LEN made up of CONTENTS. The area pointed to
by CONTENTS must have been allocated using `scm_gc_malloc ()'. */
SCM
-scm_c_take_bytevector (signed char *contents, unsigned len)
+scm_c_take_bytevector (signed char *contents, size_t len)
{
SCM bv;
@@ -243,11 +243,11 @@ scm_c_take_bytevector (signed char *contents, unsigned len)
/* Shrink BV to C_NEW_LEN (which is assumed to be smaller than its current
size) and return BV. */
SCM
-scm_i_shrink_bytevector (SCM bv, unsigned c_new_len)
+scm_i_shrink_bytevector (SCM bv, size_t c_new_len)
{
if (!SCM_BYTEVECTOR_INLINE_P (bv))
{
- unsigned c_len;
+ size_t c_len;
signed char *c_bv, *c_new_bv;
c_len = SCM_BYTEVECTOR_LENGTH (bv);