about summary refs log tree commit diff
path: root/math/w_tgammal.c
diff options
context:
space:
mode:
authorJoseph Myers <joseph@codesourcery.com>2013-05-10 11:35:11 +0000
committerJoseph Myers <joseph@codesourcery.com>2013-05-10 11:35:11 +0000
commitab2b94613d85ba9edc659bd5e930b9ab1ec8e8a9 (patch)
treeeedbc98232a3ec938f66bb94cb633845a3e3587a /math/w_tgammal.c
parent4c0fe6fe42ecf97c9f7f5a0921638560c89973a2 (diff)
downloadglibc-ab2b94613d85ba9edc659bd5e930b9ab1ec8e8a9.tar.gz
glibc-ab2b94613d85ba9edc659bd5e930b9ab1ec8e8a9.tar.xz
glibc-ab2b94613d85ba9edc659bd5e930b9ab1ec8e8a9.zip
Fix tgamma errno setting on domain error (bug 6809).
Diffstat (limited to 'math/w_tgammal.c')
-rw-r--r--math/w_tgammal.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/math/w_tgammal.c b/math/w_tgammal.c
index 86adab29ea..72b247db2a 100644
--- a/math/w_tgammal.c
+++ b/math/w_tgammal.c
@@ -27,7 +27,8 @@ __tgammal(long double x)
 	int local_signgam;
 	long double y = __ieee754_gammal_r(x,&local_signgam);
 
-	if(__builtin_expect(!__finitel(y), 0) && __finitel(x)
+	if(__builtin_expect(!__finitel(y), 0)
+	   && (__finitel (x) || __isinfl (x) < 0)
 	   && _LIB_VERSION != _IEEE_) {
 	  if(x==0.0)
 	    return __kernel_standard_l(x,x,250); /* tgamma pole */