From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Richard Todd Newsgroups: gmane.lisp.guile.devel Subject: Re: building cvs guile on Mac OS X 10.4 Date: Thu, 12 May 2005 18:51:31 -0500 Message-ID: <167D87C1-A417-4736-941C-1283A5C1A7E6@mac.com> References: <6B73DD52-DE68-457F-AFAA-A353CED78052@mac.com> <4282FA37.60802@ossau.uklinux.net> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 (Apple Message framework v728) Content-Type: multipart/mixed; boundary=Apple-Mail-5-195738268 X-Trace: sea.gmane.org 1115942151 18530 80.91.229.2 (12 May 2005 23:55:51 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 12 May 2005 23:55:51 +0000 (UTC) Cc: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri May 13 01:55:48 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DWNWc-0006qQ-8X for guile-devel@m.gmane.org; Fri, 13 May 2005 01:55:30 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DWNfe-0007Oj-9V for guile-devel@m.gmane.org; Thu, 12 May 2005 20:04:50 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DWNc3-0006XU-81 for guile-devel@gnu.org; Thu, 12 May 2005 20:01:07 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DWNbm-0006OL-Dt for guile-devel@gnu.org; Thu, 12 May 2005 20:00:53 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DWNbl-0006NA-Dd for guile-devel@gnu.org; Thu, 12 May 2005 20:00:49 -0400 Original-Received: from [66.171.59.140] (helo=smtp.vzavenue.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DWNcR-0000RT-Hb for guile-devel@gnu.org; Thu, 12 May 2005 20:01:31 -0400 Original-Received: from [10.0.1.2] (247.157.171.66.subscriber.vzavenue.net [66.171.157.247]) by smtp.vzavenue.net (MOS 3.4.8-GR) with ESMTP id CFF06663; Thu, 12 May 2005 19:51:24 -0400 (EDT) In-Reply-To: <4282FA37.60802@ossau.uklinux.net> Original-To: Neil Jerram X-Mailer: Apple Mail (2.728) X-Junkmail-Status: score=0/50, host=smtp.vzavenue.net X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:4986 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:4986 --Apple-Mail-5-195738268 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed On May 12, 2005, at 1:39 AM, Neil Jerram wrote: > > >> socket.c several more (most involving addr_len) >> > > Send 'em on! > > Neil Thanks for applying those. Here (attached) are the remaining changes I need against CVS guile to build without warnings. (I would still like to see some of the autoconf/automake stuff addressed--I may have some time to try to work that out this weekend, but I'm no autotools expert). --Apple-Mail-5-195738268 Content-Transfer-Encoding: 7bit Content-Type: application/octet-stream; x-unix-mode=0644; name="guile_warnings.diff" Content-Disposition: attachment; filename=guile_warnings.diff Index: libguile/socket.c =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/socket.c,v retrieving revision 1.112 diff -u -r1.112 socket.c --- libguile/socket.c 27 Feb 2005 23:50:30 -0000 1.112 +++ libguile/socket.c 12 May 2005 23:44:39 -0000 @@ -369,7 +369,7 @@ if (af == AF_INET) return scm_from_ulong (ntohl (*(scm_t_uint32 *) dst)); else - return scm_from_ipv6 ((char *) dst); + return scm_from_ipv6 ((unsigned char *) dst); } #undef FUNC_NAME #endif @@ -401,7 +401,7 @@ if (af == AF_INET) *(scm_t_uint32 *) addr6 = htonl (SCM_NUM2ULONG (2, address)); else - scm_to_ipv6 (addr6, address); + scm_to_ipv6 ((unsigned char*)addr6, address); if (inet_ntop (af, &addr6, dst, sizeof dst) == NULL) SCM_SYSERROR; return scm_from_locale_string (dst); @@ -494,7 +494,7 @@ ioptname = scm_to_int (optname); fd = SCM_FPORT_FDES (sock); - if (getsockopt (fd, ilevel, ioptname, (void *) optval, &optlen) == -1) + if (getsockopt (fd, ilevel, ioptname, (void *) optval, (unsigned int*)&optlen) == -1) SCM_SYSERROR; if (ilevel == SOL_SOCKET) @@ -1004,7 +1004,7 @@ sock = SCM_COERCE_OUTPORT (sock); SCM_VALIDATE_OPFPORT (1, sock); fd = SCM_FPORT_FDES (sock); - newfd = accept (fd, addr, &addr_size); + newfd = accept (fd, addr, (unsigned int *)&addr_size); if (newfd == -1) SCM_SYSERROR; newsock = SCM_SOCK_FD_TO_PORT (newfd); @@ -1028,7 +1028,7 @@ sock = SCM_COERCE_OUTPORT (sock); SCM_VALIDATE_OPFPORT (1, sock); fd = SCM_FPORT_FDES (sock); - if (getsockname (fd, addr, &addr_size) == -1) + if (getsockname (fd, addr, (unsigned int*)&addr_size) == -1) SCM_SYSERROR; return scm_addr_vector (addr, addr_size, FUNC_NAME); } @@ -1050,7 +1050,7 @@ sock = SCM_COERCE_OUTPORT (sock); SCM_VALIDATE_OPFPORT (1, sock); fd = SCM_FPORT_FDES (sock); - if (getpeername (fd, addr, &addr_size) == -1) + if (getpeername (fd, addr, (unsigned int*)&addr_size) == -1) SCM_SYSERROR; return scm_addr_vector (addr, addr_size, FUNC_NAME); } @@ -1200,7 +1200,7 @@ addr->sa_family = AF_UNSPEC; SCM_SYSCALL (rv = recvfrom (fd, buf + offset, cend - offset, flg, - addr, &addr_size)); + addr, (unsigned int *)&addr_size)); scm_i_string_stop_writing (); if (rv == -1) Index: srfi/srfi-1.c =================================================================== RCS file: /cvsroot/guile/guile/guile-core/srfi/srfi-1.c,v retrieving revision 1.35 diff -u -r1.35 srfi-1.c --- srfi/srfi-1.c 6 May 2005 23:57:21 -0000 1.35 +++ srfi/srfi-1.c 12 May 2005 23:44:44 -0000 @@ -1223,9 +1223,10 @@ { long i; + SCM elt = 0; for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--) { - SCM elt = SCM_SIMPLE_VECTOR_REF (argv, i); + elt = SCM_SIMPLE_VECTOR_REF (argv, i); long elt_len; if (!(scm_is_null (elt) || scm_is_pair (elt))) --Apple-Mail-5-195738268 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel --Apple-Mail-5-195738268--