ada/sp07: Fix uninitialized variable

Bug was introduced by d5154d0f6a.

Updates #2493.
This commit is contained in:
Sebastian Huber
2017-12-01 15:22:02 +01:00
parent 5e05fa0f7b
commit dda8142f27

View File

@@ -316,6 +316,8 @@ package body SPTEST is
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
begin
THE_PRIORITY := 4;
loop
THE_PRIORITY := THE_PRIORITY - 1;