diff options
Diffstat (limited to 'c/src/ada')
-rw-r--r-- | c/src/ada/ChangeLog | 7 | ||||
-rw-r--r-- | c/src/ada/rtems.adb | 32 | ||||
-rw-r--r-- | c/src/ada/rtems.ads | 2 |
3 files changed, 40 insertions, 1 deletions
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 <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 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 ( |