This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[PATCH][PR symtab/17855] Testcase for ada
- From: Doug Evans <xdje42 at gmail dot com>
- To: brobecker at adacore dot com, gdb-patches at sourceware dot org
- Date: Sun, 18 Jan 2015 15:38:26 -0800
- Subject: [PATCH][PR symtab/17855] Testcase for ada
- Authentication-results: sourceware.org; auth=none
Hi.
This patch extends gdb.ada/exec_changed.exp to exercise PR 17855.
2015-01-18 Doug Evans <xdje42@gmail.com>
PR symtab/17855
* gdb.ada/exec_changed.exp: Add second test where symbol lookup cache
is read after symbols have been re-read.
* gdb.ada/exec_changed/first.adb (First): New procedure Break_Me.
* gdb.ada/exec_changed/second.adb (Second): Ditto.
diff --git a/gdb/testsuite/gdb.ada/exec_changed.exp b/gdb/testsuite/gdb.ada/exec_changed.exp
index 5708558..8cac443 100644
--- a/gdb/testsuite/gdb.ada/exec_changed.exp
+++ b/gdb/testsuite/gdb.ada/exec_changed.exp
@@ -81,3 +81,27 @@ if { [gdb_start_cmd] < 0 } {
"second \\(\\) at .*second.adb.*" \
"start second"
}
+
+# Try again, this time with just changing the file time of first.
+
+clean_restart "${binfile}$EXEEXT"
+
+# Put something in the symbol lookup cache that will get looked up when
+# starting after having re-read symbols. PR 17855.
+gdb_breakpoint break_me
+
+gdb_test "shell touch ${binfile}$EXEEXT" ".*" ""
+gdb_test "shell sleep 1" ".*" ""
+
+if { [gdb_start_cmd] < 0 } {
+ # PR 17855: At this point gdb may have crashed or gotten an internal
+ # error, but we still need to detect this. Just issue any simple command
+ # to verify gdb is still running. This will establish in gdb.log whether
+ # gdb is still running.
+ gdb_test_no_output "set \$check_gdb_running = 0" "check gdb running"
+ fail "start just first"
+} else {
+ gdb_test "" \
+ "first \\(\\) at .*first.adb.*" \
+ "start just first"
+}
diff --git a/gdb/testsuite/gdb.ada/exec_changed/first.adb b/gdb/testsuite/gdb.ada/exec_changed/first.adb
index 459a65e..184ef61 100644
--- a/gdb/testsuite/gdb.ada/exec_changed/first.adb
+++ b/gdb/testsuite/gdb.ada/exec_changed/first.adb
@@ -14,6 +14,12 @@
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
procedure First is
+
+ procedure Break_Me is
+ begin
+ null;
+ end Break_Me;
+
begin
- null;
+ Break_Me;
end First;
diff --git a/gdb/testsuite/gdb.ada/exec_changed/second.adb b/gdb/testsuite/gdb.ada/exec_changed/second.adb
index 73fa342..36f9471 100644
--- a/gdb/testsuite/gdb.ada/exec_changed/second.adb
+++ b/gdb/testsuite/gdb.ada/exec_changed/second.adb
@@ -14,6 +14,12 @@
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
procedure Second is
+
+ procedure Break_Me is
+ begin
+ null;
+ end Break_Me;
+
begin
- null;
+ Break_Me;
end Second;