Commit fa0f1c4d authored by jhugues's avatar jhugues Committed by yoogx

* Correct enforcing of Dispatch_Offset value



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@2659 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent b97836fc
......@@ -65,13 +65,16 @@ package body PolyORB_HI.Periodic_Task is
& Entity_Image (Entity)
& ": Wait initialization"));
Next_Start := System_Startup_Time + Dispatch_Offset;
Suspend_Until_True (Task_Suspension_Objects (Entity));
delay until System_Startup_Time + Dispatch_Offset;
delay until Next_Start;
-- Main task loop
Next_Start := System_Startup_Time + Task_Period;
Next_Deadline_Val := System_Startup_Time + Task_Deadline;
Next_Start := Next_Start + Task_Period;
Next_Deadline_Val := System_Startup_Time
+ Dispatch_Offset + Task_Deadline;
loop
pragma Debug
......
Markdown is supported
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