how to get aliased string pointer

["Maxim Reznik" <max1@mbank.com.ua>]

Hello CLA,

Compiling following programm in GNAT3.13p I get error

aaa.adb:16:10: object subtype must statically match designated subtype

procedure aaa is

   type Shared_String (Length : Natural) is record
       Count : Natural := 1;
       Space : aliased String (1 .. Length);
       pragma Atomic (Count);
   end record;


   type String_Access is access all String;

   p: String_Access;
   str: Shared_String(10);

begin
   p:=str.Space'Access;
end;

Actually I would like to have a function that returns String_Access
pointed to string located in an Shared_String object.

   function Get_String (U  : Shared_String_Access) return String_Access is
   begin
      return U.Space'Access;
   end;

Is there any way to make such function?

As far as I understand I unable to convert constrained
subtype to unconstrained.


--
Maxim Reznik