diff options
Diffstat (limited to 'testsuites/ada/mptests/mp13/mptest.adb')
-rw-r--r-- | testsuites/ada/mptests/mp13/mptest.adb | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/testsuites/ada/mptests/mp13/mptest.adb b/testsuites/ada/mptests/mp13/mptest.adb index a1b33551ff..b69d5ca4b6 100644 --- a/testsuites/ada/mptests/mp13/mptest.adb +++ b/testsuites/ada/mptests/mp13/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 @@ -61,7 +60,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 ); @@ -72,6 +72,7 @@ package body MPTEST is MPTEST.SEMAPHORE_NAME( 1 ), 1, RTEMS.GLOBAL + RTEMS.PRIORITY, + RTEMS.TASKS.NO_PRIORITY, MPTEST.SEMAPHORE_ID( 1 ), STATUS ); @@ -153,14 +154,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" ); @@ -185,6 +186,7 @@ package body MPTEST is RECEIVE_BUFFER, RTEMS.DEFAULT_OPTIONS, RTEMS.NO_TIMEOUT, + MESSAGE_SIZE, STATUS ); TEXT_IO.PUT_LINE( "How did I get back from here???" ); @@ -201,6 +203,7 @@ package body MPTEST is RECEIVE_BUFFER, RTEMS.DEFAULT_OPTIONS, 2 * TEST_SUPPORT.TICKS_PER_SECOND, + MESSAGE_SIZE, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( @@ -231,6 +234,7 @@ package body MPTEST is procedure TEST_TASK_2 ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is + pragma Unreferenced(ARGUMENT); STATUS : RTEMS.STATUS_CODES; begin |