diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2019-11-12 07:08:39 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2019-11-12 09:47:20 +0100 |
commit | f51594897cd2915b856e57cc0a066f929ab22209 (patch) | |
tree | 00498348891c8b56882251dcc997cd83d177f56b /testsuites/ada/mptests/mp07/mptest.adb | |
parent | sptests: Avoid include path magic (diff) | |
download | rtems-f51594897cd2915b856e57cc0a066f929ab22209.tar.bz2 |
ada/mptests: Make them compile clean
Fix all warnings.
Update #3818.
Diffstat (limited to '')
-rw-r--r-- | testsuites/ada/mptests/mp07/mptest.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuites/ada/mptests/mp07/mptest.adb b/testsuites/ada/mptests/mp07/mptest.adb index 7354e56791..51e3999f2d 100644 --- a/testsuites/ada/mptests/mp07/mptest.adb +++ b/testsuites/ada/mptests/mp07/mptest.adb @@ -19,9 +19,7 @@ -- with INTERFACES; use INTERFACES; -with RTEMS; with RTEMS.EVENT; -with RTEMS.TASKS; with RTEMS.TIMER; with TEST_SUPPORT; with TEXT_IO; @@ -36,6 +34,7 @@ package body MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is + pragma Unreferenced(ARGUMENT); STATUS : RTEMS.STATUS_CODES; begin @@ -108,6 +107,7 @@ package body MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is + pragma Unreferenced(ARGUMENT); EVENT_OUT : RTEMS.EVENT_SET; STATUS : RTEMS.STATUS_CODES; begin @@ -159,7 +159,7 @@ package body MPTEST is loop - exit when MPTEST.STOP_TEST = TRUE; + exit when MPTEST.STOP_TEST; for COUNT in 1 .. MPTEST.PER_DOT loop |