HCoop / bpt / guile.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Temporarily fix `unistr.in.h' to allow compilation with `-Wundef'.
[bpt/guile.git] / lib / math.in.h
CommitLineData
2e65b52f
LC		 1/* A GNU-like <math.h>.
2
3 Copyright (C) 2002-2003, 2007-2010 Free Software Foundation, Inc.
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
18#ifndef _GL_MATH_H
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
28#ifndef _GL_MATH_H
29#define _GL_MATH_H
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
38/* Helper macros to define a portability warning for the
39 classification macro FUNC called with VALUE. POSIX declares the
40 classification macros with an argument of real-floating (that is,
41 one of float, double, or long double). */
42#define _GL_WARN_REAL_FLOATING_DECL(func) \
43static inline int \
44rpl_ ## func ## f (float f) \
45{ \
46 return func (f); \
47} \
48static inline int \
49rpl_ ## func ## d (double d) \
50{ \
51 return func (d); \
52} \
53static inline int \
54rpl_ ## func ## l (long double l) \
55{ \
56 return func (l); \
57} \
58_GL_WARN_ON_USE (rpl_ ## func ## f, #func " is unportable - " \
59 "use gnulib module " #func " for portability"); \
60_GL_WARN_ON_USE (rpl_ ## func ## d, #func " is unportable - " \
61 "use gnulib module " #func " for portability"); \
62_GL_WARN_ON_USE (rpl_ ## func ## l, #func " is unportable - " \
63 "use gnulib module " #func " for portability")
64#define _GL_WARN_REAL_FLOATING_IMPL(func, value) \
65 (sizeof (value) == sizeof (float) ? rpl_ ## func ## f (value) \
66 : sizeof (value) == sizeof (double) ? rpl_ ## func ## d (value) \
67 : rpl_ ## func ## l (value))
68
69
70/* POSIX allows platforms that don't support NAN. But all major
71 machines in the past 15 years have supported something close to
72 IEEE NaN, so we define this unconditionally. We also must define
73 it on platforms like Solaris 10, where NAN is present but defined
74 as a function pointer rather than a floating point constant. */
75#if !defined NAN || @REPLACE_NAN@
76# undef NAN
77 /* The Compaq (ex-DEC) C 6.4 compiler chokes on the expression 0.0 / 0.0. */
78# ifdef __DECC
79static float
80_NaN ()
81{
82 static float zero = 0.0f;
83 return zero / zero;
84}
85# define NAN (_NaN())
86# else
87# define NAN (0.0f / 0.0f)
88# endif
89#endif
90
91/* Solaris 10 defines HUGE_VAL, but as a function pointer rather
92 than a floating point constant. */
93#if @REPLACE_HUGE_VAL@
94# undef HUGE_VAL
95# define HUGE_VAL (1.0 / 0.0)
96#endif
97
98
99/* Write x as
100 x = mantissa * 2^exp
101 where
102 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
103 If x is zero: mantissa = x, exp = 0.
104 If x is infinite or NaN: mantissa = x, exp unspecified.
105 Store exp in *EXPPTR and return mantissa. */
106#if @GNULIB_FREXP@
107# if @REPLACE_FREXP@
108# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
109# define frexp rpl_frexp
110# endif
111_GL_FUNCDECL_RPL (frexp, double, (double x, int *expptr) _GL_ARG_NONNULL ((2)));
112_GL_CXXALIAS_RPL (frexp, double, (double x, int *expptr));
113# else
114_GL_CXXALIAS_SYS (frexp, double, (double x, int *expptr));
115# endif
116_GL_CXXALIASWARN (frexp);
117#elif defined GNULIB_POSIXCHECK
118# undef frexp
119/* Assume frexp is always declared. */
120_GL_WARN_ON_USE (frexp, "frexp is unportable - "
121 "use gnulib module frexp for portability");
122#endif
123
124
125#if @GNULIB_LOGB@
126# if !@HAVE_DECL_LOGB@
127_GL_EXTERN_C double logb (double x);
128# endif
129#elif defined GNULIB_POSIXCHECK
130# undef logb
131# if HAVE_RAW_DECL_LOGB
132_GL_WARN_ON_USE (logb, "logb is unportable - "
133 "use gnulib module logb for portability");
134# endif
135#endif
136
137
138#if @GNULIB_ACOSL@
139# if !@HAVE_ACOSL@ || !@HAVE_DECL_ACOSL@
140_GL_FUNCDECL_SYS (acosl, long double, (long double x));
141# endif
142_GL_CXXALIAS_SYS (acosl, long double, (long double x));
143_GL_CXXALIASWARN (acosl);
144#elif defined GNULIB_POSIXCHECK
145# undef acosl
146# if HAVE_RAW_DECL_ACOSL
147_GL_WARN_ON_USE (acosl, "acosl is unportable - "
148 "use gnulib module mathl for portability");
149# endif
150#endif
151
152
153#if @GNULIB_ASINL@
154# if !@HAVE_ASINL@ || !@HAVE_DECL_ASINL@
155_GL_FUNCDECL_SYS (asinl, long double, (long double x));
156# endif
157_GL_CXXALIAS_SYS (asinl, long double, (long double x));
158_GL_CXXALIASWARN (asinl);
159#elif defined GNULIB_POSIXCHECK
160# undef asinl
161# if HAVE_RAW_DECL_ASINL
162_GL_WARN_ON_USE (asinl, "asinl is unportable - "
163 "use gnulib module mathl for portability");
164# endif
165#endif
166
167
168#if @GNULIB_ATANL@
169# if !@HAVE_ATANL@ || !@HAVE_DECL_ATANL@
170_GL_FUNCDECL_SYS (atanl, long double, (long double x));
171# endif
172_GL_CXXALIAS_SYS (atanl, long double, (long double x));
173_GL_CXXALIASWARN (atanl);
174#elif defined GNULIB_POSIXCHECK
175# undef atanl
176# if HAVE_RAW_DECL_ATANL
177_GL_WARN_ON_USE (atanl, "atanl is unportable - "
178 "use gnulib module mathl for portability");
179# endif
180#endif
181
182
183#if @GNULIB_CEILF@
184# if @REPLACE_CEILF@
185# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
186# define ceilf rpl_ceilf
187# endif
188_GL_FUNCDECL_RPL (ceilf, float, (float x));
189_GL_CXXALIAS_RPL (ceilf, float, (float x));
190# else
191# if !@HAVE_DECL_CEILF@
192_GL_FUNCDECL_SYS (ceilf, float, (float x));
193# endif
194_GL_CXXALIAS_SYS (ceilf, float, (float x));
195# endif
196_GL_CXXALIASWARN (ceilf);
197#elif defined GNULIB_POSIXCHECK
198# undef ceilf
199# if HAVE_RAW_DECL_CEILF
200_GL_WARN_ON_USE (ceilf, "ceilf is unportable - "
201 "use gnulib module ceilf for portability");
202# endif
203#endif
204
205#if @GNULIB_CEILL@
206# if @REPLACE_CEILL@
207# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
208# define ceill rpl_ceill
209# endif
210_GL_FUNCDECL_RPL (ceill, long double, (long double x));
211_GL_CXXALIAS_RPL (ceill, long double, (long double x));
212# else
213# if !@HAVE_DECL_CEILL@
214_GL_FUNCDECL_SYS (ceill, long double, (long double x));
215# endif
216_GL_CXXALIAS_SYS (ceill, long double, (long double x));
217# endif
218_GL_CXXALIASWARN (ceill);
219#elif defined GNULIB_POSIXCHECK
220# undef ceill
221# if HAVE_RAW_DECL_CEILL
222_GL_WARN_ON_USE (ceill, "ceill is unportable - "
223 "use gnulib module ceill for portability");
224# endif
225#endif
226
227
228#if @GNULIB_COSL@
229# if !@HAVE_COSL@ || !@HAVE_DECL_COSL@
230_GL_FUNCDECL_SYS (cosl, long double, (long double x));
231# endif
232_GL_CXXALIAS_SYS (cosl, long double, (long double x));
233_GL_CXXALIASWARN (cosl);
234#elif defined GNULIB_POSIXCHECK
235# undef cosl
236# if HAVE_RAW_DECL_COSL
237_GL_WARN_ON_USE (cosl, "cosl is unportable - "
238 "use gnulib module mathl for portability");
239# endif
240#endif
241
242
243#if @GNULIB_EXPL@
244# if !@HAVE_EXPL@ || !@HAVE_DECL_EXPL@
245_GL_FUNCDECL_SYS (expl, long double, (long double x));
246# endif
247_GL_CXXALIAS_SYS (expl, long double, (long double x));
248_GL_CXXALIASWARN (expl);
249#elif defined GNULIB_POSIXCHECK
250# undef expl
251# if HAVE_RAW_DECL_EXPL
252_GL_WARN_ON_USE (expl, "expl is unportable - "
253 "use gnulib module mathl for portability");
254# endif
255#endif
256
257
258#if @GNULIB_FLOORF@
259# if @REPLACE_FLOORF@
260# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
261# define floorf rpl_floorf
262# endif
263_GL_FUNCDECL_RPL (floorf, float, (float x));
264_GL_CXXALIAS_RPL (floorf, float, (float x));
265#else
266# if !@HAVE_DECL_FLOORF@
267_GL_FUNCDECL_SYS (floorf, float, (float x));
268# endif
269_GL_CXXALIAS_SYS (floorf, float, (float x));
270# endif
271_GL_CXXALIASWARN (floorf);
272#elif defined GNULIB_POSIXCHECK
273# undef floorf
274# if HAVE_RAW_DECL_FLOORF
275_GL_WARN_ON_USE (floorf, "floorf is unportable - "
276 "use gnulib module floorf for portability");
277# endif
278#endif
279
280#if @GNULIB_FLOORL@
281# if @REPLACE_FLOORL@
282# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
283# define floorl rpl_floorl
284# endif
285_GL_FUNCDECL_RPL (floorl, long double, (long double x));
286_GL_CXXALIAS_RPL (floorl, long double, (long double x));
287# else
288# if !@HAVE_DECL_FLOORL@
289_GL_FUNCDECL_SYS (floorl, long double, (long double x));
290# endif
291_GL_CXXALIAS_SYS (floorl, long double, (long double x));
292# endif
293_GL_CXXALIASWARN (floorl);
294#elif defined GNULIB_POSIXCHECK
295# undef floorl
296# if HAVE_RAW_DECL_FLOORL
297_GL_WARN_ON_USE (floorl, "floorl is unportable - "
298 "use gnulib module floorl for portability");
299# endif
300#endif
301
302
303/* Write x as
304 x = mantissa * 2^exp
305 where
306 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
307 If x is zero: mantissa = x, exp = 0.
308 If x is infinite or NaN: mantissa = x, exp unspecified.
309 Store exp in *EXPPTR and return mantissa. */
310#if @GNULIB_FREXPL@ && @REPLACE_FREXPL@
311# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
312# define frexpl rpl_frexpl
313# endif
314_GL_FUNCDECL_RPL (frexpl, long double,
315 (long double x, int *expptr) _GL_ARG_NONNULL ((2)));
316_GL_CXXALIAS_RPL (frexpl, long double, (long double x, int *expptr));
317#else
318# if !@HAVE_DECL_FREXPL@
319_GL_FUNCDECL_SYS (frexpl, long double,
320 (long double x, int *expptr) _GL_ARG_NONNULL ((2)));
321# endif
322# if @GNULIB_FREXPL@
323_GL_CXXALIAS_SYS (frexpl, long double, (long double x, int *expptr));
324# endif
325#endif
326#if @GNULIB_FREXPL@ && !(@REPLACE_FREXPL@ && !@HAVE_DECL_FREXPL@)
327_GL_CXXALIASWARN (frexpl);
328#endif
329#if !@GNULIB_FREXPL@ && defined GNULIB_POSIXCHECK
330# undef frexpl
331# if HAVE_RAW_DECL_FREXPL
332_GL_WARN_ON_USE (frexpl, "frexpl is unportable - "
333 "use gnulib module frexpl for portability");
334# endif
335#endif
336
337
338/* Return x * 2^exp. */
339#if @GNULIB_LDEXPL@ && @REPLACE_LDEXPL@
340# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
341# define ldexpl rpl_ldexpl
342# endif
343_GL_FUNCDECL_RPL (ldexpl, long double, (long double x, int exp));
344_GL_CXXALIAS_RPL (ldexpl, long double, (long double x, int exp));
345#else
346# if !@HAVE_DECL_LDEXPL@
347_GL_FUNCDECL_SYS (ldexpl, long double, (long double x, int exp));
348# endif
349# if @GNULIB_LDEXPL@
350_GL_CXXALIAS_SYS (ldexpl, long double, (long double x, int exp));
351# endif
352#endif
353#if @GNULIB_LDEXPL@
354_GL_CXXALIASWARN (ldexpl);
355#endif
356#if !@GNULIB_LDEXPL@ && defined GNULIB_POSIXCHECK
357# undef ldexpl
358# if HAVE_RAW_DECL_LDEXPL
359_GL_WARN_ON_USE (ldexpl, "ldexpl is unportable - "
360 "use gnulib module ldexpl for portability");
361# endif
362#endif
363
364
365#if @GNULIB_LOGL@
366# if !@HAVE_LOGL@ || !@HAVE_DECL_LOGL@
367_GL_FUNCDECL_SYS (logl, long double, (long double x));
368# endif
369_GL_CXXALIAS_SYS (logl, long double, (long double x));
370_GL_CXXALIASWARN (logl);
371#elif defined GNULIB_POSIXCHECK
372# undef logl
373# if HAVE_RAW_DECL_LOGL
374_GL_WARN_ON_USE (logl, "logl is unportable - "
375 "use gnulib module mathl for portability");
376# endif
377#endif
378
379
380#if @GNULIB_ROUNDF@
381# if @REPLACE_ROUNDF@
382# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
383# undef roundf
384# define roundf rpl_roundf
385# endif
386_GL_FUNCDECL_RPL (roundf, float, (float x));
387_GL_CXXALIAS_RPL (roundf, float, (float x));
388# else
389# if !@HAVE_DECL_ROUNDF@
390_GL_FUNCDECL_SYS (roundf, float, (float x));
391# endif
392_GL_CXXALIAS_SYS (roundf, float, (float x));
393# endif
394_GL_CXXALIASWARN (roundf);
395#elif defined GNULIB_POSIXCHECK
396# undef roundf
397# if HAVE_RAW_DECL_ROUNDF
398_GL_WARN_ON_USE (roundf, "roundf is unportable - "
399 "use gnulib module roundf for portability");
400# endif
401#endif
402
403#if @GNULIB_ROUND@
404# if @REPLACE_ROUND@
405# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
406# undef round
407# define round rpl_round
408# endif
409_GL_FUNCDECL_RPL (round, double, (double x));
410_GL_CXXALIAS_RPL (round, double, (double x));
411# else
412# if !@HAVE_DECL_ROUND@
413_GL_FUNCDECL_SYS (round, double, (double x));
414# endif
415_GL_CXXALIAS_SYS (round, double, (double x));
416# endif
417_GL_CXXALIASWARN (round);
418#elif defined GNULIB_POSIXCHECK
419# undef round
420# if HAVE_RAW_DECL_ROUND
421_GL_WARN_ON_USE (round, "round is unportable - "
422 "use gnulib module round for portability");
423# endif
424#endif
425
426#if @GNULIB_ROUNDL@
427# if @REPLACE_ROUNDL@
428# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
429# undef roundl
430# define roundl rpl_roundl
431# endif
432_GL_FUNCDECL_RPL (roundl, long double, (long double x));
433_GL_CXXALIAS_RPL (roundl, long double, (long double x));
434# else
435# if !@HAVE_DECL_ROUNDL@
436_GL_FUNCDECL_SYS (roundl, long double, (long double x));
437# endif
438_GL_CXXALIAS_SYS (roundl, long double, (long double x));
439# endif
440_GL_CXXALIASWARN (roundl);
441#elif defined GNULIB_POSIXCHECK
442# undef roundl
443# if HAVE_RAW_DECL_ROUNDL
444_GL_WARN_ON_USE (roundl, "roundl is unportable - "
445 "use gnulib module roundl for portability");
446# endif
447#endif
448
449
450#if @GNULIB_SINL@
451# if !@HAVE_SINL@ || !@HAVE_DECL_SINL@
452_GL_FUNCDECL_SYS (sinl, long double, (long double x));
453# endif
454_GL_CXXALIAS_SYS (sinl, long double, (long double x));
455_GL_CXXALIASWARN (sinl);
456#elif defined GNULIB_POSIXCHECK
457# undef sinl
458# if HAVE_RAW_DECL_SINL
459_GL_WARN_ON_USE (sinl, "sinl is unportable - "
460 "use gnulib module mathl for portability");
461# endif
462#endif
463
464
465#if @GNULIB_SQRTL@
466# if !@HAVE_SQRTL@ || !@HAVE_DECL_SQRTL@
467_GL_FUNCDECL_SYS (sqrtl, long double, (long double x));
468# endif
469_GL_CXXALIAS_SYS (sqrtl, long double, (long double x));
470_GL_CXXALIASWARN (sqrtl);
471#elif defined GNULIB_POSIXCHECK
472# undef sqrtl
473# if HAVE_RAW_DECL_SQRTL
474_GL_WARN_ON_USE (sqrtl, "sqrtl is unportable - "
475 "use gnulib module mathl for portability");
476# endif
477#endif
478
479
480#if @GNULIB_TANL@
481# if !@HAVE_TANL@ || !@HAVE_DECL_TANL@
482_GL_FUNCDECL_SYS (tanl, long double, (long double x));
483# endif
484_GL_CXXALIAS_SYS (tanl, long double, (long double x));
485_GL_CXXALIASWARN (tanl);
486#elif defined GNULIB_POSIXCHECK
487# undef tanl
488# if HAVE_RAW_DECL_TANL
489_GL_WARN_ON_USE (tanl, "tanl is unportable - "
490 "use gnulib module mathl for portability");
491# endif
492#endif
493
494
495#if @GNULIB_TRUNCF@
496# if !@HAVE_DECL_TRUNCF@
497_GL_FUNCDECL_SYS (truncf, float, (float x));
498# endif
499_GL_CXXALIAS_SYS (truncf, float, (float x));
500_GL_CXXALIASWARN (truncf);
501#elif defined GNULIB_POSIXCHECK
502# undef truncf
503# if HAVE_RAW_DECL_TRUNCF
504_GL_WARN_ON_USE (truncf, "truncf is unportable - "
505 "use gnulib module truncf for portability");
506# endif
507#endif
508
509#if @GNULIB_TRUNC@
510# if !@HAVE_DECL_TRUNC@
511_GL_FUNCDECL_SYS (trunc, double, (double x));
512# endif
513_GL_CXXALIAS_SYS (trunc, double, (double x));
514_GL_CXXALIASWARN (trunc);
515#elif defined GNULIB_POSIXCHECK
516# undef trunc
517# if HAVE_RAW_DECL_TRUNC
518_GL_WARN_ON_USE (trunc, "trunc is unportable - "
519 "use gnulib module trunc for portability");
520# endif
521#endif
522
523#if @GNULIB_TRUNCL@
524# if @REPLACE_TRUNCL@
525# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
526# undef truncl
527# define truncl rpl_truncl
528# endif
529_GL_FUNCDECL_RPL (truncl, long double, (long double x));
530_GL_CXXALIAS_RPL (truncl, long double, (long double x));
531# else
532# if !@HAVE_DECL_TRUNCL@
533_GL_FUNCDECL_SYS (truncl, long double, (long double x));
534# endif
535_GL_CXXALIAS_SYS (truncl, long double, (long double x));
536# endif
537_GL_CXXALIASWARN (truncl);
538#elif defined GNULIB_POSIXCHECK
539# undef truncl
540# if HAVE_RAW_DECL_TRUNCL
541_GL_WARN_ON_USE (truncl, "truncl is unportable - "
542 "use gnulib module truncl for portability");
543# endif
544#endif
545
546
547#if @GNULIB_ISFINITE@
548# if @REPLACE_ISFINITE@
549_GL_EXTERN_C int gl_isfinitef (float x);
550_GL_EXTERN_C int gl_isfinited (double x);
551_GL_EXTERN_C int gl_isfinitel (long double x);
552# undef isfinite
553# define isfinite(x) \
554 (sizeof (x) == sizeof (long double) ? gl_isfinitel (x) : \
555 sizeof (x) == sizeof (double) ? gl_isfinited (x) : \
556 gl_isfinitef (x))
557# endif
558#elif defined GNULIB_POSIXCHECK
559# if defined isfinite
560_GL_WARN_REAL_FLOATING_DECL (isfinite);
561# undef isfinite
562# define isfinite(x) _GL_WARN_REAL_FLOATING_IMPL (isfinite, x)
563# endif
564#endif
565
566
567#if @GNULIB_ISINF@
568# if @REPLACE_ISINF@
569_GL_EXTERN_C int gl_isinff (float x);
570_GL_EXTERN_C int gl_isinfd (double x);
571_GL_EXTERN_C int gl_isinfl (long double x);
572# undef isinf
573# define isinf(x) \
574 (sizeof (x) == sizeof (long double) ? gl_isinfl (x) : \
575 sizeof (x) == sizeof (double) ? gl_isinfd (x) : \
576 gl_isinff (x))
577# endif
578#elif defined GNULIB_POSIXCHECK
579# if defined isinf
580_GL_WARN_REAL_FLOATING_DECL (isinf);
581# undef isinf
582# define isinf(x) _GL_WARN_REAL_FLOATING_IMPL (isinf, x)
583# endif
584#endif
585
586
587#if @GNULIB_ISNANF@
588/* Test for NaN for 'float' numbers. */
589# if @HAVE_ISNANF@
590/* The original <math.h> included above provides a declaration of isnan macro
591 or (older) isnanf function. */
592# if __GNUC__ >= 4
593 /* GCC 4.0 and newer provides three built-ins for isnan. */
594# undef isnanf
595# define isnanf(x) __builtin_isnanf ((float)(x))
596# elif defined isnan
597# undef isnanf
598# define isnanf(x) isnan ((float)(x))
599# endif
600# else
601/* Test whether X is a NaN. */
602# undef isnanf
603# define isnanf rpl_isnanf
604_GL_EXTERN_C int isnanf (float x);
605# endif
606#endif
607
608#if @GNULIB_ISNAND@
609/* Test for NaN for 'double' numbers.
610 This function is a gnulib extension, unlike isnan() which applied only
611 to 'double' numbers earlier but now is a type-generic macro. */
612# if @HAVE_ISNAND@
0f00f2c3
LC		 613/* The original <math.h> included above provides a declaration of isnan
614 macro. */
2e65b52f
LC		 615# if __GNUC__ >= 4
616 /* GCC 4.0 and newer provides three built-ins for isnan. */
617# undef isnand
618# define isnand(x) __builtin_isnan ((double)(x))
619# else
620# undef isnand
621# define isnand(x) isnan ((double)(x))
622# endif
623# else
624/* Test whether X is a NaN. */
625# undef isnand
626# define isnand rpl_isnand
627_GL_EXTERN_C int isnand (double x);
628# endif
629#endif
630
631#if @GNULIB_ISNANL@
632/* Test for NaN for 'long double' numbers. */
633# if @HAVE_ISNANL@
0f00f2c3
LC		 634/* The original <math.h> included above provides a declaration of isnan
635 macro or (older) isnanl function. */
2e65b52f
LC		 636# if __GNUC__ >= 4
637 /* GCC 4.0 and newer provides three built-ins for isnan. */
638# undef isnanl
639# define isnanl(x) __builtin_isnanl ((long double)(x))
640# elif defined isnan
641# undef isnanl
642# define isnanl(x) isnan ((long double)(x))
643# endif
644# else
645/* Test whether X is a NaN. */
646# undef isnanl
647# define isnanl rpl_isnanl
648_GL_EXTERN_C int isnanl (long double x);
649# endif
650#endif
651
652/* This must come *after* the snippets for GNULIB_ISNANF and GNULIB_ISNANL! */
653#if @GNULIB_ISNAN@
654# if @REPLACE_ISNAN@
655/* We can't just use the isnanf macro (e.g.) as exposed by
656 isnanf.h (e.g.) here, because those may end up being macros
657 that recursively expand back to isnan. So use the gnulib
658 replacements for them directly. */
659# if @HAVE_ISNANF@ && __GNUC__ >= 4
660# define gl_isnan_f(x) __builtin_isnan ((float)(x))
661# else
662_GL_EXTERN_C int rpl_isnanf (float x);
663# define gl_isnan_f(x) rpl_isnanf (x)
664# endif
665# if @HAVE_ISNAND@ && __GNUC__ >= 4
666# define gl_isnan_d(x) __builtin_isnan ((double)(x))
667# else
668_GL_EXTERN_C int rpl_isnand (double x);
669# define gl_isnan_d(x) rpl_isnand (x)
670# endif
671# if @HAVE_ISNANL@ && __GNUC__ >= 4
672# define gl_isnan_l(x) __builtin_isnan ((long double)(x))
673# else
674_GL_EXTERN_C int rpl_isnanl (long double x);
675# define gl_isnan_l(x) rpl_isnanl (x)
676# endif
677# undef isnan
678# define isnan(x) \
679 (sizeof (x) == sizeof (long double) ? gl_isnan_l (x) : \
680 sizeof (x) == sizeof (double) ? gl_isnan_d (x) : \
681 gl_isnan_f (x))
682# endif
ab4d62ad
LC		 683/* Ensure isnan is a macro. */
684# ifndef isnan
685# define isnan isnan
686# endif
2e65b52f
LC		 687#elif defined GNULIB_POSIXCHECK
688# if defined isnan
689_GL_WARN_REAL_FLOATING_DECL (isnan);
690# undef isnan
691# define isnan(x) _GL_WARN_REAL_FLOATING_IMPL (isnan, x)
692# endif
693#endif
694
695
696#if @GNULIB_SIGNBIT@
697# if @REPLACE_SIGNBIT_USING_GCC@
698# undef signbit
699 /* GCC 4.0 and newer provides three built-ins for signbit. */
700# define signbit(x) \
701 (sizeof (x) == sizeof (long double) ? __builtin_signbitl (x) : \
702 sizeof (x) == sizeof (double) ? __builtin_signbit (x) : \
703 __builtin_signbitf (x))
704# endif
705# if @REPLACE_SIGNBIT@
706# undef signbit
707_GL_EXTERN_C int gl_signbitf (float arg);
708_GL_EXTERN_C int gl_signbitd (double arg);
709_GL_EXTERN_C int gl_signbitl (long double arg);
710# if __GNUC__ >= 2 && !__STRICT_ANSI__
0f00f2c3
LC		 711# define _GL_NUM_UINT_WORDS(type) \
712 ((sizeof (type) + sizeof (unsigned int) - 1) / sizeof (unsigned int))
2e65b52f
LC		 713# if defined FLT_SIGNBIT_WORD && defined FLT_SIGNBIT_BIT && !defined gl_signbitf
714# define gl_signbitf_OPTIMIZED_MACRO
715# define gl_signbitf(arg) \
716 ({ union { float _value; \
0f00f2c3 717 unsigned int _word[_GL_NUM_UINT_WORDS (float)]; \
2e65b52f
LC		 718 } _m; \
719 _m._value = (arg); \
720 (_m._word[FLT_SIGNBIT_WORD] >> FLT_SIGNBIT_BIT) & 1; \
721 })
722# endif
723# if defined DBL_SIGNBIT_WORD && defined DBL_SIGNBIT_BIT && !defined gl_signbitd
724# define gl_signbitd_OPTIMIZED_MACRO
725# define gl_signbitd(arg) \
0f00f2c3
LC		 726 ({ union { double _value; \
727 unsigned int _word[_GL_NUM_UINT_WORDS (double)]; \
2e65b52f
LC		 728 } _m; \
729 _m._value = (arg); \
730 (_m._word[DBL_SIGNBIT_WORD] >> DBL_SIGNBIT_BIT) & 1; \
731 })
732# endif
733# if defined LDBL_SIGNBIT_WORD && defined LDBL_SIGNBIT_BIT && !defined gl_signbitl
734# define gl_signbitl_OPTIMIZED_MACRO
735# define gl_signbitl(arg) \
736 ({ union { long double _value; \
0f00f2c3 737 unsigned int _word[_GL_NUM_UINT_WORDS (long double)]; \
2e65b52f
LC		 738 } _m; \
739 _m._value = (arg); \
0f00f2c3 740 (_m._word[LDBL_SIGNBIT_WORD] >> LDBL_SIGNBIT_BIT) & 1; \
2e65b52f
LC		 741 })
742# endif
743# endif
744# define signbit(x) \
745 (sizeof (x) == sizeof (long double) ? gl_signbitl (x) : \
746 sizeof (x) == sizeof (double) ? gl_signbitd (x) : \
747 gl_signbitf (x))
748# endif
749#elif defined GNULIB_POSIXCHECK
750# if defined signbit
751_GL_WARN_REAL_FLOATING_DECL (signbit);
752# undef signbit
753# define signbit(x) _GL_WARN_REAL_FLOATING_IMPL (signbit, x)
754# endif
755#endif
756
757
758#endif /* _GL_MATH_H */
759#endif /* _GL_MATH_H */
Unnamed repository; edit this file 'description' to name the repository.