From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: storage error: stack overflow
Date: Mon, 17 Aug 2015 22:49:29 -0700
Organization: Also freenews.netfront.net; news.tornevall.net;
 news.eternal-september.org
Message-ID: <mqugu4$9kr$1@dont-email.me>
References: <d2v96kF7490U1@mid.individual.net>
 <d3fis4Fb2bsU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 7bit
Injection-Date: Tue, 18 Aug 2015 05:47:49 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="ee44d3db9c41f5ad88d7e8e8f0268f05";
	logging-data="9883"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX19LMkIg9m0Nq6wYGNmGQA1CvZ1vKPBuo+I="
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101
 Thunderbird/38.1.0
In-Reply-To: <d3fis4Fb2bsU1@mid.individual.net>
X-Mozilla-News-Host: news://freenews.netfront.net
Cancel-Lock: sha1:L4rVBInmmCFAzcW82sHcGBWkkbQ=
Xref: news.eternal-september.org comp.lang.ada:27483
Date: 2015-08-17T22:49:29-07:00
List-Id: <comp.lang.ada>

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