From 0442eed68c7f7383f35dbb2b98af867402a048cf Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 6 May 2008 23:17:28 +0000 Subject: 2008-05-06 Joel Sherrill * rtems.adb, rtems.ads: Fix prototype. --- c/src/ada/ChangeLog | 4 ++++ c/src/ada/rtems.adb | 4 +++- c/src/ada/rtems.ads | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) (limited to 'c/src/ada') diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 1adb5c4584..39e48be89a 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,7 @@ +2008-05-06 Joel Sherrill + + * rtems.adb, rtems.ads: Fix prototype. + 2008-03-11 Joel Sherrill * rtems.adb, rtems.ads: Refactored rtems_clock_get into 5 methods 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, diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 2e554b9860..cd094e2bcf 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -973,7 +973,7 @@ pragma Elaborate_Body (RTEMS); 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 ); -- cgit v1.2.3