From: "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>
Subject: Re: storage error: stack overflow
Date: Mon, 17 Aug 2015 22:49:29 -0700
Date: 2015-08-17T22:49:29-07:00 [thread overview]
Message-ID: <mqugu4$9kr$1@dont-email.me> (raw)
In-Reply-To: <d3fis4Fb2bsU1@mid.individual.net>
On 08/17/2015 07:16 PM, hreba wrote:
>
> 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;
This works fine on my 64-bit Linux (LMDE2) with the default compiler (GNAT 4.9.2).
--
Jeff Carter
"I wave my private parts at your aunties."
Monty Python & the Holy Grail
13
next prev parent reply other threads:[~2015-08-18 5:49 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
2015-08-18 5:49 ` Jeffrey R. Carter [this message]
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