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 | |
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')
-rw-r--r-- | c/src/ada/ChangeLog | 4 | ||||
-rw-r--r-- | c/src/ada/rtems.adb | 4 | ||||
-rw-r--r-- | c/src/ada/rtems.ads | 2 |
3 files changed, 8 insertions, 2 deletions
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 <joel.sherrill@oarcorp.com> + + * rtems.adb, rtems.ads: Fix prototype. + 2008-03-11 Joel Sherrill <joel.sherrill@oarcorp.com> * 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 ); |