Mercurial > gnulib
view lib/isfinite.c @ 40190:ef116535bf1a
relocatable-prog: Use $ORIGIN trick on more platforms.
* m4/relocatable.m4 (gl_RELOCATABLE_BODY): Use $ORIGIN trick also on
FreeBSD >= 7.3, DragonFly >= 3.0, NetBSD >= 8.0, OpenBSD >= 5.4,
Solaris >= 10, Haiku. But don't use it on Android.
* build-aux/reloc-ldflags: Allow the use of the $ORIGIN trick also on
Hurd, FreeBSD, DragonFly, NetBSD, OpenBSD, Solaris, Haiku.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Wed, 20 Feb 2019 02:39:52 +0100 |
parents | b06060465f09 |
children |
line wrap: on
line source
/* Test for finite value (zero, subnormal, or normal, and not infinite or NaN). Copyright (C) 2007-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see <https://www.gnu.org/licenses/>. */ /* Written by Ben Pfaff <blp@gnu.org>, 2007. */ #include <config.h> #include "isnanf-nolibm.h" #include "isnand-nolibm.h" #include "isnanl-nolibm.h" /* The "cc" compiler on HP-UX 11.11, when optimizing, simplifies the test x - y == 0.0 to x == y, a simplification which is invalid when x and y are Infinity. Disable this optimization. */ #if defined __hpux && !defined __GNUC__ static float zerof; static double zerod; static long double zerol; #else # define zerof 0.f # define zerod 0. # define zerol 0.L #endif int gl_isfinitef (float x) { return !isnanf (x) && x - x == zerof; } int gl_isfinited (double x) { return !isnand (x) && x - x == zerod; } int gl_isfinitel (long double x) { return !isnanl (x) && x - x == zerol; }