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 | |
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.
-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 | ||||
-rw-r--r-- | cpukit/ada/ChangeLog | 7 | ||||
-rw-r--r-- | cpukit/ada/rtems.adb | 32 | ||||
-rw-r--r-- | cpukit/ada/rtems.ads | 2 |
6 files changed, 80 insertions, 2 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 ( diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog index dc29776fc1..7db7f3a33a 100644 --- a/cpukit/ada/ChangeLog +++ b/cpukit/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/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb index e9d7811f85..1a344b7ba1 100644 --- a/cpukit/ada/rtems.adb +++ b/cpukit/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/cpukit/ada/rtems.ads b/cpukit/ada/rtems.ads index de86703552..d95b2571d9 100644 --- a/cpukit/ada/rtems.ads +++ b/cpukit/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 ( |