Subject: guile-core (cvs) patch patch to get guile-cvs to build with gcc-cvs
diff -Naur guile-core.orig/libguile/num2integral.i.c guile-core/libguile/num2integral.i.c --- guile-core.orig/libguile/num2integral.i.c 2004-02-17 18:25:39.000000000 -0600 +++ guile-core/libguile/num2integral.i.c 2004-04-16 08:25:43.000000000 -0500 @@ -79,14 +79,14 @@ else { /* make sure the result will fit */ - if (BIGMPZ_FITSP) +#ifdef BIGMPZ_FITSP { int fits_p = BIGMPZ_FITSP (SCM_I_BIG_MPZ (num)); scm_remember_upto_here_1 (num); if (!fits_p) scm_out_of_range (s_caller, num); } - else +#else { size_t numbits; if (UNSIGNED) @@ -102,6 +102,7 @@ if (numbits > (sizeof (ITYPE) * SCM_CHAR_BIT)) scm_out_of_range (s_caller, num); } +#endif if (UNSIGNED && (SIZEOF_ITYPE <= SIZEOF_UNSIGNED_LONG)) { diff -Naur guile-core.orig/libguile/socket.c guile-core/libguile/socket.c --- guile-core.orig/libguile/socket.c 2003-04-16 14:45:01.000000000 -0500 +++ guile-core/libguile/socket.c 2004-04-16 09:31:45.000000000 -0500 @@ -408,7 +408,7 @@ else\ {\ SCM_VALIDATE_BIGINT (which_arg, address);\ - SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p);\ + SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p(address));\ } #ifdef HAVE_INET_PTON diff -Naur guile-core.orig/libguile/threads.c guile-core/libguile/threads.c --- guile-core.orig/libguile/threads.c 2004-03-03 10:53:13.000000000 -0600 +++ guile-core/libguile/threads.c 2004-04-16 08:33:04.000000000 -0500 @@ -443,7 +443,7 @@ "Move the calling thread to the end of the scheduling queue.") #define FUNC_NAME s_scm_yield { - return SCM_BOOL (scm_thread_yield); + return SCM_BOOL (scm_thread_yield()); } #undef FUNC_NAME diff -Naur guile-core.orig/libguile/unif.c guile-core/libguile/unif.c --- guile-core.orig/libguile/unif.c 2004-02-13 17:15:37.000000000 -0600 +++ guile-core/libguile/unif.c 2004-04-16 08:33:52.000000000 -0500 @@ -137,7 +137,7 @@ } } -static const char s_scm_make_uve[]; +/*static const char s_scm_make_uve[];*/ static SCM make_uve (long type, long k, size_t size) _______________________________________________ Bug-guile mailing list [EMAIL PROTECTED] http://mail.gnu.org/mailman/listinfo/bug-guile