-- Task created with new
task type Server is
entry Request_Service;
end Server;
task type Wroker;
task body Worker is
end;
task body Server is
T: access Worker;
begin
loop
T:= new Worker;
end loop;
end;
end Server;
procedure Gauss_Seidel is
N: constant := 5;
subtype Full_Grid is Integer range 0..N;
subtype Grid is Integer range
end Gauss_Seidel;
with Ada.Task_Termination;
use Ada.Task_Termination;
type Termination_handler;
type Cause_of_termination;
-- task termination
--normal termination: abgearbeitet
--abnormal termination
--unhandled exception
protected Grim_Reaper is
procedure Last_gasp(C: Cause_of_Termination; T: Task_Id, X: Exception_Occurence);
end Grim_Reaper;
--task handler
--specific handler (abarbeiten nach ende)
--fallback handler (kindtask)