mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Remove "impl" member of array handles.

Browse source 
* libguile/array-handle.h (scm_t_array_handle): Remove "impl" member.
* libguile/array-handle.c (scm_array_get_handle): Adapt.
This commit is contained in:
Andy Wingo 2014-02-08 21:51:52 +01:00
parent 2b5625ad0c
commit e6658f527e
2 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/array-handle.c
View file

@ -66,7 +66,6 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
if (!impl)
scm_wrong_type_arg_msg (NULL, 0, array, "array");
h->array = array;
h->impl = impl;
h->base = 0;
h->ndims = 0;
h->dims = NULL;
@ -74,9 +73,9 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
something... */
h->elements = NULL;
h->writable_elements = NULL;
h->vref = h->impl->vref;
h->vset = h->impl->vset;
h->impl->get_handle (array, h);
h->vref = impl->vref;
h->vset = impl->vset;
impl->get_handle (array, h);
}
ssize_t