diff options
author | nobody <> | 2011-04-01 17:00:02 +0000 |
---|---|---|
committer | nobody <> | 2011-04-01 17:00:02 +0000 |
commit | be84189bbefe3bcf182705cd1ccbed2746d0538f (patch) | |
tree | de91284d640480a2ab7ccf659f030aed5c8711d4 | |
parent | 938b11989b5a4f20faa57deefb35f75093045f44 (diff) |
This commit was manufactured by cvs2svn to create taggdb_7_3-2011-04-01-branchpoint
'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.exp
-rw-r--r-- | gdb/testsuite/gdb.ada/mi_catch_ex.exp | 137 | ||||
-rw-r--r-- | gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb | 43 | ||||
-rw-r--r-- | gdb/testsuite/gdb.arch/thumb-singlestep.S | 40 | ||||
-rw-r--r-- | gdb/testsuite/gdb.arch/thumb-singlestep.exp | 38 |
4 files changed, 0 insertions, 258 deletions
diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex.exp b/gdb/testsuite/gdb.ada/mi_catch_ex.exp deleted file mode 100644 index dadc5746e5b..00000000000 --- 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 a2eceac6188..00000000000 --- 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 63884ca0948..00000000000 --- 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 da47c36ebba..00000000000 --- 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" - |