diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index e8c65bf33..5b79a1435 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -203,7 +203,8 @@ make_bytevector (size_t len) signed char *contents = NULL; if (!SCM_BYTEVECTOR_INLINEABLE_SIZE_P (len)) - contents = (signed char *) scm_gc_malloc (len, SCM_GC_BYTEVECTOR); + contents = (signed char *) + scm_gc_malloc_pointerless (len, SCM_GC_BYTEVECTOR); bv = make_bytevector_from_buffer (len, contents); } diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c index d9946cbf3..6ad320af4 100644 --- a/libguile/r6rs-ports.c +++ b/libguile/r6rs-ports.c @@ -562,7 +562,7 @@ SCM_DEFINE (scm_get_bytevector_some, "get-bytevector-some", 1, 0, 0, SCM_VALIDATE_BINARY_INPUT_PORT (1, port); c_len = 4096; - c_bv = (char *) scm_gc_malloc (c_len, SCM_GC_BYTEVECTOR); + c_bv = (char *) scm_gc_malloc_pointerless (c_len, SCM_GC_BYTEVECTOR); c_total = 0; do @@ -626,7 +626,7 @@ SCM_DEFINE (scm_get_bytevector_all, "get-bytevector-all", 1, 0, 0, SCM_VALIDATE_BINARY_INPUT_PORT (1, port); c_len = c_count = 4096; - c_bv = (char *) scm_gc_malloc (c_len, SCM_GC_BYTEVECTOR); + c_bv = (char *) scm_gc_malloc_pointerless (c_len, SCM_GC_BYTEVECTOR); c_total = c_read = 0; do @@ -798,7 +798,7 @@ bop_buffer_grow (scm_t_bop_buffer *buf, size_t min_size) new_buf = scm_gc_realloc ((void *) buf->buffer, buf->total_len, new_size, SCM_GC_BOP); else - new_buf = scm_gc_malloc (new_size, SCM_GC_BOP); + new_buf = scm_gc_malloc_pointerless (new_size, SCM_GC_BOP); buf->buffer = new_buf; buf->total_len = new_size;