diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 22:06:49 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 22:06:49 +0000 |
| commit | e17ffea65702a14cc0b252b94533f3354a351b61 (patch) | |
| tree | ae4349a5c50ada68671c61b1664393e8dd63bcb6 /c/src/ada-tests/tmtests/tm11/tmtest.adb | |
| parent | Changed Task_Entry_Point to Task_Entry to be correct per 4.0.0. (diff) | |
| download | rtems-e17ffea65702a14cc0b252b94533f3354a351b61.tar.bz2 | |
Changed to variable length messages.
Diffstat (limited to 'c/src/ada-tests/tmtests/tm11/tmtest.adb')
| -rw-r--r-- | c/src/ada-tests/tmtests/tm11/tmtest.adb | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/c/src/ada-tests/tmtests/tm11/tmtest.adb b/c/src/ada-tests/tmtests/tm11/tmtest.adb index 5dce5e8fe9..bd799fd877 100644 --- a/c/src/ada-tests/tmtests/tm11/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm11/tmtest.adb @@ -82,12 +82,13 @@ package body TMTEST is TASK_ENTRY : RTEMS.TASK_ENTRY; PRIORITY : RTEMS.TASK_PRIORITY; TASK_ID : RTEMS.ID; - BUFFER : RTEMS.BUFFER; - BUFFER_POINTER : RTEMS.BUFFER_POINTER; + BUFFER : TMTEST.BUFFER; + BUFFER_POINTER : RTEMS.ADDRESS; + MESSAGE_SIZE : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin - BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS ); + BUFFER_POINTER := BUFFER'ADDRESS; -- As each task is started, it preempts this task and performs a blocking -- MESSAGE_QUEUE_RECEIVE. Upon completion of this loop all created tasks @@ -98,6 +99,7 @@ package body TMTEST is TIME_TEST_SUPPORT.OPERATION_COUNT, RTEMS.DEFAULT_OPTIONS, TMTEST.QUEUE_ID, + MESSAGE_SIZE, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" ); @@ -135,6 +137,7 @@ package body TMTEST is RTEMS.MESSAGE_QUEUE_SEND( TMTEST.QUEUE_ID, BUFFER_POINTER, + 16, STATUS ); @@ -148,18 +151,20 @@ package body TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ) is - BUFFER : RTEMS.BUFFER; - BUFFER_POINTER : RTEMS.BUFFER_POINTER; + BUFFER : TMTEST.BUFFER; + BUFFER_POINTER : RTEMS.ADDRESS; + MESSAGE_SIZE : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin - BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS ); + BUFFER_POINTER := BUFFER'ADDRESS; RTEMS.MESSAGE_QUEUE_RECEIVE( TMTEST.QUEUE_ID, BUFFER_POINTER, RTEMS.DEFAULT_OPTIONS, RTEMS.NO_TIMEOUT, + MESSAGE_SIZE, STATUS ); @@ -185,24 +190,27 @@ package body TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ) is - BUFFER : RTEMS.BUFFER; - BUFFER_POINTER : RTEMS.BUFFER_POINTER; + BUFFER : TMTEST.BUFFER; + BUFFER_POINTER : RTEMS.ADDRESS; + MESSAGE_SIZE : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin - BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS ); + BUFFER_POINTER := BUFFER'ADDRESS; RTEMS.MESSAGE_QUEUE_RECEIVE( TMTEST.QUEUE_ID, BUFFER_POINTER, RTEMS.DEFAULT_OPTIONS, RTEMS.NO_TIMEOUT, + MESSAGE_SIZE, STATUS ); RTEMS.MESSAGE_QUEUE_SEND( TMTEST.QUEUE_ID, BUFFER_POINTER, + 16, STATUS ); |