diff options
Diffstat (limited to 'c/src/ada-tests/tmtests/tm12/tmtest.adb')
| -rw-r--r-- | c/src/ada-tests/tmtests/tm12/tmtest.adb | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/c/src/ada-tests/tmtests/tm12/tmtest.adb b/c/src/ada-tests/tmtests/tm12/tmtest.adb index adcc3610f1..8dd56114d9 100644 --- a/c/src/ada-tests/tmtests/tm12/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm12/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', ' ' ), @@ -137,14 +137,14 @@ 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; INDEX : RTEMS.UNSIGNED32; 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 @@ -159,6 +159,7 @@ package body TMTEST is RTEMS.MESSAGE_QUEUE_SEND( TMTEST.QUEUE_ID, BUFFER_POINTER, + 16, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" ); --XXX @@ -187,18 +188,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 ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" ); --XXX |