mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
Update Gnulib to v0.1-1157-gb03f418.
This commit is contained in:
Andy Wingo
parent
d475b7a946
commit
fcf8716d60
397 changed files with 1995 additions and 1095 deletions
201
lib/math.in.h
201
lib/math.in.h
|
|
@ -1,6 +1,6 @@
|
|||
/* A GNU-like <math.h>.
|
||||
|
||||
Copyright (C) 2002-2003, 2007-2016 Free Software Foundation, Inc.
|
||||
Copyright (C) 2002-2003, 2007-2017 Free Software Foundation, Inc.
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU Lesser General Public License as published by
|
||||
|
|
@ -63,6 +63,7 @@ _gl_cxx_ ## func ## l (long double l) \
|
|||
return func (l); \
|
||||
}
|
||||
# define _GL_MATH_CXX_REAL_FLOATING_DECL_2(func) \
|
||||
_GL_BEGIN_NAMESPACE \
|
||||
inline int \
|
||||
func (float f) \
|
||||
{ \
|
||||
|
|
@ -77,7 +78,8 @@ inline int \
|
|||
func (long double l) \
|
||||
{ \
|
||||
return _gl_cxx_ ## func ## l (l); \
|
||||
}
|
||||
} \
|
||||
_GL_END_NAMESPACE
|
||||
#endif
|
||||
|
||||
/* Helper macros to define a portability warning for the
|
||||
|
|
@ -210,11 +212,20 @@ _NaN ()
|
|||
|
||||
|
||||
#if @GNULIB_ACOSF@
|
||||
# if !@HAVE_ACOSF@
|
||||
# undef acosf
|
||||
# if @REPLACE_ACOSF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef acosf
|
||||
# define acosf rpl_acosf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (acosf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (acosf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_ACOSF@
|
||||
# undef acosf
|
||||
_GL_FUNCDECL_SYS (acosf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (acosf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (acosf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef acosf
|
||||
|
|
@ -241,11 +252,20 @@ _GL_WARN_ON_USE (acosl, "acosl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_ASINF@
|
||||
# if !@HAVE_ASINF@
|
||||
# undef asinf
|
||||
# if @REPLACE_ASINF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef asinf
|
||||
# define asinf rpl_asinf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (asinf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (asinf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_ASINF@
|
||||
# undef asinf
|
||||
_GL_FUNCDECL_SYS (asinf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (asinf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (asinf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef asinf
|
||||
|
|
@ -272,11 +292,20 @@ _GL_WARN_ON_USE (asinl, "asinl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_ATANF@
|
||||
# if !@HAVE_ATANF@
|
||||
# undef atanf
|
||||
# if @REPLACE_ATANF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef atanf
|
||||
# define atanf rpl_atanf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (atanf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (atanf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_ATANF@
|
||||
# undef atanf
|
||||
_GL_FUNCDECL_SYS (atanf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (atanf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (atanf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef atanf
|
||||
|
|
@ -303,11 +332,20 @@ _GL_WARN_ON_USE (atanl, "atanl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_ATAN2F@
|
||||
# if !@HAVE_ATAN2F@
|
||||
# undef atan2f
|
||||
# if @REPLACE_ATAN2F@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef atan2f
|
||||
# define atan2f rpl_atan2f
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (atan2f, float, (float y, float x));
|
||||
_GL_CXXALIAS_RPL (atan2f, float, (float y, float x));
|
||||
# else
|
||||
# if !@HAVE_ATAN2F@
|
||||
# undef atan2f
|
||||
_GL_FUNCDECL_SYS (atan2f, float, (float y, float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (atan2f, float, (float y, float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (atan2f);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef atan2f
|
||||
|
|
@ -406,6 +444,7 @@ _GL_WARN_ON_USE (ceilf, "ceilf is unportable - "
|
|||
#if @GNULIB_CEIL@
|
||||
# if @REPLACE_CEIL@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef ceil
|
||||
# define ceil rpl_ceil
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (ceil, double, (double x));
|
||||
|
|
@ -485,11 +524,20 @@ _GL_WARN_ON_USE (copysign, "copysignl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_COSF@
|
||||
# if !@HAVE_COSF@
|
||||
# undef cosf
|
||||
# if @REPLACE_COSF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef cosf
|
||||
# define cosf rpl_cosf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (cosf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (cosf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_COSF@
|
||||
# undef cosf
|
||||
_GL_FUNCDECL_SYS (cosf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (cosf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (cosf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef cosf
|
||||
|
|
@ -516,11 +564,20 @@ _GL_WARN_ON_USE (cosl, "cosl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_COSHF@
|
||||
# if !@HAVE_COSHF@
|
||||
# undef coshf
|
||||
# if @REPLACE_COSHF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef coshf
|
||||
# define coshf rpl_coshf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (coshf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (coshf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_COSHF@
|
||||
# undef coshf
|
||||
_GL_FUNCDECL_SYS (coshf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (coshf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (coshf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef coshf
|
||||
|
|
@ -532,11 +589,20 @@ _GL_WARN_ON_USE (coshf, "coshf is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_EXPF@
|
||||
# if !@HAVE_EXPF@
|
||||
# undef expf
|
||||
# if @REPLACE_EXPF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef expf
|
||||
# define expf rpl_expf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (expf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (expf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_EXPF@
|
||||
# undef expf
|
||||
_GL_FUNCDECL_SYS (expf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (expf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (expf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef expf
|
||||
|
|
@ -753,6 +819,7 @@ _GL_WARN_ON_USE (floorf, "floorf is unportable - "
|
|||
#if @GNULIB_FLOOR@
|
||||
# if @REPLACE_FLOOR@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef floor
|
||||
# define floor rpl_floor
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (floor, double, (double x));
|
||||
|
|
@ -973,6 +1040,7 @@ _GL_WARN_ON_USE (frexpf, "frexpf is unportable - "
|
|||
#if @GNULIB_FREXP@
|
||||
# if @REPLACE_FREXP@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef frexp
|
||||
# define frexp rpl_frexp
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (frexp, double, (double x, int *expptr) _GL_ARG_NONNULL ((2)));
|
||||
|
|
@ -980,7 +1048,7 @@ _GL_CXXALIAS_RPL (frexp, double, (double x, int *expptr));
|
|||
# else
|
||||
_GL_CXXALIAS_SYS (frexp, double, (double x, int *expptr));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (frexp);
|
||||
_GL_CXXALIASWARN1 (frexp, double, (double x, int *expptr));
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef frexp
|
||||
/* Assume frexp is always declared. */
|
||||
|
|
@ -1822,11 +1890,20 @@ _GL_WARN_ON_USE (roundl, "roundl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_SINF@
|
||||
# if !@HAVE_SINF@
|
||||
# undef sinf
|
||||
# if @REPLACE_SINF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef sinf
|
||||
# define sinf rpl_sinf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (sinf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (sinf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_SINF@
|
||||
# undef sinf
|
||||
_GL_FUNCDECL_SYS (sinf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (sinf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (sinf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef sinf
|
||||
|
|
@ -1853,11 +1930,20 @@ _GL_WARN_ON_USE (sinl, "sinl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_SINHF@
|
||||
# if !@HAVE_SINHF@
|
||||
# undef sinhf
|
||||
# if @REPLACE_SINHF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef sinhf
|
||||
# define sinhf rpl_sinhf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (sinhf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (sinhf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_SINHF@
|
||||
# undef sinhf
|
||||
_GL_FUNCDECL_SYS (sinhf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (sinhf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (sinhf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef sinhf
|
||||
|
|
@ -1869,11 +1955,20 @@ _GL_WARN_ON_USE (sinhf, "sinhf is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_SQRTF@
|
||||
# if !@HAVE_SQRTF@
|
||||
# undef sqrtf
|
||||
# if @REPLACE_SQRTF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef sqrtf
|
||||
# define sqrtf rpl_sqrtf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (sqrtf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (sqrtf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_SQRTF@
|
||||
# undef sqrtf
|
||||
_GL_FUNCDECL_SYS (sqrtf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (sqrtf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (sqrtf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef sqrtf
|
||||
|
|
@ -1909,11 +2004,20 @@ _GL_WARN_ON_USE (sqrtl, "sqrtl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_TANF@
|
||||
# if !@HAVE_TANF@
|
||||
# undef tanf
|
||||
# if @REPLACE_TANF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef tanf
|
||||
# define tanf rpl_tanf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (tanf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (tanf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_TANF@
|
||||
# undef tanf
|
||||
_GL_FUNCDECL_SYS (tanf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (tanf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (tanf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef tanf
|
||||
|
|
@ -1940,11 +2044,20 @@ _GL_WARN_ON_USE (tanl, "tanl is unportable - "
|
|||
|
||||
|
||||
#if @GNULIB_TANHF@
|
||||
# if !@HAVE_TANHF@
|
||||
# undef tanhf
|
||||
# if @REPLACE_TANHF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef tanhf
|
||||
# define tanhf rpl_tanhf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (tanhf, float, (float x));
|
||||
_GL_CXXALIAS_RPL (tanhf, float, (float x));
|
||||
# else
|
||||
# if !@HAVE_TANHF@
|
||||
# undef tanhf
|
||||
_GL_FUNCDECL_SYS (tanhf, float, (float x));
|
||||
# endif
|
||||
# endif
|
||||
_GL_CXXALIAS_SYS (tanhf, float, (float x));
|
||||
# endif
|
||||
_GL_CXXALIASWARN (tanhf);
|
||||
#elif defined GNULIB_POSIXCHECK
|
||||
# undef tanhf
|
||||
|
|
@ -1958,6 +2071,7 @@ _GL_WARN_ON_USE (tanhf, "tanhf is unportable - "
|
|||
#if @GNULIB_TRUNCF@
|
||||
# if @REPLACE_TRUNCF@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef truncf
|
||||
# define truncf rpl_truncf
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (truncf, float, (float x));
|
||||
|
|
@ -1980,6 +2094,7 @@ _GL_WARN_ON_USE (truncf, "truncf is unportable - "
|
|||
#if @GNULIB_TRUNC@
|
||||
# if @REPLACE_TRUNC@
|
||||
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
||||
# undef trunc
|
||||
# define trunc rpl_trunc
|
||||
# endif
|
||||
_GL_FUNCDECL_RPL (trunc, double, (double x));
|
||||
|
|
@ -2039,7 +2154,7 @@ _GL_EXTERN_C int gl_isfinitel (long double x);
|
|||
gl_isfinitef (x))
|
||||
# endif
|
||||
# ifdef __cplusplus
|
||||
# ifdef isfinite
|
||||
# if defined isfinite || defined GNULIB_NAMESPACE
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_1 (isfinite)
|
||||
# undef isfinite
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_2 (isfinite)
|
||||
|
|
@ -2066,7 +2181,7 @@ _GL_EXTERN_C int gl_isinfl (long double x);
|
|||
gl_isinff (x))
|
||||
# endif
|
||||
# ifdef __cplusplus
|
||||
# ifdef isinf
|
||||
# if defined isinf || defined GNULIB_NAMESPACE
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_1 (isinf)
|
||||
# undef isinf
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_2 (isinf)
|
||||
|
|
@ -2184,7 +2299,7 @@ _GL_EXTERN_C int rpl_isnanl (long double x) _GL_ATTRIBUTE_CONST;
|
|||
__builtin_isnanf ((float)(x)))
|
||||
# endif
|
||||
# ifdef __cplusplus
|
||||
# ifdef isnan
|
||||
# if defined isnan || defined GNULIB_NAMESPACE
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_1 (isnan)
|
||||
# undef isnan
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_2 (isnan)
|
||||
|
|
@ -2259,7 +2374,7 @@ _GL_EXTERN_C int gl_signbitl (long double arg);
|
|||
gl_signbitf (x))
|
||||
# endif
|
||||
# ifdef __cplusplus
|
||||
# ifdef signbit
|
||||
# if defined signbit || defined GNULIB_NAMESPACE
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_1 (signbit)
|
||||
# undef signbit
|
||||
_GL_MATH_CXX_REAL_FLOATING_DECL_2 (signbit)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue