From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Hugh Sasse Newsgroups: gmane.lisp.guile.user Subject: Re: Gmp now working, but number.c:147 isinf declared implicitly. Date: Mon, 15 Jan 2007 11:58:36 +0000 (WET) Message-ID: References: <87fyafvol7.fsf@zip.com.au> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Trace: sea.gmane.org 1168893506 4139 80.91.229.12 (15 Jan 2007 20:38:26 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 15 Jan 2007 20:38:26 +0000 (UTC) Cc: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Mon Jan 15 21:38:23 2007 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1H6XS3-00086b-Qc for guile-user@m.gmane.org; Mon, 15 Jan 2007 20:25:04 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H6QVO-0000Fm-4O for guile-user@m.gmane.org; Mon, 15 Jan 2007 07:00:02 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1H6QU8-0007rs-Ge for guile-user@gnu.org; Mon, 15 Jan 2007 06:58:44 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1H6QU7-0007rL-Du for guile-user@gnu.org; Mon, 15 Jan 2007 06:58:43 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H6QU7-0007r2-6o for guile-user@gnu.org; Mon, 15 Jan 2007 06:58:43 -0500 Original-Received: from [146.227.160.29] (helo=mail2.dmu.ac.uk) by monty-python.gnu.org with esmtp (Exim 4.52) id 1H6QU3-0007Df-Oy for guile-user@gnu.org; Mon, 15 Jan 2007 06:58:41 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by mail2.dmu.ac.uk (Postfix) with ESMTP id 0FD9A7DC885; Mon, 15 Jan 2007 11:58:39 +0000 (GMT) Original-Received: from europa.cse.dmu.ac.uk (europa.cse.dmu.ac.uk [146.227.57.47]) by mail2.dmu.ac.uk (Postfix) with ESMTP id 9EAF47DC905; Mon, 15 Jan 2007 11:58:38 +0000 (GMT) Original-Received: from brains ([146.227.22.1]) by europa.cse.dmu.ac.uk (8.13.6/8.13.6) with ESMTP id l0FBwasd025413; Mon, 15 Jan 2007 11:58:38 GMT Original-Received: from brains.eng.cse.dmu.ac.uk ([146.227.22.1] helo=brains) by brains with esmtp (Exim 4.44) id 1H6QU0-00000x-Ep; Mon, 15 Jan 2007 11:58:36 +0000 X-X-Sender: hgs@brains.eng.cse.dmu.ac.uk Original-To: Kevin Ryde In-Reply-To: X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:5778 Archived-At: On Mon, 15 Jan 2007, Hugh Sasse wrote: > On Sat, 13 Jan 2007, Kevin Ryde wrote: > > > You might be able to just stick in a prototype, > > Tried to do that, it still complained about it. > > or alternately just > > "./configure --disable-error-on-warning". > > Hmmmm, I'll give that a go. Right, I got this: if /bin/bash ../libtool --tag=CC --mode=compile gcc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I.. -g -O2 -Wall -Wmissing-prototypes -MT posix.lo -MD -MP -MF ".deps/posix.Tpo" -c -o posix.lo posix.c; \ then mv -f ".deps/posix.Tpo" ".deps/posix.Plo"; else rm -f ".deps/posix.Tpo"; exit 1; fi gcc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I.. -g -O2 -Wall -Wmissing-prototypes -MT posix.lo -MD -MP -MF .deps/posix.Tpo -c posix.c -fPIC -DPIC -o .libs/posix.o posix.c: In function 'scm_putenv': posix.c:1332: error: 'len' undeclared (first use in this function) posix.c:1332: error: (Each undeclared identifier is reported only once posix.c:1332: error: for each function it appears in.) gmake[3]: *** [posix.lo] Error 1 gmake[3]: Leaving directory `/export/home/Scratch/hgs/guile-1.8.1/libguile' gmake[2]: *** [all] Error 2 gmake[2]: Leaving directory `/export/home/Scratch/hgs/guile-1.8.1/libguile' gmake[1]: *** [all-recursive] Error 1 gmake[1]: Leaving directory `/export/home/Scratch/hgs/guile-1.8.1' gmake: *** [all] Error 2 bash-2.05$ bash-2.05$ ggrep -n -C 2 '\' posix.c 1314- char *c_str = scm_to_locale_string (str); 1315-#ifdef __MINGW32__ 1316: size_t len = strlen (c_str); 1317-#endif 1318- -- 1330- environment variable 'name'. */ 1331- int e; 1332: char *ptr = scm_malloc (len + 2); 1333- strcpy (ptr, c_str); 1334: strcpy (ptr+len, "="); 1335- rv = putenv (ptr); 1336- e = errno; free (ptr); free (c_str); errno = e; -- 1349- because MINGW putenv copies it. */ 1350- 1351: if (c_str[len-1] == '=') 1352- { 1353: char *ptr = scm_malloc (len+2); 1354- strcpy (ptr, c_str); 1355: strcpy (ptr+len, " "); 1356- rv = putenv (ptr); 1357- if (rv < 0) -- 1363- } 1364- /* truncate to just the name */ 1365: c_str[len-1] = '\0'; 1366- ptr = getenv (c_str); 1367- if (ptr) -- 1592-{ 1593- static char user[256]; 1594: static unsigned long len = 256; 1595- 1596: if (!GetUserName (user, &len)) 1597- return NULL; 1598- return user; -- 1745-static int flock (int fd, int operation) 1746-{ 1747: long pos, len; 1748- int ret, err; 1749- -- 1771- 1772- /* Save current file pointer and seek to beginning. */ 1773: if ((pos = lseek (fd, 0, SEEK_CUR)) == -1 || (len = filelength (fd)) == -1) 1774- return -1; 1775- lseek (fd, 0L, SEEK_SET); -- 1778- do 1779- { 1780: ret = _locking (fd, operation, len); 1781- } 1782- while (ret == -1 && errno == EDEADLOCK); -- 1871- /* Various systems define MAXHOSTNAMELEN (including Solaris in fact). 1872- * On GNU/Linux this doesn't include the terminating '\0', hence "+ 1". */ 1873: const int len = MAXHOSTNAMELEN + 1; 1874: char *const p = scm_malloc (len); 1875: const int res = gethostname (p, len); 1876- 1877- scm_dynwind_begin (0); -- 1882- /* Default 256 is for Solaris, under Linux ENAMETOOLONG is returned if not 1883- * large enough. SUSv2 specifies 255 maximum too, apparently. */ 1884: int len = 256; 1885- int res; 1886- char *p; -- 1895- const long int n = sysconf (_SC_HOST_NAME_MAX); 1896- if (n != -1L) 1897: len = n; 1898- } 1899- 1900-# endif 1901- 1902: p = scm_malloc (len); 1903- 1904- scm_dynwind_begin (0); 1905- scm_dynwind_unwind_handler (free, p, 0); 1906- 1907: res = gethostname (p, len); 1908- while (res == -1 && errno == ENAMETOOLONG) 1909- { 1910: len *= 2; 1911- 1912- /* scm_realloc may throw an exception. */ 1913: p = scm_realloc (p, len); 1914: res = gethostname (p, len); 1915- } 1916- bash-2.05$ Hugh _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://lists.gnu.org/mailman/listinfo/guile-user