RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2007-10-18 Glenn Humphrey <glenn.humphrey@OARcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Added a missing binding.
This commit is contained in:
Glenn Humphrey
2007-10-18 21:26:23 +00:00
parent 4fcb3fc310
commit 29948d482f
3 changed files with 37 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
c/src/ada/ChangeLog
View File

@@ -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

28
c/src/ada/rtems.adb
View File

@@ -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;

8
c/src/ada/rtems.ads
View File

@@ -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;