Commit fca33655 authored by jhugues's avatar jhugues
Browse files

* Next_Start was using an incorrectly value for


git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 3ca1b695
......@@ -65,9 +65,9 @@ package body PolyORB_HI.Periodic_Task is
& Entity_Image (Entity)
& ": Wait initialization"));
Suspend_Until_True (Task_Suspension_Objects (Entity));
Next_Start := System_Startup_Time + Dispatch_Offset;
Suspend_Until_True (Task_Suspension_Objects (Entity));
delay until Next_Start;
-- Main task loop
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