Changeset 29948d48 in rtems
- Timestamp:
- 10/18/07 21:26:23 (15 years ago)
- Branches:
- 4.10, 4.11, 4.9, 5, master
- Children:
- 3f778666
- Parents:
- 4fcb3fc3
- Location:
- c/src/ada
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada/ChangeLog
r4fcb3fc3 r29948d48 1 2007-10-18 Glenn Humphrey <glenn.humphrey@OARcorp.com> 2 3 * rtems.adb, rtems.ads: Added a missing binding. 4 1 5 2007-10-10 Glenn Humphrey <glenn.humphrey@OARcorp.com> 2 6 -
c/src/ada/rtems.adb
r4fcb3fc3 r29948d48 18 18 -- http://www.rtems.com/license/LICENSE. 19 19 -- 20 -- rtems.adb,v 1.13.2.2 2003/09/04 18:46:47 joel Exp20 -- $Id$ 21 21 -- 22 22 … … 597 597 598 598 end Clock_Tick; 599 599 600 600 -- 601 601 -- Extension Manager … … 1115 1115 1116 1116 end Message_Queue_Receive; 1117 1118 procedure Message_Queue_Get_Number_Pending ( 1119 ID : in RTEMS.ID; 1120 Count : out RTEMS.Unsigned32; 1121 Result : out RTEMS.Status_Codes 1122 ) is 1123 function Message_Queue_Get_Number_Pending_Base ( 1124 ID : RTEMS.ID; 1125 Count : access RTEMS.Unsigned32 1126 ) return RTEMS.Status_Codes; 1127 pragma Import ( 1128 C, 1129 Message_Queue_Get_Number_Pending_Base, 1130 "rtems_message_queue_get_number_pending" 1131 ); 1132 COUNT_Base : aliased RTEMS.Unsigned32; 1133 begin 1134 1135 Result := Message_Queue_Get_Number_Pending_Base ( 1136 ID, COUNT_Base'Unchecked_Access 1137 ); 1138 Count := COUNT_Base; 1139 1140 end Message_Queue_Get_Number_Pending; 1117 1141 1118 1142 procedure Message_Queue_Flush ( -
c/src/ada/rtems.ads
r4fcb3fc3 r29948d48 19 19 -- http://www.rtems.com/license/LICENSE. 20 20 -- 21 -- rtems.ads,v 1.19.2.2 2003/11/25 14:07:32 joel Exp21 -- $Id$ 22 22 -- 23 23 … … 917 917 ); 918 918 919 procedure Message_Queue_Get_Number_Pending ( 920 ID : in RTEMS.ID; 921 Count : out RTEMS.Unsigned32; 922 Result : out RTEMS.Status_Codes 923 ); 924 919 925 procedure Message_Queue_Flush ( 920 926 ID : in RTEMS.ID;
Note: See TracChangeset
for help on using the changeset viewer.