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/mp11 | |
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 'testsuites/ada/mptests/mp11')
-rw-r--r-- | testsuites/ada/mptests/mp11/mptest.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/testsuites/ada/mptests/mp11/mptest.adb b/testsuites/ada/mptests/mp11/mptest.adb index 95b6904311..8f6833548a 100644 --- a/testsuites/ada/mptests/mp11/mptest.adb +++ b/testsuites/ada/mptests/mp11/mptest.adb @@ -19,11 +19,9 @@ -- with INTERFACES; use INTERFACES; -with RTEMS; with RTEMS.MESSAGE_QUEUE; with RTEMS.PARTITION; with RTEMS.SEMAPHORE; -with RTEMS.TASKS; with TEST_SUPPORT; with TEXT_IO; with UNSIGNED32_IO; @@ -37,6 +35,7 @@ package body MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is + pragma Unreferenced(ARGUMENT); STATUS : RTEMS.STATUS_CODES; begin @@ -81,7 +80,8 @@ package body MPTEST is RTEMS.MESSAGE_QUEUE.CREATE( MPTEST.QUEUE_NAME( 1 ), 3, - RTEMS.GLOBAL + RTEMS.LIMIT, + 3, + RTEMS.GLOBAL, MPTEST.QUEUE_ID( 1 ), STATUS ); @@ -99,6 +99,7 @@ package body MPTEST is MPTEST.SEMAPHORE_NAME( 1 ), 1, RTEMS.GLOBAL, + RTEMS.TASKS.NO_PRIORITY, MPTEST.SEMAPHORE_ID( 1 ), STATUS ); |