mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

* convert.i.c: rename usage of HAVE_ARRAYS to SCM_HAVE_ARRAYS.

Browse source
This commit is contained in:
Rob Browning 2003-03-25 23:53:26 +00:00
parent 7a1e395c09
commit cca86e031b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/convert.i.c
View file

@ -128,7 +128,7 @@ SCM2CTYPES (SCM obj, CTYPE *data)
} }
break; break;
#ifdef HAVE_ARRAYS #ifdef SCM_HAVE_ARRAYS
/* array conversions (uniform vectors) */ /* array conversions (uniform vectors) */
case ARRAYTYPE: case ARRAYTYPE:
#ifdef ARRAYTYPE_OPTIONAL #ifdef ARRAYTYPE_OPTIONAL
@ -159,7 +159,7 @@ SCM2CTYPES (SCM obj, CTYPE *data)
memcpy (data, (CTYPE *) SCM_UVECTOR_BASE (obj), n * sizeof (CTYPE)); memcpy (data, (CTYPE *) SCM_UVECTOR_BASE (obj), n * sizeof (CTYPE));
#endif #endif
break; break;
#endif /* HAVE_ARRAYS */ #endif /* SCM_HAVE_ARRAYS */
#if SIZEOF_CTYPE == 1 #if SIZEOF_CTYPE == 1
case scm_tc7_string: case scm_tc7_string:
@ -179,7 +179,7 @@ SCM2CTYPES (SCM obj, CTYPE *data)
#undef FUNC_NAME #undef FUNC_NAME
#if HAVE_ARRAYS #if SCM_HAVE_ARRAYS
/* Converts a C array into a uniform vector, returns SCM_UNDEFINED if out /* Converts a C array into a uniform vector, returns SCM_UNDEFINED if out
of memory. */ of memory. */
@ -236,7 +236,7 @@ CTYPES2UVECT_OPTIONAL (const unsigned CTYPE *data, long n)
#undef FUNC_NAME #undef FUNC_NAME
#endif /* UVECTTYPE_OPTIONAL */ #endif /* UVECTTYPE_OPTIONAL */
#endif /* HAVE_ARRAYS */ #endif /* SCM_HAVE_ARRAYS */
/* Converts a C array into a vector. */ /* Converts a C array into a vector. */