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