diff options
| author | H.J. Lu <hjl.tools@gmail.com> | 2024-10-27 05:51:18 +0800 |
|---|---|---|
| committer | H.J. Lu <hjl.tools@gmail.com> | 2024-11-05 06:10:14 +0800 |
| commit | c1d91adb572ca0c5f5e788b070e97c4fe744505a (patch) | |
| tree | 12a45a88355c515f1a037968cf9e0aff28ed5c7f /gcc | |
| parent | 6b315907c0353f71169a7555e653d29a981fef67 (diff) | |
| download | gcc-c1d91adb572ca0c5f5e788b070e97c4fe744505a.zip gcc-c1d91adb572ca0c5f5e788b070e97c4fe744505a.tar.gz gcc-c1d91adb572ca0c5f5e788b070e97c4fe744505a.tar.bz2 | |
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_apinski@quicinc.com>
Signed-off-by: H.J. Lu <hjl.tools@gmail.com>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/g++.dg/guality/guality.exp | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.dg/guality/guality.exp | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/guality/guality.exp | 10 |
3 files changed, 30 insertions, 0 deletions
diff --git a/gcc/testsuite/g++.dg/guality/guality.exp b/gcc/testsuite/g++.dg/guality/guality.exp index cd56b06..6de5e80 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 a8f2921..0dc8f10 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 6104495..105e08a 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 |