diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-13 19:08:37 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-13 19:08:37 +0000 |
| commit | bd73b22890e7fc448463453750725dcc302c5e11 (patch) | |
| tree | ceddc742dee64e48de195e4172c71053db2f476e /libgfortran/generated/spacing_r8.c | |
| parent | cbd898871890b31a53bc51356b8b43cffd82731e (diff) | |
| download | gcc-bd73b22890e7fc448463453750725dcc302c5e11.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117703 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/spacing_r8.c')
| -rw-r--r-- | libgfortran/generated/spacing_r8.c | 6 |
1 files changed, 5 insertions, 1 deletions
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 |