RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

rtems-message_queue.adb: Formatting

Browse Source
This commit is contained in:
Joel Sherrill
2012-11-07 10:18:38 -06:00
parent 15aaea9769
commit 602a18440a
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
c/src/ada/rtems-message_queue.adb
View File

@@ -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;