RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2007-10-01 Joel Sherrill <joel.sherrill@OARcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Most of single processor Ada tests now build.
	Some run.
This commit is contained in:
Joel Sherrill
2007-10-01 22:57:52 +00:00
parent 1e7b8d32a0
commit f10fe70731
3 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
c/src/ada/ChangeLog
View File

@@ -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> 2007-09-05 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb: Fix warnings. * rtems.adb: Fix warnings.

15
c/src/ada/rtems.adb
View File

@@ -215,6 +215,21 @@ package body RTEMS is
-- RTEMS API -- 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 -- Task Manager
-- --

7
c/src/ada/rtems.ads
View File

@@ -616,6 +616,13 @@ pragma Elaborate_Body (RTEMS);
-- RTEMS API -- RTEMS API
-- --
--
-- Initialization Manager -- Shutdown Only
--
procedure Shutdown_Executive (
Status : in RTEMS.Unsigned32
);
-- --
-- Task Manager -- Task Manager
-- --