diff options
author | Ralf Corsepius <ralf.corsepius@rtems.org> | 2005-05-02 14:33:06 +0000 |
---|---|---|
committer | Ralf Corsepius <ralf.corsepius@rtems.org> | 2005-05-02 14:33:06 +0000 |
commit | 6221625379e8d8c962f314b70db48bc801d18358 (patch) | |
tree | 4f4c0cc47ff7245900970eaad560efd1271c96aa /c/src/ada/rtems.adb | |
parent | Remove bogus ChangeLog entry. (diff) | |
download | rtems-6221625379e8d8c962f314b70db48bc801d18358.tar.bz2 |
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.
Diffstat (limited to 'c/src/ada/rtems.adb')
-rw-r--r-- | c/src/ada/rtems.adb | 32 |
1 files changed, 32 insertions, 0 deletions
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 |