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

Reuse SCM_BYTEVECTOR_TYPED_LENGTH in scm_array_get_handle

Browse source 
* libguile/bytevectors.h (SCM_BYTEVECTOR_TYPE_SIZE,
  SCM_BYTEVECTOR_TYPED_LENGTH): Moved from libguile/bytevectors.c.

* libguile/array-handle.c (scm_array_get_handle): Reuse
  SCM_BYTEVECTOR_TYPED_LENGTH.
This commit is contained in:
Daniel Llorens 2015-02-11 12:58:01 +01:00
parent 4e766795b2
commit 85ac9cce0a
3 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/array-handle.c
View file

@ -185,15 +185,13 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
break;
case scm_tc7_bytevector:
{
size_t byte_length, length, element_byte_size;
size_t length;
scm_t_array_element_type element_type;
scm_t_vector_ref vref;
scm_t_vector_set vset;
byte_length = scm_c_bytevector_length (array);
element_type = SCM_BYTEVECTOR_ELEMENT_TYPE (array);
element_byte_size = scm_i_array_element_type_sizes[element_type] / 8;
length = byte_length / element_byte_size;
length = SCM_BYTEVECTOR_TYPED_LENGTH (array);
switch (element_type)
{