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

2007-11-27 Glenn Humphrey <glenn.humphrey@OARcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Fixed errors in the barrier binding.
This commit is contained in:
Glenn Humphrey
2007-11-27 21:22:44 +00:00
parent 6c81fcc2a1
commit 615563906a
3 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
c/src/ada/ChangeLog
View File

@@ -1,3 +1,7 @@
2007-11-27 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Fixed errors in the barrier binding.
2007-10-25 Glenn Humphrey <glenn.humphrey@OARcorp.com> 2007-10-25 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Added some more missing bindings. * rtems.adb, rtems.ads: Added some more missing bindings.

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

@@ -1910,33 +1910,35 @@ package body RTEMS is
procedure Barrier_Wait ( procedure Barrier_Wait (
ID : in RTEMS.ID; ID : in RTEMS.ID;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval; Timeout : in RTEMS.Interval;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function Barrier_Wait_Base ( function Barrier_Wait_Base (
ID : RTEMS.ID; ID : RTEMS.ID;
Option_Set : RTEMS.Option;
Timeout : RTEMS.Interval Timeout : RTEMS.Interval
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Barrier_Wait_Base, "rtems_barrier_wait"); pragma Import (C, Barrier_Wait_Base, "rtems_barrier_wait");
begin begin
Result := Barrier_Wait_Base ( ID, Option_Set, Timeout ); Result := Barrier_Wait_Base ( ID, Timeout );
end Barrier_Wait; end Barrier_Wait;
procedure Barrier_Release ( procedure Barrier_Release (
ID : in RTEMS.ID; ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes Released : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes
) is ) is
function Barrier_Release_Base ( function Barrier_Release_Base (
ID : RTEMS.ID ID : RTEMS.ID
Released : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Barrier_Release_Base, "rtems_barrier_release"); pragma Import (C, Barrier_Release_Base, "rtems_barrier_release");
Released_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Barrier_Release_Base ( ID ); Result := Barrier_Release_Base ( ID, Released_Base'Unchecked_Access );
Released := Released_Base;
end Barrier_Release; end Barrier_Release;

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

@@ -354,6 +354,7 @@ pragma Elaborate_Body (RTEMS);
type Rate_Monotonic_Period_Status is type Rate_Monotonic_Period_Status is
record record
Owner : RTEMS.ID;
State : RTEMS.Rate_Monotonic_Period_States; State : RTEMS.Rate_Monotonic_Period_States;
Ticks_Since_Last_Period : RTEMS.Unsigned32; Ticks_Since_Last_Period : RTEMS.Unsigned32;
Ticks_Executed_Since_Last_Period : RTEMS.Unsigned32; Ticks_Executed_Since_Last_Period : RTEMS.Unsigned32;
@@ -1213,14 +1214,14 @@ pragma Elaborate_Body (RTEMS);
procedure Barrier_Wait ( procedure Barrier_Wait (
ID : in RTEMS.ID; ID : in RTEMS.ID;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval; Timeout : in RTEMS.Interval;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
procedure Barrier_Release ( procedure Barrier_Release (
ID : in RTEMS.ID; ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes Released : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes
); );
-- --