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

Add "vector" member to scm_t_array_handle

Browse source 
* libguile/array-handle.h (scm_t_array_handle): Add "vector" member.
* libguile/array-handle.c (scm_array_get_handle): Initialize the vector
  member.
This commit is contained in:
Andy Wingo 2014-02-08 22:11:36 +01:00
parent e6658f527e
commit a0ef1252af
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/array-handle.c
View file

@ -75,6 +75,7 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
h->writable_elements = NULL; h->writable_elements = NULL;
h->vref = impl->vref; h->vref = impl->vref;
h->vset = impl->vset; h->vset = impl->vset;
h->vector = SCM_I_ARRAYP (array) ? SCM_I_ARRAY_V (array) : array;
impl->get_handle (array, h); impl->get_handle (array, h);
} }

3
libguile/array-handle.h
View file

@ -106,6 +106,9 @@ typedef struct scm_t_array_handle {
scm_t_array_element_type element_type; scm_t_array_element_type element_type;
const void *elements; const void *elements;
void *writable_elements; void *writable_elements;
/* The backing store for the array, and its accessors. */
SCM vector;
scm_t_array_ref vref; scm_t_array_ref vref;
scm_t_array_set vset; scm_t_array_set vset;
} scm_t_array_handle; } scm_t_array_handle;