Mercurial > gnulib
view lib/log10l.c @ 40189:3ba41edecde6
progreloc: Speed up executable lookup on various platforms.
* lib/progreloc.c: Include <errno.h>.
(safe_read, full_read): New functions.
(find_executable): On GNU/kFreeBSD, FreeBSD, DragonFly, NetBSD, Solaris,
prefer the information from the /proc file system to a PATH search.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Tue, 19 Feb 2019 21:42:54 +0100 |
parents | d53c98a8c061 |
children |
line wrap: on
line source
/* Base 10 logarithmic function. Copyright (C) 2012-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 3 of the License, 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/>. */ #include <config.h> /* Specification. */ #include <math.h> #if HAVE_SAME_LONG_DOUBLE_AS_DOUBLE long double log10l (long double x) { return log10 (x); } #elif 0 /* was: HAVE_LOG10L */ # include <float.h> long double log10l (long double x) # undef log10l { /* Work around the OSF/1 5.1 bug. */ if (x == 0.0L) /* Return -Infinity. */ return -1.0L / 0.0L; { long double y = log10l (x); # ifdef __sgi /* Normalize the +Infinity value. */ if (y > LDBL_MAX) y = 1.0L / 0.0L; # endif return y; } } #else /* 1 / log(10) */ static const long double inv_log10 = 0.43429448190325182765112891891660508229439700580366656611445378316586464920887L; long double log10l (long double x) { return logl (x) * inv_log10; } #endif