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 | |
| parent | bsp/mvme5500: Use thread local variable (diff) | |
| download | rtems-1d40d81b4b8dd50e4162b0b79b60d3312d2744e5.tar.bz2 | |
rtems: Remove task variables
Update #2494.
Update #2555.
Diffstat (limited to 'c/src/ada')
| -rw-r--r-- | c/src/ada/rtems-tasks.adb | 65 | ||||
| -rw-r--r-- | c/src/ada/rtems-tasks.ads | 25 |
2 files changed, 0 insertions, 90 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) diff --git a/c/src/ada/rtems-tasks.ads b/c/src/ada/rtems-tasks.ads index c1f200b9a8..2cb31576e5 100644 --- a/c/src/ada/rtems-tasks.ads +++ b/c/src/ada/rtems-tasks.ads @@ -117,31 +117,6 @@ package RTEMS.Tasks is Result : out RTEMS.Status_Codes ); - type Variable_Dtor is access procedure ( - Argument : in RTEMS.Address - ); - pragma Convention (C, Variable_Dtor); - - procedure Variable_Add ( - ID : in RTEMS.ID; - Task_Variable : in RTEMS.Address; - Dtor : in Variable_Dtor; - Result : out RTEMS.Status_Codes - ); - - procedure Variable_Get ( - ID : in RTEMS.ID; - Task_Variable : out RTEMS.Address; - Task_Variable_Value : out RTEMS.Address; - Result : out RTEMS.Status_Codes - ); - - procedure Variable_Delete ( - ID : in RTEMS.ID; - Task_Variable : out RTEMS.Address; - Result : out RTEMS.Status_Codes - ); - procedure Wake_When ( Time_Buffer : in RTEMS.Time_Of_Day; Result : out RTEMS.Status_Codes |