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=0.7 required=5.0 tests=BAYES_00,INVALID_DATE,
	MSGID_SHORT,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!steinmetz!moose!nieh
From: nieh@moose.steinmetz (nico nieh)
Newsgroups: comp.lang.ada
Subject: can not abort allocated tasks
Message-ID: <7586@steinmetz.steinmetz.UUCP>
Date: Fri, 9-Oct-87 11:22:56 EDT
Article-I.D.: steinmet.7586
Posted: Fri Oct  9 11:22:56 1987
Date-Received: Sun, 11-Oct-87 16:33:27 EDT
Sender: root@steinmetz.steinmetz.UUCP
Reply-To: nieh@moose.steinmetz (nico nieh)
Organization: General Electric CRD, Schenectady, NY
List-Id: <comp.lang.ada>


I am writing a simulation program using Ada task facilities.
What I wanted to do is to be able to abort a task which
is activated by using the allocator.

The program segment looks like,

 task type pool is
     entry draw(which : out integer); -- contains an infinite loop
 end
 type t_pool is access pool;
 pool_1 : t_pool;
 pool_2 : pool;
 begin
 ....
 ....
 pool_1 := new pool;
 ...
 ...
 abort pool_1;

However, both DEC/ADA and Verdix Ada compiler gave syntax error at the
abort statement.

According to the LRM,

   abort_statement  ::=  ABORT task_name {,task_name};
 
the abort statement only takes task_names not pointers to task.

Is there any way to abort task pool_1 ?














     Ko-Haw Nieh
     General Electric Company 
     Corporate Research and Development
     nieh@ge-crd.arpa
     518-387-7431