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/rtems.ads | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'c/src/ada/rtems.ads') 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