mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-08 17:22:25 +02:00
Rename scm_t_array_handle.array to .root
Globally rename this field (after shared-array-root), since it's not an array.
This commit is contained in:
parent
99c0a58a2f
commit
d0b47b4946
9 changed files with 23 additions and 23 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue