diff options
Diffstat (limited to 'task_priority/task_priority.adb')
-rw-r--r-- | task_priority/task_priority.adb | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/task_priority/task_priority.adb b/task_priority/task_priority.adb index 33fcd29..1b621cc 100644 --- a/task_priority/task_priority.adb +++ b/task_priority/task_priority.adb @@ -2,15 +2,6 @@ -- Demonstrate Task Priority -- -- --- Expected Output: --- High: 151 --- HighNative: ID=0x0B010004 104 --- Low: 150 --- LowNative: ID=0x0B010003 105 --- High - Waking up --- High - Waking up --- .... --- -- $Id$ @@ -39,6 +30,7 @@ procedure Task_Priority is task body High_Task is begin + Put_Line ("*** Task Priority Test ***"); Put_Line ( "High: " & System.Any_Priority'Image (Get_Priority)); Put ( "HighNative: " ); Put_Priority; |