Re: Allocation question

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

Olivier Scalbert schrieb:

> ---------------------------------------------------
> -- test
> ---------------------------------------------------
> with Image;
> use Image;
> 
> procedure Test_Image is
>     Image : Image_T(1..100, 1..100);
>     FillColor : constant Color_T := (0, 0, 0);
> begin
>     Fill(Image, FillColor);
> end Test_Image;
> 
> 
> This program seems to work.
> However when I increase the size of Image, I get a Segmentation fault.
> 
> Should I need to play with access type and allocation stuff ?

Access types won't be necessary, in principle.
Asssuming you are using GNAT with standard options,
suitable compiler switches might solve the problem.
(IIRC, it has to do with recent GCC policies that
assume small data structures on the stack for reasons
unrelated to Ada, and then stack checking.)

Be sure to turn on -gnato and -fstack-check when you
want to run GNAT in Ada mode.