From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.devel Subject: compile fixen Date: Sun, 09 Oct 2005 21:41:03 +0200 Message-ID: <1128886863.12910.77.camel@localhost.localdomain> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-/iBLHbCEpzy1P/Jb+P1H" X-Trace: sea.gmane.org 1128887111 21927 80.91.229.2 (9 Oct 2005 19:45:11 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 9 Oct 2005 19:45:11 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Sun Oct 09 21:45:09 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EOh65-0000bi-3r for guile-devel@m.gmane.org; Sun, 09 Oct 2005 21:44:37 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EOh64-00019P-Km for guile-devel@m.gmane.org; Sun, 09 Oct 2005 15:44:36 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1EOh61-00019I-AA for guile-devel@gnu.org; Sun, 09 Oct 2005 15:44:33 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1EOh60-000196-NO for guile-devel@gnu.org; Sun, 09 Oct 2005 15:44:33 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EOh60-000193-LM for guile-devel@gnu.org; Sun, 09 Oct 2005 15:44:32 -0400 Original-Received: from [216.166.232.203] (helo=kettle.ambient-hosting.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1EOh60-00038w-NY for guile-devel@gnu.org; Sun, 09 Oct 2005 15:44:32 -0400 Original-Received: from localhost.localdomain (ambient-hosting.net [216.166.232.203]) by kettle.ambient-hosting.net (Postfix) with ESMTP id 89ED488051 for ; Sun, 9 Oct 2005 15:44:26 -0400 (EDT) Original-To: guile-devel@gnu.org X-Mailer: Evolution 2.4.0 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:5257 Archived-At: --=-/iBLHbCEpzy1P/Jb+P1H Content-Type: text/plain Content-Transfer-Encoding: 7bit Hello, Just updated an ancient checkout of guile 1.7. The attached patch fixes a bug caught by my compiler. Also the build stopped when building the texinfo files, because I had no version.texi. I had to make stamp-vti in the doc/ref and doc/tut dirs to make the version.texi files, but that gives today as being when it was updated, which is incorrect. Suggest adding those files to CVS. Cheers, Wingo. --=-/iBLHbCEpzy1P/Jb+P1H Content-Disposition: inline; filename=guile-compile-diff Content-Type: text/plain; name=guile-compile-diff; charset=UTF-8 Content-Transfer-Encoding: 7bit ? guile-compile-diff ? ice-9/debugger/breakpoints/Makefile.in ? libltdl/COPYING.LIB ? libltdl/Makefile.am ? libltdl/Makefile.in ? libltdl/README ? libltdl/aclocal.m4 ? libltdl/autom4te.cache ? libltdl/config-h.in ? libltdl/config.guess ? libltdl/config.sub ? libltdl/configure ? libltdl/configure.ac ? libltdl/install-sh ? libltdl/ltdl.c ? libltdl/ltdl.h ? libltdl/ltmain.sh ? libltdl/missing Index: libguile/ChangeLog =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/ChangeLog,v retrieving revision 1.2302 diff -u -r1.2302 ChangeLog --- libguile/ChangeLog 5 Oct 2005 00:36:04 -0000 1.2302 +++ libguile/ChangeLog 9 Oct 2005 19:40:13 -0000 @@ -1,3 +1,8 @@ +2005-10-09 Andy Wingo + + * script.c (scm_find_executable): Compile fix -- fgetc returns an + unsigned char cast to an int, or -1 for EOS. + 2005-09-05 Marius Vollmer * print.h (SCM_PRINT_KEYWORD_STYLE_I, SCM_PRINT_KEYWORD_STYLE): Index: libguile/script.c =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/script.c,v retrieving revision 1.73 diff -u -r1.73 script.c --- libguile/script.c 23 May 2005 19:57:21 -0000 1.73 +++ libguile/script.c 9 Oct 2005 19:40:14 -0000 @@ -120,7 +120,7 @@ scm_find_executable (const char *name) { char tbuf[MAXPATHLEN]; - int i = 0; + int i = 0, c; FILE *f; /* fprintf(stderr, "s_f_e checking access %s ->%d\n", name, access(name, X_OK)); fflush(stderr); */ @@ -132,16 +132,18 @@ if ((fgetc (f) == '#') && (fgetc (f) == '!')) { while (1) - switch (tbuf[i++] = fgetc (f)) + switch (c = fgetc (f)) { case /*WHITE_SPACES */ ' ': case '\t': case '\r': case '\f': case EOF: - tbuf[--i] = 0; + tbuf[i] = 0; fclose (f); return scm_cat_path (0L, tbuf, 0L); + default: + tbuf[i++] = c; } } fclose (f); --=-/iBLHbCEpzy1P/Jb+P1H 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 --=-/iBLHbCEpzy1P/Jb+P1H--