Changeset 29948d48 in rtems


Ignore:
Timestamp:
Oct 18, 2007, 9:26:23 PM (12 years ago)
Author:
Glenn Humphrey <glenn.humphrey@…>
Branches:
4.10, 4.11, 4.9, master
Children:
3f778666
Parents:
4fcb3fc3
Message:

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

  • rtems.adb, rtems.ads: Added a missing binding.
Location:
c/src/ada
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada/ChangeLog

    r4fcb3fc3 r29948d48  
     12007-10-18      Glenn Humphrey <glenn.humphrey@OARcorp.com>
     2
     3        * rtems.adb, rtems.ads: Added a missing binding.
     4
    152007-10-10      Glenn Humphrey <glenn.humphrey@OARcorp.com>
    26

  • 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 (

  • c/src/ada/rtems.ads

    r4fcb3fc3 r29948d48  
    1919--  http://www.rtems.com/license/LICENSE.
    2020--
    21 --  rtems.ads,v 1.19.2.2 2003/11/25 14:07:32 joel Exp
     21--  $Id$
    2222--
    2323
    … …  
    917917   );
    918918
     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
    919925   procedure Message_Queue_Flush (
    920926      ID     : in     RTEMS.ID;
Note: See TracChangeset for help on using the changeset viewer.