Ignore:
Timestamp:
Nov 7, 2012, 4:18:38 PM (8 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.11, 5, master
Children:
9ed2bef
Parents:
15aaea97
git-author:
Joel Sherrill <joel.sherrill@…> (11/07/12 16:18:38)
git-committer:
Joel Sherrill <joel.sherrill@…> (11/07/12 16:18:47)
Message:

rtems-message_queue.adb: Formatting

File:
1 edited

Legend:

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

    r15aaea97 r602a1844  
    212212         Get_Number_Pending_Base,
    213213         "rtems_message_queue_get_number_pending");
    214       COUNT_Base : aliased RTEMS.Unsigned32;
    215    begin
    216 
    217       Result := Get_Number_Pending_Base (ID, COUNT_Base'Access);
    218       Count  := COUNT_Base;
     214      Count_Base : aliased RTEMS.Unsigned32;
     215   begin
     216
     217      Result := Get_Number_Pending_Base (ID, Count_Base'Access);
     218      Count  := Count_Base;
    219219
    220220   end Get_Number_Pending;
     
    233233         Flush_Base,
    234234         "rtems_message_queue_flush");
    235       COUNT_Base : aliased RTEMS.Unsigned32;
    236    begin
    237 
    238       Result := Flush_Base (ID, COUNT_Base'Access);
    239       Count  := COUNT_Base;
     235      Count_Base : aliased RTEMS.Unsigned32;
     236   begin
     237
     238      Result := Flush_Base (ID, Count_Base'Access);
     239      Count  := Count_Base;
    240240
    241241   end Flush;
Note: See TracChangeset for help on using the changeset viewer.