This commit was manufactured by cvs2svn to create tag
'gdb_7_3-2011-04-01-branchpoint'.
Sprout from gdb_7_3-branch 2011-04-01 16:59:59 UTC nobody 'This commit was manufactured by cvs2svn to create branch 'gdb_7_3-branch'.'
Delete:
gdb/testsuite/gdb.ada/mi_catch_ex.exp
gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb
gdb/testsuite/gdb.arch/thumb-singlestep.S
gdb/testsuite/gdb.arch/thumb-singlestep.expdiff --git a/gdb/testsuite/gdb.ada/mi_catch_ex.exp b/gdb/testsuite/gdb.ada/mi_catch_ex.exp
deleted file mode 100644
index dadc574..0000000
--- a/gdb/testsuite/gdb.ada/mi_catch_ex.exp
+++ /dev/null
@@ -1,137 +0,0 @@
-# Copyright 2011 Free Software Foundation, Inc.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-load_lib "ada.exp"
-
-set testdir "mi_catch_ex"
-set testfile "${testdir}/foo"
-set srcfile ${srcdir}/${subdir}/${testfile}.adb
-set binfile ${objdir}/${subdir}/${testfile}
-
-file mkdir ${objdir}/${subdir}/${testdir}
-if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
-}
-
-# Some global variables used to simplify the maintenance of some of
-# the regular expressions below.
-set any_nb "\[0-9\]+"
-set eol "\[\r\n\]+"
-
-# Before going any further, verify that we can insert exception
-# catchpoints... That way, we won't have to do this while doing
-# the actual GDB/MI testing.
-
-clean_restart ${testfile}
-
-if ![runto_main] then {
- fail "Cannot run to main, testcase aborted"
- return 0
-}
-
-set msg "insert catchpoint on all Ada exceptions"
-gdb_test_multiple "catch exception" $msg {
- -re "Catchpoint $any_nb: all Ada exceptions$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Cannot break on __gnat_raise_nodefer_with_msg in this configuration\.\[\r\n\]+$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
-# Now, we can start the GDB/MI testing itself...
-
-load_lib mi-support.exp
-set MIFLAGS "-i=mi"
-
-gdb_exit
-if [mi_gdb_start] {
- continue
-}
-
-mi_delete_breakpoints
-mi_gdb_reinitialize_dir $srcdir/$subdir
-mi_gdb_load ${binfile}
-
-####################################
-# 1. Try catching all exceptions. #
-####################################
-
-if ![mi_run_to_main] then {
- fail "Cannot run to main, testcase aborted"
- return 0
-}
-
-mi_gdb_test "catch exception"
-
-mi_execute_to "exec-continue" \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"CONSTRAINT_ERROR" \
- "foo" "" ".*" ".*" \
- ".*" \
- "continue to exception catchpoint hit"
-
-mi_execute_to "exec-continue" \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"PROGRAM_ERROR" \
- "foo" "" ".*" ".*" \
- ".*" \
- "continue to exception catchpoint hit"
-
-################################################
-# 2. Try catching only some of the exceptions. #
-################################################
-
-# Here is the scenario:
-# - Restart the debugger from scratch, runto_main
-# - We'll catch only "Program_Error"
-# We'll catch assertions
-# We'll catch unhandled exceptions
-# - continue, we should see the first Program_Error exception
-# - continue, we should see the failed assertion
-# - continue, we should see the unhandled Constrait_Error exception
-# - continue, the program exits.
-
-if ![mi_run_to_main] then {
- fail "Cannot run to main, testcase aborted"
- return 0
-}
-
-mi_gdb_test "catch exception Program_Error"
-
-mi_gdb_test "catch assert"
-
-mi_gdb_test "catch exception unhandled"
-
-mi_execute_to "exec-continue" \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"PROGRAM_ERROR" \
- "foo" "" ".*" ".*" \
- ".*" \
- "continue to exception catchpoint hit"
-
-mi_execute_to "exec-continue" \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb" \
- "foo" "" ".*" ".*" \
- ".*" \
- "continue to exception catchpoint hit"
-
-mi_execute_to "exec-continue" \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"CONSTRAINT_ERROR" \
- "foo" "" ".*" ".*" \
- ".*" \
- "continue to exception catchpoint hit"
-
diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb b/gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb
deleted file mode 100644
index a2eceac..0000000
--- a/gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb
+++ /dev/null
@@ -1,43 +0,0 @@
--- Copyright 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
---
--- This program is free software; you can redistribute it and/or modify
--- it under the terms of the GNU General Public License as published by
--- the Free Software Foundation; either version 3 of the License, or
--- (at your option) any later version.
---
--- This program is distributed in the hope that it will be useful,
--- but WITHOUT ANY WARRANTY; without even the implied warranty of
--- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
--- GNU General Public License for more details.
---
--- You should have received a copy of the GNU General Public License
--- along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-procedure Foo is
-begin
-
- begin
- raise Constraint_Error; -- SPOT1
- exception
- when others =>
- null;
- end;
-
- begin
- raise Program_Error; -- SPOT2
- exception
- when others =>
- null;
- end;
-
- begin
- pragma Assert (False); -- SPOT3
- null;
- exception
- when others =>
- null;
- end;
-
- raise Constraint_Error; -- SPOT4
-
-end Foo;
diff --git a/gdb/testsuite/gdb.arch/thumb-singlestep.S b/gdb/testsuite/gdb.arch/thumb-singlestep.S
deleted file mode 100644
index 63884ca..0000000
--- a/gdb/testsuite/gdb.arch/thumb-singlestep.S
+++ /dev/null
@@ -1,40 +0,0 @@
-/* Test program with deliberately incorrect execution mode transition
-
- Copyright 2011 Free Software Foundation, Inc.
-
- This file is part of GDB.
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
-
- .text
- .align 2
- .global foo
- .thumb
- /* .thumb_func deliberately omitted */
-foo:
- mov r0,#42
- bx lr
-
- .text
- .align 2
- .global main
- .thumb
- .thumb_func
- .type main, %function
-main:
- push {r3, lr}
- blx foo
- pop {r3, pc}
- .size main, .-main
-
diff --git a/gdb/testsuite/gdb.arch/thumb-singlestep.exp b/gdb/testsuite/gdb.arch/thumb-singlestep.exp
deleted file mode 100644
index da47c36..0000000
--- a/gdb/testsuite/gdb.arch/thumb-singlestep.exp
+++ /dev/null
@@ -1,38 +0,0 @@
-# Copyright 2011 Free Software Foundation, Inc.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-# Test single-stepping into incorrectly marked Thumb routine
-
-if {![istarget arm*-*]} then {
- verbose "Skipping ARM tests."
- return
-}
-
-set testfile "thumb-singlestep"
-set srcfile ${testfile}.S
-
-set additional_flags "additional_flags=-mthumb"
-if [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} [list debug $additional_flags]] {
- untested ${testfile}.exp
- return -1
-}
-
-if ![runto_main] then {
- untested ${testfile}.exp
- return -1
-}
-
-gdb_test "si" "foo \\(\\) at .*${srcfile}.*mov r0,#42.*" "step into foo"
-
