diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-10-13 19:08:37 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-10-13 19:08:37 +0000 |
| commit | 4010308ce53f36930935a230441630c8f5e79b86 (patch) | |
| tree | ceddc742dee64e48de195e4172c71053db2f476e /libgfortran/generated/rrspacing_r16.c | |
| parent | 1453564b3e4f12b7fd27a500880ba00adb0727f1 (diff) | |
| download | gcc-4010308ce53f36930935a230441630c8f5e79b86.tar.gz | |
spacing.m4: Use scalbn[f,l] if ldexp[f,l] is unavailable.
2006-10-13 Steven G. Kargl <kargl@gcc.gnu.org>
* m4/spacing.m4: Use scalbn[f,l] if ldexp[f,l] is unavailable.
* m4/rrspacing.m4: Ditto.
* generated/spacing_r4.c: Regenerated.
* generated/spacing_r8.c: Ditto.
* generated/spacing_r10.c: Ditto.
* generated/spacing_r16.c: Ditto.
* generated/rrspacing_r4.c: Ditto.
* generated/rrspacing_r8.c: Ditto.
* generated/rrspacing_r10.c: Ditto.
* generated/rrspacing_r16.c: Ditto.
From-SVN: r117703
Diffstat (limited to 'libgfortran/generated/rrspacing_r16.c')
| -rw-r--r-- | libgfortran/generated/rrspacing_r16.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/generated/rrspacing_r16.c b/libgfortran/generated/rrspacing_r16.c index d18a9c3fea4..20225d45bae 100644 --- a/libgfortran/generated/rrspacing_r16.c +++ b/libgfortran/generated/rrspacing_r16.c @@ -33,7 +33,7 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h" -#if defined (HAVE_GFC_REAL_16) && defined (HAVE_FABSL) && defined (HAVE_FREXPL) && defined (HAVE_LDEXPL) +#if defined (HAVE_GFC_REAL_16) && defined (HAVE_FABSL) && defined (HAVE_FREXPL) extern GFC_REAL_16 rrspacing_r16 (GFC_REAL_16 s, int p); export_proto(rrspacing_r16); @@ -47,7 +47,12 @@ rrspacing_r16 (GFC_REAL_16 s, int p) if (x == 0.) return 0.; frexpl (s, &e); +#if defined (HAVE_LDEXPL) return ldexpl (x, p - e); +#else + return scalbnl (x, p - e); +#endif + } #endif |