From bd73b22890e7fc448463453750725dcc302c5e11 Mon Sep 17 00:00:00 2001 From: kargl Date: Fri, 13 Oct 2006 19:08:37 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117703 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/generated/spacing_r8.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'libgfortran/generated/spacing_r8.c') diff --git a/libgfortran/generated/spacing_r8.c b/libgfortran/generated/spacing_r8.c index 0f925217e42..cde5d96f1fd 100644 --- a/libgfortran/generated/spacing_r8.c +++ b/libgfortran/generated/spacing_r8.c @@ -33,7 +33,7 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h" -#if defined (HAVE_GFC_REAL_8) && defined (HAVE_FREXP) && defined (HAVE_LDEXP) +#if defined (HAVE_GFC_REAL_8) && defined (HAVE_FREXP) extern GFC_REAL_8 spacing_r8 (GFC_REAL_8 s, int p, int emin, GFC_REAL_8 tiny); export_proto(spacing_r8); @@ -47,7 +47,11 @@ spacing_r8 (GFC_REAL_8 s, int p, int emin, GFC_REAL_8 tiny) frexp (s, &e); e = e - p; e = e > emin ? e : emin; +#if defined (HAVE_LDEXP) return ldexp (1., e); +#else + return scalbn (1., e); +#endif } #endif -- cgit v1.2.1