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

2005-11-17 Joel Sherrill <joel@OARcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Remove initialization directives as
	rtems_initialize_executive is obsolete and the other initialization
	services should not be called from Ada anyway.
This commit is contained in:
Joel Sherrill
2005-11-17 14:29:23 +00:00
parent 1988691add
commit cb19f3f8b2
2 changed files with 6 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -219,64 +219,18 @@ package body RTEMS is
-- Initialization Manager
--
procedure Initialize_Executive (
Configuration_Table : in RTEMS.Configuration_Table_Pointer;
CPU_Table : in RTEMS.CPU_Table_Pointer
) is
procedure Initialize_Executive_Base (
Configuration_Table : in RTEMS.Configuration_Table_Pointer;
CPU_Table : in RTEMS.CPU_Table_Pointer
);
pragma Import (C, Initialize_Executive_Base,
"rtems_initialize_executive");
begin
Initialize_Executive_Base (Configuration_Table, CPU_Table);
end Initialize_Executive;
procedure Initialize_Executive_Early (
Configuration_Table : in RTEMS.Configuration_Table_Pointer;
CPU_Table : in RTEMS.CPU_Table_Pointer;
Level : out RTEMS.ISR_Level
) is
function Initialize_Executive_Early_Base (
Configuration_Table : in RTEMS.Configuration_Table_Pointer;
CPU_Table : in RTEMS.CPU_Table_Pointer
) return RTEMS.ISR_Level;
pragma Import (C, Initialize_Executive_Early_Base,
"rtems_initialize_executive_early");
begin
Level := Initialize_Executive_Early_Base (Configuration_Table, CPU_Table);
end Initialize_Executive_Early;
procedure Initialize_Executive_Late (
BSP_Level : in RTEMS.ISR_Level
) is
procedure Initialize_Executive_Late_Base (
Level : in RTEMS.ISR_Level
);
pragma Import (C, Initialize_Executive_Late_Base,
"rtems_initialize_executive_late");
begin
Initialize_Executive_Late_Base (BSP_Level);
end Initialize_Executive_Late;
-- RTEMS Initialization not supported from Ada. Please write BSPs in C.
procedure Shutdown_Executive (
Result : in RTEMS.Unsigned32
) is
procedure Shutdown_Executive_Base;
procedure Shutdown_Executive_Base(
Result : in RTEMS.Unsigned32
);
pragma Import (C,Shutdown_Executive_Base,"rtems_shutdown_executive");
begin
Shutdown_Executive_Base;
Shutdown_Executive_Base( Result );
end Shutdown_Executive;

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

@@ -802,20 +802,7 @@ pragma Elaborate_Body (RTEMS);
-- Initialization Manager
--
procedure Initialize_Executive (
Configuration_Table : in RTEMS.Configuration_Table_Pointer;
CPU_Table : in RTEMS.CPU_Table_Pointer
);
procedure Initialize_Executive_Early (
Configuration_Table : in RTEMS.Configuration_Table_Pointer;
CPU_Table : in RTEMS.CPU_Table_Pointer;
Level : out RTEMS.ISR_Level
);
procedure Initialize_Executive_Late (
BSP_Level : in RTEMS.ISR_Level
);
-- RTEMS Initialization not supported from Ada. Please write BSPs in C.
procedure Shutdown_Executive (
Result : in RTEMS.Unsigned32