diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-08-18 22:12:31 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-08-18 22:12:31 +0200 |
commit | 05762e724b27c2bf7b6f5af00db02312ceb0509e (patch) | |
tree | a512f173e861546fe27d4897e37bc7a8d1d3c7d4 /libguile/bytevectors.c | |
parent | 3b882d69fb4d4be9e46767d57c22c5f0e33a9be4 (diff) | |
download | guile-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.c | 3 |
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); } |