From f10fe707317bdb6ad35e1ab0624ed17bda73a8c9 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Mon, 1 Oct 2007 22:57:52 +0000 Subject: 2007-10-01 Joel Sherrill * rtems.adb, rtems.ads: Most of single processor Ada tests now build. Some run. --- c/src/ada/ChangeLog | 5 +++++ c/src/ada/rtems.adb | 15 +++++++++++++++ c/src/ada/rtems.ads | 7 +++++++ 3 files changed, 27 insertions(+) (limited to 'c/src/ada') 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 + + * rtems.adb, rtems.ads: Most of single processor Ada tests now build. + Some run. + 2007-09-05 Joel Sherrill * 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 @@ -215,6 +215,21 @@ package body RTEMS is -- RTEMS API -- + -- + -- 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 @@ -616,6 +616,13 @@ pragma Elaborate_Body (RTEMS); -- RTEMS API -- + -- + -- Initialization Manager -- Shutdown Only + -- + procedure Shutdown_Executive ( + Status : in RTEMS.Unsigned32 + ); + -- -- Task Manager -- -- cgit v1.2.3