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=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,fa2ee17d1c33f7d5
X-Google-Attributes: gid103376,public
From: Mats Weber <Mats.Weber@elca-matrix.ch>
Subject: Re: How could I name it ?
Date: 1998/11/09
Message-ID: <3646FFE8.BAF539BD@elca-matrix.ch>#1/1
X-Deja-AN: 409950022
Content-Transfer-Encoding: 8bit
References: <3645C3C4.2A05@club-internet.fr>
X-Accept-Language: en
Content-Type: text/plain; charset=iso-8859-1
Organization: ELCA Matrix SA
Mime-Version: 1.0
Reply-To: Mats.Weber@elca-matrix.ch
Newsgroups: comp.lang.ada
Date: 1998-11-09T00:00:00+00:00
List-Id: <comp.lang.ada>

"Fran�oise & Herv� BITTEUR" wrote:

> procedure Test is
>    type T;
>    type T_Ptr is access T;
>    task type T is
>       entry Point (Ptr : in T_Ptr);
>    end T;
>    task body T is
>       Ptr : T_Ptr;
>       My_Ptr : T_Ptr;
>    begin
>       accept Point
>         (Ptr : in T_Ptr)
>       do
>          --Ptr := Ptr;                    -- not OK, of course
>          My_Ptr := Ptr;                 -- OK, but I don't like it !
> 
>          T.Ptr := Ptr;                  -- not OK

This is OK. GNAT had a bug that rejected it, I am not sure if it is
fixed in 3.10p.

>          T.My_Ptr := Ptr;               -- not OK

This is legal as well.

>          Test.T.Ptr := Ptr;             -- not OK
>          Test.T.My_Ptr := Ptr;          -- not OK

The above two are also legal.

>       end Point;
>    end T;
> begin
>    null;
> end Test;e