From 7e28879b3d49bed826aa764ee56e61f6220cf2c5 Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Mon, 27 Mar 2023 23:11:41 +0200
Subject: [PATCH] [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.
---
 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"
-- 
2.30.2