* gdb.base/breakpoint-shadow.exp, gdb.base/breakpoint-shadow.c: New.

	* gdb.base/start.exp: New comment about an alternative - `runto_main'.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index cc95257c464396774328d1a40735b296e2c8556c..85e6a3bb250729c2225b1febc4365a18a2c4ca3f 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-25  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       * gdb.base/breakpoint-shadow.exp, gdb.base/breakpoint-shadow.c: New.
+       * gdb.base/start.exp: New comment about an alternative - `runto_main'.
+
 2008-11-20  Andreas Schwab  <schwab@suse.de>
 
        * gdb.base/foll-fork.exp (catch_fork_child_follow): Fix patterns

diff --git a/gdb/testsuite/gdb.base/breakpoint-shadow.c b/gdb/testsuite/gdb.base/breakpoint-shadow.c
new file mode 100644 (file)
index 0000000..81ffc76
--- /dev/null
+++ b/gdb/testsuite/gdb.base/breakpoint-shadow.c
@@ -0,0 +1,27 @@
+/* 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/>.  */
+
+int
+main (void)
+{
+  volatile int i;
+  
+  i = 1;       /* break-first */
+  i = 2;       /* break-second */
+
+  return 0;
+}

diff --git a/gdb/testsuite/gdb.base/breakpoint-shadow.exp b/gdb/testsuite/gdb.base/breakpoint-shadow.exp
new file mode 100644 (file)
index 0000000..d19d2d2
--- /dev/null
+++ b/gdb/testsuite/gdb.base/breakpoint-shadow.exp
@@ -0,0 +1,63 @@
+# 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 breakpoint-shadow
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+    untested "Couldn't compile test program"
+    return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+# We need to start the inferior to place the breakpoints in the memory at all.
+if ![runto_main] {
+    untested start
+    return -1
+}
+
+# The default "auto" mode removes all the breakpoints when we stop (and not
+# running the nonstop mode).  We would not be able to test the shadow.
+gdb_test "set breakpoint always-inserted on"
+gdb_test "show breakpoint always-inserted" "Always inserted breakpoint mode is on."
+
+set match "\nDump of assembler code for function main:\r\n(.*)End of assembler dump.\r\n$gdb_prompt $"
+
+set test "disassembly without breakpoints"
+gdb_test_multiple "disass main" $test {
+    -re $match {
+       set orig $expect_out(1,string)
+       pass $test
+    }
+}
+
+gdb_test "b [gdb_get_line_number "break-first"]" "Breakpoint \[0-9\] at .*" "First breakpoint placed"
+gdb_test "b [gdb_get_line_number "break-second"]" "Breakpoint \[0-9\] at .*" "Second breakpoint placed"
+
+set test "disassembly with breakpoints"
+gdb_test_multiple "disass main" $test {
+    -re $match {
+       set got $expect_out(1,string)
+       if [string equal -nocase $orig $got] {
+           pass $test
+       } else {
+           fail $test
+       }
+    }
+}

diff --git a/gdb/testsuite/gdb.base/start.exp b/gdb/testsuite/gdb.base/start.exp
index f4f9cd956be0c33b4516d8eb177b00cb4577d944..a6d5a6007316348b0874fddc076a882d71baeb57 100644 (file)
--- a/gdb/testsuite/gdb.base/start.exp
+++ b/gdb/testsuite/gdb.base/start.exp
@@ -35,6 +35,9 @@ gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 gdb_load ${binfile}
 
+# This is a testcase specifically for the `start' GDB command.  For regular
+# stop-in-main goal in the testcases consider using `runto_main' instead.
+
 # For C programs, "start" should stop in main().
 if { [gdb_start_cmd] < 0 } {
     untested start
@@ -44,4 +47,3 @@ if { [gdb_start_cmd] < 0 } {
 gdb_test "" \
          "main \\(\\) at .*start.c.*" \
          "start"
-