diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2005-11-17 14:29:23 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2005-11-17 14:29:23 +0000 |
| commit | cb19f3f8b2333864922ed8b09eec541fa8fda686 (patch) | |
| tree | 6174e99aaef3bfec95e140f7886e5563351946e1 | |
| parent | Remove extraneous make-exe. (diff) | |
| download | rtems-cb19f3f8b2333864922ed8b09eec541fa8fda686.tar.bz2 | |
2005-11-17 Joel Sherrill <joel@OARcorp.com>
* 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.
| -rw-r--r-- | c/src/ada/rtems.adb | 56 | ||||
| -rw-r--r-- | 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 |