Re: Allocation question

[Brian Drummond <brian_drummond@btconnect.com>]

On Mon, 11 May 2009 12:23:11 +0200, Olivier Scalbert
<olivier.scalbert@algosyn.com> wrote:

>Hello,
>
>I have write a small package:
>
>---------------------------------------------------
>-- ads
>---------------------------------------------------
>package Image is
...
>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 ?

One simple approach is to use an access type for allocation, but use renaming to
maintain compatibility with what you've already written.

procedure Test_Image is
     Image_a   : access Image_t := new Image_T(1..1024, 1..1024);
     Image     : Image_t renames Image_a.all;
     FillColor : constant Color_T := (0, 0, 0);
begin
     Fill(Image, FillColor);
end Test_Image;

I am not in front of an Ada compiler right now so the syntax may be slightly
off, but I hope the basic idea is clear

- Brian