Aliased

[nblanpain@hotmail.com]

Hello,

I have a probleme with aliased variable :

-- Specification

package Test is

...

private

type T_Toto is ...;
type A_Toto is acess all T_Toto;

type T_Test is new T_Object with record
   Tab : aliased T_Toto;
   Ptr_Tab : A_Toto;
end record;

end Test;

-- Body

package body Test is

...

procedure Initialize is
begin
   Ptr_Tab := Tab'Access;  -- illegal instruction
end Initialize;

...

end Test;

Where is the problem and is there a solution to it?

Thanks,