mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* convert.i.c: Convert srfi-4 style uniform vectors when

Browse source 
requested.
* convert.c (scm_c_scm2chars, scm_c_chars2scm,
scm_c_chars2byvect): Use a s8vector instead of a scm_tc7_byvect.
This commit is contained in:
Marius Vollmer 2004-10-27 19:32:11 +00:00
parent 46d25cffa8
commit d1d2f0941c
2 changed files with 53 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/convert.c
View file

@ -28,6 +28,7 @@
#if SCM_HAVE_ARRAYS
# include "libguile/unif.h"
#endif
#include "libguile/srfi-4.h"
#include "libguile/convert.h"
@ -43,10 +44,10 @@
#define CTYPES2SCM scm_c_chars2scm
#define CTYPES2UVECT_FN "scm_c_chars2byvect"
#define CTYPES2UVECT scm_c_chars2byvect
#define UVECTTYPE scm_tc7_byvect
#define UVEC_CREATOR scm_take_s8vector
#define SIZEOF_UVECTTYPE 1
#define UVECTCTYPE char
#define ARRAYTYPE scm_tc7_byvect
#define UVEC_PREDICATE scm_s8vector_p
#define SIZEOF_ARRAYTYPE 1
#define ARRAYCTYPE char
#include "convert.i.c"