[PATCH 1/3] ada: Remove <rtems/debug.h> support

Sebastian Huber sebastian.huber at embedded-brains.de
Tue May 23 09:35:17 UTC 2017


Update #2477.
---
 c/src/ada-tests/sptests/sp09/sptest.adb |  9 -----
 c/src/ada/Makefile.am                   |  1 -
 c/src/ada/preinstall.am                 |  8 -----
 c/src/ada/rtems-debug.adb               | 59 ---------------------------------
 c/src/ada/rtems-debug.ads               | 45 -------------------------
 5 files changed, 122 deletions(-)
 delete mode 100644 c/src/ada/rtems-debug.adb
 delete mode 100644 c/src/ada/rtems-debug.ads

diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb
index 47cffe228f..49d696b4de 100644
--- a/c/src/ada-tests/sptests/sp09/sptest.adb
+++ b/c/src/ada-tests/sptests/sp09/sptest.adb
@@ -22,7 +22,6 @@ with INTERFACES; use INTERFACES;
 with TEST_SUPPORT;
 with TEXT_IO;
 with RTEMS.CLOCK;
-with RTEMS.DEBUG;
 with RTEMS.EVENT;
 with RTEMS.MESSAGE_QUEUE;
 with RTEMS.PARTITION;
@@ -2384,11 +2383,6 @@ package body SPTEST is
          "TA1 - region_return_segment - INVALID_ADDRESS"
       );
 
-      -- internal heap errors, subject to change if heap code changes
-
-      TEXT_IO.PUT_LINE( "TA1 - debug_disable - DEBUG_REGION" );
-      RTEMS.DEBUG.DISABLE( RTEMS.DEBUG.REGION );
-
 --    OFFSET := 0;
 --    GOOD_BACK_FLAG := 0;
 --    GOOD_FRONT_FLAG := 0;
@@ -2449,9 +2443,6 @@ package body SPTEST is
 --
 --      SPTEST.REGION_GOOD_AREA( OFFSET - 2 ) := GOOD_BACK_FLAG;
 
-      TEXT_IO.PUT_LINE( "TA1 - debug_enable - DEBUG_REGION" );
-      RTEMS.DEBUG.ENABLE( RTEMS.DEBUG.REGION );
-
       RTEMS.REGION.EXTEND(
          100,
          SPTEST.REGION_GOOD_AREA'ADDRESS,
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;
-- 
2.12.0



More information about the devel mailing list