diff options
| author | OKAZAKI Tetsurou <okazaki@FreeBSD.org> | 2007-08-29 17:03:11 +0000 |
|---|---|---|
| committer | OKAZAKI Tetsurou <okazaki@FreeBSD.org> | 2007-08-29 17:03:11 +0000 |
| commit | ec9e1d523b47af94b8872f78fce6bf4bfceed1a2 (patch) | |
| tree | 179818765479f1150648b39a1c4ed546a146b4cd /lang | |
| parent | 726c3bb71ae9a2c5b201b86cd41192034cc55a6b (diff) | |
Notes
Diffstat (limited to 'lang')
| -rw-r--r-- | lang/dylan/files/patch-float.c | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/lang/dylan/files/patch-float.c b/lang/dylan/files/patch-float.c new file mode 100644 index 000000000000..2143068537c0 --- /dev/null +++ b/lang/dylan/files/patch-float.c @@ -0,0 +1,64 @@ +--- d2c/runtime/c-code/float.c Wed Jul 23 08:08:58 2003 ++++ d2c/runtime/c-code/float.c Tue Aug 21 14:43:47 2007 +@@ -101,11 +101,11 @@ + + #define SQRTHL 0.70710678118654752440L + ++static long double polevll(long double, long double *, size_t); ++static long double p1evll(long double, long double *, size_t); ++ + long double (logl)(long double x) + { +- static long double polevll(long double, long double *, size_t); +- static long double p1evll(long double, long double *, size_t); +- + /* Coefficients for log(1+x) = x - x**2/2 + x**3 P(x)/Q(x) 1/sqrt(2) <= x < + * sqrt(2) Theoretical peak relative error = 2.32e-20 + */ +@@ -229,11 +229,11 @@ + #define LOG2EAL 4.4269504088896340735992e-1L + #define SQRTHL 0.70710678118654752440L + ++long double polevll(long double, long double *, size_t); ++long double p1evll(long double, long double *, size_t); ++ + long double (log2l)(long double x) + { +- static long double polevll(long double, long double *, size_t); +- static long double p1evll(long double, long double *, size_t); +- + static long double P[] = { + 4.9962495940332550844739E-1L, + 1.0767376367209449010438E1L, +@@ -362,11 +362,11 @@ + + #define SQRTHL 0.70710678118654752440L + ++static long double polevll(long double, long double *, size_t); ++static long double p1evll(long double, long double *, size_t); ++ + long double (log10l)(long double x) + { +- static long double polevll(long double, long double *, size_t); +- static long double p1evll(long double, long double *, size_t); +- + /* Coefficients for log(1+x) = x - x**2/2 + x**3 P(x)/Q(x) 1/sqrt(2) <= x < + * sqrt(2) Theoretical peak relative error = 6.2e-22 + */ +@@ -497,11 +497,11 @@ + #define LOG2EA 0.44269504088896340735992 /* log2(e) - 1 */ + #define SQRTH 0.70710678118654752440 + ++static double polevl(double, double *, size_t); ++static double p1evl(double, double *, size_t); ++ + double (log2)(double x) + { +- static double polevl(double, double *, size_t); +- static double p1evl(double, double *, size_t); +- + /* Coefficients for log(1+x) = x - x**2/2 + x**3 P(x)/Q(x) 1/sqrt(2) <= x < + * sqrt(2) + */ + + |