frexpl: Update regarding AIX.
[gnulib.git] / lib / isfinite.c
1 /* Test for finite value (zero, subnormal, or normal, and not infinite or NaN).
2    Copyright (C) 2007-2010 Free Software Foundation, Inc.
3
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)
7    any later version.
8
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.
13
14    You should have received a copy of the GNU General Public License along
15    with this program; if not, write to the Free Software Foundation,
16    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
17
18 /* Written by Ben Pfaff <blp@gnu.org>, 2007. */
19
20 #include <config.h>
21
22 #include "isnanf-nolibm.h"
23 #include "isnand-nolibm.h"
24 #include "isnanl-nolibm.h"
25
26 int gl_isfinitef (float x)
27 {
28   return !isnanf (x) && x - x == 0.f;
29 }
30
31 int gl_isfinited (double x)
32 {
33   return !isnand (x) && x - x == 0.;
34 }
35
36 int gl_isfinitel (long double x)
37 {
38   return !isnanl (x) && x - x == 0.L;
39 }