[Gcl-devel] Re: copy-on-write, stack grumble

[Camm Maguire]

Greetings!

This should be quite large again by default.  2gb stack with <= 1gb
heap, your static build should give a 1Gb stack -- configure and room
should indicate if so.  Please let me know if something appears amiss.

Take care,

Robert Boyer <address@hidden> writes:

> > the child has more stack allocation space available (in principle) (2 Gb)
> > than the max available heap (1Gb) when using dynamic linking!
> 
> That is really hilarious!
> 
> Speaking of the stack.  How deep do you believe one can currently recur?  I
> thought it was once in the millions due to some wondrous things you had done,
> but it doesn't seem to be so deep today.
> 
> Below is a transcript from the latest GCL 2.7.0, static, MAXPAGE=524288,
> choking at about 65,000 recursions.
> 
> Bob
> 
> -------------------------------------------------------------------------------
> 
> 
> % xg
> GCL (GNU Common Lisp)  2.7.0 ANSI    Nov  3 2005 14:53:57
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> >(defun foo () (setq x (+ 1 x)) (cons 1 (foo)))
> 
> FOO
> 
> >(defparameter x 0)
> 
> X
> 
> >(compile 'foo)
> 
> ;; Compiling ./gazonk0.lsp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling ./gazonk0.o.
> Loading /v/filer2/boyer/work/consensus-code/gazonk0.o
> start address -T 0x8914550 Finished loading 
> /v/filer2/boyer/work/consensus-code/gazonk0.o
> #<compiled-function FOO>
> NIL
> NIL
> 
> >(foo)
> 
> Error in EVAL [or a callee]: Control stack overflow.
> 
> Fast links are on: do (si::use-fast-links nil) for debugging
> Broken at FOO.  Type :H for Help.
>  1 (Continue) Return to top level.
> dbl:>>x
> 
> 65454
> dbl:>>:q
> 
> Top level.
> >(setq si::*multiply-stacks* 16)
> 
> 16
> 
> >GCL (GNU Common Lisp)  2.7.0 ANSI    Nov  3 2005 14:53:57
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> >(setq x 0)
> 
> 0
> 
> >(foo)
> 
> Error in EVAL [or a callee]: Control stack overflow.
> 
> Fast links are on: do (si::use-fast-links nil) for debugging
> Broken at FOO.  Type :H for Help.
>  1 (Continue) Return to top level.
> dbl:>>:q
> 
> Top level.
> >x
> 
> 65456
> 
> >
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah