summaryrefslogtreecommitdiffstats
path: root/c/src/ada/rtems.ads
diff options
context:
space:
mode:
authorGlenn Humphrey <glenn.humphrey@oarcorp.com>2007-11-27 21:22:44 +0000
committerGlenn Humphrey <glenn.humphrey@oarcorp.com>2007-11-27 21:22:44 +0000
commit615563906a729bb01a9c138229af55fd40b5d4b5 (patch)
treeb49e725ac78056b365c2d7b9aef816538dd06bfb /c/src/ada/rtems.ads
parent2007-11-29 Till Straumann <strauman@slac.stanford.edu> (diff)
downloadrtems-615563906a729bb01a9c138229af55fd40b5d4b5.tar.bz2
2007-11-27 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Fixed errors in the barrier binding.
Diffstat (limited to 'c/src/ada/rtems.ads')
-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
);
--