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

2003-11-25 Joel Sherrill <joel@OARcorp.com>

Browse Source 
PR 528/rtems_misc
	* rtems.ads: Add task variables to Ada binding.
This commit is contained in:
Joel Sherrill
2003-11-25 14:07:29 +00:00
parent e98285d91b
commit 091967571c
4 changed files with 58 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
c/src/ada/ChangeLog
View File

@@ -1,3 +1,8 @@
2003-11-25 Joel Sherrill <joel@OARcorp.com>
PR 528/rtems_misc
* rtems.ads: Add task variables to Ada binding.
2003-09-04 Joel Sherrill <joel@OARcorp.com>
* rtems-multiprocessing.adb, rtems-multiprocessing.ads, rtems.adb,

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

@@ -897,6 +897,30 @@ pragma Elaborate_Body (RTEMS);
Note : in RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes
);
type Task_Variable_Dtor is access procedure (
Argument : in RTEMS.Address;
);
procedure Task_Variable_Add (
ID : in RTEMS.ID;
Task_Variable : in RTEMS.Address;
Dtor : in RTEMS.Task_Variable_Dtor;
Result : out RTEMS.Status_Codes
);
procedure Task_Variable_Get (
ID : in RTEMS.ID;
Task_Variable : out RTEMS.Address;
Task_Variable_Value : out RTEMS.Address;
Result : out RTEMS.Status_Codes
);
procedure Task_Variable_Delete (
ID : in RTEMS.ID;
Task_Variable : out RTEMS.Address;
Result : out RTEMS.Status_Codes
);
procedure Task_Wake_When (
Time_Buffer : in RTEMS.Time_Of_Day;