diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2005-01-14 18:19:13 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-14 18:19:13 +0000 |
| commit | 00c17d45262defe568a3c628c403cdcdf57fd69a (patch) | |
| tree | 142e705a576db6654d98372e5370af2282bf46ac /libguile/srfi-4.h | |
| parent | 55fcbb966b95006ce54a5d648f00087c41e802e6 (diff) | |
| download | guile-00c17d45262defe568a3c628c403cdcdf57fd69a.tar.gz | |
(scm_take_u64vector,
scm_array_handle_u64_elements,
scm_array_handle_u64_writable_elements, scm_u64vector_elements,
scm_u64vector_writable_elements): Do not define when scm_t_uint64
is not available.
(scm_take_s64vector, scm_array_handle_s64_elements,
scm_array_handle_s64_writable_elements, scm_s64vector_elements,
scm_s64vector_writable_elements): Likewise for scm_t_int64.
(uvec_sizes, uvec_print, uvec_equalp): Use SCM bignums when
scm_t_int64/scm_t_uint64 are not available.
(uvec_mark): New, to mark the bignums.
(alloc_uvec): Initialize bignums.
(uvec_fast_ref): Return bignums directly.
(scm_uint64_min, scm_uint64_max, scm_int64_min, scm_int64_max,
assert_exact_integer): New.
(uvec_fast_set): Use them to validate the bignums.
(scm_init_srfi_4): Set mark function of smob when needed.
Initialize scm_uint64_min, scm_uint64_max, scm_int64_min,
scm_int64_max.
Diffstat (limited to 'libguile/srfi-4.h')
| -rw-r--r-- | libguile/srfi-4.h | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/libguile/srfi-4.h b/libguile/srfi-4.h index 6bd8fe4bb..311a42e61 100644 --- a/libguile/srfi-4.h +++ b/libguile/srfi-4.h @@ -178,7 +178,6 @@ SCM_API scm_t_int32 *scm_s32vector_writable_elements (SCM uvec, SCM_API SCM scm_u64vector_p (SCM obj); SCM_API SCM scm_make_u64vector (SCM n, SCM fill); -SCM_API SCM scm_take_u64vector (const scm_t_uint64 *data, size_t n); SCM_API SCM scm_u64vector (SCM l); SCM_API SCM scm_u64vector_length (SCM uvec); SCM_API SCM scm_u64vector_ref (SCM uvec, SCM index); @@ -186,6 +185,9 @@ SCM_API SCM scm_u64vector_set_x (SCM uvec, SCM index, SCM value); SCM_API SCM scm_u64vector_to_list (SCM uvec); SCM_API SCM scm_list_to_u64vector (SCM l); SCM_API SCM scm_any_to_u64vector (SCM obj); + +#if SCM_HAVE_T_UINT64 +SCM_API SCM scm_take_u64vector (const scm_t_uint64 *data, size_t n); SCM_API const scm_t_uint64 *scm_array_handle_u64_elements (scm_t_array_handle *h); SCM_API scm_t_uint64 *scm_array_handle_u64_writable_elements (scm_t_array_handle *h); SCM_API const scm_t_uint64 *scm_u64vector_elements (SCM uvec, @@ -196,10 +198,10 @@ SCM_API scm_t_uint64 *scm_u64vector_writable_elements (SCM uvec, scm_t_array_handle *h, size_t *lenp, ssize_t *incp); +#endif SCM_API SCM scm_s64vector_p (SCM obj); SCM_API SCM scm_make_s64vector (SCM n, SCM fill); -SCM_API SCM scm_take_s64vector (const scm_t_int64 *data, size_t n); SCM_API SCM scm_s64vector (SCM l); SCM_API SCM scm_s64vector_length (SCM uvec); SCM_API SCM scm_s64vector_ref (SCM uvec, SCM index); @@ -207,6 +209,9 @@ SCM_API SCM scm_s64vector_set_x (SCM uvec, SCM index, SCM value); SCM_API SCM scm_s64vector_to_list (SCM uvec); SCM_API SCM scm_list_to_s64vector (SCM l); SCM_API SCM scm_any_to_s64vector (SCM obj); + +#if SCM_HAVE_T_INT64 +SCM_API SCM scm_take_s64vector (const scm_t_int64 *data, size_t n); SCM_API const scm_t_int64 *scm_array_handle_s64_elements (scm_t_array_handle *h); SCM_API scm_t_int64 *scm_array_handle_s64_writable_elements (scm_t_array_handle *h); SCM_API const scm_t_int64 *scm_s64vector_elements (SCM uvec, @@ -216,6 +221,7 @@ SCM_API scm_t_int64 *scm_s64vector_writable_elements (SCM uvec, scm_t_array_handle *h, size_t *lenp, ssize_t *incp); +#endif SCM_API SCM scm_f32vector_p (SCM obj); SCM_API SCM scm_make_f32vector (SCM n, SCM fill); |