diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2020-04-22 19:17:15 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2020-04-22 21:34:19 +0200 |
| commit | 1868599f8daf7798018ce8a8f314015f5a2ac520 (patch) | |
| tree | 4a9e4d8e1017d6bc4c3f1de3eaff89af049d9c90 /libgfortran/c99_protos.h | |
| parent | 545f1addf7247a800bbb943650efaa4c35d3bd1d (diff) | |
libgfortran: Provide some further math library fallbacks [PR94694]
The following patch provides some further math library fallbacks.
fmaf can be implemented using fma if available, fma and fmal can use
x * y + z as fallback, it is not perfect, but e.g. glibc on various arches
has been using that as fallback for many years,
and copysign/copysignl/fabs/fabsl can be implemented using corresponding
__builtin_* if we make sure that gcc expands it inline instead of using
a library call (these days it is expanded inline on most targets).
2020-04-22 Jakub Jelinek <jakub@redhat.com>
PR libfortran/94694
PR libfortran/94586
* configure.ac: Add math func checks for fmaf, fma and fmal. Add
HAVE_INLINE_BUILTIN_COPYSIGN check.
* c99_protos.h (copysign, fmaf, fma, fmal): Provide fallback
prototypes.
(HAVE_COPYSIGN, HAVE_FMAF, HAVE_FMA, HAVE_FMAL): Define if not
defined and fallback version is provided.
* intrinsics/c99_functions.c (copysign, fmaf, fma, fmal): Provide
fallback implementations if possible
* configure: Regenerated.
* config.h.in: Regenerated.
* math.m4 (GCC_CHECK_MATH_INLINE_BUILTIN_FALLBACK1,
GCC_CHECK_MATH_INLINE_BUILTIN_FALLBACK2): New.
Diffstat (limited to 'libgfortran/c99_protos.h')
| -rw-r--r-- | libgfortran/c99_protos.h | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/libgfortran/c99_protos.h b/libgfortran/c99_protos.h index 7b0bc720de3..1ffc645cfeb 100644 --- a/libgfortran/c99_protos.h +++ b/libgfortran/c99_protos.h @@ -71,6 +71,16 @@ extern float ceilf(float); extern float copysignf(float, float); #endif +#if !defined(HAVE_COPYSIGN) && defined(HAVE_INLINE_BUILTIN_COPYSIGN) +#define HAVE_COPYSIGN 1 +extern double copysign(double, double); +#endif + +#if !defined(HAVE_COPYSIGNL) && defined(HAVE_INLINE_BUILTIN_COPYSIGNL) +#define HAVE_COPYSIGNL 1 +extern long double copysignl(long double, long double); +#endif + #ifndef HAVE_COSF #define HAVE_COSF 1 extern float cosf(float); @@ -91,6 +101,16 @@ extern float expf(float); extern float fabsf(float); #endif +#if !defined(HAVE_FABS) && defined(HAVE_INLINE_BUILTIN_FABS) +#define HAVE_FABS 1 +extern double fabs(double); +#endif + +#if !defined(HAVE_FABSL) && defined(HAVE_INLINE_BUILTIN_FABSL) +#define HAVE_FABSL 1 +extern long double fabsl(long double); +#endif + #ifndef HAVE_FLOORF #define HAVE_FLOORF 1 extern float floorf(float); @@ -628,6 +648,20 @@ extern float tgammaf (float); extern float lgammaf (float); #endif +#ifndef HAVE_FMA +#define HAVE_FMA 1 +extern double fma(double, double, double); +#endif + +#ifndef HAVE_FMAF +#define HAVE_FMAF 1 +extern float fmaf(float, float, float); +#endif + +#ifndef HAVE_FMAL +#define HAVE_FMAL 1 +extern long double fmal(long double, long double, long double); +#endif #endif /* C99_PROTOS_H */ |