can not abort allocated tasks

[nieh@moose.steinmetz (nico nieh)]

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