From b0c50524f1fb93adbd52e9950f92650e020b0d59 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Thu, 10 Apr 2008 19:21:13 +0000 Subject: Updated to fedora-glibc-20080410T1907 --- sysdeps/ieee754/ldbl-128/e_lgammal_r.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'sysdeps/ieee754') diff --git a/sysdeps/ieee754/ldbl-128/e_lgammal_r.c b/sysdeps/ieee754/ldbl-128/e_lgammal_r.c index b9302974c0..d080448476 100644 --- a/sysdeps/ieee754/ldbl-128/e_lgammal_r.c +++ b/sysdeps/ieee754/ldbl-128/e_lgammal_r.c @@ -772,6 +772,12 @@ __ieee754_lgammal_r (x, signgamp) if (! __finitel (x)) return x * x; + if (x == 0.0L) + { + if (__signbitl (x)) + *signgamp = -1; + } + if (x < 0.0L) { q = -x; -- cgit v1.2.3