[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