diff options
Diffstat (limited to 'libc/sysdeps/ieee754/dbl-64/e_pow.c')
| -rw-r--r-- | libc/sysdeps/ieee754/dbl-64/e_pow.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libc/sysdeps/ieee754/dbl-64/e_pow.c b/libc/sysdeps/ieee754/dbl-64/e_pow.c index 513171891..ee2711322 100644 --- a/libc/sysdeps/ieee754/dbl-64/e_pow.c +++ b/libc/sysdeps/ieee754/dbl-64/e_pow.c @@ -1,7 +1,7 @@ /* * IBM Accurate Mathematical Library * written by International Business Machines Corp. - * Copyright (C) 2001-2012 Free Software Foundation + * Copyright (C) 2001-2013 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License as published by @@ -95,10 +95,10 @@ __ieee754_pow(double x, double y) { if (ABS (y) < 0x1p-64) y = y < 0 ? -0x1p-64 : 0x1p-64; z = log1(x,&aa,&error); /* x^y =e^(y log (X)) */ - t = y*134217729.0; + t = y*CN; y1 = t - (t-y); y2 = y - y1; - t = z*134217729.0; + t = z*CN; a1 = t - (t-z); a2 = (z - a1)+aa; a = y1*a1; @@ -182,10 +182,10 @@ SECTION power1(double x, double y) { double z,a,aa,error, t,a1,a2,y1,y2; z = my_log2(x,&aa,&error); - t = y*134217729.0; + t = y*CN; y1 = t - (t-y); y2 = y - y1; - t = z*134217729.0; + t = z*CN; a1 = t - (t-z); a2 = z - a1; a = y*z; |