From 091967571c9b9112aee6b6824602d486b68db161 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 25 Nov 2003 14:07:29 +0000 Subject: 2003-11-25 Joel Sherrill PR 528/rtems_misc * rtems.ads: Add task variables to Ada binding. --- c/src/ada/ChangeLog | 5 +++++ c/src/ada/rtems.ads | 24 ++++++++++++++++++++++++ cpukit/ada/ChangeLog | 5 +++++ cpukit/ada/rtems.ads | 24 ++++++++++++++++++++++++ 4 files changed, 58 insertions(+) diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 84c05f305b..35140512e5 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,8 @@ +2003-11-25 Joel Sherrill + + PR 528/rtems_misc + * rtems.ads: Add task variables to Ada binding. + 2003-09-04 Joel Sherrill * rtems-multiprocessing.adb, rtems-multiprocessing.ads, rtems.adb, 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; diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog index 84c05f305b..35140512e5 100644 --- a/cpukit/ada/ChangeLog +++ b/cpukit/ada/ChangeLog @@ -1,3 +1,8 @@ +2003-11-25 Joel Sherrill + + PR 528/rtems_misc + * rtems.ads: Add task variables to Ada binding. + 2003-09-04 Joel Sherrill * rtems-multiprocessing.adb, rtems-multiprocessing.ads, rtems.adb, diff --git a/cpukit/ada/rtems.ads b/cpukit/ada/rtems.ads index 7e0e32d7c2..de86703552 100644 --- a/cpukit/ada/rtems.ads +++ b/cpukit/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; -- cgit v1.2.3