From: hreba <f_hreba@yahoo.com.br>
Subject: Re: storage error: stack overflow
Date: Mon, 17 Aug 2015 23:16:34 -0300
Date: 2015-08-17T23:16:34-03:00 [thread overview]
Message-ID: <d3fis4Fb2bsU1@mid.individual.net> (raw)
In-Reply-To: <d2v96kF7490U1@mid.individual.net>
On 08/11/2015 06:53 PM, hreba wrote:
> I am developing a program on 3 computers in parallel (depending on where
> I am). On 2 of them the executable works as expected, on one I get:
>
> raised PROGRAM_ERROR ; adjust/finalize raised STORAGE_ERROR: stack
> overflow (or erroneous memory access)
>
> The computers are:
>
> a) a 32 bit desktop PC running Windows 7
> b) a 32 bit desktop PC running LinuxMint release 13
> c) a 64 bit Notebook running LinuxMint release 17.1
>
> It is machine c) which makes the trouble.
> On each machine I compile the program (no warnings) with gnat/GPS.
>
> How can I find out what is wrong?
Replying to my own post: With your help I was able to localize the
error. Now I wrote a simple test program which behaves as the original
one: runs on the machines a) and b) and provokes the error on c). Here
it is:
with Ada.Strings.Unbounded;
procedure testUBS is
type TA is record
name: Ada.Strings.Unbounded.Unbounded_String;
end record;
type TB is record
a: TA;
end record;
function New_TB (name: String:="") return access TB is
begin
return new TB'
(a=>TA'(name=>Ada.Strings.Unbounded.To_Unbounded_String(name)));
end New_TB;
b: access TB:= New_TB (name=>"Det");
name: Ada.Strings.Unbounded.Unbounded_String;
begin
name:= b.a.name;
end testUBS;
--
Frank Hrebabetzky +55 / 48 / 3235 1106
Florianopolis, Brazil
next prev parent reply other threads:[~2015-08-18 2:16 UTC|newest]
Thread overview: 42+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-08-11 21:53 storage error: stack overflow hreba
2015-08-11 22:19 ` Jeffrey R. Carter
2015-08-12 15:01 ` hreba
2015-08-12 16:00 ` AdaMagica
2015-08-12 17:51 ` Jeffrey R. Carter
2015-08-13 2:17 ` hreba
2015-08-12 8:27 ` briot.emmanuel
2015-08-13 1:34 ` hreba
2015-08-13 2:53 ` Jeffrey R. Carter
2015-08-13 7:05 ` Simon Wright
2015-08-14 13:53 ` hreba
2015-08-14 16:01 ` Simon Wright
2015-08-14 17:00 ` Simon Wright
2015-08-13 7:19 ` Simon Wright
2015-08-14 13:20 ` hreba
2015-08-12 10:31 ` Markus Schöpflin
2015-08-13 1:36 ` hreba
2015-08-12 10:57 ` Simon Wright
2015-08-13 0:55 ` hreba
2015-08-13 6:58 ` Simon Wright
2015-08-18 2:16 ` hreba [this message]
2015-08-18 5:49 ` Jeffrey R. Carter
2015-08-18 7:24 ` Egil H H
2015-08-18 12:23 ` hreba
2015-08-18 12:37 ` Jacob Sparre Andersen
2015-08-18 14:02 ` hreba
2015-08-18 14:11 ` Dmitry A. Kazakov
2015-08-18 14:16 ` Jeffrey R. Carter
2015-08-18 20:56 ` Randy Brukardt
2015-08-19 1:48 ` hreba
2015-08-19 5:10 ` Jeffrey R. Carter
2015-08-19 8:44 ` Georg Bauhaus
2015-08-19 11:56 ` hreba
2015-08-19 20:53 ` Bob Duff
2015-08-18 14:15 ` Egil H H
2015-08-19 13:07 ` hreba
2015-08-18 14:16 ` Jeffrey R. Carter
2015-08-19 13:12 ` hreba
2015-08-19 20:47 ` Bob Duff
2015-08-19 21:47 ` Jeffrey R. Carter
2015-08-20 7:18 ` Dmitry A. Kazakov
2015-08-20 20:48 ` Randy Brukardt
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox