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 /c/src/ada/rtems.adb | |
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.
Diffstat (limited to 'c/src/ada/rtems.adb')
-rw-r--r-- | c/src/ada/rtems.adb | 56 |
1 files changed, 5 insertions, 51 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; |