diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-05-06 23:17:28 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-05-06 23:17:28 +0000 |
commit | 0442eed68c7f7383f35dbb2b98af867402a048cf (patch) | |
tree | 56f5bd23f854bfd45d184169bac14d1d0a93229b /c/src/ada/rtems.adb | |
parent | 2008-05-06 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
download | rtems-0442eed68c7f7383f35dbb2b98af867402a048cf.tar.bz2 |
2008-05-06 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Fix prototype.
Diffstat (limited to 'c/src/ada/rtems.adb')
-rw-r--r-- | c/src/ada/rtems.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 19b477d874..7befd169e6 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -1170,7 +1170,7 @@ package body RTEMS is Buffer : in RTEMS.Address; Option_Set : in RTEMS.Option; Timeout : in RTEMS.Interval; - Size : out RTEMS.Unsigned32; + Size : in out RTEMS.Unsigned32; Result : out RTEMS.Status_Codes ) is function Message_Queue_Receive_Base ( @@ -1185,6 +1185,8 @@ package body RTEMS is Size_Base : aliased RTEMS.Unsigned32; begin + Size_Base := Size; + Result := Message_Queue_Receive_Base ( ID, Buffer, |