From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Roland Orre Newsgroups: gmane.lisp.guile.devel Subject: bug in array-equal? Date: Wed, 29 Sep 2004 13:09:19 +0200 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <1096456159.14403.75.camel@localhost> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1096456300 21807 80.91.229.6 (29 Sep 2004 11:11:40 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 29 Sep 2004 11:11:40 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Wed Sep 29 13:11:29 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CCcMr-00071P-00 for ; Wed, 29 Sep 2004 13:11:29 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CCcTC-0000aD-7d for guile-devel@m.gmane.org; Wed, 29 Sep 2004 07:18:02 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CCcT2-0000a8-7e for guile-devel@gnu.org; Wed, 29 Sep 2004 07:17:52 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CCcT1-0000Zw-NV for guile-devel@gnu.org; Wed, 29 Sep 2004 07:17:51 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CCcT1-0000Zt-Iz for guile-devel@gnu.org; Wed, 29 Sep 2004 07:17:51 -0400 Original-Received: from [195.47.247.21] (helo=csmtp.b-one.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CCcMb-0001ip-15 for guile-devel@gnu.org; Wed, 29 Sep 2004 07:11:13 -0400 Original-Received: from bari.bacon.su.se (bari.bacon.su.se [130.237.152.231]) by csmtp.b-one.net (Postfix) with ESMTP id F0545FBA30; Wed, 29 Sep 2004 13:11:10 +0200 (CEST) Original-To: guile-devel@gnu.org X-Mailer: Ximian Evolution 1.4.6 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: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:4188 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:4188 Case label scm_tc7_svect was missing in switch statement in ramap.c (this is guile 1.7) causing stack overflow for e.g. (array-equal? #h(1 2 3) #h(1 2 3)) Best regards Roland SCM scm_array_equal_p (SCM ra0, SCM ra1) { if (SCM_IMP (ra0) || SCM_IMP (ra1)) callequal:return scm_equal_p (ra0, ra1); switch (SCM_TYP7(ra0)) { default: goto callequal; case scm_tc7_bvect: case scm_tc7_string: case scm_tc7_byvect: case scm_tc7_uvect: case scm_tc7_ivect: case scm_tc7_svect: case scm_tc7_fvect: case scm_tc7_dvect: case scm_tc7_cvect: case scm_tc7_vector: case scm_tc7_wvect: break; case scm_tc7_smob: if (!SCM_ARRAYP (ra0)) goto callequal; } switch (SCM_TYP7 (ra1)) { default: goto callequal; case scm_tc7_bvect: case scm_tc7_string: case scm_tc7_byvect: case scm_tc7_uvect: case scm_tc7_ivect: case scm_tc7_svect: case scm_tc7_fvect: case scm_tc7_dvect: case scm_tc7_cvect: case scm_tc7_vector: case scm_tc7_wvect: break; case scm_tc7_smob: if (!SCM_ARRAYP (ra1)) goto callequal; } return SCM_BOOL(raeql (ra0, SCM_BOOL_F, ra1)); } _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel