Re: Tasking_Error

[Lutz Donnerhacke <lutz@iks-jena.de>]

* Stefan Soos wrote:
> when i run the following program on Linux 2.4.18 with Gnat 3.14p-3 I
> always get the following exception information:
> Exception name: TASKING_ERROR
> Message: Failure during activation

This is caused by the OS, you have. The number of processes is limited and
even if you might using threads, you'll reach the limit.

OTOH the other advice about collecting all rendevouz calls is right, too.

The following excerpt works for me (ulimit 256 tasks, so maximum ist 229).

---CUT HERE---
   Maximum_Tasks : constant := 50;

   task type Called_Task_Type is
      entry Start;
      entry Rendevouz;
   end Called_Task_Type;

   task body Called_Task_Type is
   begin
      accept Start;
      Put ("Tasks waiting so far: ");
      Put (Rendevouz'Count);
      New_Line;
      loop
	 select
	    accept Rendevouz;
	 or terminate;
	 end select;
      end loop;
   end Called_Task_Type;
---CUT HERE---