diff options
| author | okazaki <okazaki@FreeBSD.org> | 2007-08-30 01:03:11 +0800 |
|---|---|---|
| committer | okazaki <okazaki@FreeBSD.org> | 2007-08-30 01:03:11 +0800 |
| commit | e8e4501f48cd6182867ffce24bcef3bdccbac99c (patch) | |
| tree | b527bd00f35d15394a62b1c3f890354394505a07 /lang/dylan | |
| parent | de18d87417c2bfff6baea829de716ec6d997287a (diff) | |
| download | freebsd-ports-gnome-e8e4501f48cd6182867ffce24bcef3bdccbac99c.tar.gz freebsd-ports-gnome-e8e4501f48cd6182867ffce24bcef3bdccbac99c.tar.zst freebsd-ports-gnome-e8e4501f48cd6182867ffce24bcef3bdccbac99c.zip | |
Fix compile errors when using GCC 4.x.
PR: 115731
Submitted by: maintainer
Diffstat (limited to 'lang/dylan')
| -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) + */ + + |