From 615563906a729bb01a9c138229af55fd40b5d4b5 Mon Sep 17 00:00:00 2001 From: Glenn Humphrey Date: Tue, 27 Nov 2007 21:22:44 +0000 Subject: 2007-11-27 Glenn Humphrey * rtems.adb, rtems.ads: Fixed errors in the barrier binding. --- c/src/ada/rtems.ads | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'c/src/ada/rtems.ads') diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 52ef71456d..4d67f72d15 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -354,6 +354,7 @@ pragma Elaborate_Body (RTEMS); type Rate_Monotonic_Period_Status is record + Owner : RTEMS.ID; State : RTEMS.Rate_Monotonic_Period_States; Ticks_Since_Last_Period : RTEMS.Unsigned32; Ticks_Executed_Since_Last_Period : RTEMS.Unsigned32; @@ -1213,14 +1214,14 @@ pragma Elaborate_Body (RTEMS); procedure Barrier_Wait ( ID : in RTEMS.ID; - Option_Set : in RTEMS.Option; Timeout : in RTEMS.Interval; Result : out RTEMS.Status_Codes ); procedure Barrier_Release ( - ID : in RTEMS.ID; - Result : out RTEMS.Status_Codes + ID : in RTEMS.ID; + Released : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes ); -- -- cgit v1.2.3