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