From 29948d482f6e24ae78533626181178ec7b2d8a0f Mon Sep 17 00:00:00 2001 From: Glenn Humphrey Date: Thu, 18 Oct 2007 21:26:23 +0000 Subject: 2007-10-18 Glenn Humphrey * rtems.adb, rtems.ads: Added a missing binding. --- c/src/ada/ChangeLog | 4 ++++ c/src/ada/rtems.adb | 28 ++++++++++++++++++++++++++-- c/src/ada/rtems.ads | 8 +++++++- 3 files changed, 37 insertions(+), 3 deletions(-) (limited to 'c/src/ada') 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 + + * rtems.adb, rtems.ads: Added a missing binding. + 2007-10-10 Glenn Humphrey * 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; -- cgit v1.2.3