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 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,ce0900b60ca3f616 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-11-03 05:19:21 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!dispose.news.demon.net!news.demon.co.uk!demon!pogner.demon.co.uk!zap!not-for-mail From: Simon Wright Newsgroups: comp.lang.ada Subject: Re: List container strawman Date: 03 Nov 2001 12:46:14 +0000 Organization: Pushface Message-ID: References: <_TDE7.10572$xS6.14895@www.newsranger.com> NNTP-Posting-Host: localhost X-NNTP-Posting-Host: pogner.demon.co.uk:158.152.70.98 X-Trace: news.demon.co.uk 1004792278 nnrp-02:29965 NO-IDENT pogner.demon.co.uk:158.152.70.98 X-Complaints-To: abuse@demon.net NNTP-Posting-Date: 3 Nov 2001 12:46:14 GMT X-Newsreader: Gnus v5.7/Emacs 20.7 Xref: archiver1.google.com comp.lang.ada:15733 Date: 2001-11-03T12:46:14+00:00 List-Id: Simon Wright writes: > Aha! this compiles (GNAT 3.14a1), whether it is legal and works on > other compilers is a different matter of course .. > > with System.Storage_Pools; > package Default_Pool is > > type Pool_Access > is access all System.Storage_Pools.Root_Storage_Pool'Class; > > type T is access Integer; > Pool : System.Storage_Pools.Root_Storage_Pool'Class > renames T'Storage_Pool; > > generic > Storage : Pool_Access := Pool'Access; > package G is > end G; > > end Default_Pool; Drat, I fear it's not legal; well, ObjectAda thinks not. Pool needs to be aliased so that Pool'Access at line 12 is permitted. Bug report sent to ACT ..