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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,83f4a82a69bb9c76
X-Google-Attributes: gid103376,public
From: Graeme Perkes <graeme.perkes@sydney.gecm.com>
Subject: Re: Creation of storage pools
Date: 1999/06/07
Message-ID: <375B1A89.53E3@sydney.gecm.com>#1/1
X-Deja-AN: 486488254
Content-Transfer-Encoding: 7bit
References: <374B411C.5EA8@sydney.gecm.com> <x7vemjri42j.fsf@pogner.moho>
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: usenet@tobruk.sydney.gecm.com
X-Trace: tobruk.sydney.gecm.com 928717348 23549 203.2.118.40 (7 Jun 1999
 01:02:28 GMT)
Organization: GEC Marconi Systems Pty Limited
Mime-Version: 1.0
NNTP-Posting-Date: 7 Jun 1999 01:02:28 GMT
Newsgroups: comp.lang.ada
Date: 1999-06-07T01:02:28+00:00
List-Id: <comp.lang.ada>

Simon Wright wrote:
> 
> Writing this works:
> 
>   with Pools;
> 
>   procedure Use_Pools is
>     P : Pools.User_Pool renames Pools.My_Pool.all;
>     type Int_Acc is access Integer;
>     for Int_Acc'Storage_Pool use P;
>   begin
>     null;
>   end Use_Pools;
> 
> Looks like time to submit a report (Graeme, I guess you _are_
> supported? since you're using 3.11b2?)

Thanks for the advice. I was able to apply the above "hack"
successfully.

Is "for X'Storage_Pool use MY_Pool.all" really a GNAT bug? The
wording in RM95 13.11(15) indicates that a variable _name_ is
required.
                                                    
How do other compilers respond to the syntax I was trying to use?

Regards,
-- 
Graeme Perkes                        GEC Marconi Systems Pty Limited
mailto:graeme.perkes@gecms.com.au    40-52 Talavera Road, North Ryde
Tel: +61 2 9855 8961                 NSW 2113 Australia
Fax: +61 2 9855 8884