summaryrefslogtreecommitdiff
path: root/libguile/bytevectors.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-08-18 22:12:31 +0200
committerLudovic Courtès <ludo@gnu.org>2009-08-18 22:12:31 +0200
commit05762e724b27c2bf7b6f5af00db02312ceb0509e (patch)
treea512f173e861546fe27d4897e37bc7a8d1d3c7d4 /libguile/bytevectors.c
parent3b882d69fb4d4be9e46767d57c22c5f0e33a9be4 (diff)
downloadguile-05762e724b27c2bf7b6f5af00db02312ceb0509e.tar.gz
Use `scm_gc_malloc_pointerless ()' for bytevectors.
* libguile/bytevectors.c (make_bytevector): Use `scm_gc_malloc_pointerless ()' for the buffer itself. * libguile/r6rs-ports.c (scm_get_bytevector_some, scm_get_bytevector_all, bop_buffer_grow): Likewise.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r--libguile/bytevectors.c3
1 files changed, 2 insertions, 1 deletions
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);
}