summaryrefslogtreecommitdiffstats
path: root/c/src/ada/rtems.ads
diff options
context:
space:
mode:
authorGlenn Humphrey <glenn.humphrey@oarcorp.com>2007-11-27 21:23:13 +0000
committerGlenn Humphrey <glenn.humphrey@oarcorp.com>2007-11-27 21:23:13 +0000
commitbd58b130349ed3b5aadab1a2c1e1d9e2c632efd3 (patch)
tree7ccdb6da1b0b72262c134056ff961b7734c2793a /c/src/ada/rtems.ads
parent2007-11-27 Kate Feng <feng1@bnl.gov> (diff)
downloadrtems-bd58b130349ed3b5aadab1a2c1e1d9e2c632efd3.tar.bz2
2007-11-27 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Fixed errors in the barrier binding.
Diffstat (limited to '')
-rw-r--r--c/src/ada/rtems.ads7
1 files changed, 4 insertions, 3 deletions
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
);
--