diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2007-10-10 21:00:50 +0000 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2007-10-10 21:00:50 +0000 |
| commit | fc2a4f5f837f259c239fbd15911f80ca8c6907e3 (patch) | |
| tree | 2be478cfcb93051f657027d6fafd96778aa49317 /sysdeps/ieee754/ldbl-96/e_lgammal_r.c | |
| parent | 75cb5a0d471729d28a59b693441e2d527c9e962e (diff) | |
Updated to fedora-glibc-20071010T2047cvs/fedora-glibc-2_6_90-18
Diffstat (limited to 'sysdeps/ieee754/ldbl-96/e_lgammal_r.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-96/e_lgammal_r.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/sysdeps/ieee754/ldbl-96/e_lgammal_r.c b/sysdeps/ieee754/ldbl-96/e_lgammal_r.c index fecbee9b2a..36e336565c 100644 --- a/sysdeps/ieee754/ldbl-96/e_lgammal_r.c +++ b/sysdeps/ieee754/ldbl-96/e_lgammal_r.c @@ -11,9 +11,9 @@ /* Long double expansions are Copyright (C) 2001 Stephen L. Moshier <moshier@na-net.ornl.gov> - and are incorporated herein by permission of the author. The author + and are incorporated herein by permission of the author. The author reserves the right to distribute this material elsewhere under different - copying permissions. These modifications are distributed here under + copying permissions. These modifications are distributed here under the following terms: This library is free software; you can redistribute it and/or @@ -302,7 +302,11 @@ __ieee754_lgammal_r (x, signgamp) ix = se & 0x7fff; if ((ix | i0 | i1) == 0) - return one / fabsl (x); + { + if (se & 0x8000) + *signgamp = -1; + return one / fabsl (x); + } ix = (ix << 16) | (i0 >> 16); |