diff options
Diffstat (limited to 'libgfortran/generated/rrspacing_r10.c')
| -rw-r--r-- | libgfortran/generated/rrspacing_r10.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libgfortran/generated/rrspacing_r10.c b/libgfortran/generated/rrspacing_r10.c index 1889d0ffcf1..298c9d1388b 100644 --- a/libgfortran/generated/rrspacing_r10.c +++ b/libgfortran/generated/rrspacing_r10.c @@ -26,6 +26,9 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" + +#define MATHFUNC(funcname) funcname ## l + #if defined (HAVE_GFC_REAL_10) && defined (HAVE_FABSL) && defined (HAVE_FREXPL) extern GFC_REAL_10 rrspacing_r10 (GFC_REAL_10 s, int p); @@ -36,14 +39,14 @@ rrspacing_r10 (GFC_REAL_10 s, int p) { int e; GFC_REAL_10 x; - x = fabsl (s); + x = MATHFUNC(fabs) (s); if (x == 0.) return 0.; - frexpl (s, &e); + MATHFUNC(frexp) (s, &e); #if defined (HAVE_LDEXPL) - return ldexpl (x, p - e); + return MATHFUNC(ldexp) (x, p - e); #else - return scalbnl (x, p - e); + return MATHFUNC(scalbn) (x, p - e); #endif } |
