git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/26253 (fallback scalbn doesn't handle denormals correctly) 

PR libfortran/26253
	* intrinsics/c99_functions.c (scalbn): Use ldexp if appopriate.

From-SVN: r128648
This commit is contained in:
Francois-Xavier Coudert 2007-09-21 10:54:20 +00:00 committed by François-Xavier Coudert
parent 90d3112688
commit b65d72ab86
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2007-09-21 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/26253
* intrinsics/c99_functions.c (scalbn): Use ldexp if appopriate.
2007-09-21 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2007-09-21 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/23272 PR libfortran/23272

4
libgfortran/intrinsics/c99_functions.c
View File

@ -341,7 +341,11 @@ log10f(float x)
double double
scalbn(double x, int y) scalbn(double x, int y)
{ {
#if (FLT_RADIX == 2) && defined(HAVE_LDEXP)
return ldexp (x, y);
#else
return x * pow(FLT_RADIX, y); return x * pow(FLT_RADIX, y);
#endif
} }
#endif #endif