From 6221625379e8d8c962f314b70db48bc801d18358 Mon Sep 17 00:00:00 2001 From: Ralf Corsepius Date: Mon, 2 May 2005 14:33:06 +0000 Subject: 2005-05-02 Ralf Corsepius PR 782/rtems * rtems.ads: Remove stray ';'. * rtems.adb: Stub Task_Variable_Add, Task_Variable_Get, Task_Variable_Delete. --- c/src/ada/ChangeLog | 7 +++++++ c/src/ada/rtems.adb | 32 ++++++++++++++++++++++++++++++++ c/src/ada/rtems.ads | 2 +- 3 files changed, 40 insertions(+), 1 deletion(-) (limited to 'c/src') diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index dc29776fc1..7db7f3a33a 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,10 @@ +2005-05-02 Ralf Corsepius + + PR 782/rtems + * rtems.ads: Remove stray ';'. + * rtems.adb: Stub Task_Variable_Add, Task_Variable_Get, + Task_Variable_Delete. + 2005-04-30 Ralf Corsepius * Makefile.am: Use preinstall.am diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index e9d7811f85..1a344b7ba1 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -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 diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index de86703552..d95b2571d9 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -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 ( -- cgit v1.2.3