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/tmoverhd/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/tmoverhd/tmtest.adb')
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb index 02f5b26803..37484653bb 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb @@ -142,8 +142,9 @@ package body TMTEST is SIGNALS : RTEMS.SIGNAL_SET; ADDRESS_1 : RTEMS.ADDRESS; EVENTS : RTEMS.SIGNAL_SET; - BUFFER : RTEMS.BUFFER; - BUFFER_POINTER : RTEMS.BUFFER_POINTER; + BUFFER : TMTEST.BUFFER; + BUFFER_POINTER : RTEMS.ADDRESS; + MESSAGE_SIZE : RTEMS.UNSIGNED32; COUNT : RTEMS.UNSIGNED32; MAJOR : RTEMS.DEVICE_MAJOR_NUMBER; MINOR : RTEMS.DEVICE_MINOR_NUMBER; @@ -154,7 +155,7 @@ package body TMTEST is NAME := RTEMS.BUILD_NAME( 'N', 'A', 'M', 'E' ); - BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS ); + BUFFER_POINTER := BUFFER'ADDRESS; -- INITIALIZE_EXECUTIVE @@ -821,7 +822,7 @@ TEST_SUPPORT.PAUSE; TIMER_DRIVER.INITIALIZE; for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT loop - DUMMY_RTEMS.MESSAGE_QUEUE_SEND( ID, BUFFER_POINTER, STATUS ); + DUMMY_RTEMS.MESSAGE_QUEUE_SEND( ID, BUFFER_POINTER, 16, STATUS ); end loop; TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; @@ -838,7 +839,7 @@ TEST_SUPPORT.PAUSE; TIMER_DRIVER.INITIALIZE; for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT loop - DUMMY_RTEMS.MESSAGE_QUEUE_URGENT( ID, BUFFER_POINTER, STATUS ); + DUMMY_RTEMS.MESSAGE_QUEUE_URGENT( ID, BUFFER_POINTER, 16, STATUS ); end loop; TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; @@ -858,6 +859,7 @@ TEST_SUPPORT.PAUSE; DUMMY_RTEMS.MESSAGE_QUEUE_BROADCAST( ID, BUFFER_POINTER, + 16, COUNT, STATUS ); @@ -882,6 +884,7 @@ TEST_SUPPORT.PAUSE; BUFFER_POINTER, RTEMS.DEFAULT_OPTIONS, TIMEOUT, + MESSAGE_SIZE, STATUS ); end loop; |