RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

rtems: Remove task variables

Browse Source 
Update #2494.
Update #2555.
This commit is contained in:
Sebastian Huber
2016-05-03 07:38:19 +02:00
parent 159b637015
commit 1d40d81b4b
19 changed files with 10 additions and 1192 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
c/src/ada/rtems-tasks.adb
View File

@@ -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)

25
c/src/ada/rtems-tasks.ads
View File

@@ -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