diff options
Diffstat (limited to 'libguile/unif.h')
-rw-r--r-- | libguile/unif.h | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/libguile/unif.h b/libguile/unif.h index 5fce7b467..932ceec82 100644 --- a/libguile/unif.h +++ b/libguile/unif.h @@ -93,14 +93,6 @@ extern long scm_tc16_array; #define SCM_BITVECTOR_BASE(x) ((void *) (SCM_CELL_WORD_1 (x))) #define SCM_BITVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8) -/* apparently it's possible to have more than SCM_LENGTH_MAX elements - in an array: if the length is SCM_LENGTH_MAX then the SCM_VELTS - block begins with the true length (a long int). I wonder if it - works. */ - -#define SCM_HUGE_LENGTH(x)\ - (SCM_LENGTH_MAX==SCM_LENGTH(x) ? *((long *)SCM_VELTS(x)) : SCM_LENGTH(x)) - extern scm_sizet scm_uniform_element_size (SCM obj); @@ -140,6 +132,19 @@ extern int scm_raprin1 (SCM exp, SCM port, scm_print_state *pstate); extern SCM scm_array_prototype (SCM ra); extern void scm_init_unif (void); + + +#if (SCM_DEBUG_DEPRECATED == 0) + +/* apparently it's possible to have more than SCM_LENGTH_MAX elements + in an array: if the length is SCM_LENGTH_MAX then the SCM_VELTS + block begins with the true length (a long int). I wonder if it + works. */ +#define SCM_HUGE_LENGTH(x)\ + (SCM_LENGTH_MAX==SCM_LENGTH(x) ? *((long *)SCM_VELTS(x)) : SCM_LENGTH(x)) + +#endif /* SCM_DEBUG_DEPRECATED == 0 */ + #endif /* UNIFH */ /* |