aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite
diff options
context:
space:
mode:
authorDaniel Jacobowitz <drow@false.org>2007-07-31 19:58:40 +0000
committerDaniel Jacobowitz <drow@false.org>2007-07-31 19:58:40 +0000
commite48883f7911b90ba2b9af24705be25a0289db16a (patch)
tree7b2af36ecd822f93000c73daf9532025d72a569d /gdb/testsuite
parent6b3d9b8313db583e6b6ba5d897bced21f01d81db (diff)
downloadgdb-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/ChangeLog5
-rw-r--r--gdb/testsuite/gdb.base/prologue.c39
-rw-r--r--gdb/testsuite/gdb.base/prologue.exp68
-rw-r--r--gdb/testsuite/lib/gdb.exp9
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 $" {}