diff options
author | Joel Sherrill <joel.sherrill@oarcorp.com> | 2012-11-07 10:18:38 -0600 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@oarcorp.com> | 2012-11-07 10:18:47 -0600 |
commit | 602a18440a40fd3a260d6d2950a9813489305d30 (patch) | |
tree | 377b92d60f9e411ff5e077abdb990482df9044a2 | |
parent | doc/user: Fix scheduler configuration (diff) | |
download | rtems-602a18440a40fd3a260d6d2950a9813489305d30.tar.bz2 |
rtems-message_queue.adb: Formatting
-rw-r--r-- | 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 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; |