diff options
author | Andy Wingo <wingo@pobox.com> | 2010-01-05 17:25:53 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-01-07 22:06:20 +0100 |
commit | 3dc2afe2b85eb5c7ec784b6ed8b19242e45f6e34 (patch) | |
tree | 0248bb01f2bef4fec5bccd1c17196c06e434d864 /libguile/bytevectors.c | |
parent | 5c39373f48f9694a16d1486ab073f4ab229e9c55 (diff) | |
download | guile-3dc2afe2b85eb5c7ec784b6ed8b19242e45f6e34.tar.gz |
Revert "Remove unused internal bytevector functions."
This reverts commit c4daa519107798d06ae96d2f69dc211fc57cc8a3.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index ac5bc1646..ffd2f1286 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -275,6 +275,13 @@ scm_c_make_bytevector (size_t len) return make_bytevector (len, SCM_ARRAY_ELEMENT_TYPE_VU8); } +/* Return a new bytevector of size LEN elements. */ +SCM +scm_i_make_typed_bytevector (size_t len, scm_t_array_element_type element_type) +{ + return make_bytevector (len, element_type); +} + /* 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 @@ -283,6 +290,13 @@ scm_c_take_bytevector (signed char *contents, size_t len) return make_bytevector_from_buffer (len, contents, SCM_ARRAY_ELEMENT_TYPE_VU8); } +SCM +scm_c_take_typed_bytevector (signed char *contents, size_t len, + scm_t_array_element_type element_type) +{ + return make_bytevector_from_buffer (len, contents, element_type); +} + /* Shrink BV to C_NEW_LEN (which is assumed to be smaller than its current size) and return the new bytevector (possibly different from BV). */ SCM |