diff options
author | Daniel Jacobowitz <drow@false.org> | 2007-07-31 19:58:40 +0000 |
---|---|---|
committer | Daniel Jacobowitz <drow@false.org> | 2007-07-31 19:58:40 +0000 |
commit | e48883f7911b90ba2b9af24705be25a0289db16a (patch) | |
tree | 7b2af36ecd822f93000c73daf9532025d72a569d /gdb/testsuite | |
parent | 6b3d9b8313db583e6b6ba5d897bced21f01d81db (diff) | |
download | gdb-e48883f7911b90ba2b9af24705be25a0289db16a.zip gdb-e48883f7911b90ba2b9af24705be25a0289db16a.tar.gz gdb-e48883f7911b90ba2b9af24705be25a0289db16a.tar.bz2 |
* linespec.c (minsym_found): Advance to the next line if possible.
* gdb.base/prologue.c, gdb.base/prologue.exp: New.
* lib/gdb.exp (gdb_breakpoint): Handle "temporary".
Diffstat (limited to 'gdb/testsuite')
-rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/prologue.c | 39 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/prologue.exp | 68 | ||||
-rw-r--r-- | gdb/testsuite/lib/gdb.exp | 9 |
4 files changed, 119 insertions, 2 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8d4d846..ebbe500 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-31 Daniel Jacobowitz <dan@codesourcery.com> + + * gdb.base/prologue.c, gdb.base/prologue.exp: New. + * lib/gdb.exp (gdb_breakpoint): Handle "temporary". + 2007-07-30 Maciej W. Rozycki <macro@mips.com> * gdb.base/dump.exp: Force the correct endianness for binary diff --git a/gdb/testsuite/gdb.base/prologue.c b/gdb/testsuite/gdb.base/prologue.c new file mode 100644 index 0000000..d8b05e6 --- /dev/null +++ b/gdb/testsuite/gdb.base/prologue.c @@ -0,0 +1,39 @@ +/* This test is part of GDB, the GNU debugger. + + Copyright 2007 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 2 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + */ + +int leaf (void) +{ + return 1; +} + +int marker (int val) +{ + leaf (); + return leaf () * val; +} + +int other (int val) __attribute__((alias("marker"))); + +int main(void) +{ + marker (0); + marker (0); + + return 0; +} diff --git a/gdb/testsuite/gdb.base/prologue.exp b/gdb/testsuite/gdb.base/prologue.exp new file mode 100644 index 0000000..c82934c --- /dev/null +++ b/gdb/testsuite/gdb.base/prologue.exp @@ -0,0 +1,68 @@ +# Test for prologue skipping in minimal symbols with line info. +# Copyright 2007 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +if { [skip_cplus_tests] } { continue } + +set testfile "prologue" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + untested prologue.exp + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto_main] then { + perror "couldn't run to breakpoint" + continue +} + +proc find_breakpoint_pc { sym } { + global decimal hex gdb_prompt + + if { [gdb_breakpoint $sym temporary] } { + pass "setting breakpoint at $sym" + } + + gdb_test "continue" "marker \\(.*\\) at.*" "continue to $sym" + + set pc 0 + set msg "reading \$pc: $sym" + gdb_test_multiple "print/x \$pc" $msg { + -re "\\\$$decimal = ($hex)\r\n$gdb_prompt $" { + set pc $expect_out(1,string) + pass $msg + } + } + + return $pc +} + +# GDB would skip the prologue differently when given a symbol with +# debug info than when given a minimal symbol from the symbol table. +# Make sure this is fixed. + +set pc1 [find_breakpoint_pc "marker"] + +set pc2 [find_breakpoint_pc "other"] + +gdb_test "print $pc1 == $pc2" "\\\$$decimal = 1" "same pc from minimal symbol" diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index c87e488..4e9c64a 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -324,7 +324,7 @@ proc gdb_start_cmd {args} { } # Set a breakpoint at FUNCTION. If there is an additional argument it is -# a list of options; the only currently supported option is allow-pending. +# a list of options; the supported options are allow-pending and temporary. proc gdb_breakpoint { function args } { global gdb_prompt @@ -335,7 +335,12 @@ proc gdb_breakpoint { function args } { set pending_response y } - send_gdb "break $function\n" + set break_command "break" + if {[lsearch -exact [lindex $args 0] temporary] != -1} { + set break_command "tbreak" + } + + send_gdb "$break_command $function\n" # The first two regexps are what we get with -g, the third is without -g. gdb_expect 30 { -re "Breakpoint \[0-9\]* at .*: file .*, line $decimal.\r\n$gdb_prompt $" {} |