From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on ip-172-31-74-118.ec2.internal X-Spam-Level: X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.6 Path: eternal-september.org!reader02.eternal-september.org!aioe.org!x6YkKUCkj2qHLwbKnVEeag.user.46.165.242.91.POSTED!not-for-mail From: "Dmitry A. Kazakov" Newsgroups: comp.lang.ada Subject: Re: On absurdity of collections 7.6.1 (11.1/3) Date: Wed, 29 Sep 2021 13:20:48 +0200 Organization: Aioe.org NNTP Server Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: gioia.aioe.org; logging-data="7743"; posting-host="x6YkKUCkj2qHLwbKnVEeag.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org"; User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101 Thunderbird/78.14.0 Content-Language: en-US X-Notice: Filtered by postfilter v. 0.9.2 Xref: reader02.eternal-september.org comp.lang.ada:62865 List-Id: On 2021-09-29 13:05, Simon Wright wrote: > "Dmitry A. Kazakov" writes: > >> type Item_Ptr is access all Item; >> function New_Item >> ( Pool : in out Root_Storage_Pool'Class; >> Text : String >> ) return Item_Ptr; > > What I don't see is how you can implement this, never mind any other > problems. A naive, but wrong due to 7.6.1 (11.1/3) nonsense, implementation would be: function New_Item ( Pool : in out Root_Storage_Pool'Class; Text : String ) return Item_Ptr is type Ptr is access Item; for Ptr'Storage_Pool use Pool; Object : Ptr := new Item (Text'Length); begin Object.Text := Text; return Object.all'Unchecked_Access; end New_Item; -- Regards, Dmitry A. Kazakov http://www.dmitry-kazakov.de