mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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

1
libguile/array-handle.h
View file

@ -93,7 +93,6 @@ SCM_INTERNAL SCM scm_i_array_element_types[];
typedef struct scm_t_array_handle {
SCM array;
scm_t_array_implementation *impl;
/* `Base' is an offset into elements or writable_elements, corresponding to
the first element in the array. It would be nicer just to adjust the
elements/writable_elements pointer, but we can't because that element might