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/mp10 | |
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/mp10')
-rw-r--r-- | testsuites/ada/mptests/mp10/mptest.adb | 19 | ||||
-rw-r--r-- | testsuites/ada/mptests/mp10/mptest.ads | 13 |
2 files changed, 24 insertions, 8 deletions
diff --git a/testsuites/ada/mptests/mp10/mptest.adb b/testsuites/ada/mptests/mp10/mptest.adb index a105fe8ca6..70dfcab3e8 100644 --- a/testsuites/ada/mptests/mp10/mptest.adb +++ b/testsuites/ada/mptests/mp10/mptest.adb @@ -19,10 +19,8 @@ -- with INTERFACES; use INTERFACES; -with RTEMS; with RTEMS.MESSAGE_QUEUE; with RTEMS.SEMAPHORE; -with RTEMS.TASKS; with TEST_SUPPORT; with TEXT_IO; with UNSIGNED32_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 @@ -63,7 +62,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 ); @@ -74,6 +74,7 @@ package body MPTEST is MPTEST.SEMAPHORE_NAME( 1 ), 0, RTEMS.GLOBAL + RTEMS.PRIORITY, + RTEMS.TASKS.NO_PRIORITY, MPTEST.SEMAPHORE_ID( 1 ), STATUS ); @@ -178,14 +179,14 @@ package body MPTEST is procedure TEST_TASK_1 ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is - COUNT : RTEMS.UNSIGNED32; - RECEIVE_BUFFER_AREA : RTEMS.BUFFER; - RECEIVE_BUFFER : RTEMS.BUFFER_POINTER; + pragma Unreferenced(ARGUMENT); + RECEIVE_BUFFER_AREA : MPTEST.BUFFER; + RECEIVE_BUFFER : RTEMS.ADDRESS; STATUS : RTEMS.STATUS_CODES; + MESSAGE_SIZE : RTEMS.SIZE := 0; begin - RECEIVE_BUFFER := - RTEMS.TO_BUFFER_POINTER( RECEIVE_BUFFER_AREA'ADDRESS ); + RECEIVE_BUFFER := RECEIVE_BUFFER_AREA'ADDRESS; TEXT_IO.PUT_LINE( "Getting QID of message queue" ); @@ -208,6 +209,7 @@ package body MPTEST is RECEIVE_BUFFER, RTEMS.DEFAULT_OPTIONS, RTEMS.NO_TIMEOUT, + MESSAGE_SIZE, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" ); @@ -221,6 +223,7 @@ package body MPTEST is procedure TEST_TASK_2 ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is + pragma Unreferenced(ARGUMENT); STATUS : RTEMS.STATUS_CODES; begin diff --git a/testsuites/ada/mptests/mp10/mptest.ads b/testsuites/ada/mptests/mp10/mptest.ads index 05764ebf0b..ee5c1bab65 100644 --- a/testsuites/ada/mptests/mp10/mptest.ads +++ b/testsuites/ada/mptests/mp10/mptest.ads @@ -24,6 +24,19 @@ with RTEMS.TASKS; package MPTEST is -- +-- Buffer Record similar to that used by RTEMS 3.2.1. Using this +-- avoids changes to the test. +-- + + type BUFFER is + record + FIELD1 : RTEMS.NAME; -- TEMPORARY UNTIL VARIABLE LENGTH + FIELD2 : RTEMS.NAME; + FIELD3 : RTEMS.NAME; + FIELD4 : RTEMS.NAME; + end record; + +-- -- These arrays contain the IDs and NAMEs of all RTEMS tasks created -- by this test. -- |