From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Matthias Koeppe Newsgroups: gmane.lisp.guile.devel Subject: Please put these fixes from CVS HEAD into branch_release-1-6 Date: Tue, 04 Nov 2003 20:21:42 +0100 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1067974098 504 80.91.224.253 (4 Nov 2003 19:28:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 4 Nov 2003 19:28:18 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Tue Nov 04 20:28:16 2003 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 1AH6qe-0003fF-00 for ; Tue, 04 Nov 2003 20:28:16 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AH6nW-00083T-AM for guile-devel@m.gmane.org; Tue, 04 Nov 2003 14:25:02 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AH6lG-0005c8-Ji for guile-devel@gnu.org; Tue, 04 Nov 2003 14:22:42 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AH6kT-0004g8-2a for guile-devel@gnu.org; Tue, 04 Nov 2003 14:22:25 -0500 Original-Received: from [141.44.75.40] (helo=merkur.math.uni-magdeburg.de) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AH6kQ-0004XQ-Qn for guile-devel@gnu.org; Tue, 04 Nov 2003 14:21:50 -0500 Original-Received: from gamma ([141.44.75.90] helo=gamma.math.uni-magdeburg.de) by merkur.math.uni-magdeburg.de with esmtp (Exim 4.10) id 1AH6kM-0003zg-00 for guile-devel@gnu.org; Tue, 04 Nov 2003 20:21:46 +0100 Original-Received: (from mkoeppe@localhost) by gamma.math.uni-magdeburg.de (8.12.9+Sun/8.12.9/Submit) id hA4JLg4l010963; Tue, 4 Nov 2003 20:21:42 +0100 (MET) X-Authentication-Warning: gamma.math.uni-magdeburg.de: mkoeppe set sender to mkoeppe@mail.math.uni-magdeburg.de using -f Original-To: guile-devel@gnu.org X-Warning: no 'abuse'-account in domain mail.math.uni-magdeburg.de (cf. RFC2142/4.) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:2974 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:2974 Earlier this year, I reported a build problem of Guile on Solaris when using the Sun/Forte compiler. The fix was put only put into CVS HEAD: 2003-07-27 Marius Vollmer * configure.in (__libc_stack_end): Actually use the value in __libc_stack_end for something so that the access doesn't get optimized away. Thanks to Matthias Koeppe! Today I tried to build a Guile from branch_release-1-6 and ran into the same old problem. Can you please put this fix into the stable branch? Thank you. --- configure.in.~1.157.2.26.~ Tue Nov 4 14:23:03 2003 +++ configure.in Tue Nov 4 18:44:37 2003 @@ -325,8 +325,9 @@ inet_pton inet_ntop) AC_MSG_CHECKING(for __libc_stack_end) -AC_TRY_LINK([extern char *__libc_stack_end;], - [char *p = __libc_stack_end;], +AC_TRY_LINK([#include +extern char *__libc_stack_end;], + [printf("%p", (char*) __libc_stack_end);], have_libc_stack_end=yes, have_libc_stack_end=no) AC_MSG_RESULT($have_libc_stack_end) The same, though less critical, applies to this fix: 2003-02-27 Matthias Koeppe * format.scm (format:out-substr): Update the column counter correctly. This fixes the behavior of ~T (tabbing) after ~F, for instance. Index: ice-9/format.scm =================================================================== RCS file: /cvs/guile/guile-core/ice-9/format.scm,v retrieving revision 1.11.2.1 diff -u -r1.11.2.1 format.scm --- ice-9/format.scm 27 Nov 2001 22:30:04 -0000 1.11.2.1 +++ ice-9/format.scm 4 Nov 2003 17:50:42 -0000 @@ -94,7 +94,7 @@ (do ((k i (+ k 1))) ((= k n)) (write-char (string-ref str k) format:port)) - (set! format:output-col (+ format:output-col n))) + (set! format:output-col (+ format:output-col (- n i)))) ;(define (format:out-fill n ch) ; this allocates a new string ; (format:out-str (make-string n ch))) -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel