ada: Remove <rtems/debug.h> support

Update #2477.

4 files changed, 0 insertions, 113 deletions

diff --git a/c/src/ada/Makefile.am b/c/src/ada/Makefile.am
index c19ebf843b..3f7c854afd 100644
--- a/c/src/ada/Makefile.am
+++ b/c/src/ada/Makefile.am
@@ -5,7 +5,6 @@ include_ada_HEADERS +=  \
     rtems-barrier.adb rtems-barrier.ads \
     rtems-clock.adb rtems-clock.ads \
     rtems-cpu_usage.ads \
-    rtems-debug.adb rtems-debug.ads \
     rtems-event.adb rtems-event.ads \
     rtems-extension.adb rtems-extension.ads \
     rtems-fatal.adb rtems-fatal.ads \
diff --git a/c/src/ada/preinstall.am b/c/src/ada/preinstall.am
index 405c77a5dd..e41443a862 100644
--- a/c/src/ada/preinstall.am
+++ b/c/src/ada/preinstall.am
@@ -47,14 +47,6 @@ $(PROJECT_INCLUDE)/adainclude/rtems-cpu_usage.ads: rtems-cpu_usage.ads $(PROJECT
 	$(INSTALL_DATA) $< $(PROJECT_INCLUDE)/adainclude/rtems-cpu_usage.ads
 PREINSTALL_FILES += $(PROJECT_INCLUDE)/adainclude/rtems-cpu_usage.ads
 
-$(PROJECT_INCLUDE)/adainclude/rtems-debug.adb: rtems-debug.adb $(PROJECT_INCLUDE)/adainclude/$(dirstamp)
-	$(INSTALL_DATA) $< $(PROJECT_INCLUDE)/adainclude/rtems-debug.adb
-PREINSTALL_FILES += $(PROJECT_INCLUDE)/adainclude/rtems-debug.adb
-
-$(PROJECT_INCLUDE)/adainclude/rtems-debug.ads: rtems-debug.ads $(PROJECT_INCLUDE)/adainclude/$(dirstamp)
-	$(INSTALL_DATA) $< $(PROJECT_INCLUDE)/adainclude/rtems-debug.ads
-PREINSTALL_FILES += $(PROJECT_INCLUDE)/adainclude/rtems-debug.ads
-
 $(PROJECT_INCLUDE)/adainclude/rtems-event.adb: rtems-event.adb $(PROJECT_INCLUDE)/adainclude/$(dirstamp)
 	$(INSTALL_DATA) $< $(PROJECT_INCLUDE)/adainclude/rtems-event.adb
 PREINSTALL_FILES += $(PROJECT_INCLUDE)/adainclude/rtems-event.adb
diff --git a/c/src/ada/rtems-debug.adb b/c/src/ada/rtems-debug.adb
deleted file mode 100644
index d2c524720f..0000000000
--- a/c/src/ada/rtems-debug.adb
+++ /dev/null
@@ -1,59 +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.Debug is
-
-   --
-   -- Debug Manager
-   --
-
-   procedure Enable (To_Be_Enabled : in Set) is
-      procedure Enable_Base (To_Be_Enabled : Set);
-      pragma Import (C, Enable_Base, "rtems_debug_enable");
-   begin
-
-      Enable_Base (To_Be_Enabled);
-
-   end Enable;
-
-   procedure Disable (To_Be_Disabled : in Set) is
-      procedure Disable_Base (To_Be_Disabled : Set);
-      pragma Import (C, Disable_Base, "rtems_debug_disable");
-   begin
-
-      Disable_Base (To_Be_Disabled);
-
-   end Disable;
-
-   function Is_Enabled
-     (Level : in Set)
-      return  RTEMS.Boolean
-   is
-      function Is_Enabled_Base
-        (Level : Set)
-         return  RTEMS.Boolean;
-      pragma Import (C, Is_Enabled_Base, "rtems_debug_is_enabled");
-   begin
-
-      return Is_Enabled_Base (Level);
-
-   end Is_Enabled;
-
-end RTEMS.Debug;
diff --git a/c/src/ada/rtems-debug.ads b/c/src/ada/rtems-debug.ads
deleted file mode 100644
index 2bc9059245..0000000000
--- a/c/src/ada/rtems-debug.ads
+++ /dev/null
@@ -1,45 +0,0 @@
---
---  RTEMS / Specification
---
---  DESCRIPTION:
---
---  This package provides the interface to the RTEMS API.
---
---  DEPENDENCIES:
---
---  NOTES:
---    RTEMS initialization and configuration are called from
---    the BSP side, therefore should never be called from ADA.
---
---  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 RTEMS.Debug is
-
-   subtype Set is RTEMS.Unsigned32;
-
-   --
-   --  Debug Manager
-   --
-
-   All_Mask : constant Set := 16#ffffffff#;
-   Region   : constant Set := 16#00000001#;
-
-   procedure Enable (
-      To_Be_Enabled : in     Set
-   );
-
-   procedure Disable (
-      To_Be_Disabled : in     Set
-   );
-
-   function Is_Enabled (
-      Level : in     Set
-   ) return RTEMS.Boolean;
-
-end RTEMS.Debug;