diff options
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, |