Re: task time-out&abort

["e.coli" <maurizio.ferracini@gmail.com>]

e.coli ha scritto:
> here the code...


i have this simple code...
------------------------------------
  with Ada.Text_Io;

procedure Sempliced2 is

   task A_Task is
      entry Uno;
   end A_Task;

   task body A_Task is
   begin
      loop
         select
         accept Uno do
            Ada.Text_Io.Put_Line("i do something");
            --here code like
            --Horribly_Complicated_Recursive_Function(x,y);
         end Uno;
      or
         terminate;
      end select;
   end loop;
end A_Task;

begin --corpo genitore
   A_Task.Uno;
end Sempliced2;
------------------------------------------------

Speliced2 call the task entry uno.
now how Speliced2 can terminate the execution of the entry "uno" before
the
end of the call (es. time-out)?