diff options
| author | Glenn Humphrey <glenn.humphrey@oarcorp.com> | 2007-10-18 21:26:23 +0000 |
|---|---|---|
| committer | Glenn Humphrey <glenn.humphrey@oarcorp.com> | 2007-10-18 21:26:23 +0000 |
| commit | 29948d482f6e24ae78533626181178ec7b2d8a0f (patch) | |
| tree | 5c6e398807ebfcb92f99bd1625bb113af8a8ca3b /c/src/ada | |
| parent | 2007-10-18 Glenn Humphrey <glenn.humphrey@OARcorp.com> (diff) | |
| download | rtems-29948d482f6e24ae78533626181178ec7b2d8a0f.tar.bz2 | |
2007-10-18 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Added a missing binding.
Diffstat (limited to 'c/src/ada')
| -rw-r--r-- | c/src/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | c/src/ada/rtems.adb | 28 | ||||
| -rw-r--r-- | c/src/ada/rtems.ads | 8 |
3 files changed, 37 insertions, 3 deletions
diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 67c10bca75..b65a16d88c 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,7 @@ +2007-10-18 Glenn Humphrey <glenn.humphrey@OARcorp.com> + + * rtems.adb, rtems.ads: Added a missing binding. + 2007-10-10 Glenn Humphrey <glenn.humphrey@OARcorp.com> * rtems.adb, rtems.ads: Cleaned up binding and removed bindings for diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 58bc81da49..eec64f2015 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -17,7 +17,7 @@ -- the file LICENSE in this distribution or at -- http://www.rtems.com/license/LICENSE. -- --- rtems.adb,v 1.13.2.2 2003/09/04 18:46:47 joel Exp +-- $Id$ -- with Ada; @@ -596,7 +596,7 @@ package body RTEMS is Result := Clock_Tick_Base; end Clock_Tick; - + -- -- Extension Manager -- @@ -1115,6 +1115,30 @@ package body RTEMS is end Message_Queue_Receive; + procedure Message_Queue_Get_Number_Pending ( + ID : in RTEMS.ID; + Count : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes + ) is + function Message_Queue_Get_Number_Pending_Base ( + ID : RTEMS.ID; + Count : access RTEMS.Unsigned32 + ) return RTEMS.Status_Codes; + pragma Import ( + C, + Message_Queue_Get_Number_Pending_Base, + "rtems_message_queue_get_number_pending" + ); + COUNT_Base : aliased RTEMS.Unsigned32; + begin + + Result := Message_Queue_Get_Number_Pending_Base ( + ID, COUNT_Base'Unchecked_Access + ); + Count := COUNT_Base; + + end Message_Queue_Get_Number_Pending; + procedure Message_Queue_Flush ( ID : in RTEMS.ID; Count : out RTEMS.Unsigned32; diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 42411e72f2..6ec65abc49 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -18,7 +18,7 @@ -- the file LICENSE in this distribution or at -- http://www.rtems.com/license/LICENSE. -- --- rtems.ads,v 1.19.2.2 2003/11/25 14:07:32 joel Exp +-- $Id$ -- with System; @@ -916,6 +916,12 @@ pragma Elaborate_Body (RTEMS); Result : out RTEMS.Status_Codes ); + procedure Message_Queue_Get_Number_Pending ( + ID : in RTEMS.ID; + Count : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes + ); + procedure Message_Queue_Flush ( ID : in RTEMS.ID; Count : out RTEMS.Unsigned32; |