1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
# logb.m4 serial 9
dnl Copyright (C) 2010-2023 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.
AC_DEFUN([gl_FUNC_LOGB],
[
AC_REQUIRE([gl_MATH_H_DEFAULTS])
dnl Persuade glibc <math.h> to declare logb().
AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS])
dnl Test whether logb() is declared.
AC_CHECK_DECLS([logb], , , [[#include <math.h>]])
if test "$ac_cv_have_decl_logb" != yes; then
HAVE_DECL_LOGB=0
fi
dnl Test whether logb() can be used without libm.
LOGB_LIBM=?
AC_LINK_IFELSE(
[AC_LANG_PROGRAM(
[[#ifndef __NO_MATH_INLINES
# define __NO_MATH_INLINES 1 /* for glibc */
#endif
#include <math.h>
extern
#ifdef __cplusplus
"C"
#endif
double logb (double x);
double x;]],
[[x = logb(x);]])],
[LOGB_LIBM=])
if test "$LOGB_LIBM" = "?"; then
save_LIBS="$LIBS"
LIBS="$LIBS -lm"
AC_LINK_IFELSE(
[AC_LANG_PROGRAM(
[[#ifndef __NO_MATH_INLINES
# define __NO_MATH_INLINES 1 /* for glibc */
#endif
#include <math.h>
extern
#ifdef __cplusplus
"C"
#endif
double logb (double x);
double x;]],
[[x = logb(x);]])],
[LOGB_LIBM="-lm"])
LIBS="$save_LIBS"
fi
if test "$LOGB_LIBM" != "?"; then
HAVE_LOGB=1
save_LIBS="$LIBS"
LIBS="$LIBS $LOGB_LIBM"
gl_FUNC_LOGB_WORKS
LIBS="$save_LIBS"
case "$gl_cv_func_logb_works" in
*yes) ;;
*) REPLACE_LOGB=1 ;;
esac
else
HAVE_LOGB=0
fi
if test $HAVE_LOGB = 0 || test $REPLACE_LOGB = 1; then
dnl Find libraries needed to link lib/logb.c.
AC_REQUIRE([gl_FUNC_FREXP])
AC_REQUIRE([gl_FUNC_ISNAND])
LOGB_LIBM=
dnl Append $FREXP_LIBM to LOGB_LIBM, avoiding gratuitous duplicates.
case " $LOGB_LIBM " in
*" $FREXP_LIBM "*) ;;
*) LOGB_LIBM="$LOGB_LIBM $FREXP_LIBM" ;;
esac
dnl Append $ISNAND_LIBM to LOGB_LIBM, avoiding gratuitous duplicates.
case " $LOGB_LIBM " in
*" $ISNAND_LIBM "*) ;;
*) LOGB_LIBM="$LOGB_LIBM $ISNAND_LIBM" ;;
esac
fi
AC_SUBST([LOGB_LIBM])
])
dnl Test whether logb() works.
dnl On glibc 2.11/ppc, glibc 2.7/sparc, glibc 2.7/hppa, Solaris 10/SPARC,
dnl Solaris 11.4/x86_64, Cygwin 1.5.x, the return value for subnormal
dnl (denormalized) arguments is too large.
dnl On glibc 2.17/ppc likewise but only for negative subnormal (denormalized)
dnl arguments.
AC_DEFUN([gl_FUNC_LOGB_WORKS],
[
AC_REQUIRE([AC_PROG_CC])
AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
AC_CACHE_CHECK([whether logb works], [gl_cv_func_logb_works],
[
AC_RUN_IFELSE(
[AC_LANG_SOURCE([[
#include <float.h>
#include <math.h>
extern
#ifdef __cplusplus
"C"
#endif
double logb (double);
volatile double x;
int main ()
{
int result = 0;
/* This test fails on glibc 2.11/ppc, glibc 2.7/sparc, glibc 2.7/hppa,
Solaris 10/SPARC, Solaris 11.4/x86_64, Cygwin 1.5.x. */
{
int i;
for (i = 1, x = 1.0; i >= DBL_MIN_EXP; i--, x *= 0.5)
;
/* Here i = DBL_MIN_EXP - 1. Either x = 2^(i-1) is subnormal or x = 0.0. */
if (x > 0.0 && !(logb (x) == (double)(i - 1)))
result |= 1;
}
/* This test fails on glibc 2.17/ppc. */
{
int i;
for (i = 1, x = -1.0; i >= DBL_MIN_EXP; i--, x *= 0.5)
;
/* Here i = DBL_MIN_EXP - 1. Either x = -2^(i-1) is subnormal or x = -0.0. */
if (x < 0.0 && !(logb (x) == (double)(i - 1)))
result |= 2;
}
return result;
}
]])],
[gl_cv_func_logb_works=yes],
[gl_cv_func_logb_works=no],
[case "$host_os" in
*gnu* | solaris* | cygwin*) gl_cv_func_logb_works="guessing no" ;;
mingw*) # Guess yes on MSVC, no on mingw.
AC_EGREP_CPP([Known], [
#ifdef _MSC_VER
Known
#endif
],
[gl_cv_func_logb_works="guessing yes"],
[gl_cv_func_logb_works="guessing no"])
;;
*) gl_cv_func_logb_works="guessing yes" ;;
esac
])
])
])
|
