diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-10-01 22:57:52 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-10-01 22:57:52 +0000 |
commit | f10fe707317bdb6ad35e1ab0624ed17bda73a8c9 (patch) | |
tree | 022de5fc6a8920c6f44f24e9e663ea4993da7183 /c/src/ada | |
parent | Remove (obsolete). (diff) | |
download | rtems-f10fe707317bdb6ad35e1ab0624ed17bda73a8c9.tar.bz2 |
2007-10-01 Joel Sherrill <joel.sherrill@OARcorp.com>
* rtems.adb, rtems.ads: Most of single processor Ada tests now build.
Some run.
Diffstat (limited to 'c/src/ada')
-rw-r--r-- | c/src/ada/ChangeLog | 5 | ||||
-rw-r--r-- | c/src/ada/rtems.adb | 15 | ||||
-rw-r--r-- | c/src/ada/rtems.ads | 7 |
3 files changed, 27 insertions, 0 deletions
diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 7bdd480ca8..61a80b246c 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,8 @@ +2007-10-01 Joel Sherrill <joel.sherrill@OARcorp.com> + + * rtems.adb, rtems.ads: Most of single processor Ada tests now build. + Some run. + 2007-09-05 Joel Sherrill <joel.sherrill@oarcorp.com> * rtems.adb: Fix warnings. diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 7680258ce5..b30390ffec 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -216,6 +216,21 @@ package body RTEMS is -- -- + -- Initialization Manager -- Shutdown Only + -- + procedure Shutdown_Executive ( + Status : in RTEMS.Unsigned32 + ) is + procedure Shutdown_Executive_Base ( + Status : RTEMS.Unsigned32 + ); + pragma Import (C, Shutdown_Executive_Base, "rtems_shutdown_executive"); + begin + Shutdown_Executive_Base (Status); + end Shutdown_Executive; + + + -- -- Task Manager -- diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 9bff212fef..a13ccee0a9 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -617,6 +617,13 @@ pragma Elaborate_Body (RTEMS); -- -- + -- Initialization Manager -- Shutdown Only + -- + procedure Shutdown_Executive ( + Status : in RTEMS.Unsigned32 + ); + + -- -- Task Manager -- |