diff options
author | Andy Wingo <wingo@pobox.com> | 2022-01-06 21:30:17 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:17 +0100 |
commit | debcccc2151831237c6eb283256a122b226003b4 (patch) | |
tree | 85fdc506229598eecc91d050aa52c04e693f8093 /libguile/conv-integer.i.c | |
parent | 106c5de5fc3a4858f36a7acdd67f369e21dcee01 (diff) | |
download | guile-debcccc2151831237c6eb283256a122b226003b4.tar.gz |
Remove unused conv-{u,}integer.i.c
* libguile/Makefile.am (noinst_HEADERS):
* libguile/conv-integer.i.c:
* libguile/conv-uinteger.i.c: Remove.
Diffstat (limited to 'libguile/conv-integer.i.c')
-rw-r--r-- | libguile/conv-integer.i.c | 148 |
1 files changed, 0 insertions, 148 deletions
diff --git a/libguile/conv-integer.i.c b/libguile/conv-integer.i.c deleted file mode 100644 index 7d6bd347e..000000000 --- a/libguile/conv-integer.i.c +++ /dev/null @@ -1,148 +0,0 @@ -/* This code in included by numbers.c to generate integer conversion - functions like scm_to_int and scm_from_int. It is only for signed - types, see conv-uinteger.i.c for the unsigned variant. -*/ - -/* You need to define the following macros before including this - template. They are undefined at the end of this file to give a - clean slate for the next inclusion. - - TYPE - the integral type to be converted - TYPE_MIN - the smallest representable number of TYPE - TYPE_MAX - the largest representable number of TYPE - SIZEOF_TYPE - the size of TYPE, equal to "sizeof (TYPE)" but - in a form that can be computed by the preprocessor. - When this number is 0, the preprocessor is not used - to select which code to compile; the most general - code is always used. - - SCM_TO_TYPE_PROTO(arg), SCM_FROM_TYPE_PROTO(arg) - - These two macros should expand into the prototype - for the two defined functions, without the return - type. - -*/ - -TYPE -SCM_TO_TYPE_PROTO (SCM val) -{ - if (SCM_I_INUMP (val)) - { - scm_t_signed_bits n = SCM_I_INUM (val); -#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SIZEOF_UINTPTR_T - return n; -#else - if (n >= TYPE_MIN && n <= TYPE_MAX) - return n; - else - { - goto out_of_range; - } -#endif - } - else if (SCM_BIGP (val)) - { - if (TYPE_MIN >= SCM_MOST_NEGATIVE_FIXNUM - && TYPE_MAX <= SCM_MOST_POSITIVE_FIXNUM) - goto out_of_range; - else if (TYPE_MIN >= LONG_MIN && TYPE_MAX <= LONG_MAX) - { - if (mpz_fits_slong_p (SCM_I_BIG_MPZ (val))) - { - long n = mpz_get_si (SCM_I_BIG_MPZ (val)); -#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SCM_SIZEOF_LONG - return n; -#else - if (n >= TYPE_MIN && n <= TYPE_MAX) - return n; - else - goto out_of_range; -#endif - } - else - goto out_of_range; - } - else - { - uintmax_t abs_n; - TYPE n; - size_t count; - - if (mpz_sizeinbase (SCM_I_BIG_MPZ (val), 2) - > CHAR_BIT*sizeof (uintmax_t)) - goto out_of_range; - - mpz_export (&abs_n, &count, 1, sizeof (uintmax_t), 0, 0, - SCM_I_BIG_MPZ (val)); - - if (mpz_sgn (SCM_I_BIG_MPZ (val)) >= 0) - { - if (abs_n <= TYPE_MAX) - n = abs_n; - else - goto out_of_range; - } - else - { - /* Carefully avoid signed integer overflow. */ - if (TYPE_MIN < 0 && abs_n - 1 <= -(TYPE_MIN + 1)) - n = -1 - (TYPE)(abs_n - 1); - else - goto out_of_range; - } - - if (n >= TYPE_MIN && n <= TYPE_MAX) - return n; - else - { - out_of_range: - scm_i_range_error (val, - scm_from_signed_integer (TYPE_MIN), - scm_from_signed_integer (TYPE_MAX)); - return 0; - } - } - } - else - { - scm_wrong_type_arg_msg (NULL, 0, val, "exact integer"); - return 0; - } -} - -SCM -SCM_FROM_TYPE_PROTO (TYPE val) -{ -#if SIZEOF_TYPE != 0 && SIZEOF_TYPE < SIZEOF_UINTPTR_T - return SCM_I_MAKINUM (val); -#else - if (SCM_FIXABLE (val)) - return SCM_I_MAKINUM (val); - else if (val >= LONG_MIN && val <= LONG_MAX) - return scm_i_long2big (val); - else - { - SCM z = make_bignum (); - mpz_init (SCM_I_BIG_MPZ (z)); - if (val < 0) - { - val = -val; - mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0, - &val); - mpz_neg (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (z)); - } - else - mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0, - &val); - return z; - } -#endif -} - -/* clean up */ -#undef TYPE -#undef TYPE_MIN -#undef TYPE_MAX -#undef SIZEOF_TYPE -#undef SCM_TO_TYPE_PROTO -#undef SCM_FROM_TYPE_PROTO |