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,5d38b71c771be34e
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-07-12 16:13:33 PST
Newsgroups: comp.lang.ada
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!logbridge.uoregon.edu!feed2.news.rcn.net!rcn!nntp.abs.net!uunet!dca.uu.net!ash.uu.net!world!news
From: Robert A Duff <bobduff@shell01.TheWorld.com>
Subject: Re: Unchecked Deallocation?
Sender: news@world.std.com (Mr Usenet Himself)
Message-ID: <wcc65zk1qx9.fsf@shell01.TheWorld.com>
Date: Fri, 12 Jul 2002 23:12:50 GMT
References: <_YIX8.483917$352.79617@sccrnsc02>
NNTP-Posting-Host: shell01.theworld.com
Organization: The World Public Access UNIX, Brookline, MA
X-Newsreader: Gnus v5.7/Emacs 20.7
Xref: archiver1.google.com comp.lang.ada:27032
Date: 2002-07-12T23:12:50+00:00
List-Id: <comp.lang.ada>

Caffeine Junky <nospam@hotmail.com> writes:

> 	function Clear_Stack(S : in Stack) return Boolean;

You want a procedure, here, with an 'in out' parameter.  Not a function.
You need to recursively free the whole list.
Your instantiation of Unchecked_Deallocation is correct.

> 	  return True;	   -- No reason for it not to return True in this --
> 				   -- instance, as far as I can tell.             --

Right, which is why you don't want a function.

- Bob