Move Ada includes

Update #3254.

1 files changed, 0 insertions, 79 deletions

diff --git a/c/src/ada/rtems-extension.adb b/c/src/ada/rtems-extension.adb
deleted file mode 100644
index a2540c74d4..0000000000
--- a/c/src/ada/rtems-extension.adb
+++ /dev/null
@@ -1,79 +0,0 @@
---
---  RTEMS / Body
---
---  DESCRIPTION:
---
---  This package provides the interface to the RTEMS API.
---
---
---  DEPENDENCIES:
---
---
---
---  COPYRIGHT (c) 1997-2011.
---  On-Line Applications Research Corporation (OAR).
---
---  The license and distribution terms for this file may in
---  the file LICENSE in this distribution or at
---  http://www.rtems.org/license/LICENSE.
---
-
-package body RTEMS.Extension is
-
-   --
-   -- Extension Manager
-   --
-
-   procedure Create
-     (Name   : in RTEMS.Name;
-      Table  : in RTEMS.Extensions_Table_Pointer;
-      ID     : out RTEMS.ID;
-      Result : out RTEMS.Status_Codes)
-   is
-      function Create_Base
-        (Name  : RTEMS.Name;
-         Table : RTEMS.Extensions_Table_Pointer;
-         ID    : access RTEMS.ID)
-         return  RTEMS.Status_Codes;
-      pragma Import (C, Create_Base, "rtems_extension_create");
-      ID_Base : aliased RTEMS.ID;
-   begin
-
-      Result := Create_Base (Name, Table, ID_Base'Access);
-      ID     := ID_Base;
-
-   end Create;
-
-   procedure Ident
-     (Name   : in RTEMS.Name;
-      ID     : out RTEMS.ID;
-      Result : out RTEMS.Status_Codes)
-   is
-      function Ident_Base
-        (Name : RTEMS.Name;
-         ID   : access RTEMS.ID)
-         return RTEMS.Status_Codes;
-      pragma Import (C, Ident_Base, "rtems_extension_ident");
-      ID_Base : aliased RTEMS.ID;
-   begin
-
-      Result := Ident_Base (Name, ID_Base'Access);
-      ID     := ID_Base;
-
-   end Ident;
-
-   procedure Delete
-     (ID     : in RTEMS.ID;
-      Result : out RTEMS.Status_Codes)
-   is
-      function Delete_Base
-        (ID   : RTEMS.ID)
-         return RTEMS.Status_Codes;
-      pragma Import (C, Delete_Base, "rtems_extension_delete");
-   begin
-
-      Result := Delete_Base (ID);
-
-   end Delete;
-
-end RTEMS.Extension;