summaryrefslogtreecommitdiffstats
path: root/c/src
diff options
context:
space:
mode:
authorRalf Corsepius <ralf.corsepius@rtems.org>2005-05-02 14:33:06 +0000
committerRalf Corsepius <ralf.corsepius@rtems.org>2005-05-02 14:33:06 +0000
commit6221625379e8d8c962f314b70db48bc801d18358 (patch)
tree4f4c0cc47ff7245900970eaad560efd1271c96aa /c/src
parentRemove bogus ChangeLog entry. (diff)
downloadrtems-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')
-rw-r--r--c/src/ada/ChangeLog7
-rw-r--r--c/src/ada/rtems.adb32
-rw-r--r--c/src/ada/rtems.ads2
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 (