mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +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

10
libguile/uniform.c
View file

@ -49,9 +49,9 @@ scm_array_handle_uniform_element_size (scm_t_array_handle *h)
if (ret && ret % 8 == 0)
return ret / 8;
else if (ret)
scm_wrong_type_arg_msg (NULL, 0, h->array, "byte-aligned uniform array");
scm_wrong_type_arg_msg (NULL, 0, h->root, "byte-aligned uniform array");
else
scm_wrong_type_arg_msg (NULL, 0, h->array, "uniform array");
scm_wrong_type_arg_msg (NULL, 0, h->root, "uniform array");
}
size_t
@ -61,7 +61,7 @@ scm_array_handle_uniform_element_bit_size (scm_t_array_handle *h)
if (ret)
return ret;
else
scm_wrong_type_arg_msg (NULL, 0, h->array, "uniform array");
scm_wrong_type_arg_msg (NULL, 0, h->root, "uniform array");
}
const void *
@ -184,7 +184,7 @@ scm_c_uniform_vector_ref (SCM v, size_t pos)
/* need the handle for bitvectors only */
scm_array_get_handle (v, &h);
ret = h.impl->vref (h.array, pos);
ret = h.impl->vref (h.root, pos);
scm_array_handle_release (&h);
return ret;
@ -210,7 +210,7 @@ scm_c_uniform_vector_set_x (SCM v, size_t pos, SCM val)
/* need the handle for bitvectors only */
scm_array_get_handle (v, &h);
h.impl->vset (h.array, pos, val);
h.impl->vset (h.root, pos, val);
scm_array_handle_release (&h);
}