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 _______________________________________________ devel mailing list devel@rtems.org http://lists.rtems.org/mailman/listinfo/devel