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) if (!impl)
scm_wrong_type_arg_msg (NULL, 0, array, "array"); scm_wrong_type_arg_msg (NULL, 0, array, "array");
h->array = array; h->array = array;
h->impl = impl;
h->base = 0; h->base = 0;
h->ndims = 0; h->ndims = 0;
h->dims = NULL; h->dims = NULL;
@ -74,9 +73,9 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
something... */ something... */
h->elements = NULL; h->elements = NULL;
h->writable_elements = NULL; h->writable_elements = NULL;
h->vref = h->impl->vref; h->vref = impl->vref;
h->vset = h->impl->vset; h->vset = impl->vset;
h->impl->get_handle (array, h); impl->get_handle (array, h);
} }
ssize_t 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 { typedef struct scm_t_array_handle {
SCM array; SCM array;
scm_t_array_implementation *impl;
/* `Base' is an offset into elements or writable_elements, corresponding to /* `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 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 elements/writable_elements pointer, but we can't because that element might