From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: hyperdivision@sleepynyago.dyndns.org (Hyperdivision) Newsgroups: gmane.lisp.guile.bugs Subject: (no subject) Date: Fri, 23 Apr 2004 10:36:49 -0500 Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Message-ID: <40893811.mailNWN1WP2KH@localhost> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1082756980 2690 80.91.224.253 (23 Apr 2004 21:49:40 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 23 Apr 2004 21:49:40 +0000 (UTC) Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Fri Apr 23 23:49:32 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BH8Y7-00017W-00 for ; Fri, 23 Apr 2004 23:49:31 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BH8Wb-0007Y0-Re for guile-bugs@m.gmane.org; Fri, 23 Apr 2004 17:47:57 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1BH8TE-0005tj-TK for bug-guile@gnu.org; Fri, 23 Apr 2004 17:44:28 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1BH8Rp-0004JM-Q7 for bug-guile@gnu.org; Fri, 23 Apr 2004 17:43:33 -0400 Original-Received: from [12.205.150.243] (helo=sleepynyago.dyndns.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BH8Ni-00028m-8E for bug-guile@gnu.org; Fri, 23 Apr 2004 17:38:46 -0400 Original-Received: by sleepynyago.dyndns.org (Postfix, from userid 2310) id B3EE87AE0; Fri, 23 Apr 2004 10:36:49 -0500 (CDT) Original-To: bug-guile@gnu.org User-Agent: nail 10.7 3/19/04 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.bugs:1328 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:1328 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 Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile