Ada Code Generation : Package Body : Schedule Timeouts Procedure

Schedule Timeouts Procedure

This procedure executes every execution cycle, and evaluates what timeouts should be triggered in the particular module. All timeout triggers are evaluated and the necessary timeouts are scheduled using the service SC_TMO (from the run-time library package TIMEOUTS).

procedure SCHEDULE_TIMEOUTS is
begin
if ENMOVE_UP then
SC_TMO(tmUP_FINISHED’address,
FLOAT64(5) * SEC);
end if ;
end SCHEDULE_TIMEOUTS ;