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/tm14/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/tm14/tmtest.adb')
-rw-r--r-- | c/src/ada-tests/tmtests/tm14/tmtest.adb | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/c/src/ada-tests/tmtests/tm14/tmtest.adb b/c/src/ada-tests/tmtests/tm14/tmtest.adb index 15185ed1f3..97f81d5d27 100644 --- a/c/src/ada-tests/tmtests/tm14/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm14/tmtest.adb @@ -82,12 +82,12 @@ 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; STATUS : RTEMS.STATUS_CODES; begin - BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS ); + BUFFER_POINTER := BUFFER'ADDRESS; RTEMS.MESSAGE_QUEUE_CREATE( RTEMS.BUILD_NAME( 'M', 'Q', '1', ' ' ), @@ -130,6 +130,7 @@ package body TMTEST is RTEMS.MESSAGE_QUEUE_URGENT( TMTEST.QUEUE_ID, BUFFER_POINTER, + 16, STATUS ); @@ -143,13 +144,13 @@ 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; OVERHEAD : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin - BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS ); + BUFFER_POINTER := BUFFER'ADDRESS; TIMER_DRIVER.INITIALIZE; for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT @@ -164,6 +165,7 @@ package body TMTEST is RTEMS.MESSAGE_QUEUE_URGENT( TMTEST.QUEUE_ID, BUFFER_POINTER, + 16, STATUS ); @@ -191,18 +193,20 @@ package body TMTEST is procedure LOW_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 ); |