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

[Tom de Vries]

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

commit 7e28879b3d49bed826aa764ee56e61f6220cf2c5
Author: Tom de Vries <tdevries@suse.de>
Date:   Mon Mar 27 23:11:41 2023 +0200

    [gdb/testsuite] Fix gnat_runtime_has_debug_info for remote host
    
    Fix gnat_runtime_has_debug_info for remote host by checking for
    allow_ada_tests.
    
    This fixes an error for test-case gdb.testsuite/gdb-caching-proc.exp and
    remote host.
    
    Tested on x86_64-linux.

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

diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp
index 02a5d1ad271..4395f31ad94 100644
--- a/gdb/testsuite/lib/ada.exp
+++ b/gdb/testsuite/lib/ada.exp
@@ -167,6 +167,10 @@ proc gnatmake_version_at_least { major } {
 # Return 1 if the GNAT runtime appears to have debug info.
 
 gdb_caching_proc gnat_runtime_has_debug_info {} {
+    if { ![allow_ada_tests] } {
+	return 0
+    }
+
     global srcdir
 
     set src "$srcdir/lib/gnat_debug_info_test.adb"