From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.lisp.guile.devel Subject: Re: segfault in guile 1.6.7 Date: Sat, 26 Mar 2005 07:37:08 +1100 Message-ID: <87acorea2z.fsf@zip.com.au> References: <20050324171151.GA2647@voins.local> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1111783319 29326 80.91.229.2 (25 Mar 2005 20:41:59 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 25 Mar 2005 20:41:59 +0000 (UTC) Cc: guile-devel Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri Mar 25 21:41:57 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DEvcc-0004oJ-GF for guile-devel@m.gmane.org; Fri, 25 Mar 2005 21:41:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DEvsA-0003xz-LP for guile-devel@m.gmane.org; Fri, 25 Mar 2005 15:57:38 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DEvrH-0003bJ-9P for guile-devel@gnu.org; Fri, 25 Mar 2005 15:56:43 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DEvrB-0003Yp-W4 for guile-devel@gnu.org; Fri, 25 Mar 2005 15:56:39 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DEvrB-0003WM-Bf for guile-devel@gnu.org; Fri, 25 Mar 2005 15:56:37 -0500 Original-Received: from [61.8.0.85] (helo=mailout2.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DEvYg-0002NK-U8 for guile-devel@gnu.org; Fri, 25 Mar 2005 15:37:31 -0500 Original-Received: from mailproxy1.pacific.net.au (mailproxy1.pacific.net.au [61.8.0.86]) by mailout2.pacific.net.au (8.12.3/8.12.3/Debian-7.1) with ESMTP id j2PKbQHn011100; Sat, 26 Mar 2005 07:37:26 +1100 Original-Received: from localhost (ppp22AE.dyn.pacific.net.au [61.8.34.174]) by mailproxy1.pacific.net.au (8.12.3/8.12.3/Debian-7.1) with ESMTP id j2PKbOS4020364; Sat, 26 Mar 2005 07:37:25 +1100 Original-Received: from gg by localhost with local (Exim 3.36 #1 (Debian)) id 1DEvYK-0001O4-00; Sat, 26 Mar 2005 07:37:08 +1100 Original-To: Alexey Voinov Mail-Copies-To: never In-Reply-To: <20050324171151.GA2647@voins.local> (Alexey Voinov's message of "Thu, 24 Mar 2005 20:11:52 +0300") User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) 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 X-MailScanner-To: guile-devel@m.gmane.org Xref: news.gmane.org gmane.lisp.guile.devel:4871 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:4871 --=-=-= Alexey Voinov writes: > > guile> (string-index (string (integer->char 209)) char-numeric?) > zsh: 2760 segmentation fault guile Thanks. > I haven't checked if this bug is still present in cvs HEAD. Marius made a change that squashes it. > Patch attached. I'll bring across what's in the head, which is to have SCM_MAKE_CHAR cast to an unsigned char, instead of demanding that from all callers. --=-=-= Content-Disposition: inline; filename=chars.h.unsigned.diff --- chars.h.~1.11.4.4.~ 2004-04-25 09:25:32.000000000 +1000 +++ chars.h 2005-03-26 07:36:06.574079280 +1100 @@ -51,7 +51,7 @@ */ #define SCM_CHARP(x) (SCM_ITAG8(x) == scm_tc8_char) #define SCM_CHAR(x) ((unsigned int)SCM_ITAG8_DATA(x)) -#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((scm_t_bits) x, scm_tc8_char) +#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((scm_t_bits) (unsigned char) (x), scm_tc8_char) --=-=-= 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 --=-=-=--