diff options
| author | Joseph Myers <joseph@codesourcery.com> | 2013-05-10 11:35:11 +0000 |
|---|---|---|
| committer | Joseph Myers <joseph@codesourcery.com> | 2013-05-10 11:35:11 +0000 |
| commit | ab2b94613d85ba9edc659bd5e930b9ab1ec8e8a9 (patch) | |
| tree | eedbc98232a3ec938f66bb94cb633845a3e3587a /math/w_tgammal.c | |
| parent | 4c0fe6fe42ecf97c9f7f5a0921638560c89973a2 (diff) | |
Fix tgamma errno setting on domain error (bug 6809).
Diffstat (limited to 'math/w_tgammal.c')
| -rw-r--r-- | math/w_tgammal.c | 3 |
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 */ |