From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Roger Mc Murtrie Newsgroups: gmane.lisp.guile.bugs Subject: Re: Mac PowerBookG4 OS X 10.4.11 (Tiger) guile test results Date: Fri, 11 Jan 2008 10:10:47 +1100 Message-ID: <81F2A78F-71DA-48A8-B277-31EB38BEA13E@IINET.NET.AU> References: <2F4EEA7F-9906-4C4E-BA3D-5D5CB7656BD9@IINET.NET.AU> <87d4s932o7.fsf@ossau.uklinux.net> <87y7ax1eze.fsf@ossau.uklinux.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (Apple Message framework v915) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1200006664 4400 80.91.229.12 (10 Jan 2008 23:11:04 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 10 Jan 2008 23:11:04 +0000 (UTC) Cc: bug-guile@gnu.org To: Neil Jerram Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Fri Jan 11 00:11:26 2008 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JD6YT-00033S-VX for guile-bugs@m.gmane.org; Fri, 11 Jan 2008 00:11:22 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JD6Y6-0000H6-AL for guile-bugs@m.gmane.org; Thu, 10 Jan 2008 18:10:58 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JD6Y2-0000Df-8g for bug-guile@gnu.org; Thu, 10 Jan 2008 18:10:54 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JD6Y0-0000Ao-VZ for bug-guile@gnu.org; Thu, 10 Jan 2008 18:10:53 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JD6Y0-0000AX-Qs for bug-guile@gnu.org; Thu, 10 Jan 2008 18:10:52 -0500 Original-Received: from outbound.icp-qv1-irony-out3.iinet.net.au ([203.59.1.148]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JD6Y0-0000Xc-8T for bug-guile@gnu.org; Thu, 10 Jan 2008 18:10:52 -0500 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AgAAANM0hkfL2Tu0/2dsb2JhbAAIqXQ X-IronPort-AV: E=Sophos;i="4.24,268,1196607600"; d="scan'208";a="212424194" Original-Received: from unknown (HELO [10.0.1.2]) ([203.217.59.180]) by outbound.icp-qv1-irony-out3.iinet.net.au with ESMTP; 11 Jan 2008 08:10:47 +0900 In-Reply-To: <87y7ax1eze.fsf@ossau.uklinux.net> X-Mailer: Apple Mail (2.915) X-detected-kernel: by monty-python.gnu.org: Genre and OS details not recognized. X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:3687 Archived-At: Yuk! SORRY I just noticed this is to do with PowerBookG4 although the Subject couldn't be more obvious. I have been responding with Intel activities! I'll fire up the PowerBookG4 and have another go> Roger On 11/01/2008, at 9:40 AM, Neil Jerram wrote: > Roger Mc Murtrie writes: > >> Still fails with 40000: > > Yes, but not because of stack overflow. So the doubling of the stack > size was successful. > >> sizeof long: 4 > > As hoped. The point is that most of the data that Guile puts on the C > stack are pointers or pointer-like. Hence the size of the stack (for > a given operation) on a 64-bit OS will be almost twice the size on a > 32-bit OS. > > But the max stack size that Guile allows is the value of the "stack" > debug option multiplied by sizeof(long), and it seems that > sizeof(long) is the same on 64-bit OSs (or at least on yours) as on > 32-bit. > > I think a good fix would be to replace uses of SCM_STACK_LIMIT by > (SCM_STACK_LIMIT * sizeof(SCM)) / sizeof(SCM_STACKITEM). (And then > the 20000 -> 40000 change can should be reverted.) Patch (against > 1.8.x CVS) is below. Opinions? > >> /Users/Roger/Downloads/guile-1.8.3/srfi/srfi-1.scm:223:1: In >> procedure >> dynamic-link in expression (load-extension "libguile-srfi-srfi-1-v-3" >> "scm_init_srfi_1"): >> /Users/Roger/Downloads/guile-1.8.3/srfi/srfi-1.scm:223:1: file: >> "libguile-srfi-srfi-1-v-3", message: "dlopen(libguile-srfi-srfi-1- >> v-3.a, 9): no suitable image found. Did find: > > This problem is just another occurrence of the dlopen issue. > > Neil > > > Index: libguile/stackchk.h > =================================================================== > RCS file: /cvsroot/guile/guile/guile-core/libguile/stackchk.h,v > retrieving revision 1.20.2.1 > diff -u -r1.20.2.1 stackchk.h > --- libguile/stackchk.h 12 Feb 2006 13:42:51 -0000 1.20.2.1 > +++ libguile/stackchk.h 10 Jan 2008 22:37:38 -0000 > @@ -37,11 +37,11 @@ > # if SCM_STACK_GROWS_UP > # define SCM_STACK_OVERFLOW_P(s)\ > (SCM_STACK_PTR (s) \ > - > (SCM_I_CURRENT_THREAD->base + SCM_STACK_LIMIT)) > + > (SCM_I_CURRENT_THREAD->base + ((SCM_STACK_LIMIT * > sizeof(SCM)) / sizeof(SCM_STACKITEM))) > # else > # define SCM_STACK_OVERFLOW_P(s)\ > (SCM_STACK_PTR (s) \ > - < (SCM_I_CURRENT_THREAD->base - SCM_STACK_LIMIT)) > + < (SCM_I_CURRENT_THREAD->base - ((SCM_STACK_LIMIT * > sizeof(SCM)) / sizeof(SCM_STACKITEM)))) > # endif > # define SCM_CHECK_STACK\ > {\ > >