Re: storage error: stack overflow

[hreba <f_hreba@yahoo.com.br>]

On 08/18/2015 11:16 AM, Jeffrey R. Carter wrote:
> On 08/18/2015 05:23 AM, hreba wrote:
>>
>> I need an access type because in my real program TB is a tagged type and I need
>> class-wide variables.
>
> You do not /need/ access types for this. Avoiding them requires some thought,
> but that's what S/W engineers do.
>
>> Didn't know about extended return (the Ada 95 book was cheaper -:). But there is
>> a problem: the TB in my original program is not only tagged, it is limited too
>> (and New_TB is for initialization). So "foo.all:=..." is forbidden.
>
> If your type is limited then you will have to use an extended return for Ada >
> 95. Does
>
> return Foo : access TB :=
>     new TB'( (A => TA'(Name => To_Unbounded_String (Name) ) );
>
> work?
>

This got me a GNAT BUG DETECTED message upon compilation.
Will follow the request to send a bug report.
I am happy with Egil's workaround.

Thanks for your hints and help.
-- 
Frank Hrebabetzky		+55 / 48 / 3235 1106
Florianopolis, Brazil