From: Joel Brobecker <brobecker@gnat.com>
Date: Tue, 8 Jan 2008 18:17:30 +0000 (+0000)
Subject:         * gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=88e2547f139cd37f679460bac0e3ab94feef2533;p=binutils-gdb.git

    * gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd
        landed.  Should also fix random failures in the test following it.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index dd100f68482..e973914f7f9 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-08  Joel Brobecker  <brobecker@adacore.com>
+
+	* gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd
+	landed.  Should also fix random failures in the test following it.
+
 2008-01-07  Thiago Jung Bauermann  <bauerman@br.ibm.com>
 
 	* gdb.base/dfp-exprs.exp (test_dfp_arithmetic_expressions): Add tests
diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp
index 50fbe751379..555ef10840c 100644
--- a/gdb/testsuite/gdb.ada/print_pc.exp
+++ b/gdb/testsuite/gdb.ada/print_pc.exp
@@ -39,6 +39,10 @@ if { [gdb_start_cmd] < 0 } {
     return -1
 }
 
+gdb_test "" \
+         "dummy \\(\\) at .*dummy.adb:.*" \
+         "start inferior"
+
 gdb_test "p /x \$pc" \
          "0x\[0-9a-zA-Z\]+" \
          "p /x \$pc"