Re: Cannot initialize entities of limited type?

[Jeffrey Creem <jeff@thecreems.com>]

Maciej Sobczak wrote:
> Hi,
> 
> procedure Hello is
> 
>    package P is
>       type T is limited private;
>       function Constructor return T;
>    private
>       type T is new Integer;
>    end P;
> 
>    package body P is
>       function Constructor return T is
>       begin
>          return 7;
>       end Constructor;
>    end P;
> 
>    X : P.T := P.Constructor;  -- line 17
> 
> begin
>    null;
> end Hello;
> 
> $ gnatmake hello
> gcc -c hello.adb
> hello.adb:17:16: cannot initialize entities of limited type
> gnatmake: "hello.adb" compilation error
> $
> 
> I got lost. What's wrong in the code above?
> 

Hmm.. I don't think anything is wrong with it. Obviously it is a little 
odd to nest a package in the mainline procedure like that but I assume 
this was just for demo purposes.

What version of gnat and/or gcc are you using? This appears to work for 
me with a newer version of gcc (development version based on GCC SVN 
trunk) and fails with an older version.