Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!bloom-beacon!gatech!hubcap!ncrcae!ncr-sd!hp-sdd!hplabs!sdcrdcf!CAM.UNISYS.COM!jonab
From: jonab@CAM.UNISYS.COM (Jonathan P. Biggar)
Newsgroups: comp.lang.ada
Subject: Re: can not abort allocated tasks
Message-ID: <378@sdcjove.CAM.UNISYS.COM>
Date: Mon, 12-Oct-87 11:53:12 EDT
Article-I.D.: sdcjove.378
Posted: Mon Oct 12 11:53:12 1987
Date-Received: Tue, 13-Oct-87 07:16:24 EDT
References: <7586@steinmetz.steinmetz.UUCP>
Reply-To: jonab@CAM.UNISYS.COM (Jonathan P. Biggar)
Organization: SDC R+D Distributed Architectures, Camarillo, CA
Lines: 21

In article <7586@steinmetz.steinmetz.UUCP> nieh@moose.steinmetz (nico nieh) writes:
	task type pool is
	    entry draw(which : out integer); -- contains an infinite loop
	end
	type t_pool is access pool;
	pool_1 : t_pool;
	begin
	pool_1 := new pool;
	abort pool_1;
	
>Is there any way to abort task pool_1 ?

The statement you need is:

abort pool_1.all;

The '.all' component refers to the entire object accessed by the access
type.

Jon Biggar
jonab@cam.unisys.com