Re: How to set the stack size on GNAT (Follow-up)

["John B. Matthews" <nospam@nospam.com>]

In article 
<2db7e95053c018032e212a9f7c2c614d@localhost.talkaboutprogramming.com>,
 "Adaddict" <adaddict@hotmail.com> wrote:

> 2. -Xlstack=10485760

I think I proposed this one. It worked with GNAT 3.15 on Mac OS 9 with 
MachTen or CodeBuilder. IIRC, the default stack size was just a few 
kilobytes, so adjusting the stack size was sometimes hard to avoid.

> Could anyone tell me what am I doing wrong and what
> should I write exactly?

On Mac OS X, this should set the stack to 8 megabytes (the default):

gnatmake -f stack_test -largs --stack=0x800000

But you have to set "ulimit -s <decimal blocks of 1024 bytes>" in the 
shell to make it work:

$ ulimit -s 8192

Here's my test program:

    with Ada.Text_IO;
    
    procedure Stack_Test is
    
    Megabyte : constant Positive := 1024 * 1024;
    type Block is array (0 .. Megabyte - 1) of Character;
    
    procedure Allocate_Stack (N : Positive) is
      Local : Block := (others => Character'Val(0));
    begin
      Ada.Text_IO.Put_Line (N'Img);
      Allocate_Stack(N + 1);
    end;
    
    begin
      Allocate_Stack(1);
    end Stack_Test;

By default, the program dies after seven levels of recursion, as 
expected. With "ulimit -s 16384" I get 15 levels before segmentation 
fault.

What OS are you using?

-- 
John
jmatthews at wright dot edu
www dot wright dot edu/~john.matthews/