diff options
author | Andy Wingo <wingo@pobox.com> | 2010-07-22 20:56:55 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-07-26 15:00:49 +0200 |
commit | 4ca48269976e17b2530728cce7df63843a6ce2b0 (patch) | |
tree | 2f72584484bf9f40062dafa4123a962fe17e4eb7 /libguile/gen-scmconfig.c | |
parent | 77b139121d0344d8a89f4d8b85739a3447bac196 (diff) | |
download | guile-4ca48269976e17b2530728cce7df63843a6ce2b0.tar.gz |
remove SCM_HAVE_T_INT64, SCM_HAVE_T_UINT64
* libguile/__scm.h:
* libguile/numbers.h:
* libguile/random.c:
* libguile/srfi-4.c:
* libguile/srfi-4.h:
* libguile/numbers.c:
* test-suite/standalone/test-conversion.c:
* libguile/gen-scmconfig.c: As we require 64-bit integers in
configure.ac, remove conditional definition of 64-bit types.
Diffstat (limited to 'libguile/gen-scmconfig.c')
-rw-r--r-- | libguile/gen-scmconfig.c | 30 |
1 files changed, 5 insertions, 25 deletions
diff --git a/libguile/gen-scmconfig.c b/libguile/gen-scmconfig.c index 851578f46..79a7d370e 100644 --- a/libguile/gen-scmconfig.c +++ b/libguile/gen-scmconfig.c @@ -78,9 +78,7 @@ type. - we now use SCM_SIZEOF_FOO != 0 rather than SCM_HAVE_FOO for any - cases where the size might actually vary. For types where the - size is fixed, we use SCM_HAVE_FOO, i.e. you can see us define or - not define SCM_HAVE_T_INT64 below when appropriate. + cases where the size might actually vary. Rationales (not finished): @@ -290,28 +288,10 @@ main (int argc, char *argv[]) return 1; pf ("\n"); - pf ("/* 64-bit integer -- if available SCM_HAVE_T_INT64 will be 1 and\n" - " scm_t_int64 will be a suitable type, otherwise SCM_HAVE_T_INT64\n" - " will be 0. */\n"); - if (SCM_I_GSC_T_INT64) - { - pf ("#define SCM_HAVE_T_INT64 1 /* 0 or 1 */\n"); - pf ("typedef %s scm_t_int64;\n", SCM_I_GSC_T_INT64); - } - else - pf ("#define SCM_HAVE_T_INT64 0 /* 0 or 1 */\n"); - - pf ("\n"); - pf ("/* 64-bit unsigned integer -- if available SCM_HAVE_T_UINT64 will\n" - " be 1 and scm_t_uint64 will be a suitable type, otherwise\n" - " SCM_HAVE_T_UINT64 will be 0. */\n"); - if (SCM_I_GSC_T_UINT64) - { - pf ("#define SCM_HAVE_T_UINT64 1 /* 0 or 1 */\n"); - pf ("typedef %s scm_t_uint64;\n", SCM_I_GSC_T_UINT64); - } - else - pf ("#define SCM_HAVE_T_UINT64 0 /* 0 or 1 */\n"); + pf ("#define SCM_HAVE_T_INT64 1 /* 0 or 1 */\n"); + pf ("typedef %s scm_t_int64;\n", SCM_I_GSC_T_INT64); + pf ("#define SCM_HAVE_T_UINT64 1 /* 0 or 1 */\n"); + pf ("typedef %s scm_t_uint64;\n", SCM_I_GSC_T_UINT64); pf ("\n"); pf ("/* scm_t_ptrdiff_t and size, always defined -- defined to long if\n" |