From cb19f3f8b2333864922ed8b09eec541fa8fda686 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 17 Nov 2005 14:29:23 +0000 Subject: 2005-11-17 Joel Sherrill * 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. --- c/src/ada/rtems.adb | 56 +++++------------------------------------------------ c/src/ada/rtems.ads | 15 +------------- 2 files changed, 6 insertions(+), 65 deletions(-) diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 4c90d46bf1..a1a5b446d4 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -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; diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 15675076b8..a6e65ae1c2 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -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 -- cgit v1.2.3