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/rtems.adb | |
| 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/rtems.adb')
| -rw-r--r-- | c/src/ada/rtems.adb | 28 |
1 files changed, 26 insertions, 2 deletions
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; |