From: Olivier Scalbert <olivier.scalbert@algosyn.com>
Subject: Allocation question
Date: Mon, 11 May 2009 12:23:11 +0200
Date: 2009-05-11T12:23:11+02:00 [thread overview]
Message-ID: <4a07fc7a$0$2855$ba620e4c@news.skynet.be> (raw)
Hello,
I have write a small package:
---------------------------------------------------
-- ads
---------------------------------------------------
package Image is
type Color_T is record
Red: Integer;
Green: Integer;
Blue: Integer;
end record;
type Image_T is array(Positive range <>, Positive range <>) of Color_T;
procedure Fill(Image: in out Image_T; Color: Color_T);
end Image;
---------------------------------------------------
-- adb
---------------------------------------------------
package body Image is
procedure Fill(Image: in out Image_T; Color: Color_T) is
begin
for x in Image'range(1) loop
for y in Image'range(2) loop
Image(x,y) := Color;
end loop;
end loop;
end Fill;
end Image;
---------------------------------------------------
-- 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 ?
Thanks,
Olivier
next reply other threads:[~2009-05-11 10:23 UTC|newest]
Thread overview: 30+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-05-11 10:23 Olivier Scalbert [this message]
2009-05-11 10:38 ` Allocation question Georg Bauhaus
2009-05-11 10:40 ` Ludovic Brenta
2009-05-11 12:14 ` Olivier Scalbert
2009-05-11 12:18 ` Ludovic Brenta
2009-05-11 13:01 ` Olivier Scalbert
2009-05-11 12:26 ` Jacob Sparre Andersen
2009-05-11 13:27 ` Ludovic Brenta
2009-05-11 10:51 ` Use aggregates (Was: Allocation question) Jacob Sparre Andersen
2009-05-11 11:46 ` Olivier Scalbert
2009-05-11 12:16 ` Ludovic Brenta
2009-05-11 21:26 ` sjw
2009-05-12 5:58 ` GNAT, aggregates and efficiency (Was: Use aggregates) Jacob Sparre Andersen
2009-05-12 18:57 ` sjw
2009-05-12 7:47 ` Use aggregates (Was: Allocation question) Martin
2009-05-12 10:24 ` Brian Drummond
2009-05-12 11:07 ` Georg Bauhaus
2009-05-12 11:14 ` Georg Bauhaus
2009-05-12 21:18 ` Randy Brukardt
2009-05-13 16:38 ` Martin
2009-05-13 20:38 ` Randy Brukardt
2009-05-14 10:48 ` Martin
2009-05-12 9:13 ` Emacs Stephen Leake
2009-05-12 9:38 ` Emacs Ludovic Brenta
2009-05-12 9:46 ` Emacs Olivier Scalbert
2009-05-11 10:57 ` Allocation question Philipp Riegger
2009-05-11 12:18 ` Georg Bauhaus
2009-05-11 12:36 ` Philipp Riegger
2009-05-11 23:32 ` Brian Drummond
2009-05-12 1:09 ` tmoran
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox