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/dummy_rtems.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 '')
| -rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb index c5af3bc8cf..15567c476a 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb @@ -427,7 +427,8 @@ package body DUMMY_RTEMS is procedure MESSAGE_QUEUE_SEND ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; + Size : in RTEMS.Unsigned32; RESULT : out RTEMS.STATUS_CODES ) is begin @@ -438,7 +439,8 @@ package body DUMMY_RTEMS is procedure MESSAGE_QUEUE_URGENT ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; + Size : in RTEMS.Unsigned32; RESULT : out RTEMS.STATUS_CODES ) is begin @@ -449,7 +451,8 @@ package body DUMMY_RTEMS is procedure MESSAGE_QUEUE_BROADCAST ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; + Size : in RTEMS.Unsigned32; COUNT : out RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ) is @@ -461,9 +464,10 @@ package body DUMMY_RTEMS is procedure MESSAGE_QUEUE_RECEIVE ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; OPTION_SET : in RTEMS.OPTION; TIMEOUT : in RTEMS.INTERVAL; + Size : out RTEMS.Unsigned32; RESULT : out RTEMS.STATUS_CODES ) is begin |