mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-01 23:30:28 +02:00
Move vectors off scm_words
Also move most internal vector representation into a private header file. * libguile/vectors-internal.h: New file. * libguile/vectors.h (SCM_I_IS_MUTABLE_VECTOR, SCM_I_VECTOR_WELTS) (SCM_I_VECTOR_ELTS, SCM_I_VECTOR_LENGTH): Remove these internal definitions. * libguile/vectors.c: Adapt to use new data types. * libguile/eval.c: Include internal file. * libguile/init.c: Include internal file. * libguile/array-handle.c (scm_array_get_handle): Use new functions.
This commit is contained in:
parent
7dfbb8bc4b
commit
a478665ab6
7 changed files with 162 additions and 73 deletions
|
@ -37,7 +37,7 @@
|
|||
#include "pairs.h"
|
||||
#include "strings-internal.h"
|
||||
#include "symbols.h"
|
||||
#include "vectors.h"
|
||||
#include "vectors-internal.h"
|
||||
|
||||
#include "array-handle.h"
|
||||
|
||||
|
@ -202,8 +202,8 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
|
|||
initialize_vector_handle (h, scm_c_vector_length (array),
|
||||
SCM_ARRAY_ELEMENT_TYPE_SCM,
|
||||
scm_c_vector_ref, scm_c_vector_set_x,
|
||||
SCM_I_VECTOR_WELTS (array),
|
||||
SCM_I_IS_MUTABLE_VECTOR (array));
|
||||
scm_i_vector_slots (scm_to_vector (array)),
|
||||
scm_is_mutable_vector (array));
|
||||
break;
|
||||
case scm_tc7_bitvector:
|
||||
initialize_vector_handle (h, scm_c_bitvector_length (array),
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue