[gdb/testsuite] Fix tdlabel_re references

Commit 467a34bb9e6 ("gdb tests: Allow for "LWP" or "process" in thread IDs
from info threads") introduces a new global variable tdlabel_re, but fails to
indicate it's global when used in procs in four test-cases.

Fix this by adding "global tdlabel_re".

Tested on aarch64-linux.

diff --git a/gdb/testsuite/gdb.multi/multi-target-thread-find.exp b/gdb/testsuite/gdb.multi/multi-target-thread-find.exp
index ee6df54b41154897ac5715e92611bc09097fe2e2..24d19d5041e3c1c565e95b01c5043dc4e33e70b5 100644 (file)
--- a/gdb/testsuite/gdb.multi/multi-target-thread-find.exp
+++ b/gdb/testsuite/gdb.multi/multi-target-thread-find.exp
@@ -23,7 +23,7 @@ if {![multi_target_prepare]} {
 }
 
 proc test_thread_find {} {
-    global decimal gdb_prompt
+    global decimal gdb_prompt tdlabel_re
 
     set NUM_INFS 6
 

diff --git a/gdb/testsuite/gdb.server/stop-reply-no-thread-multi.exp b/gdb/testsuite/gdb.server/stop-reply-no-thread-multi.exp
index bd1acda4d9034b3fe3b3f0a41f90a5e7421bb80d..9d121c5f439e3b2e296d7684cf720c906e9b3f37 100644 (file)
--- a/gdb/testsuite/gdb.server/stop-reply-no-thread-multi.exp
+++ b/gdb/testsuite/gdb.server/stop-reply-no-thread-multi.exp
@@ -42,7 +42,7 @@ set target_binfile [gdb_remote_download target $binfile]
 # Run the tests with different features of GDBserver disabled.
 # TARGET_NON_STOP is passed to "maint set target-non-stop".
 proc run_test { target_non_stop disable_feature } {
-    global binfile gdb_prompt decimal hex
+    global binfile gdb_prompt decimal hex tdlabel_re
     global GDBFLAGS
 
     save_vars { GDBFLAGS } {

diff --git a/gdb/testsuite/gdb.trace/report.exp b/gdb/testsuite/gdb.trace/report.exp
index a6e1650a02e3d701224c5602fcfcf3a40a20fa24..7146599277887e86bae38401d8baee3fb775bb9b 100644 (file)
--- a/gdb/testsuite/gdb.trace/report.exp
+++ b/gdb/testsuite/gdb.trace/report.exp
@@ -173,6 +173,8 @@ gdb_test "help tdump" "Print everything collected at the current.*" \
 # inferior and tfile.
 
 proc use_collected_data { data_source } {
+    global tdlabel_re
+
     with_test_prefix "${data_source}" {
        global tdp1 tdp2 tdp3 tdp4 tdp5 tdp6
        global testline1 testline2 testline3 testline4 testline5 testline6

diff --git a/gdb/testsuite/gdb.trace/strace.exp b/gdb/testsuite/gdb.trace/strace.exp
index 730acda6489d06b7b69ba046e76865f5abcab6e9..99b199ef5f10a2727d2200975cb9f12309049c65 100644 (file)
--- a/gdb/testsuite/gdb.trace/strace.exp
+++ b/gdb/testsuite/gdb.trace/strace.exp
@@ -124,6 +124,7 @@ proc strace_info_marker { } {
        global executable
        global gdb_prompt
        global libipa
+       global tdlabel_re
 
        # Restart with a fresh gdb.
        clean_restart $executable