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,c03d58aece551cde
X-Google-Attributes: gid103376,public
From: Florian Weimer <fw@cygnus.stuttgart.netsurf.de>
Subject: Re: Free()
Date: 1999/05/16
Message-ID: <m3yaioswql.fsf@deneb.cygnus.stuttgart.netsurf.de>#1/1
X-Deja-AN: 478552558
References: <UYA%2.122$UD6.1219@newsfeed.slurp.net>
Mail-Copies-To: never
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@cygnus.stuttgart.netsurf.de
X-Trace: deneb.cygnus.stuttgart.netsurf.de 926878786 6451 192.168.0.1 (16 May
 1999 18:19:46 GMT)
Organization: Penguin on board
User-Agent: Gnus/5.070084 (Pterodactyl Gnus v0.84) XEmacs/21.1 (20 Minutes to
 Nikko)
Mime-Version: 1.0
NNTP-Posting-Date: 16 May 1999 18:19:46 GMT
Newsgroups: comp.lang.ada
Date: 1999-05-16T18:19:46+00:00
List-Id: <comp.lang.ada>

"Jim Whatley" <wha_tlje@dotsar.net> writes:

>   Have a question about how to use Free() in Gnat 3.11p.  Neither myself,
> nor my instuctor, have been able to get it to work.  I've checked the gnat
> RM and UG and it *appears* all I need to do to use it is
> "Free(access_type_name)" but I get Free is undefined.

`Free' has to be an instantiation of Ada.Unchecked_Deallocation, like
this:

       procedure Free is
           new Ada.Unchecked_Deallocation(
               object_subtype_name, access_to_variable_subtype_name);