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

2005-05-02 Ralf Corsepius <ralf.corsepius@rtems.org>

Browse Source 
PR 782/rtems
	* rtems.ads: Remove stray ';'.
	* rtems.adb: Stub Task_Variable_Add, Task_Variable_Get,
	Task_Variable_Delete.
This commit is contained in:
Ralf Corsepius
2005-05-02 14:33:06 +00:00
parent 5a35cfcd4c
commit 6221625379
6 changed files with 80 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
c/src/ada/ChangeLog
View File

@@ -1,3 +1,10 @@
2005-05-02 Ralf Corsepius <ralf.corsepius@rtems.org>
PR 782/rtems
* rtems.ads: Remove stray ';'.
* rtems.adb: Stub Task_Variable_Add, Task_Variable_Get,
Task_Variable_Delete.
2005-04-30 Ralf Corsepius <ralf.corsepius@rtems.org>
* Makefile.am: Use preinstall.am

32
c/src/ada/rtems.adb
View File

@@ -499,6 +499,38 @@ package body RTEMS is
end Task_Set_Note;
procedure Task_Variable_Add (
ID : in RTEMS.ID;
Task_Variable : in RTEMS.Address;
Dtor : in RTEMS.Task_Variable_Dtor;
Result : out RTEMS.Status_Codes
) is
begin
-- FIXME
Result := Internal_Error;
end Task_Variable_Add;
procedure Task_Variable_Get (
ID : in RTEMS.ID;
Task_Variable : out RTEMS.Address;
Task_Variable_Value : out RTEMS.Address;
Result : out RTEMS.Status_Codes
) is
begin
-- FIXME
Result := Internal_Error;
end Task_Variable_Get;
procedure Task_Variable_Delete (
ID : in RTEMS.ID;
Task_Variable : out RTEMS.Address;
Result : out RTEMS.Status_Codes
) is
begin
-- FIXME
Result := Internal_Error;
end Task_Variable_Delete;
procedure Task_Wake_When (
Time_Buffer : in RTEMS.Time_Of_Day;
Result : out RTEMS.Status_Codes

2
c/src/ada/rtems.ads
View File

@@ -899,7 +899,7 @@ pragma Elaborate_Body (RTEMS);
);
type Task_Variable_Dtor is access procedure (
Argument : in RTEMS.Address;
Argument : in RTEMS.Address
);
procedure Task_Variable_Add (