summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-11-15 19:22:01 +0100
committerLudovic Courtès <ludo@gnu.org>2009-11-16 09:23:45 +0100
commitc4daa519107798d06ae96d2f69dc211fc57cc8a3 (patch)
tree0548a120e21a0a305b3706568370fd85e8a125f0
parent64e3a89c359c9cdace782e63bb4cd6df59ff7c66 (diff)
downloadguile-c4daa519107798d06ae96d2f69dc211fc57cc8a3.tar.gz
Remove unused internal bytevector functions.
* libguile/bytevectors.c (scm_i_make_typed_bytevector, scm_c_take_typed_bytevector): Remove. * libguile/bytevectors.h: Adjust accordingly.
-rw-r--r--libguile/bytevectors.c14
-rw-r--r--libguile/bytevectors.h4
2 files changed, 0 insertions, 18 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index ce5fa962f..9a0698550 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -261,13 +261,6 @@ 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
@@ -276,13 +269,6 @@ 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
diff --git a/libguile/bytevectors.h b/libguile/bytevectors.h
index 506312638..525b02078 100644
--- a/libguile/bytevectors.h
+++ b/libguile/bytevectors.h
@@ -129,10 +129,6 @@ SCM_API SCM scm_utf32_to_string (SCM, SCM);
/* Hint that is passed to `scm_gc_malloc ()' and friends. */
#define SCM_GC_BYTEVECTOR "bytevector"
-SCM_INTERNAL SCM scm_i_make_typed_bytevector (size_t, scm_t_array_element_type);
-SCM_INTERNAL SCM scm_c_take_typed_bytevector (signed char *, size_t,
- scm_t_array_element_type);
-
SCM_INTERNAL void scm_bootstrap_bytevectors (void);
SCM_INTERNAL void scm_init_bytevectors (void);