From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,98e3ee7e73b9dd89
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news.glorb.com!border1.nntp.dca.giganews.com!nntp.giganews.com!local01.nntp.dca.giganews.com!nntp.comcast.com!news.comcast.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 15 Jun 2005 22:14:06 -0500
From: "Steve" <nospam_steved94@comcast.net>
Newsgroups: comp.lang.ada
References: <1118851601.345326.86640@g49g2000cwa.googlegroups.com>
Subject: Re: Aliased
Date: Wed, 15 Jun 2005 20:15:12 -0700
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-RFC2646: Format=Flowed; Original
Message-ID: <PcOdnUT7y5Tjcy3fRVn-uw@comcast.com>
NNTP-Posting-Host: 24.22.63.157
X-Trace: 
 sv3-N1y4hxJ3AucLLcvcy2m5Mq9ElfGQeSHNukZDWSX72wjDbG0P81bIEeb+BRyfl60zoDt3qDn0XmizeSt!UqaiewuNvogC4Nv4KZ5EhXvVRUNvUQ/AYY2brupwIfOF3xt4339MkiX6nd6e
X-Complaints-To: abuse@comcast.net
X-DMCA-Complaints-To: dmca@comcast.net
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.3.32
Xref: g2news1.google.com comp.lang.ada:11401
Date: 2005-06-15T20:15:12-07:00
List-Id: <comp.lang.ada>

<nblanpain@hotmail.com> wrote in message 
news:1118851601.345326.86640@g49g2000cwa.googlegroups.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,
>

For a question like this please post the smallest set of sources that 
compile, or give the compilation error such that it may easily be 
reproduced.  Otherwise you are wasting everyones time (including your own).

It is easy to spot a number of possible errors in your sample code, many of 
which are likely just errors in composing your post.  One must "guess" at 
the real source of the problem.

Steve
(The Duck)