1 # remainderf.m4 serial 11
2 dnl Copyright (C) 2012-2019 Free Software Foundation, Inc.
3 dnl This file is free software; the Free Software Foundation
4 dnl gives unlimited permission to copy and/or distribute it,
5 dnl with or without modifications, as long as this notice is preserved.
7 AC_DEFUN([gl_FUNC_REMAINDERF],
9 m4_divert_text([DEFAULTS], [gl_remainderf_required=plain])
10 AC_REQUIRE([gl_MATH_H_DEFAULTS])
11 AC_REQUIRE([gl_FUNC_REMAINDER])
13 dnl Persuade glibc <math.h> to declare remainderf().
14 AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS])
16 dnl Test whether remainderf() exists. Assume that remainderf(), if it exists, is
17 dnl defined in the same library as remainder().
19 LIBS="$LIBS $REMAINDER_LIBM"
20 AC_CACHE_CHECK([for remainderf],
21 [gl_cv_func_remainderf],
25 [[#ifndef __NO_MATH_INLINES
26 # define __NO_MATH_INLINES 1 /* for glibc */
33 float remainderf (float, float);
34 float (*funcptr) (float, float) = remainderf;
37 [[return funcptr (x, y) > 1
38 || remainderf (x, y) > 1;]])],
39 [gl_cv_func_remainderf=yes],
40 [gl_cv_func_remainderf=no])
43 if test $gl_cv_func_remainderf = yes; then
44 REMAINDERF_LIBM="$REMAINDER_LIBM"
47 LIBS="$LIBS $REMAINDERF_LIBM"
48 gl_FUNC_REMAINDERF_WORKS
50 case "$gl_cv_func_remainderf_works" in
52 *) REPLACE_REMAINDERF=1 ;;
55 m4_ifdef([gl_FUNC_REMAINDERF_IEEE], [
56 if test $gl_remainderf_required = ieee && test $REPLACE_REMAINDERF = 0; then
57 AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
58 AC_CACHE_CHECK([whether remainderf works according to ISO C 99 with IEC 60559],
59 [gl_cv_func_remainderf_ieee],
62 LIBS="$LIBS $REMAINDERF_LIBM"
65 #ifndef __NO_MATH_INLINES
66 # define __NO_MATH_INLINES 1 /* for glibc */
73 float remainderf (float, float);
74 /* Compare two numbers with ==.
75 This is a separate function because IRIX 6.5 "cc -O" miscompiles an
78 numeric_equal (float x, float y)
82 static float dummy (float x, float y) { return 0; }
83 int main (int argc, char *argv[])
85 float (* volatile my_remainderf) (float, float) = argc ? remainderf : dummy;
87 /* Test remainderf(...,0.0f).
88 This test fails on OSF/1 5.1. */
89 f = my_remainderf (2.0f, 0.0f);
90 if (numeric_equal (f, f))
95 [gl_cv_func_remainderf_ieee=yes],
96 [gl_cv_func_remainderf_ieee=no],
98 # Guess yes on glibc systems.
99 *-gnu* | gnu*) gl_cv_func_remainderf_ieee="guessing yes" ;;
100 # Guess yes on native Windows.
101 mingw*) gl_cv_func_remainderf_ieee="guessing yes" ;;
102 # If we don't know, assume the worst.
103 *) gl_cv_func_remainderf_ieee="guessing no" ;;
108 case "$gl_cv_func_remainderf_ieee" in
110 *) REPLACE_REMAINDERF=1 ;;
117 if test $HAVE_REMAINDERF = 0 || test $REPLACE_REMAINDERF = 1; then
118 dnl Find libraries needed to link lib/remainderf.c.
119 if test $gl_cv_func_remainder_no_libm = yes \
120 || test $gl_cv_func_remainder_in_libm = yes; then
121 AC_DEFINE([HAVE_REMAINDER], [1],
122 [Define to 1 if the remainder() function is available in libc or libm.])
123 REMAINDERF_LIBM="$REMAINDER_LIBM"
125 AC_REQUIRE([gl_FUNC_FABSF])
126 AC_REQUIRE([gl_FUNC_FMODF])
127 AC_REQUIRE([gl_FUNC_ISNANF])
129 dnl Append $FABSF_LIBM to REMAINDERF_LIBM, avoiding gratuitous duplicates.
130 case " $REMAINDERF_LIBM " in
131 *" $FABSF_LIBM "*) ;;
132 *) REMAINDERF_LIBM="$REMAINDERF_LIBM $FABSF_LIBM" ;;
134 dnl Append $FMODF_LIBM to REMAINDERF_LIBM, avoiding gratuitous duplicates.
135 case " $REMAINDERF_LIBM " in
136 *" $FMODF_LIBM "*) ;;
137 *) REMAINDERF_LIBM="$REMAINDERF_LIBM $FMODF_LIBM" ;;
139 dnl Append $ISNANF_LIBM to REMAINDERF_LIBM, avoiding gratuitous duplicates.
140 case " $REMAINDERF_LIBM " in
141 *" $ISNANF_LIBM "*) ;;
142 *) REMAINDERF_LIBM="$REMAINDERF_LIBM $ISNANF_LIBM" ;;
146 AC_SUBST([REMAINDERF_LIBM])
149 dnl Test whether remainderf() works.
150 dnl It runs into an endless loop on IRIX 6.5.
151 AC_DEFUN([gl_FUNC_REMAINDERF_WORKS],
153 AC_REQUIRE([AC_PROG_CC])
154 AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
155 AC_CHECK_DECLS_ONCE([alarm])
156 AC_CACHE_CHECK([whether remainderf works], [gl_cv_func_remainderf_works],
169 float remainderf (float, float);
176 signal (SIGALRM, SIG_DFL);
179 /* This test fails on IRIX 6.5. */
182 z = remainderf (x, y);
186 [gl_cv_func_remainderf_works=yes],
187 [gl_cv_func_remainderf_works=no],
189 irix*) gl_cv_func_remainderf_works="guessing no" ;;
190 # Guess yes on native Windows.
191 mingw*) gl_cv_func_remainderf_works="guessing yes" ;;
192 *) gl_cv_func_remainderf_works="guessing yes" ;;