summaryrefslogtreecommitdiff
path: root/libguile/bitvectors.c
diff options
context:
space:
mode:
authorDaniel Llorens <lloda@sarc.name>2020-02-05 17:23:40 +0100
committerDaniel Llorens <lloda@sarc.name>2020-04-09 16:59:39 +0200
commitefe2317aff1da9f4310f33a0eb246e6630534227 (patch)
tree91f1a0c2ac801b6ee6d03c500e8758a5ccaedfc2 /libguile/bitvectors.c
parent88d690e15ee89c3331a84cb73700b0653c1a57c7 (diff)
downloadguile-efe2317aff1da9f4310f33a0eb246e6630534227.tar.gz
Move bitvector functions using array_handle to libguile/array-handle.[ch]
Diffstat (limited to 'libguile/bitvectors.c')
-rw-r--r--libguile/bitvectors.c22
1 files changed, 0 insertions, 22 deletions
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index fa549bb71..9ae410dfa 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -183,28 +183,6 @@ SCM_DEFINE (scm_bitvector_length, "bitvector-length", 1, 0, 0,
}
#undef FUNC_NAME
-const uint32_t *
-scm_array_handle_bit_elements (scm_t_array_handle *h)
-{
- if (h->element_type != SCM_ARRAY_ELEMENT_TYPE_BIT)
- scm_wrong_type_arg_msg (NULL, 0, h->array, "bit array");
- return ((const uint32_t *) h->elements) + h->base/32;
-}
-
-uint32_t *
-scm_array_handle_bit_writable_elements (scm_t_array_handle *h)
-{
- if (h->writable_elements != h->elements)
- scm_wrong_type_arg_msg (NULL, 0, h->array, "mutable bit array");
- return (uint32_t *) scm_array_handle_bit_elements (h);
-}
-
-size_t
-scm_array_handle_bit_elements_offset (scm_t_array_handle *h)
-{
- return h->base % 32;
-}
-
#define SCM_VALIDATE_BITVECTOR(pos, v) \
do { \
SCM_ASSERT_TYPE (IS_BITVECTOR (v), v, pos, __func__, \