diff options
author | Pedro Alves <pedro@codesourcery.com> | 2009-01-23 15:47:02 +0000 |
---|---|---|
committer | Pedro Alves <pedro@codesourcery.com> | 2009-01-23 15:47:02 +0000 |
commit | 857c05cde38f5b6529d4eb2e2570710b65b71b11 (patch) | |
tree | 1a1922dd51655162a454515a17d18d650cb0da5f /gdb/testsuite | |
parent | a1e78a92edb65f61398f75fa82122fa36a31f3dc (diff) | |
download | gdb-857c05cde38f5b6529d4eb2e2570710b65b71b11.tar.gz |
2009-01-23 Pedro Alves <pedro@codesourcery.com>
PR gdb/9664:
* infrun.c (normal_stop): Tag threads as stopped, and run the
hook-stop before printing the stack frame.
2009-01-23 Pedro Alves <pedro@codesourcery.com>
PR gdb/9664:
* gdb.base/hook-stop-frame.c, gdb.base/hook-stop-frame.exp: New.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/hook-stop-frame.c | 32 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/hook-stop-frame.exp | 55 |
3 files changed, 92 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 5dc3dff44e4..1d1c8bc0cd7 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-01-23 Pedro Alves <pedro@codesourcery.com> + + PR gdb/9664: + * gdb.base/hook-stop-frame.c, gdb.base/hook-stop-frame.exp: New. + 2009-01-22 Pedro Alves <pedro@codesourcery.com> PR c++/9631: diff --git a/gdb/testsuite/gdb.base/hook-stop-frame.c b/gdb/testsuite/gdb.base/hook-stop-frame.c new file mode 100644 index 00000000000..c1d6df23be6 --- /dev/null +++ b/gdb/testsuite/gdb.base/hook-stop-frame.c @@ -0,0 +1,32 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2008 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/>. */ + +void +func (void) +{ + int a; + + a = 1; /* set breakpoint here */ +} + +int +main (int argc, char **argv) +{ + func (); + + return 0; +} diff --git a/gdb/testsuite/gdb.base/hook-stop-frame.exp b/gdb/testsuite/gdb.base/hook-stop-frame.exp new file mode 100644 index 00000000000..c92d7a50925 --- /dev/null +++ b/gdb/testsuite/gdb.base/hook-stop-frame.exp @@ -0,0 +1,55 @@ +# Copyright 2008 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/>. + +set testfile "hook-stop-frame" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} + +if { [prepare_for_testing ${testfile}.exp "${testfile}" "${testfile}.c" {debug nowarnings}] } { + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto_main] then { + perror "Couldn't run to main" +} + +set bp_location [gdb_get_line_number "set breakpoint here"] + +gdb_test "break func" \ + "Breakpoint.*at.* file .*$srcfile.*\\." \ + "breakpoint line number" + +set test "define hook-stop command" +gdb_test_multiple "define hook-stop" "$test" { + -re "Type commands for definition of \"hook-stop\".\r\nEnd with a line saying just \"end\".\r\n>$" { + gdb_test "echo \"Hello.\"\nend" "" "$test" + } +} + +set test "hook-stop runs before frame print" +gdb_test_multiple "continue" "$test" { + -re "\"Hello\\.\"\r\nBreakpo.*func.*set breakpoint here.*${gdb_prompt} $" { + pass $test + } + + -re "Breakpo.*func.*set breakpoint here.*\"Hello\\.\".*${gdb_prompt} $" { + fail $test + } +} |