diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2016-05-03 07:38:19 +0200 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2016-05-04 07:24:30 +0200 |
commit | 1d40d81b4b8dd50e4162b0b79b60d3312d2744e5 (patch) | |
tree | 9c7dc074ea705a924742d965dcd22afef579cb5b /c/src/ada/rtems-tasks.adb | |
parent | bsp/mvme5500: Use thread local variable (diff) | |
download | rtems-1d40d81b4b8dd50e4162b0b79b60d3312d2744e5.tar.bz2 |
rtems: Remove task variables
Update #2494.
Update #2555.
Diffstat (limited to '')
-rw-r--r-- | c/src/ada/rtems-tasks.adb | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/c/src/ada/rtems-tasks.adb b/c/src/ada/rtems-tasks.adb index b809fcf98e..1fc7fcdd1e 100644 --- a/c/src/ada/rtems-tasks.adb +++ b/c/src/ada/rtems-tasks.adb @@ -203,71 +203,6 @@ package body RTEMS.Tasks is end Mode; - procedure Variable_Add - (ID : in RTEMS.ID; - Task_Variable : in RTEMS.Address; - Dtor : in Variable_Dtor; - Result : out RTEMS.Status_Codes) - is - function Variable_Add_Base - (ID : RTEMS.ID; - Task_Variable : RTEMS.Address; - Dtor : Variable_Dtor) - return RTEMS.Status_Codes; - pragma Import (C, Variable_Add_Base, "rtems_task_variable_add"); - begin - - Result := Variable_Add_Base (ID, Task_Variable, Dtor); - - end Variable_Add; - - procedure Variable_Get - (ID : in RTEMS.ID; - Task_Variable : out RTEMS.Address; - Task_Variable_Value : out RTEMS.Address; - Result : out RTEMS.Status_Codes) - is - function Variable_Get_Base - (ID : RTEMS.ID; - Task_Variable : access RTEMS.Address; - Task_Variable_Value : access RTEMS.Address) - return RTEMS.Status_Codes; - pragma Import (C, Variable_Get_Base, "rtems_task_variable_get"); - Task_Variable_Base : aliased RTEMS.Address; - Task_Variable_Value_Base : aliased RTEMS.Address; - begin - - Result := - Variable_Get_Base - (ID, - Task_Variable_Base'Access, - Task_Variable_Value_Base'Access); - Task_Variable := Task_Variable_Base; - Task_Variable_Value := Task_Variable_Value_Base; - - end Variable_Get; - - procedure Variable_Delete - (ID : in RTEMS.ID; - Task_Variable : out RTEMS.Address; - Result : out RTEMS.Status_Codes) - is - function Variable_Delete_Base - (ID : RTEMS.ID; - Task_Variable : access RTEMS.Address) - return RTEMS.Status_Codes; - pragma Import - (C, - Variable_Delete_Base, - "rtems_task_variable_delete"); - Task_Variable_Base : aliased RTEMS.Address; - begin - - Result := Variable_Delete_Base (ID, Task_Variable_Base'Access); - Task_Variable := Task_Variable_Base; - - end Variable_Delete; - procedure Wake_When (Time_Buffer : in RTEMS.Time_Of_Day; Result : out RTEMS.Status_Codes) |