diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-11-25 14:07:29 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-11-25 14:07:29 +0000 |
commit | 091967571c9b9112aee6b6824602d486b68db161 (patch) | |
tree | 136a308f3db232eabdb4793db7d9748d24296a94 /c/src/ada/rtems.ads | |
parent | 2003-11-24 Ralf Corsepius <corsepiu@faw.uni-ulm.de> (diff) | |
download | rtems-091967571c9b9112aee6b6824602d486b68db161.tar.bz2 |
2003-11-25 Joel Sherrill <joel@OARcorp.com>
PR 528/rtems_misc
* rtems.ads: Add task variables to Ada binding.
Diffstat (limited to '')
-rw-r--r-- | c/src/ada/rtems.ads | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 7e0e32d7c2..de86703552 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -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; |