1 files changed, 0 insertions, 65 deletions
diff --git a/c/src/ada/rtems-tasks.adb b/c/src/ada/rtems-tasks.adb
index b809fcf98e..1fc7fcdd1e 100644
--- a/c/src/ada/rtems-tasks.adb
+++ b/c/src/ada/rtems-tasks.adb
@@ -203,71 +203,6 @@ package body RTEMS.Tasks is
 
    end Mode;
 
-   procedure Variable_Add
-     (ID            : in RTEMS.ID;
-      Task_Variable : in RTEMS.Address;
-      Dtor          : in Variable_Dtor;
-      Result        : out RTEMS.Status_Codes)
-   is
-      function Variable_Add_Base
-        (ID            : RTEMS.ID;
-         Task_Variable : RTEMS.Address;
-         Dtor          : Variable_Dtor)
-         return          RTEMS.Status_Codes;
-      pragma Import (C, Variable_Add_Base, "rtems_task_variable_add");
-   begin
-
-      Result := Variable_Add_Base (ID, Task_Variable, Dtor);
-
-   end Variable_Add;
-
-   procedure Variable_Get
-     (ID                  : in RTEMS.ID;
-      Task_Variable       : out RTEMS.Address;
-      Task_Variable_Value : out RTEMS.Address;
-      Result              : out RTEMS.Status_Codes)
-   is
-      function Variable_Get_Base
-        (ID                  : RTEMS.ID;
-         Task_Variable       : access RTEMS.Address;
-         Task_Variable_Value : access RTEMS.Address)
-         return                RTEMS.Status_Codes;
-      pragma Import (C, Variable_Get_Base, "rtems_task_variable_get");
-      Task_Variable_Base       : aliased RTEMS.Address;
-      Task_Variable_Value_Base : aliased RTEMS.Address;
-   begin
-
-      Result              :=
-         Variable_Get_Base
-           (ID,
-            Task_Variable_Base'Access,
-            Task_Variable_Value_Base'Access);
-      Task_Variable       := Task_Variable_Base;
-      Task_Variable_Value := Task_Variable_Value_Base;
-
-   end Variable_Get;
-
-   procedure Variable_Delete
-     (ID            : in RTEMS.ID;
-      Task_Variable : out RTEMS.Address;
-      Result        : out RTEMS.Status_Codes)
-   is
-      function Variable_Delete_Base
-        (ID            : RTEMS.ID;
-         Task_Variable : access RTEMS.Address)
-         return          RTEMS.Status_Codes;
-      pragma Import
-        (C,
-         Variable_Delete_Base,
-         "rtems_task_variable_delete");
-      Task_Variable_Base : aliased RTEMS.Address;
-   begin
-
-      Result        := Variable_Delete_Base (ID, Task_Variable_Base'Access);
-      Task_Variable := Task_Variable_Base;
-
-   end Variable_Delete;
-
    procedure Wake_When
      (Time_Buffer : in RTEMS.Time_Of_Day;
       Result      : out RTEMS.Status_Codes)