1 /* Test for finite value (zero, subnormal, or normal, and not infinite or NaN).
2 Copyright (C) 2007-2017 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License along
15 with this program; if not, see <https://www.gnu.org/licenses/>. */
17 /* Written by Ben Pfaff <blp@gnu.org>, 2007. */
21 #include "isnanf-nolibm.h"
22 #include "isnand-nolibm.h"
23 #include "isnanl-nolibm.h"
25 /* The "cc" compiler on HP-UX 11.11, when optimizing, simplifies the test
26 x - y == 0.0 to x == y, a simplification which is invalid when x and y
27 are Infinity. Disable this optimization. */
28 #if defined __hpux && !defined __GNUC__
31 static long double zerol
;
38 int gl_isfinitef (float x
)
40 return !isnanf (x
) && x
- x
== zerof
;
43 int gl_isfinited (double x
)
45 return !isnand (x
) && x
- x
== zerod
;
48 int gl_isfinitel (long double x
)
50 return !isnanl (x
) && x
- x
== zerol
;