mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

Find a suitable type for the new scm_t_intmax and scm_t_uintmax.

Browse source
This commit is contained in:
Marius Vollmer 2003-12-26 19:00:47 +00:00
parent caff34d4fa
commit eb1f89f652
1 changed files with 48 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

48
configure.in
View file

@ -296,6 +296,8 @@ if test "$ac_cv_header_stdint_h" = yes; then
AC_CHECK_TYPE([uint32_t],[scm_stdint_has_uint32=1],,[#include <stdint.h>]) AC_CHECK_TYPE([uint32_t],[scm_stdint_has_uint32=1],,[#include <stdint.h>])
AC_CHECK_TYPE([int64_t],[scm_stdint_has_int64=1],,[#include <stdint.h>]) AC_CHECK_TYPE([int64_t],[scm_stdint_has_int64=1],,[#include <stdint.h>])
AC_CHECK_TYPE([uint64_t],[scm_stdint_has_uint64=1],,[#include <stdint.h>]) AC_CHECK_TYPE([uint64_t],[scm_stdint_has_uint64=1],,[#include <stdint.h>])
AC_CHECK_TYPE([intmax_t],[scm_stdint_has_intmax=1],,[#include <stdint.h>])
AC_CHECK_TYPE([uintmax_t],[scm_stdint_has_uintmax=1],,[#include <stdint.h>])
fi fi
# so we don't get confused by the cache (wish there was a better way # so we don't get confused by the cache (wish there was a better way
@ -309,6 +311,8 @@ unset ac_cv_type_int32_t
unset ac_cv_type_uint32_t unset ac_cv_type_uint32_t
unset ac_cv_type_int64_t unset ac_cv_type_int64_t
unset ac_cv_type_uint64_t unset ac_cv_type_uint64_t
unset ac_cv_type_intmax_t
unset ac_cv_type_uintmax_t
### See what's provided by inttypes.h ### See what's provided by inttypes.h
if test "$ac_cv_header_inttypes_h" = yes; then if test "$ac_cv_header_inttypes_h" = yes; then
@ -320,6 +324,8 @@ if test "$ac_cv_header_inttypes_h" = yes; then
AC_CHECK_TYPE([uint32_t],[scm_inttypes_has_uint32=1],,[#include <inttypes.h>]) AC_CHECK_TYPE([uint32_t],[scm_inttypes_has_uint32=1],,[#include <inttypes.h>])
AC_CHECK_TYPE([int64_t],[scm_inttypes_has_int64=1],,[#include <inttypes.h>]) AC_CHECK_TYPE([int64_t],[scm_inttypes_has_int64=1],,[#include <inttypes.h>])
AC_CHECK_TYPE([uint64_t],[scm_inttypes_has_uint64=1],,[#include <inttypes.h>]) AC_CHECK_TYPE([uint64_t],[scm_inttypes_has_uint64=1],,[#include <inttypes.h>])
AC_CHECK_TYPE([intmax_t],[scm_inttypes_has_intmax=1],,[#include <inttypes.h>])
AC_CHECK_TYPE([uintmax_t],[scm_inttypes_has_uintmax=1],,[#include <inttypes.h>])
fi fi
# Try hard to find definitions for some required scm_t_*int* types. # Try hard to find definitions for some required scm_t_*int* types.
@ -470,6 +476,48 @@ else
fi fi
AC_SUBST([SCM_I_GSC_T_UINT64]) AC_SUBST([SCM_I_GSC_T_UINT64])
### Required type scm_t_intmax
###
### We try 'intmax_t', '__int64', 'long long' in this order. When
### none of them is available, we use 'long'.
###
SCM_I_GSC_T_INTMAX=0
if test "$scm_stdint_has_intmax"; then
SCM_I_GSC_T_INTMAX='"intmax_t"'
SCM_I_GSC_NEEDS_STDINT_H=1
elif test "$scm_inttypes_has_intmax"; then
SCM_I_GSC_T_INTMAX='"intmax_t"'
SCM_I_GSC_NEEDS_INTTYPES_H=1
elif test "$ac_cv_sizeof___int64" -ne 0; then
SCM_I_GSC_T_INTMAX='"__int64"'
elif test "$ac_cv_sizeof_long_long" -ne 0; then
SCM_I_GSC_T_INTMAX='"long long"'
else
SCM_I_GSC_T_INTMAX='"long"'
fi
AC_SUBST([SCM_I_GSC_T_INTMAX])
### Required type scm_t_uintmax
###
### We try 'uintmax_t', 'unsigned __int64', 'unsigned long long' in
### this order. When none of them is available, we use 'unsigned long'.
###
SCM_I_GSC_T_UINTMAX=0
if test "$scm_stdint_has_uintmax"; then
SCM_I_GSC_T_UINTMAX='"uintmax_t"'
SCM_I_GSC_NEEDS_STDINT_H=1
elif test "$scm_inttypes_has_uintmax"; then
SCM_I_GSC_T_UINTMAX='"uintmax_t"'
SCM_I_GSC_NEEDS_INTTYPES_H=1
elif test "$ac_cv_sizeof_unsigned___int64" -ne 0; then
SCM_I_GSC_T_UINTMAX='"unsigned __int64"'
elif test "$ac_cv_sizeof_unsigned_long_long" -ne 0; then
SCM_I_GSC_T_UINTMAX='"unsigned long long"'
else
SCM_I_GSC_T_UINTMAX='"unsigned long"'
fi
AC_SUBST([SCM_I_GSC_T_UINTMAX])
AC_SUBST([SCM_I_GSC_NEEDS_STDINT_H]) AC_SUBST([SCM_I_GSC_NEEDS_STDINT_H])
AC_SUBST([SCM_I_GSC_NEEDS_INTTYPES_H]) AC_SUBST([SCM_I_GSC_NEEDS_INTTYPES_H])