[binutils-gdb] gdb/testsuite] Fix clean_restart <absolute filename> in gdb.compile

Tom de Vries vries@sourceware.org
Wed Sep 3 17:50:06 GMT 2025


https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=e66c9cb4d1254c7578d97563d058e59f0c10cc48

commit e66c9cb4d1254c7578d97563d058e59f0c10cc48
Author: Tom de Vries <tdevries@suse.de>
Date:   Wed Sep 3 19:49:55 2025 +0200

    gdb/testsuite] Fix clean_restart <absolute filename> in gdb.compile
    
    Fix clean_restart <absolute filename> in the test-cases in gdb.compile.
    
    Tested on x86_64-linux, fedora rawhide.

Diff:
---
 gdb/testsuite/gdb.compile/compile-tls.exp | 2 +-
 gdb/testsuite/gdb.compile/compile.exp     | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/gdb/testsuite/gdb.compile/compile-tls.exp b/gdb/testsuite/gdb.compile/compile-tls.exp
index aaa8e03b13c..e7db1da1031 100644
--- a/gdb/testsuite/gdb.compile/compile-tls.exp
+++ b/gdb/testsuite/gdb.compile/compile-tls.exp
@@ -26,7 +26,7 @@ if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
     return -1
 }
 
-clean_restart ${binfile}
+clean_restart ${::testfile}
 if {![runto_main]} {
    return 0
 }
diff --git a/gdb/testsuite/gdb.compile/compile.exp b/gdb/testsuite/gdb.compile/compile.exp
index ff20b2e7c67..eb87141824d 100644
--- a/gdb/testsuite/gdb.compile/compile.exp
+++ b/gdb/testsuite/gdb.compile/compile.exp
@@ -378,8 +378,9 @@ if { $srcfile3 != "" } {
 
 require allow_shlib_tests
 
-set libbin [standard_output_file ${testfile}-shlib.so]
-set binfile [standard_output_file ${testfile}-shlib]
+set testfile $testfile-shlib
+set libbin [standard_output_file $testfile.so]
+set binfile [standard_output_file $testfile]
 
 if { [gdb_compile_shlib ${srcdir}/${subdir}/${srcfile2} $libbin {debug}] != ""
      || [gdb_compile ${srcdir}/${subdir}/${srcfile} $binfile executable \
@@ -387,7 +388,7 @@ if { [gdb_compile_shlib ${srcdir}/${subdir}/${srcfile2} $libbin {debug}] != ""
     return -1
 }
 
-clean_restart $binfile
+clean_restart $testfile
 gdb_load_shlib $libbin
 
 if ![runto_main] {


More information about the Gdb-cvs mailing list