procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

guality tests: Silence gdb debuginfod warning

Browse source 
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>
This commit is contained in:
H.J. Lu 2024-10-27 05:51:18 +08:00
parent 6b315907c0
commit c1d91adb57
3 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gcc/testsuite/g++.dg/guality/guality.exp
View file

@ -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

10
gcc/testsuite/gcc.dg/guality/guality.exp
View file

@ -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

10
gcc/testsuite/gfortran.dg/guality/guality.exp
View file

@ -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