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/rtems.adb | |
| 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/rtems.adb')
| -rw-r--r-- | c/src/ada/rtems.adb | 15 |
1 files changed, 15 insertions, 0 deletions
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 -- |