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/spacing_r4.c | |
| parent | 1453564b3e4f12b7fd27a500880ba00adb0727f1 (diff) | |
| download | gcc-4010308ce53f36930935a230441630c8f5e79b86.zip gcc-4010308ce53f36930935a230441630c8f5e79b86.tar.gz gcc-4010308ce53f36930935a230441630c8f5e79b86.tar.bz2 | |
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/spacing_r4.c')
| -rw-r--r-- | libgfortran/generated/spacing_r4.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/generated/spacing_r4.c b/libgfortran/generated/spacing_r4.c index 41cc72e..1e09e11 100644 --- a/libgfortran/generated/spacing_r4.c +++ b/libgfortran/generated/spacing_r4.c @@ -33,7 +33,7 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h" -#if defined (HAVE_GFC_REAL_4) && defined (HAVE_FREXPF) && defined (HAVE_LDEXPF) +#if defined (HAVE_GFC_REAL_4) && defined (HAVE_FREXPF) extern GFC_REAL_4 spacing_r4 (GFC_REAL_4 s, int p, int emin, GFC_REAL_4 tiny); export_proto(spacing_r4); @@ -47,7 +47,11 @@ spacing_r4 (GFC_REAL_4 s, int p, int emin, GFC_REAL_4 tiny) frexpf (s, &e); e = e - p; e = e > emin ? e : emin; +#if defined (HAVE_LDEXPF) return ldexpf (1., e); +#else + return scalbnf (1., e); +#endif } #endif |