Commit 8a7bf89c authored by hugues.jerome's avatar hugues.jerome
Browse files

* Do not raise an exception, report the name of the task in

	  case an overload is detected

git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 4e1c7b34
......@@ -89,11 +89,10 @@ package body PolyORB_HI.Periodic_Task is
T := Ada.Real_Time.Clock;
if T > Next_Start then
Put_Line (Normal, "***** Overload detected *****");
Put_Line (Normal, "***** Overload detected in task "
& Entity_Image (Entity) & " *****");
Put_Line (Normal, "Lag: " &
Duration'Image (To_Duration (Next_Start - T)));
raise Program_Error;
end if;
delay until Next_Start;
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment