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

2008-05-06 Joel Sherrill <joel.sherrill@oarcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Fix prototype.
This commit is contained in:
Joel Sherrill
2008-05-06 23:17:28 +00:00
parent f5f4566a5f
commit 0442eed68c
3 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
c/src/ada/ChangeLog
View File

@@ -1,3 +1,7 @@
2008-05-06 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Fix prototype.
2008-03-11 Joel Sherrill <joel.sherrill@oarcorp.com> 2008-03-11 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Refactored rtems_clock_get into 5 methods * rtems.adb, rtems.ads: Refactored rtems_clock_get into 5 methods

4
c/src/ada/rtems.adb
View File

@@ -1170,7 +1170,7 @@ package body RTEMS is
Buffer : in RTEMS.Address; Buffer : in RTEMS.Address;
Option_Set : in RTEMS.Option; Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval; Timeout : in RTEMS.Interval;
Size : out RTEMS.Unsigned32; Size : in out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function Message_Queue_Receive_Base ( function Message_Queue_Receive_Base (
@@ -1185,6 +1185,8 @@ package body RTEMS is
Size_Base : aliased RTEMS.Unsigned32; Size_Base : aliased RTEMS.Unsigned32;
begin begin
Size_Base := Size;
Result := Message_Queue_Receive_Base ( Result := Message_Queue_Receive_Base (
ID, ID,
Buffer, Buffer,

2
c/src/ada/rtems.ads
View File

@@ -973,7 +973,7 @@ pragma Elaborate_Body (RTEMS);
Buffer : in RTEMS.Address; Buffer : in RTEMS.Address;
Option_Set : in RTEMS.Option; Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval; Timeout : in RTEMS.Interval;
Size : out RTEMS.Unsigned32; Size : in out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );