diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:51:52 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:51:52 +0100 |
| commit | e6658f527e2decf4b353f14b36b71c6009ebe3d6 (patch) | |
| tree | 2860bb46566fdcba635b6fedf3079c863f570837 | |
| parent | 2b5625ad0c93045d181d6c05eb9b94dc21462f22 (diff) | |
| download | guile-e6658f527e2decf4b353f14b36b71c6009ebe3d6.tar.gz | |
Remove "impl" member of array handles.
* libguile/array-handle.h (scm_t_array_handle): Remove "impl" member.
* libguile/array-handle.c (scm_array_get_handle): Adapt.
| -rw-r--r-- | libguile/array-handle.c | 7 | ||||
| -rw-r--r-- | libguile/array-handle.h | 1 |
2 files changed, 3 insertions, 5 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c index ea312037f..10cd375d4 100644 --- a/libguile/array-handle.c +++ b/libguile/array-handle.c @@ -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 diff --git a/libguile/array-handle.h b/libguile/array-handle.h index 457f7592d..e777d4de0 100644 --- a/libguile/array-handle.h +++ b/libguile/array-handle.h @@ -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 |