From: nblanpain@hotmail.com
Subject: Re: Aliased
Date: 15 Jun 2005 11:56:13 -0700
Date: 2005-06-15T11:56:13-07:00 [thread overview]
Message-ID: <1118861773.275368.172730@g47g2000cwa.googlegroups.com> (raw)
In-Reply-To: <1118851601.345326.86640@g49g2000cwa.googlegroups.com>
nblanpain@hotmail.com a écrit :
> 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
>
>
> Where is the problem and is there a solution to it?
>
> Thanks,
Excuse me, there is an error in my program :
package body Test is
...
procedure Initialize (This : in out T_Test) is
begin
This.Ptr_Tab := This.Tab'Access; -- illegal instruction
end Initialize;
...
end Test;
So the same question : why is there a problem and how can i solve it?
thanks,
next prev parent reply other threads:[~2005-06-15 18:56 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-06-15 16:06 Aliased nblanpain
2005-06-15 16:35 ` Aliased Martin Dowie
2005-06-15 18:56 ` nblanpain [this message]
2005-06-15 21:47 ` Aliased Martin Dowie
2005-06-16 3:15 ` Aliased Steve
2005-06-16 14:03 ` Aliased nblanpain
2005-06-16 19:56 ` Aliased Simon Wright
2005-06-17 7:01 ` Aliased nblanpain
2005-06-17 9:38 ` Aliased Larry Kilgallen
2005-06-19 19:44 ` Aliased nblanpain
2005-06-19 20:33 ` Aliased Jeffrey Carter
2005-06-20 9:34 ` Aliased nblanpain
2005-06-20 16:41 ` Aliased Jeffrey Carter
2005-06-17 2:15 ` Aliased Jeffrey Carter
2005-06-17 7:02 ` Aliased nblanpain
2005-06-17 2:35 ` Aliased Steve
2005-06-17 7:52 ` Aliased Dmitry A. Kazakov
2005-06-17 4:38 ` Aliased Christoph Grein
2005-06-29 21:10 ` Aliased Robert A Duff
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox