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 15ec48980e..942bf938a2 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;