From 4010308ce53f36930935a230441630c8f5e79b86 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 13 Oct 2006 19:08:37 +0000 Subject: spacing.m4: Use scalbn[f,l] if ldexp[f,l] is unavailable. 2006-10-13 Steven G. Kargl * 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 --- libgfortran/generated/rrspacing_r4.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'libgfortran/generated/rrspacing_r4.c') diff --git a/libgfortran/generated/rrspacing_r4.c b/libgfortran/generated/rrspacing_r4.c index 0c7d182..89be40b 100644 --- a/libgfortran/generated/rrspacing_r4.c +++ b/libgfortran/generated/rrspacing_r4.c @@ -33,7 +33,7 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h" -#if defined (HAVE_GFC_REAL_4) && defined (HAVE_FABSF) && defined (HAVE_FREXPF) && defined (HAVE_LDEXPF) +#if defined (HAVE_GFC_REAL_4) && defined (HAVE_FABSF) && defined (HAVE_FREXPF) extern GFC_REAL_4 rrspacing_r4 (GFC_REAL_4 s, int p); export_proto(rrspacing_r4); @@ -47,7 +47,12 @@ rrspacing_r4 (GFC_REAL_4 s, int p) if (x == 0.) return 0.; frexpf (s, &e); +#if defined (HAVE_LDEXPF) return ldexpf (x, p - e); +#else + return scalbnf (x, p - e); +#endif + } #endif -- cgit v1.1