mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-08 18:40:23 +02:00
Code Activity

Rename scm_t_array_handle.array to .root

Browse source 
Globally rename this field (after shared-array-root), since it's not an array.
This commit is contained in:
Daniel Llorens 2013-04-29 15:37:52 +02:00 • committed by Andy Wingo
parent 99c0a58a2f
commit d0b47b4946
9 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/bitvectors.c
View file

@ -165,12 +165,12 @@ scm_array_handle_bit_elements (scm_t_array_handle *h)
scm_t_uint32 *
scm_array_handle_bit_writable_elements (scm_t_array_handle *h)
{
SCM vec = h->array;
SCM vec = h->root;
if (SCM_I_ARRAYP (vec))
vec = SCM_I_ARRAY_V (vec);
if (IS_BITVECTOR (vec))
return BITVECTOR_BITS (vec) + h->base/32;
scm_wrong_type_arg_msg (NULL, 0, h->array, "bit array");
scm_wrong_type_arg_msg (NULL, 0, h->root, "bit array");
}
size_t
@ -869,7 +869,7 @@ static void
bitvector_get_handle (SCM bv, scm_t_array_handle *h)
{
h->base = 0;
h->array = bv;
h->root = bv;
h->ndims = 1;
h->dims = &h->dim0;
h->dim0.lbnd = 0;