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: Thu, 30 Sep 2021 10:49:11 +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="64195"; 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 X-Notice: Filtered by postfilter v. 0.9.2 Content-Language: en-US Xref: reader02.eternal-september.org comp.lang.ada:62893 List-Id: On 2021-09-30 10:35, Simon Wright wrote: > "Dmitry A. Kazakov" writes: > >> It should print it twice, because Finalize must be called twice. Once >> inside New_Item, then in Free. > > That's in your implementation of Finalize, which you haven't shown us procedure Finalize (X : in out Item) is begin Put_Line (X.Text & " is dead"); end Finalize; P.S. You can use the standard pool: Ptr : Item_Ptr; type String_Ptr is access String; begin Ptr := New_Item (String_Ptr'Storage_Pool, "A"); Free (Ptr); -- Regards, Dmitry A. Kazakov http://www.dmitry-kazakov.de