Re: How to terminate all running tasks?

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 2020-06-10 15:12, Niklas Holsti wrote:

> and in the main subprogram, instead of the null statement and the 
> exception handler:
> 
>     Ada.Synchronous_Task_Control.Suspend_Until_True (solution_found);
>     abort p6p;
>     abort p6m;

Just an addendum: to make sure that the main subprogram runs, and is not 
starved by a child task that is still searching for a solution, you may 
want to make the priorities of the child tasks lower than the priority 
of the main subprogram (the environment task).

And a further note: generally one should avoid aborting tasks, as that 
easily leads to messy race conditions. Better to have the tasks 
terminate by themselves. For example, each of the search tasks could now 
and then call Ada.Synchronous_Task_Control.Current_State 
(solution_found) and terminate itself (exit the loop) if the result is True.

-- 
Niklas Holsti

niklas holsti tidorum fi
       .      @       .