https://gcc.gnu.org/g:c1d91adb572ca0c5f5e788b070e97c4fe744505a
commit r15-4939-gc1d91adb572ca0c5f5e788b070e97c4fe744505a
Author: H.J. Lu <hjl.to...@gmail.com>
Date: Sun Oct 27 05:51:18 2024 +0800
guality tests: Silence gdb debuginfod warning
When gdb defaults to use debuginfod, gdb warns guality tests:
Spawning: gdb -nx -nw -quiet -batch -x pr36728-2.gdb ./pr36728-2.exe
spawn gdb -nx -nw -quiet -batch -x pr36728-2.gdb ./pr36728-2.exe
Breakpoint 1 at 0x4004ba: file
/export/gnu/import/git/gitlab/x86-gcc/gcc/testsuite/gcc.dg/guality/pr36728-2.c,
line 18.
This GDB supports auto-downloading debuginfo from the following URLs:
<https://debuginfod.fedoraproject.org/>
Enable debuginfod for this session? (y or [n]) [answered N; input not from
terminal]
Debuginfod has been disabled.
To make this setting permanent, add 'set debuginfod enabled off' to
.gdbinit.
After 'set debuginfod enabled off' is added to ~/.gdbinit, gdb warning
doesn't go away since -nx option ignores ~/.gdbinit. Silence gdb warning
by setting DEBUGINFOD_URLS to "" and restore if it exists.
PR testsuite/117300
* g++.dg/guality/guality.exp: Set DEBUGINFOD_URLS to "" and
restore it if it exists.
* gcc.dg/guality/guality.exp: Likewise.
* gfortran.dg/guality/guality.exp: Likewise.
Co-authored-by: Andrew Pinski <quic_apin...@quicinc.com>
Signed-off-by: H.J. Lu <hjl.to...@gmail.com>
Diff:
---
gcc/testsuite/g++.dg/guality/guality.exp | 10 ++++++++++
gcc/testsuite/gcc.dg/guality/guality.exp | 10 ++++++++++
gcc/testsuite/gfortran.dg/guality/guality.exp | 10 ++++++++++
3 files changed, 30 insertions(+)
diff --git a/gcc/testsuite/g++.dg/guality/guality.exp
b/gcc/testsuite/g++.dg/guality/guality.exp
index cd56b06f2f0b..6de5e8091a50 100644
--- a/gcc/testsuite/g++.dg/guality/guality.exp
+++ b/gcc/testsuite/g++.dg/guality/guality.exp
@@ -51,6 +51,12 @@ if ![info exists ::env(GUALITY_GDB_NAME)] {
}
setenv GUALITY_GDB_NAME "$guality_gdb_name"
}
+
+if [info exists ::env(DEBUGINFOD_URLS)] {
+ set orig_debuginfod_urls "$::env(DEBUGINFOD_URLS)"
+ setenv DEBUGINFOD_URLS ""
+}
+
report_gdb $::env(GUALITY_GDB_NAME) [info script]
global DG_TORTURE_OPTIONS LTO_TORTURE_OPTIONS
@@ -91,5 +97,9 @@ if [info exists guality_gdb_name] {
unsetenv GUALITY_GDB_NAME
}
+if [info exists ::env(DEBUGINFOD_URLS)] {
+ setenv DEBUGINFOD_URLS "$orig_debuginfod_urls"
+}
+
torture-finish
dg-finish
diff --git a/gcc/testsuite/gcc.dg/guality/guality.exp
b/gcc/testsuite/gcc.dg/guality/guality.exp
index a8f2921d8881..0dc8f10762d7 100644
--- a/gcc/testsuite/gcc.dg/guality/guality.exp
+++ b/gcc/testsuite/gcc.dg/guality/guality.exp
@@ -51,6 +51,12 @@ if ![info exists ::env(GUALITY_GDB_NAME)] {
}
setenv GUALITY_GDB_NAME "$guality_gdb_name"
}
+
+if [info exists ::env(DEBUGINFOD_URLS)] {
+ set orig_debuginfod_urls "$::env(DEBUGINFOD_URLS)"
+ setenv DEBUGINFOD_URLS ""
+}
+
report_gdb $::env(GUALITY_GDB_NAME) [info script]
proc guality_transform_options { args } {
@@ -106,5 +112,9 @@ if [info exists guality_gdb_name] {
unsetenv GUALITY_GDB_NAME
}
+if [info exists ::env(DEBUGINFOD_URLS)] {
+ setenv DEBUGINFOD_URLS "$orig_debuginfod_urls"
+}
+
torture-finish
dg-finish
diff --git a/gcc/testsuite/gfortran.dg/guality/guality.exp
b/gcc/testsuite/gfortran.dg/guality/guality.exp
index 610449523f06..105e08a70d88 100644
--- a/gcc/testsuite/gfortran.dg/guality/guality.exp
+++ b/gcc/testsuite/gfortran.dg/guality/guality.exp
@@ -32,6 +32,12 @@ if ![info exists ::env(GUALITY_GDB_NAME)] {
}
setenv GUALITY_GDB_NAME "$guality_gdb_name"
}
+
+if [info exists ::env(DEBUGINFOD_URLS)] {
+ set orig_debuginfod_urls "$::env(DEBUGINFOD_URLS)"
+ setenv DEBUGINFOD_URLS ""
+}
+
report_gdb $::env(GUALITY_GDB_NAME) [info script]
global DG_TORTURE_OPTIONS
@@ -45,5 +51,9 @@ if [info exists guality_gdb_name] {
unsetenv GUALITY_GDB_NAME
}
+if [info exists ::env(DEBUGINFOD_URLS)] {
+ setenv DEBUGINFOD_URLS "$orig_debuginfod_urls"
+}
+
torture-finish
dg-finish
