From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) 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.5-pre1
Path: eternal-september.org!reader02.eternal-september.org!aioe.org!pBWEO6hi52oGFheO/GY5ag.user.gioia.aioe.org.POSTED!not-for-mail
From: Stephen Leake <stephen_leake@stephe-leake.org>
Newsgroups: comp.lang.ada
Subject: Re: Unchecked_Deallocation with tagged types
Date: Tue, 20 Apr 2021 08:57:10 -0700
Organization: Aioe.org NNTP Server
Message-ID: <86im4hj6eh.fsf@stephe-leake.org>
References: <607b56f8$0$3721$426a34cc@news.free.fr>
	<s5gq77$110s$1@gioia.aioe.org> <607bf826$0$3733$426a74cc@news.free.fr>
	<s5hnta$2qv$1@dont-email.me>
NNTP-Posting-Host: pBWEO6hi52oGFheO/GY5ag.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (windows-nt)
X-Notice: Filtered by postfilter v. 0.9.2
Cancel-Lock: sha1:EcizzDfKVSMmTa0cffCPklkBSFs=
Xref: reader02.eternal-september.org comp.lang.ada:61861
List-Id: <comp.lang.ada>

"Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org> writes:

> package Lists is
>    type Handle is tagged limited private;
>
>    procedure Clear (List : in out Handle);
>
> and then use
>
>    List : Lists.Handle;
>
>    List.Clear;

Just to provide an alternative, I like:

 package Lists is
    type List is tagged limited private;

    procedure Clear (List : in out Lists.List);

 and then use

    List : Lists.List;

    List.Clear;


that saves you having to think up a bogus name for the 'list' type.

-- 
-- Stephe