HCoop / bpt / guile.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Merge remote-tracking branch 'local-2.0/stable-2.0'
[bpt/guile.git] / lib / math.in.h
CommitLineData
2e65b52f
LC		 1/* A GNU-like <math.h>.
2
f0007cad 3 Copyright (C) 2002-2003, 2007-2012 Free Software Foundation, Inc.
2e65b52f
LC		 4
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU Lesser General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17
3d458a81 18#ifndef _@GUARD_PREFIX@_MATH_H
2e65b52f
LC		 19
20#if __GNUC__ >= 3
21@PRAGMA_SYSTEM_HEADER@
22#endif
0f00f2c3 23@PRAGMA_COLUMNS@
2e65b52f
LC		 24
25/* The include_next requires a split double-inclusion guard. */
26#@INCLUDE_NEXT_AS_FIRST_DIRECTIVE@ @NEXT_AS_FIRST_DIRECTIVE_MATH_H@
27
3d458a81
AW		 28#ifndef _@GUARD_PREFIX@_MATH_H
29#define _@GUARD_PREFIX@_MATH_H
2e65b52f
LC		 30
31
32/* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */
33
34/* The definition of _GL_ARG_NONNULL is copied here. */
35
36/* The definition of _GL_WARN_ON_USE is copied here. */
37
35428fb6
LC		 38#ifdef __cplusplus
39/* Helper macros to define type-generic function FUNC as overloaded functions,
40 rather than as macros like in C. POSIX declares these with an argument of
41 real-floating (that is, one of float, double, or long double). */
42# define _GL_MATH_CXX_REAL_FLOATING_DECL_1(func) \
43static inline int \
44_gl_cxx_ ## func ## f (float f) \
45{ \
46 return func (f); \
47} \
48static inline int \
49_gl_cxx_ ## func ## d (double d) \
50{ \
51 return func (d); \
52} \
53static inline int \
54_gl_cxx_ ## func ## l (long double l) \
55{ \
56 return func (l); \
57}
58# define _GL_MATH_CXX_REAL_FLOATING_DECL_2(func) \
59inline int \
60func (float f) \
61{ \
62 return _gl_cxx_ ## func ## f (f); \
63} \
64inline int \
65func (double d) \
66{ \
67 return _gl_cxx_ ## func ## d (d); \
68} \
69inline int \
70func (long double l) \
71{ \
72 return _gl_cxx_ ## func ## l (l); \
73}
74#endif
75
2e65b52f
LC		 76/* Helper macros to define a portability warning for the
77 classification macro FUNC called with VALUE. POSIX declares the
78 classification macros with an argument of real-floating (that is,
79 one of float, double, or long double). */
80#define _GL_WARN_REAL_FLOATING_DECL(func) \
81static inline int \
82rpl_ ## func ## f (float f) \
83{ \
84 return func (f); \
85} \
86static inline int \
87rpl_ ## func ## d (double d) \
88{ \
89 return func (d); \
90} \
91static inline int \
92rpl_ ## func ## l (long double l) \
93{ \
94 return func (l); \
95} \
96_GL_WARN_ON_USE (rpl_ ## func ## f, #func " is unportable - " \
97 "use gnulib module " #func " for portability"); \
98_GL_WARN_ON_USE (rpl_ ## func ## d, #func " is unportable - " \
99 "use gnulib module " #func " for portability"); \
100_GL_WARN_ON_USE (rpl_ ## func ## l, #func " is unportable - " \
101 "use gnulib module " #func " for portability")
102#define _GL_WARN_REAL_FLOATING_IMPL(func, value) \
103 (sizeof (value) == sizeof (float) ? rpl_ ## func ## f (value) \
104 : sizeof (value) == sizeof (double) ? rpl_ ## func ## d (value) \
105 : rpl_ ## func ## l (value))
106
107
35428fb6
LC		 108#if @REPLACE_ITOLD@
109/* Pull in a function that fixes the 'int' to 'long double' conversion
110 of glibc 2.7. */
111_GL_EXTERN_C void _Qp_itoq (long double *, int);
112static void (*_gl_math_fix_itold) (long double *, int) = _Qp_itoq;
113#endif
114
115
2e65b52f
LC		 116/* POSIX allows platforms that don't support NAN. But all major
117 machines in the past 15 years have supported something close to
118 IEEE NaN, so we define this unconditionally. We also must define
119 it on platforms like Solaris 10, where NAN is present but defined
120 as a function pointer rather than a floating point constant. */
121#if !defined NAN || @REPLACE_NAN@
49114fd4
LC		 122# if !GNULIB_defined_NAN
123# undef NAN
35428fb6
LC		 124 /* The Compaq (ex-DEC) C 6.4 compiler and the Microsoft MSVC 9 compiler
125 choke on the expression 0.0 / 0.0. */
126# if defined __DECC || defined _MSC_VER
2e65b52f
LC		 127static float
128_NaN ()
129{
130 static float zero = 0.0f;
131 return zero / zero;
132}
49114fd4
LC		 133# define NAN (_NaN())
134# else
135# define NAN (0.0f / 0.0f)
136# endif
137# define GNULIB_defined_NAN 1
2e65b52f
LC		 138# endif
139#endif
140
141/* Solaris 10 defines HUGE_VAL, but as a function pointer rather
142 than a floating point constant. */
143#if @REPLACE_HUGE_VAL@
144# undef HUGE_VAL
145# define HUGE_VAL (1.0 / 0.0)
146#endif
147
148
35428fb6
LC		 149#if @GNULIB_ACOSF@
150# if !@HAVE_ACOSF@
151# undef acosf
152_GL_FUNCDECL_SYS (acosf, float, (float x));
2e65b52f 153# endif
35428fb6
LC		 154_GL_CXXALIAS_SYS (acosf, float, (float x));
155_GL_CXXALIASWARN (acosf);
2e65b52f 156#elif defined GNULIB_POSIXCHECK
35428fb6
LC		 157# undef acosf
158# if HAVE_RAW_DECL_ACOSF
159_GL_WARN_ON_USE (acosf, "acosf is unportable - "
160 "use gnulib module acosf for portability");
2e65b52f
LC		 161# endif
162#endif
163
2e65b52f
LC		 164#if @GNULIB_ACOSL@
165# if !@HAVE_ACOSL@ || !@HAVE_DECL_ACOSL@
166_GL_FUNCDECL_SYS (acosl, long double, (long double x));
167# endif
168_GL_CXXALIAS_SYS (acosl, long double, (long double x));
169_GL_CXXALIASWARN (acosl);
170#elif defined GNULIB_POSIXCHECK
171# undef acosl
172# if HAVE_RAW_DECL_ACOSL
173_GL_WARN_ON_USE (acosl, "acosl is unportable - "
174 "use gnulib module mathl for portability");
175# endif
176#endif
177
178
35428fb6
LC		 179#if @GNULIB_ASINF@
180# if !@HAVE_ASINF@
181# undef asinf
182_GL_FUNCDECL_SYS (asinf, float, (float x));
183# endif
184_GL_CXXALIAS_SYS (asinf, float, (float x));
185_GL_CXXALIASWARN (asinf);
186#elif defined GNULIB_POSIXCHECK
187# undef asinf
188# if HAVE_RAW_DECL_ASINF
189_GL_WARN_ON_USE (asinf, "asinf is unportable - "
190 "use gnulib module asinf for portability");
191# endif
192#endif
193
2e65b52f
LC		 194#if @GNULIB_ASINL@
195# if !@HAVE_ASINL@ || !@HAVE_DECL_ASINL@
196_GL_FUNCDECL_SYS (asinl, long double, (long double x));
197# endif
198_GL_CXXALIAS_SYS (asinl, long double, (long double x));
199_GL_CXXALIASWARN (asinl);
200#elif defined GNULIB_POSIXCHECK
201# undef asinl
202# if HAVE_RAW_DECL_ASINL
203_GL_WARN_ON_USE (asinl, "asinl is unportable - "
204 "use gnulib module mathl for portability");
205# endif
206#endif
207
208
35428fb6
LC		 209#if @GNULIB_ATANF@
210# if !@HAVE_ATANF@
211# undef atanf
212_GL_FUNCDECL_SYS (atanf, float, (float x));
213# endif
214_GL_CXXALIAS_SYS (atanf, float, (float x));
215_GL_CXXALIASWARN (atanf);
216#elif defined GNULIB_POSIXCHECK
217# undef atanf
218# if HAVE_RAW_DECL_ATANF
219_GL_WARN_ON_USE (atanf, "atanf is unportable - "
220 "use gnulib module atanf for portability");
221# endif
222#endif
223
2e65b52f
LC		 224#if @GNULIB_ATANL@
225# if !@HAVE_ATANL@ || !@HAVE_DECL_ATANL@
226_GL_FUNCDECL_SYS (atanl, long double, (long double x));
227# endif
228_GL_CXXALIAS_SYS (atanl, long double, (long double x));
229_GL_CXXALIASWARN (atanl);
230#elif defined GNULIB_POSIXCHECK
231# undef atanl
232# if HAVE_RAW_DECL_ATANL
233_GL_WARN_ON_USE (atanl, "atanl is unportable - "
234 "use gnulib module mathl for portability");
235# endif
236#endif
237
238
35428fb6
LC		 239#if @GNULIB_ATAN2F@
240# if !@HAVE_ATAN2F@
241# undef atan2f
242_GL_FUNCDECL_SYS (atan2f, float, (float y, float x));
243# endif
244_GL_CXXALIAS_SYS (atan2f, float, (float y, float x));
245_GL_CXXALIASWARN (atan2f);
246#elif defined GNULIB_POSIXCHECK
247# undef atan2f
248# if HAVE_RAW_DECL_ATAN2F
249_GL_WARN_ON_USE (atan2f, "atan2f is unportable - "
250 "use gnulib module atan2f for portability");
251# endif
252#endif
253
254
2e65b52f
LC		 255#if @GNULIB_CEILF@
256# if @REPLACE_CEILF@
257# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
35428fb6 258# undef ceilf
2e65b52f
LC		 259# define ceilf rpl_ceilf
260# endif
261_GL_FUNCDECL_RPL (ceilf, float, (float x));
262_GL_CXXALIAS_RPL (ceilf, float, (float x));
263# else
264# if !@HAVE_DECL_CEILF@
265_GL_FUNCDECL_SYS (ceilf, float, (float x));
266# endif
267_GL_CXXALIAS_SYS (ceilf, float, (float x));
268# endif
269_GL_CXXALIASWARN (ceilf);
270#elif defined GNULIB_POSIXCHECK
271# undef ceilf
272# if HAVE_RAW_DECL_CEILF
273_GL_WARN_ON_USE (ceilf, "ceilf is unportable - "
274 "use gnulib module ceilf for portability");
275# endif
276#endif
277
49114fd4
LC		 278#if @GNULIB_CEIL@
279# if @REPLACE_CEIL@
280# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
281# define ceil rpl_ceil
282# endif
283_GL_FUNCDECL_RPL (ceil, double, (double x));
284_GL_CXXALIAS_RPL (ceil, double, (double x));
285# else
286_GL_CXXALIAS_SYS (ceil, double, (double x));
287# endif
288_GL_CXXALIASWARN (ceil);
289#endif
290
2e65b52f
LC		 291#if @GNULIB_CEILL@
292# if @REPLACE_CEILL@
293# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
35428fb6 294# undef ceill
2e65b52f
LC		 295# define ceill rpl_ceill
296# endif
297_GL_FUNCDECL_RPL (ceill, long double, (long double x));
298_GL_CXXALIAS_RPL (ceill, long double, (long double x));
299# else
300# if !@HAVE_DECL_CEILL@
301_GL_FUNCDECL_SYS (ceill, long double, (long double x));
302# endif
303_GL_CXXALIAS_SYS (ceill, long double, (long double x));
304# endif
305_GL_CXXALIASWARN (ceill);
306#elif defined GNULIB_POSIXCHECK
307# undef ceill
308# if HAVE_RAW_DECL_CEILL
309_GL_WARN_ON_USE (ceill, "ceill is unportable - "
310 "use gnulib module ceill for portability");
311# endif
312#endif
313
314
35428fb6
LC		 315#if @GNULIB_COPYSIGNF@
316# if !@HAVE_COPYSIGNF@
317_GL_FUNCDECL_SYS (copysignf, float, (float x, float y));
318# endif
319_GL_CXXALIAS_SYS (copysignf, float, (float x, float y));
320_GL_CXXALIASWARN (copysignf);
321#elif defined GNULIB_POSIXCHECK
322# undef copysignf
323# if HAVE_RAW_DECL_COPYSIGNF
324_GL_WARN_ON_USE (copysignf, "copysignf is unportable - "
325 "use gnulib module copysignf for portability");
326# endif
327#endif
328
329#if @GNULIB_COPYSIGN@
330# if !@HAVE_COPYSIGN@
331_GL_FUNCDECL_SYS (copysign, double, (double x, double y));
332# endif
333_GL_CXXALIAS_SYS (copysign, double, (double x, double y));
334_GL_CXXALIASWARN (copysign);
335#elif defined GNULIB_POSIXCHECK
336# undef copysign
337# if HAVE_RAW_DECL_COPYSIGN
338_GL_WARN_ON_USE (copysign, "copysign is unportable - "
339 "use gnulib module copysign for portability");
340# endif
341#endif
342
343#if @GNULIB_COPYSIGNL@
344# if !@HAVE_COPYSIGNL@
345_GL_FUNCDECL_SYS (copysignl, long double, (long double x, long double y));
346# endif
347_GL_CXXALIAS_SYS (copysignl, long double, (long double x, long double y));
348_GL_CXXALIASWARN (copysignl);
349#elif defined GNULIB_POSIXCHECK
350# undef copysignl
351# if HAVE_RAW_DECL_COPYSIGNL
352_GL_WARN_ON_USE (copysign, "copysignl is unportable - "
353 "use gnulib module copysignl for portability");
354# endif
355#endif
356
357
358#if @GNULIB_COSF@
359# if !@HAVE_COSF@
360# undef cosf
361_GL_FUNCDECL_SYS (cosf, float, (float x));
362# endif
363_GL_CXXALIAS_SYS (cosf, float, (float x));
364_GL_CXXALIASWARN (cosf);
365#elif defined GNULIB_POSIXCHECK
366# undef cosf
367# if HAVE_RAW_DECL_COSF
368_GL_WARN_ON_USE (cosf, "cosf is unportable - "
369 "use gnulib module cosf for portability");
370# endif
371#endif
372
2e65b52f
LC		 373#if @GNULIB_COSL@
374# if !@HAVE_COSL@ || !@HAVE_DECL_COSL@
375_GL_FUNCDECL_SYS (cosl, long double, (long double x));
376# endif
377_GL_CXXALIAS_SYS (cosl, long double, (long double x));
378_GL_CXXALIASWARN (cosl);
379#elif defined GNULIB_POSIXCHECK
380# undef cosl
381# if HAVE_RAW_DECL_COSL
382_GL_WARN_ON_USE (cosl, "cosl is unportable - "
383 "use gnulib module mathl for portability");
384# endif
385#endif
386
387
35428fb6
LC		 388#if @GNULIB_COSHF@
389# if !@HAVE_COSHF@
390# undef coshf
391_GL_FUNCDECL_SYS (coshf, float, (float x));
392# endif
393_GL_CXXALIAS_SYS (coshf, float, (float x));
394_GL_CXXALIASWARN (coshf);
395#elif defined GNULIB_POSIXCHECK
396# undef coshf
397# if HAVE_RAW_DECL_COSHF
398_GL_WARN_ON_USE (coshf, "coshf is unportable - "
399 "use gnulib module coshf for portability");
400# endif
401#endif
402
403
404#if @GNULIB_EXPF@
405# if !@HAVE_EXPF@
406# undef expf
407_GL_FUNCDECL_SYS (expf, float, (float x));
408# endif
409_GL_CXXALIAS_SYS (expf, float, (float x));
410_GL_CXXALIASWARN (expf);
411#elif defined GNULIB_POSIXCHECK
412# undef expf
413# if HAVE_RAW_DECL_EXPF
414_GL_WARN_ON_USE (expf, "expf is unportable - "
415 "use gnulib module expf for portability");
416# endif
417#endif
418
2e65b52f
LC		 419#if @GNULIB_EXPL@
420# if !@HAVE_EXPL@ || !@HAVE_DECL_EXPL@
421_GL_FUNCDECL_SYS (expl, long double, (long double x));
422# endif
423_GL_CXXALIAS_SYS (expl, long double, (long double x));
424_GL_CXXALIASWARN (expl);
425#elif defined GNULIB_POSIXCHECK
426# undef expl
427# if HAVE_RAW_DECL_EXPL
428_GL_WARN_ON_USE (expl, "expl is unportable - "
429 "use gnulib module mathl for portability");
430# endif
431#endif
432
433
35428fb6
LC		 434#if @GNULIB_FABSF@
435# if !@HAVE_FABSF@
436# undef fabsf
437_GL_FUNCDECL_SYS (fabsf, float, (float x));
438# endif
439_GL_CXXALIAS_SYS (fabsf, float, (float x));
440_GL_CXXALIASWARN (fabsf);
441#elif defined GNULIB_POSIXCHECK
442# undef fabsf
443# if HAVE_RAW_DECL_FABSF
444_GL_WARN_ON_USE (fabsf, "fabsf is unportable - "
445 "use gnulib module fabsf for portability");
446# endif
447#endif
448
449
2e65b52f
LC		 450#if @GNULIB_FLOORF@
451# if @REPLACE_FLOORF@
452# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
35428fb6 453# undef floorf
2e65b52f
LC		 454# define floorf rpl_floorf
455# endif
456_GL_FUNCDECL_RPL (floorf, float, (float x));
457_GL_CXXALIAS_RPL (floorf, float, (float x));
49114fd4 458# else
2e65b52f
LC		 459# if !@HAVE_DECL_FLOORF@
460_GL_FUNCDECL_SYS (floorf, float, (float x));
461# endif
462_GL_CXXALIAS_SYS (floorf, float, (float x));
463# endif
464_GL_CXXALIASWARN (floorf);
465#elif defined GNULIB_POSIXCHECK
466# undef floorf
467# if HAVE_RAW_DECL_FLOORF
468_GL_WARN_ON_USE (floorf, "floorf is unportable - "
469 "use gnulib module floorf for portability");
470# endif
471#endif
472
49114fd4
LC		 473#if @GNULIB_FLOOR@
474# if @REPLACE_FLOOR@
475# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
476# define floor rpl_floor
477# endif
478_GL_FUNCDECL_RPL (floor, double, (double x));
479_GL_CXXALIAS_RPL (floor, double, (double x));
480# else
481_GL_CXXALIAS_SYS (floor, double, (double x));
482# endif
483_GL_CXXALIASWARN (floor);
484#endif
485
2e65b52f
LC		 486#if @GNULIB_FLOORL@
487# if @REPLACE_FLOORL@
488# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
35428fb6 489# undef floorl
2e65b52f
LC		 490# define floorl rpl_floorl
491# endif
492_GL_FUNCDECL_RPL (floorl, long double, (long double x));
493_GL_CXXALIAS_RPL (floorl, long double, (long double x));
494# else
495# if !@HAVE_DECL_FLOORL@
496_GL_FUNCDECL_SYS (floorl, long double, (long double x));
497# endif
498_GL_CXXALIAS_SYS (floorl, long double, (long double x));
499# endif
500_GL_CXXALIASWARN (floorl);
501#elif defined GNULIB_POSIXCHECK
502# undef floorl
503# if HAVE_RAW_DECL_FLOORL
504_GL_WARN_ON_USE (floorl, "floorl is unportable - "
505 "use gnulib module floorl for portability");
506# endif
507#endif
508
509
7f1ea859
LC		 510#if @GNULIB_FMAF@
511# if @REPLACE_FMAF@
512# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
513# undef fmaf
514# define fmaf rpl_fmaf
515# endif
516_GL_FUNCDECL_RPL (fmaf, float, (float x, float y, float z));
517_GL_CXXALIAS_RPL (fmaf, float, (float x, float y, float z));
518# else
519# if !@HAVE_FMAF@
520_GL_FUNCDECL_SYS (fmaf, float, (float x, float y, float z));
521# endif
522_GL_CXXALIAS_SYS (fmaf, float, (float x, float y, float z));
523# endif
524_GL_CXXALIASWARN (fmaf);
525#elif defined GNULIB_POSIXCHECK
526# undef fmaf
527# if HAVE_RAW_DECL_FMAF
528_GL_WARN_ON_USE (fmaf, "fmaf is unportable - "
529 "use gnulib module fmaf for portability");
530# endif
531#endif
532
533#if @GNULIB_FMA@
534# if @REPLACE_FMA@
535# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
536# undef fma
537# define fma rpl_fma
538# endif
539_GL_FUNCDECL_RPL (fma, double, (double x, double y, double z));
540_GL_CXXALIAS_RPL (fma, double, (double x, double y, double z));
541# else
542# if !@HAVE_FMA@
543_GL_FUNCDECL_SYS (fma, double, (double x, double y, double z));
544# endif
545_GL_CXXALIAS_SYS (fma, double, (double x, double y, double z));
546# endif
547_GL_CXXALIASWARN (fma);
548#elif defined GNULIB_POSIXCHECK
549# undef fma
550# if HAVE_RAW_DECL_FMA
551_GL_WARN_ON_USE (fma, "fma is unportable - "
552 "use gnulib module fma for portability");
553# endif
554#endif
555
556#if @GNULIB_FMAL@
557# if @REPLACE_FMAL@
558# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
559# undef fmal
560# define fmal rpl_fmal
561# endif
562_GL_FUNCDECL_RPL (fmal, long double,
563 (long double x, long double y, long double z));
564_GL_CXXALIAS_RPL (fmal, long double,
565 (long double x, long double y, long double z));
566# else
567# if !@HAVE_FMAL@
568_GL_FUNCDECL_SYS (fmal, long double,
569 (long double x, long double y, long double z));
570# endif
571_GL_CXXALIAS_SYS (fmal, long double,
572 (long double x, long double y, long double z));
573# endif
574_GL_CXXALIASWARN (fmal);
575#elif defined GNULIB_POSIXCHECK
576# undef fmal
577# if HAVE_RAW_DECL_FMAL
578_GL_WARN_ON_USE (fmal, "fmal is unportable - "
579 "use gnulib module fmal for portability");
580# endif
581#endif
582
583
35428fb6
LC		 584#if @GNULIB_FMODF@
585# if !@HAVE_FMODF@
586# undef fmodf
587_GL_FUNCDECL_SYS (fmodf, float, (float x, float y));
588# endif
589_GL_CXXALIAS_SYS (fmodf, float, (float x, float y));
590_GL_CXXALIASWARN (fmodf);
591#elif defined GNULIB_POSIXCHECK
592# undef fmodf
593# if HAVE_RAW_DECL_FMODF
594_GL_WARN_ON_USE (fmodf, "fmodf is unportable - "
595 "use gnulib module fmodf for portability");
596# endif
597#endif
598
599
600/* Write x as
601 x = mantissa * 2^exp
602 where
603 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
604 If x is zero: mantissa = x, exp = 0.
605 If x is infinite or NaN: mantissa = x, exp unspecified.
606 Store exp in *EXPPTR and return mantissa. */
607#if @GNULIB_FREXPF@
608# if @REPLACE_FREXPF@
609# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
610# undef frexpf
611# define frexpf rpl_frexpf
612# endif
613_GL_FUNCDECL_RPL (frexpf, float, (float x, int *expptr) _GL_ARG_NONNULL ((2)));
614_GL_CXXALIAS_RPL (frexpf, float, (float x, int *expptr));
615# else
616# if !@HAVE_FREXPF@
617# undef frexpf
618_GL_FUNCDECL_SYS (frexpf, float, (float x, int *expptr) _GL_ARG_NONNULL ((2)));
619# endif
620_GL_CXXALIAS_SYS (frexpf, float, (float x, int *expptr));
621# endif
622_GL_CXXALIASWARN (frexpf);
623#elif defined GNULIB_POSIXCHECK
624# undef frexpf
625# if HAVE_RAW_DECL_FREXPF
626_GL_WARN_ON_USE (frexpf, "frexpf is unportable - "
627 "use gnulib module frexpf for portability");
628# endif
629#endif
630
631/* Write x as
632 x = mantissa * 2^exp
633 where
634 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
635 If x is zero: mantissa = x, exp = 0.
636 If x is infinite or NaN: mantissa = x, exp unspecified.
637 Store exp in *EXPPTR and return mantissa. */
638#if @GNULIB_FREXP@
639# if @REPLACE_FREXP@
640# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
641# define frexp rpl_frexp
642# endif
643_GL_FUNCDECL_RPL (frexp, double, (double x, int *expptr) _GL_ARG_NONNULL ((2)));
644_GL_CXXALIAS_RPL (frexp, double, (double x, int *expptr));
645# else
646_GL_CXXALIAS_SYS (frexp, double, (double x, int *expptr));
647# endif
648_GL_CXXALIASWARN (frexp);
649#elif defined GNULIB_POSIXCHECK
650# undef frexp
651/* Assume frexp is always declared. */
652_GL_WARN_ON_USE (frexp, "frexp is unportable - "
653 "use gnulib module frexp for portability");
654#endif
655
2e65b52f
LC		 656/* Write x as
657 x = mantissa * 2^exp
658 where
659 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
660 If x is zero: mantissa = x, exp = 0.
661 If x is infinite or NaN: mantissa = x, exp unspecified.
662 Store exp in *EXPPTR and return mantissa. */
663#if @GNULIB_FREXPL@ && @REPLACE_FREXPL@
664# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
35428fb6 665# undef frexpl
2e65b52f
LC		 666# define frexpl rpl_frexpl
667# endif
668_GL_FUNCDECL_RPL (frexpl, long double,
669 (long double x, int *expptr) _GL_ARG_NONNULL ((2)));
670_GL_CXXALIAS_RPL (frexpl, long double, (long double x, int *expptr));
671#else
672# if !@HAVE_DECL_FREXPL@
673_GL_FUNCDECL_SYS (frexpl, long double,
674 (long double x, int *expptr) _GL_ARG_NONNULL ((2)));
675# endif
676# if @GNULIB_FREXPL@
677_GL_CXXALIAS_SYS (frexpl, long double, (long double x, int *expptr));
678# endif
679#endif
680#if @GNULIB_FREXPL@ && !(@REPLACE_FREXPL@ && !@HAVE_DECL_FREXPL@)
681_GL_CXXALIASWARN (frexpl);
682#endif
683#if !@GNULIB_FREXPL@ && defined GNULIB_POSIXCHECK
684# undef frexpl
685# if HAVE_RAW_DECL_FREXPL
686_GL_WARN_ON_USE (frexpl, "frexpl is unportable - "
687 "use gnulib module frexpl for portability");
688# endif
689#endif
690
691
35428fb6
LC		 692/* Return x * 2^exp. */
693#if @GNULIB_LDEXPF@
694# if !@HAVE_LDEXPF@
695# undef ldexpf
696_GL_FUNCDECL_SYS (ldexpf, float, (float x, int exp));
697# endif
698_GL_CXXALIAS_SYS (ldexpf, float, (float x, int exp));
699_GL_CXXALIASWARN (ldexpf);
700#elif defined GNULIB_POSIXCHECK
701# undef ldexpf
702# if HAVE_RAW_DECL_LDEXPF
703_GL_WARN_ON_USE (ldexpf, "ldexpf is unportable - "
704 "use gnulib module ldexpf for portability");
705# endif
706#endif
707
2e65b52f
LC		 708/* Return x * 2^exp. */
709#if @GNULIB_LDEXPL@ && @REPLACE_LDEXPL@
710# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
35428fb6 711# undef ldexpl
2e65b52f
LC		 712# define ldexpl rpl_ldexpl
713# endif
714_GL_FUNCDECL_RPL (ldexpl, long double, (long double x, int exp));
715_GL_CXXALIAS_RPL (ldexpl, long double, (long double x, int exp));
716#else
717# if !@HAVE_DECL_LDEXPL@
718_GL_FUNCDECL_SYS (ldexpl, long double, (long double x, int exp));
719# endif
720# if @GNULIB_LDEXPL@
721_GL_CXXALIAS_SYS (ldexpl, long double, (long double x, int exp));
722# endif
723#endif
724#if @GNULIB_LDEXPL@
725_GL_CXXALIASWARN (ldexpl);
726#endif
727#if !@GNULIB_LDEXPL@ && defined GNULIB_POSIXCHECK
728# undef ldexpl
729# if HAVE_RAW_DECL_LDEXPL
730_GL_WARN_ON_USE (ldexpl, "ldexpl is unportable - "
731 "use gnulib module ldexpl for portability");
732# endif
733#endif
734
735
35428fb6
LC		 736#if @GNULIB_LOGB@
737# if !@HAVE_DECL_LOGB@
738_GL_EXTERN_C double logb (double x);
739# endif
740#elif defined GNULIB_POSIXCHECK
741# undef logb
742# if HAVE_RAW_DECL_LOGB
743_GL_WARN_ON_USE (logb, "logb is unportable - "
744 "use gnulib module logb for portability");
745# endif
746#endif
747
748
749#if @GNULIB_LOGF@
750# if !@HAVE_LOGF@
751# undef logf
752_GL_FUNCDECL_SYS (logf, float, (float x));
753# endif
754_GL_CXXALIAS_SYS (logf, float, (float x));
755_GL_CXXALIASWARN (logf);
756#elif defined GNULIB_POSIXCHECK
757# undef logf
758# if HAVE_RAW_DECL_LOGF
759_GL_WARN_ON_USE (logf, "logf is unportable - "
760 "use gnulib module logf for portability");
761# endif
762#endif
763
2e65b52f
LC		 764#if @GNULIB_LOGL@
765# if !@HAVE_LOGL@ || !@HAVE_DECL_LOGL@
766_GL_FUNCDECL_SYS (logl, long double, (long double x));
767# endif
768_GL_CXXALIAS_SYS (logl, long double, (long double x));
769_GL_CXXALIASWARN (logl);
770#elif defined GNULIB_POSIXCHECK
771# undef logl
772# if HAVE_RAW_DECL_LOGL
773_GL_WARN_ON_USE (logl, "logl is unportable - "
774 "use gnulib module mathl for portability");
775# endif
776#endif
777
778
35428fb6
LC		 779#if @GNULIB_LOG10F@
780# if !@HAVE_LOG10F@
781# undef log10f
782_GL_FUNCDECL_SYS (log10f, float, (float x));
783# endif
784_GL_CXXALIAS_SYS (log10f, float, (float x));
785_GL_CXXALIASWARN (log10f);
786#elif defined GNULIB_POSIXCHECK
787# undef log10f
788# if HAVE_RAW_DECL_LOG10F
789_GL_WARN_ON_USE (log10f, "log10f is unportable - "
790 "use gnulib module log10f for portability");
791# endif
792#endif
793
794
795#if @GNULIB_MODFF@
796# if !@HAVE_MODFF@
797# undef modff
798_GL_FUNCDECL_SYS (modff, float, (float x, float *iptr) _GL_ARG_NONNULL ((2)));
799# endif
800_GL_CXXALIAS_SYS (modff, float, (float x, float *iptr));
801_GL_CXXALIASWARN (modff);
802#elif defined GNULIB_POSIXCHECK
803# undef modff
804# if HAVE_RAW_DECL_MODFF
805_GL_WARN_ON_USE (modff, "modff is unportable - "
806 "use gnulib module modff for portability");
807# endif
808#endif
809
810
811#if @GNULIB_POWF@
812# if !@HAVE_POWF@
813# undef powf
814_GL_FUNCDECL_SYS (powf, float, (float x, float y));
815# endif
816_GL_CXXALIAS_SYS (powf, float, (float x, float y));
817_GL_CXXALIASWARN (powf);
818#elif defined GNULIB_POSIXCHECK
819# undef powf
820# if HAVE_RAW_DECL_POWF
821_GL_WARN_ON_USE (powf, "powf is unportable - "
822 "use gnulib module powf for portability");
823# endif
824#endif
825
826
827#if @GNULIB_RINTF@
828# if !@HAVE_RINTF@
829_GL_FUNCDECL_SYS (rintf, float, (float x));
830# endif
831_GL_CXXALIAS_SYS (rintf, float, (float x));
832_GL_CXXALIASWARN (rintf);
833#elif defined GNULIB_POSIXCHECK
834# undef rintf
835# if HAVE_RAW_DECL_RINTF
836_GL_WARN_ON_USE (rintf, "rintf is unportable - "
837 "use gnulib module rintf for portability");
838# endif
839#endif
840
841#if @GNULIB_RINT@
842# if !@HAVE_RINT@
843_GL_FUNCDECL_SYS (rint, double, (double x));
844# endif
845_GL_CXXALIAS_SYS (rint, double, (double x));
846_GL_CXXALIASWARN (rint);
847#elif defined GNULIB_POSIXCHECK
848# undef rint
849# if HAVE_RAW_DECL_RINT
850_GL_WARN_ON_USE (rint, "rint is unportable - "
851 "use gnulib module rint for portability");
852# endif
853#endif
854
855#if @GNULIB_RINTL@
856# if !@HAVE_RINTL@
857_GL_FUNCDECL_SYS (rintl, long double, (long double x));
858# endif
859_GL_CXXALIAS_SYS (rintl, long double, (long double x));
860_GL_CXXALIASWARN (rintl);
861#elif defined GNULIB_POSIXCHECK
862# undef rintl
863# if HAVE_RAW_DECL_RINTL
864_GL_WARN_ON_USE (rintl, "rintl is unportable - "
865 "use gnulib module rintl for portability");
866# endif
867#endif
868
869
2e65b52f
LC		 870#if @GNULIB_ROUNDF@
871# if @REPLACE_ROUNDF@
872# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
873# undef roundf
874# define roundf rpl_roundf
875# endif
876_GL_FUNCDECL_RPL (roundf, float, (float x));
877_GL_CXXALIAS_RPL (roundf, float, (float x));
878# else
879# if !@HAVE_DECL_ROUNDF@
880_GL_FUNCDECL_SYS (roundf, float, (float x));
881# endif
882_GL_CXXALIAS_SYS (roundf, float, (float x));
883# endif
884_GL_CXXALIASWARN (roundf);
885#elif defined GNULIB_POSIXCHECK
886# undef roundf
887# if HAVE_RAW_DECL_ROUNDF
888_GL_WARN_ON_USE (roundf, "roundf is unportable - "
889 "use gnulib module roundf for portability");
890# endif
891#endif
892
893#if @GNULIB_ROUND@
894# if @REPLACE_ROUND@
895# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
896# undef round
897# define round rpl_round
898# endif
899_GL_FUNCDECL_RPL (round, double, (double x));
900_GL_CXXALIAS_RPL (round, double, (double x));
901# else
902# if !@HAVE_DECL_ROUND@
903_GL_FUNCDECL_SYS (round, double, (double x));
904# endif
905_GL_CXXALIAS_SYS (round, double, (double x));
906# endif
907_GL_CXXALIASWARN (round);
908#elif defined GNULIB_POSIXCHECK
909# undef round
910# if HAVE_RAW_DECL_ROUND
911_GL_WARN_ON_USE (round, "round is unportable - "
912 "use gnulib module round for portability");
913# endif
914#endif
915
916#if @GNULIB_ROUNDL@
917# if @REPLACE_ROUNDL@
918# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
919# undef roundl
920# define roundl rpl_roundl
921# endif
922_GL_FUNCDECL_RPL (roundl, long double, (long double x));
923_GL_CXXALIAS_RPL (roundl, long double, (long double x));
924# else
925# if !@HAVE_DECL_ROUNDL@
926_GL_FUNCDECL_SYS (roundl, long double, (long double x));
927# endif
928_GL_CXXALIAS_SYS (roundl, long double, (long double x));
929# endif
930_GL_CXXALIASWARN (roundl);
931#elif defined GNULIB_POSIXCHECK
932# undef roundl
933# if HAVE_RAW_DECL_ROUNDL
934_GL_WARN_ON_USE (roundl, "roundl is unportable - "
935 "use gnulib module roundl for portability");
936# endif
937#endif
938
939
35428fb6
LC		 940#if @GNULIB_SINF@
941# if !@HAVE_SINF@
942# undef sinf
943_GL_FUNCDECL_SYS (sinf, float, (float x));
944# endif
945_GL_CXXALIAS_SYS (sinf, float, (float x));
946_GL_CXXALIASWARN (sinf);
947#elif defined GNULIB_POSIXCHECK
948# undef sinf
949# if HAVE_RAW_DECL_SINF
950_GL_WARN_ON_USE (sinf, "sinf is unportable - "
951 "use gnulib module sinf for portability");
952# endif
953#endif
954
2e65b52f
LC		 955#if @GNULIB_SINL@
956# if !@HAVE_SINL@ || !@HAVE_DECL_SINL@
957_GL_FUNCDECL_SYS (sinl, long double, (long double x));
958# endif
959_GL_CXXALIAS_SYS (sinl, long double, (long double x));
960_GL_CXXALIASWARN (sinl);
961#elif defined GNULIB_POSIXCHECK
962# undef sinl
963# if HAVE_RAW_DECL_SINL
964_GL_WARN_ON_USE (sinl, "sinl is unportable - "
965 "use gnulib module mathl for portability");
966# endif
967#endif
968
969
35428fb6
LC		 970#if @GNULIB_SINHF@
971# if !@HAVE_SINHF@
972# undef sinhf
973_GL_FUNCDECL_SYS (sinhf, float, (float x));
974# endif
975_GL_CXXALIAS_SYS (sinhf, float, (float x));
976_GL_CXXALIASWARN (sinhf);
977#elif defined GNULIB_POSIXCHECK
978# undef sinhf
979# if HAVE_RAW_DECL_SINHF
980_GL_WARN_ON_USE (sinhf, "sinhf is unportable - "
981 "use gnulib module sinhf for portability");
982# endif
983#endif
984
985
986#if @GNULIB_SQRTF@
987# if !@HAVE_SQRTF@
988# undef sqrtf
989_GL_FUNCDECL_SYS (sqrtf, float, (float x));
990# endif
991_GL_CXXALIAS_SYS (sqrtf, float, (float x));
992_GL_CXXALIASWARN (sqrtf);
993#elif defined GNULIB_POSIXCHECK
994# undef sqrtf
995# if HAVE_RAW_DECL_SQRTF
996_GL_WARN_ON_USE (sqrtf, "sqrtf is unportable - "
997 "use gnulib module sqrtf for portability");
998# endif
999#endif
1000
2e65b52f
LC		 1001#if @GNULIB_SQRTL@
1002# if !@HAVE_SQRTL@ || !@HAVE_DECL_SQRTL@
1003_GL_FUNCDECL_SYS (sqrtl, long double, (long double x));
1004# endif
1005_GL_CXXALIAS_SYS (sqrtl, long double, (long double x));
1006_GL_CXXALIASWARN (sqrtl);
1007#elif defined GNULIB_POSIXCHECK
1008# undef sqrtl
1009# if HAVE_RAW_DECL_SQRTL
1010_GL_WARN_ON_USE (sqrtl, "sqrtl is unportable - "
1011 "use gnulib module mathl for portability");
1012# endif
1013#endif
1014
1015
35428fb6
LC		 1016#if @GNULIB_TANF@
1017# if !@HAVE_TANF@
1018# undef tanf
1019_GL_FUNCDECL_SYS (tanf, float, (float x));
1020# endif
1021_GL_CXXALIAS_SYS (tanf, float, (float x));
1022_GL_CXXALIASWARN (tanf);
1023#elif defined GNULIB_POSIXCHECK
1024# undef tanf
1025# if HAVE_RAW_DECL_TANF
1026_GL_WARN_ON_USE (tanf, "tanf is unportable - "
1027 "use gnulib module tanf for portability");
1028# endif
1029#endif
1030
2e65b52f
LC		 1031#if @GNULIB_TANL@
1032# if !@HAVE_TANL@ || !@HAVE_DECL_TANL@
1033_GL_FUNCDECL_SYS (tanl, long double, (long double x));
1034# endif
1035_GL_CXXALIAS_SYS (tanl, long double, (long double x));
1036_GL_CXXALIASWARN (tanl);
1037#elif defined GNULIB_POSIXCHECK
1038# undef tanl
1039# if HAVE_RAW_DECL_TANL
1040_GL_WARN_ON_USE (tanl, "tanl is unportable - "
1041 "use gnulib module mathl for portability");
1042# endif
1043#endif
1044
1045
35428fb6
LC		 1046#if @GNULIB_TANHF@
1047# if !@HAVE_TANHF@
1048# undef tanhf
1049_GL_FUNCDECL_SYS (tanhf, float, (float x));
1050# endif
1051_GL_CXXALIAS_SYS (tanhf, float, (float x));
1052_GL_CXXALIASWARN (tanhf);
1053#elif defined GNULIB_POSIXCHECK
1054# undef tanhf
1055# if HAVE_RAW_DECL_TANHF
1056_GL_WARN_ON_USE (tanhf, "tanhf is unportable - "
1057 "use gnulib module tanhf for portability");
1058# endif
1059#endif
1060
1061
2e65b52f 1062#if @GNULIB_TRUNCF@
49114fd4
LC		 1063# if @REPLACE_TRUNCF@
1064# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
1065# define truncf rpl_truncf
1066# endif
1067_GL_FUNCDECL_RPL (truncf, float, (float x));
1068_GL_CXXALIAS_RPL (truncf, float, (float x));
1069# else
1070# if !@HAVE_DECL_TRUNCF@
2e65b52f 1071_GL_FUNCDECL_SYS (truncf, float, (float x));
49114fd4 1072# endif
2e65b52f 1073_GL_CXXALIAS_SYS (truncf, float, (float x));
49114fd4 1074# endif
2e65b52f
LC		 1075_GL_CXXALIASWARN (truncf);
1076#elif defined GNULIB_POSIXCHECK
1077# undef truncf
1078# if HAVE_RAW_DECL_TRUNCF
1079_GL_WARN_ON_USE (truncf, "truncf is unportable - "
1080 "use gnulib module truncf for portability");
1081# endif
1082#endif
1083
1084#if @GNULIB_TRUNC@
49114fd4
LC		 1085# if @REPLACE_TRUNC@
1086# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
1087# define trunc rpl_trunc
1088# endif
1089_GL_FUNCDECL_RPL (trunc, double, (double x));
1090_GL_CXXALIAS_RPL (trunc, double, (double x));
1091# else
1092# if !@HAVE_DECL_TRUNC@
2e65b52f 1093_GL_FUNCDECL_SYS (trunc, double, (double x));
49114fd4 1094# endif
2e65b52f 1095_GL_CXXALIAS_SYS (trunc, double, (double x));
49114fd4 1096# endif
2e65b52f
LC		 1097_GL_CXXALIASWARN (trunc);
1098#elif defined GNULIB_POSIXCHECK
1099# undef trunc
1100# if HAVE_RAW_DECL_TRUNC
1101_GL_WARN_ON_USE (trunc, "trunc is unportable - "
1102 "use gnulib module trunc for portability");
1103# endif
1104#endif
1105
1106#if @GNULIB_TRUNCL@
1107# if @REPLACE_TRUNCL@
1108# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
1109# undef truncl
1110# define truncl rpl_truncl
1111# endif
1112_GL_FUNCDECL_RPL (truncl, long double, (long double x));
1113_GL_CXXALIAS_RPL (truncl, long double, (long double x));
1114# else
1115# if !@HAVE_DECL_TRUNCL@
1116_GL_FUNCDECL_SYS (truncl, long double, (long double x));
1117# endif
1118_GL_CXXALIAS_SYS (truncl, long double, (long double x));
1119# endif
1120_GL_CXXALIASWARN (truncl);
1121#elif defined GNULIB_POSIXCHECK
1122# undef truncl
1123# if HAVE_RAW_DECL_TRUNCL
1124_GL_WARN_ON_USE (truncl, "truncl is unportable - "
1125 "use gnulib module truncl for portability");
1126# endif
1127#endif
1128
1129
35428fb6
LC		 1130/* Definitions of function-like macros come here, after the function
1131 declarations. */
1132
1133
2e65b52f
LC		 1134#if @GNULIB_ISFINITE@
1135# if @REPLACE_ISFINITE@
1136_GL_EXTERN_C int gl_isfinitef (float x);
1137_GL_EXTERN_C int gl_isfinited (double x);
1138_GL_EXTERN_C int gl_isfinitel (long double x);
1139# undef isfinite
1140# define isfinite(x) \
1141 (sizeof (x) == sizeof (long double) ? gl_isfinitel (x) : \
1142 sizeof (x) == sizeof (double) ? gl_isfinited (x) : \
1143 gl_isfinitef (x))
1144# endif
35428fb6
LC		 1145# ifdef __cplusplus
1146# ifdef isfinite
1147_GL_MATH_CXX_REAL_FLOATING_DECL_1 (isfinite)
1148# undef isfinite
1149_GL_MATH_CXX_REAL_FLOATING_DECL_2 (isfinite)
1150# endif
1151# endif
2e65b52f
LC		 1152#elif defined GNULIB_POSIXCHECK
1153# if defined isfinite
1154_GL_WARN_REAL_FLOATING_DECL (isfinite);
1155# undef isfinite
1156# define isfinite(x) _GL_WARN_REAL_FLOATING_IMPL (isfinite, x)
1157# endif
1158#endif
1159
1160
1161#if @GNULIB_ISINF@
1162# if @REPLACE_ISINF@
1163_GL_EXTERN_C int gl_isinff (float x);
1164_GL_EXTERN_C int gl_isinfd (double x);
1165_GL_EXTERN_C int gl_isinfl (long double x);
1166# undef isinf
1167# define isinf(x) \
1168 (sizeof (x) == sizeof (long double) ? gl_isinfl (x) : \
1169 sizeof (x) == sizeof (double) ? gl_isinfd (x) : \
1170 gl_isinff (x))
1171# endif
35428fb6
LC		 1172# ifdef __cplusplus
1173# ifdef isinf
1174_GL_MATH_CXX_REAL_FLOATING_DECL_1 (isinf)
1175# undef isinf
1176_GL_MATH_CXX_REAL_FLOATING_DECL_2 (isinf)
1177# endif
1178# endif
2e65b52f
LC		 1179#elif defined GNULIB_POSIXCHECK
1180# if defined isinf
1181_GL_WARN_REAL_FLOATING_DECL (isinf);
1182# undef isinf
1183# define isinf(x) _GL_WARN_REAL_FLOATING_IMPL (isinf, x)
1184# endif
1185#endif
1186
1187
1188#if @GNULIB_ISNANF@
1189/* Test for NaN for 'float' numbers. */
1190# if @HAVE_ISNANF@
1191/* The original <math.h> included above provides a declaration of isnan macro
1192 or (older) isnanf function. */
1193# if __GNUC__ >= 4
1194 /* GCC 4.0 and newer provides three built-ins for isnan. */
1195# undef isnanf
1196# define isnanf(x) __builtin_isnanf ((float)(x))
1197# elif defined isnan
1198# undef isnanf
1199# define isnanf(x) isnan ((float)(x))
1200# endif
1201# else
1202/* Test whether X is a NaN. */
1203# undef isnanf
1204# define isnanf rpl_isnanf
1205_GL_EXTERN_C int isnanf (float x);
1206# endif
1207#endif
1208
1209#if @GNULIB_ISNAND@
1210/* Test for NaN for 'double' numbers.
1211 This function is a gnulib extension, unlike isnan() which applied only
1212 to 'double' numbers earlier but now is a type-generic macro. */
1213# if @HAVE_ISNAND@
0f00f2c3
LC		 1214/* The original <math.h> included above provides a declaration of isnan
1215 macro. */
2e65b52f
LC		 1216# if __GNUC__ >= 4
1217 /* GCC 4.0 and newer provides three built-ins for isnan. */
1218# undef isnand
1219# define isnand(x) __builtin_isnan ((double)(x))
1220# else
1221# undef isnand
1222# define isnand(x) isnan ((double)(x))
1223# endif
1224# else
1225/* Test whether X is a NaN. */
1226# undef isnand
1227# define isnand rpl_isnand
1228_GL_EXTERN_C int isnand (double x);
1229# endif
1230#endif
1231
1232#if @GNULIB_ISNANL@
1233/* Test for NaN for 'long double' numbers. */
1234# if @HAVE_ISNANL@
0f00f2c3
LC		 1235/* The original <math.h> included above provides a declaration of isnan
1236 macro or (older) isnanl function. */
2e65b52f
LC		 1237# if __GNUC__ >= 4
1238 /* GCC 4.0 and newer provides three built-ins for isnan. */
1239# undef isnanl
1240# define isnanl(x) __builtin_isnanl ((long double)(x))
1241# elif defined isnan
1242# undef isnanl
1243# define isnanl(x) isnan ((long double)(x))
1244# endif
1245# else
1246/* Test whether X is a NaN. */
1247# undef isnanl
1248# define isnanl rpl_isnanl
7f1ea859 1249_GL_EXTERN_C int isnanl (long double x) _GL_ATTRIBUTE_CONST;
2e65b52f
LC		 1250# endif
1251#endif
1252
1253/* This must come *after* the snippets for GNULIB_ISNANF and GNULIB_ISNANL! */
1254#if @GNULIB_ISNAN@
1255# if @REPLACE_ISNAN@
1256/* We can't just use the isnanf macro (e.g.) as exposed by
1257 isnanf.h (e.g.) here, because those may end up being macros
1258 that recursively expand back to isnan. So use the gnulib
1259 replacements for them directly. */
1260# if @HAVE_ISNANF@ && __GNUC__ >= 4
49114fd4 1261# define gl_isnan_f(x) __builtin_isnanf ((float)(x))
2e65b52f
LC		 1262# else
1263_GL_EXTERN_C int rpl_isnanf (float x);
1264# define gl_isnan_f(x) rpl_isnanf (x)
1265# endif
1266# if @HAVE_ISNAND@ && __GNUC__ >= 4
1267# define gl_isnan_d(x) __builtin_isnan ((double)(x))
1268# else
1269_GL_EXTERN_C int rpl_isnand (double x);
1270# define gl_isnan_d(x) rpl_isnand (x)
1271# endif
1272# if @HAVE_ISNANL@ && __GNUC__ >= 4
49114fd4 1273# define gl_isnan_l(x) __builtin_isnanl ((long double)(x))
2e65b52f 1274# else
7f1ea859 1275_GL_EXTERN_C int rpl_isnanl (long double x) _GL_ATTRIBUTE_CONST;
2e65b52f
LC		 1276# define gl_isnan_l(x) rpl_isnanl (x)
1277# endif
1278# undef isnan
1279# define isnan(x) \
1280 (sizeof (x) == sizeof (long double) ? gl_isnan_l (x) : \
1281 sizeof (x) == sizeof (double) ? gl_isnan_d (x) : \
1282 gl_isnan_f (x))
49114fd4
LC		 1283# elif __GNUC__ >= 4
1284# undef isnan
1285# define isnan(x) \
1286 (sizeof (x) == sizeof (long double) ? __builtin_isnanl ((long double)(x)) : \
1287 sizeof (x) == sizeof (double) ? __builtin_isnan ((double)(x)) : \
1288 __builtin_isnanf ((float)(x)))
2e65b52f 1289# endif
35428fb6
LC		 1290# ifdef __cplusplus
1291# ifdef isnan
1292_GL_MATH_CXX_REAL_FLOATING_DECL_1 (isnan)
1293# undef isnan
1294_GL_MATH_CXX_REAL_FLOATING_DECL_2 (isnan)
1295# endif
1296# else
ab4d62ad 1297/* Ensure isnan is a macro. */
35428fb6
LC		 1298# ifndef isnan
1299# define isnan isnan
1300# endif
ab4d62ad 1301# endif
2e65b52f
LC		 1302#elif defined GNULIB_POSIXCHECK
1303# if defined isnan
1304_GL_WARN_REAL_FLOATING_DECL (isnan);
1305# undef isnan
1306# define isnan(x) _GL_WARN_REAL_FLOATING_IMPL (isnan, x)
1307# endif
1308#endif
1309
1310
1311#if @GNULIB_SIGNBIT@
1312# if @REPLACE_SIGNBIT_USING_GCC@
1313# undef signbit
1314 /* GCC 4.0 and newer provides three built-ins for signbit. */
1315# define signbit(x) \
1316 (sizeof (x) == sizeof (long double) ? __builtin_signbitl (x) : \
1317 sizeof (x) == sizeof (double) ? __builtin_signbit (x) : \
1318 __builtin_signbitf (x))
1319# endif
1320# if @REPLACE_SIGNBIT@
1321# undef signbit
1322_GL_EXTERN_C int gl_signbitf (float arg);
1323_GL_EXTERN_C int gl_signbitd (double arg);
1324_GL_EXTERN_C int gl_signbitl (long double arg);
35428fb6 1325# if __GNUC__ >= 2 && !defined __STRICT_ANSI__
0f00f2c3
LC		 1326# define _GL_NUM_UINT_WORDS(type) \
1327 ((sizeof (type) + sizeof (unsigned int) - 1) / sizeof (unsigned int))
2e65b52f
LC		 1328# if defined FLT_SIGNBIT_WORD && defined FLT_SIGNBIT_BIT && !defined gl_signbitf
1329# define gl_signbitf_OPTIMIZED_MACRO
1330# define gl_signbitf(arg) \
1331 ({ union { float _value; \
0f00f2c3 1332 unsigned int _word[_GL_NUM_UINT_WORDS (float)]; \
2e65b52f
LC		 1333 } _m; \
1334 _m._value = (arg); \
1335 (_m._word[FLT_SIGNBIT_WORD] >> FLT_SIGNBIT_BIT) & 1; \
1336 })
1337# endif
1338# if defined DBL_SIGNBIT_WORD && defined DBL_SIGNBIT_BIT && !defined gl_signbitd
1339# define gl_signbitd_OPTIMIZED_MACRO
1340# define gl_signbitd(arg) \
0f00f2c3
LC		 1341 ({ union { double _value; \
1342 unsigned int _word[_GL_NUM_UINT_WORDS (double)]; \
2e65b52f
LC		 1343 } _m; \
1344 _m._value = (arg); \
1345 (_m._word[DBL_SIGNBIT_WORD] >> DBL_SIGNBIT_BIT) & 1; \
1346 })
1347# endif
1348# if defined LDBL_SIGNBIT_WORD && defined LDBL_SIGNBIT_BIT && !defined gl_signbitl
1349# define gl_signbitl_OPTIMIZED_MACRO
1350# define gl_signbitl(arg) \
1351 ({ union { long double _value; \
0f00f2c3 1352 unsigned int _word[_GL_NUM_UINT_WORDS (long double)]; \
2e65b52f
LC		 1353 } _m; \
1354 _m._value = (arg); \
0f00f2c3 1355 (_m._word[LDBL_SIGNBIT_WORD] >> LDBL_SIGNBIT_BIT) & 1; \
2e65b52f
LC		 1356 })
1357# endif
1358# endif
1359# define signbit(x) \
1360 (sizeof (x) == sizeof (long double) ? gl_signbitl (x) : \
1361 sizeof (x) == sizeof (double) ? gl_signbitd (x) : \
1362 gl_signbitf (x))
1363# endif
35428fb6
LC		 1364# ifdef __cplusplus
1365# ifdef signbit
1366_GL_MATH_CXX_REAL_FLOATING_DECL_1 (signbit)
1367# undef signbit
1368_GL_MATH_CXX_REAL_FLOATING_DECL_2 (signbit)
1369# endif
1370# endif
2e65b52f
LC		 1371#elif defined GNULIB_POSIXCHECK
1372# if defined signbit
1373_GL_WARN_REAL_FLOATING_DECL (signbit);
1374# undef signbit
1375# define signbit(x) _GL_WARN_REAL_FLOATING_IMPL (signbit, x)
1376# endif
1377#endif
1378
1379
3d458a81
AW		 1380#endif /* _@GUARD_PREFIX@_MATH_H */
1381#endif /* _@GUARD_PREFIX@_MATH_H */
Unnamed repository; edit this file 'description' to name the repository.