[binutils-gdb] [gdb/testsuite] Fix have_index for remote host

[Tom de Vries]

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

commit 845d99df89b8eee01de354f49489b2863673122c
Author: Tom de Vries <tdevries@suse.de>
Date:   Mon Mar 27 13:58:09 2023 +0200

    [gdb/testsuite] Fix have_index for remote host
    
    Proc have_index is mostly used with $binfile, which gives problems
    for remote host.
    
    Fix this by using "file tail" on the proc argument.
    
    Tested on x86_64-linux.

Diff:
---
 gdb/testsuite/lib/gdb.exp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 813b755215e..c0762cbb3a8 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -8740,6 +8740,10 @@ proc readnow { } {
 # Otherwise, return "".
 
 proc have_index { objfile } {
+    # This proc is mostly used with $binfile, but that gives problems with
+    # remote host, while using $testfile would work.
+    # Fix this by reducing $binfile to $testfile.
+    set objfile [file tail $objfile]
 
     set res ""
     set cmd "maint print objfiles $objfile"