Changeset 29948d48 in rtems for c/src/ada/rtems.adb


Ignore:
Timestamp:
10/18/07 21:26:23 (15 years ago)
Author:
Glenn Humphrey <glenn.humphrey@…>
Branches:
4.10, 4.11, 4.9, 5, master
Children:
3f778666
Parents:
4fcb3fc3
Message:

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

  • rtems.adb, rtems.ads: Added a missing binding.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/rtems.adb

    r4fcb3fc3 r29948d48  
    1818--  http://www.rtems.com/license/LICENSE.
    1919--
    20 --  rtems.adb,v 1.13.2.2 2003/09/04 18:46:47 joel Exp
     20--  $Id$
    2121--
    2222
     
    597597
    598598   end Clock_Tick;
    599  
     599
    600600   --
    601601   -- Extension Manager
     
    11151115
    11161116   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;
    11171141 
    11181142   procedure Message_Queue_Flush (
Note: See TracChangeset for help on using the changeset viewer.