SOURCES: gcl-gcc4.patch (NEW) - gcc-gcc4.patch. Building still fai...
qrczak
qrczak at pld-linux.org
Fri Sep 30 15:20:08 CEST 2005
Author: qrczak Date: Fri Sep 30 13:20:08 2005 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- gcc-gcc4.patch. Building still fails in another place.
---- Files affected:
SOURCES:
gcl-gcc4.patch (NONE -> 1.1) (NEW)
---- Diffs:
================================================================
Index: SOURCES/gcl-gcc4.patch
diff -u /dev/null SOURCES/gcl-gcc4.patch:1.1
--- /dev/null Fri Sep 30 15:20:08 2005
+++ SOURCES/gcl-gcc4.patch Fri Sep 30 15:19:59 2005
@@ -0,0 +1,99 @@
+--- gcl-2.6.6/o/num_sfun.c.orig 2003-11-06 17:16:52.000000000 +0100
++++ gcl-2.6.6/o/num_sfun.c 2005-09-30 12:31:51.000000000 +0200
+@@ -43,6 +43,8 @@
+ return(z);
+ }
+
++static object number_sin(object x), number_cos(object x);
++
+ static object
+ number_exp(object x)
+ {
+@@ -64,7 +66,6 @@
+ case t_complex:
+ {
+ object y, y1;
+- static object number_sin(object x), number_cos(object x);
+ vs_mark;
+
+ y = x->cmp.cmp_imag;
+@@ -88,12 +89,13 @@
+ }
+ }
+
++static object number_nlog(object x);
++
+ object
+ number_expt(object x, object y)
+ {
+ enum type tx, ty;
+ object z;
+- static object number_nlog(object x);
+ vs_mark;
+
+ tx = type_of(x);
+@@ -172,12 +174,13 @@
+ return(z);
+ }
+
++static object number_sqrt(object x), number_atan2(object y, object x);
++
+ static object
+ number_nlog(object x)
+ {
+ double log(double);
+ object r=Cnil, i=Cnil, a, p;
+- static object number_sqrt(object x), number_atan2(object y, object x);
+ vs_mark;
+
+ if (type_of(x) == t_complex) {
+--- gcl-2.6.6/o/format.c.orig 2003-11-06 17:16:50.000000000 +0100
++++ gcl-2.6.6/o/format.c 2005-09-30 12:38:58.000000000 +0200
+@@ -1794,13 +1794,15 @@
+ x = x->sm.sm_object0;
+ if (!colon && !atsign)
+ for (i = 0; i < x->st.st_fillp; i++) {
+- if (isUpper(j = x->st.st_self[i]))
++ j = x->st.st_self[i];
++ if (isUpper(j))
+ j += 'a' - 'A';
+ writec_stream(j, fmt_stream);
+ }
+ else if (colon && !atsign)
+ for (b = TRUE, i = 0; i < x->st.st_fillp; i++) {
+- if (isLower(j = x->st.st_self[i])) {
++ j = x->st.st_self[i];
++ if (isLower(j)) {
+ if (b)
+ j -= 'a' - 'A';
+ b = FALSE;
+@@ -1814,7 +1816,8 @@
+ }
+ else if (!colon && atsign)
+ for (b = TRUE, i = 0; i < x->st.st_fillp; i++) {
+- if (isLower(j = x->st.st_self[i])) {
++ j = x->st.st_self[i];
++ if (isLower(j)) {
+ if (b)
+ j -= 'a' - 'A';
+ b = FALSE;
+@@ -1827,7 +1830,8 @@
+ }
+ else
+ for (i = 0; i < x->st.st_fillp; i++) {
+- if (isLower(j = x->st.st_self[i]))
++ j = x->st.st_self[i];
++ if (isLower(j))
+ j -= 'a' - 'A';
+ writec_stream(j, fmt_stream);
+ }
+--- gcl-2.6.6/o/unixfsys.c.orig 2005-01-15 17:44:37.000000000 +0100
++++ gcl-2.6.6/o/unixfsys.c 2005-09-30 12:42:39.000000000 +0200
+@@ -266,7 +266,6 @@
+ char truefilename[MAXPATHLEN];
+ char current_directory[MAXPATHLEN];
+ char directory[MAXPATHLEN];
+- static char *getwd(char *buffer);
+ #ifdef __MINGW32__
+ DWORD current_directory_length =
+ GetCurrentDirectory ( MAXPATHLEN, current_directory );
================================================================
More information about the pld-cvs-commit
mailing list