diff options
author | Daniel Llorens <lloda@sarc.name> | 2020-02-05 17:23:40 +0100 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2020-04-09 16:59:39 +0200 |
commit | efe2317aff1da9f4310f33a0eb246e6630534227 (patch) | |
tree | 91f1a0c2ac801b6ee6d03c500e8758a5ccaedfc2 /libguile/bitvectors.c | |
parent | 88d690e15ee89c3331a84cb73700b0653c1a57c7 (diff) | |
download | guile-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.c | 22 |
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__, \ |