[rtems commit] rtems-message_queue.adb: Formatting

Joel Sherrill joel at rtems.org
Wed Nov 7 17:14:24 UTC 2012


Module:    rtems
Branch:    master
Commit:    602a18440a40fd3a260d6d2950a9813489305d30
Changeset: http://git.rtems.org/rtems/commit/?id=602a18440a40fd3a260d6d2950a9813489305d30

Author:    Joel Sherrill <joel.sherrill at oarcorp.com>
Date:      Wed Nov  7 10:18:38 2012 -0600

rtems-message_queue.adb: Formatting

---

 c/src/ada/rtems-message_queue.adb |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/c/src/ada/rtems-message_queue.adb b/c/src/ada/rtems-message_queue.adb
index 15ec489..942bf93 100644
--- a/c/src/ada/rtems-message_queue.adb
+++ b/c/src/ada/rtems-message_queue.adb
@@ -211,11 +211,11 @@ package body RTEMS.Message_Queue is
         (C,
          Get_Number_Pending_Base,
          "rtems_message_queue_get_number_pending");
-      COUNT_Base : aliased RTEMS.Unsigned32;
+      Count_Base : aliased RTEMS.Unsigned32;
    begin
 
-      Result := Get_Number_Pending_Base (ID, COUNT_Base'Access);
-      Count  := COUNT_Base;
+      Result := Get_Number_Pending_Base (ID, Count_Base'Access);
+      Count  := Count_Base;
 
    end Get_Number_Pending;
 
@@ -232,11 +232,11 @@ package body RTEMS.Message_Queue is
         (C,
          Flush_Base,
          "rtems_message_queue_flush");
-      COUNT_Base : aliased RTEMS.Unsigned32;
+      Count_Base : aliased RTEMS.Unsigned32;
    begin
 
-      Result := Flush_Base (ID, COUNT_Base'Access);
-      Count  := COUNT_Base;
+      Result := Flush_Base (ID, Count_Base'Access);
+      Count  := Count_Base;
 
    end Flush;
 




More information about the vc mailing list