comp.lang.ada
 help / color / mirror / Atom feed
From: jonab@CAM.UNISYS.COM (Jonathan P. Biggar)
Subject: Re: can not abort allocated tasks
Date: Mon, 12-Oct-87 11:53:12 EDT	[thread overview]
Date: Mon Oct 12 11:53:12 1987
Message-ID: <378@sdcjove.CAM.UNISYS.COM> (raw)
In-Reply-To: 7586@steinmetz.steinmetz.UUCP

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

  parent reply	other threads:[~1987-10-12 15:53 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1987-10-09 15:22 can not abort allocated tasks nico nieh
1987-10-12 13:27 ` fitch
1987-10-12 15:53 ` Jonathan P. Biggar [this message]
1987-10-12 17:37 ` Jeff Bartlett
1987-10-12 19:54 ` Claudio Nieder
1987-10-12 21:17 ` Michael Murphy
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox