From 4adf3a4059b291364842678be17d4b62214bbdbd Mon Sep 17 00:00:00 2001
From: Tom Tromey <tromey@adacore.com>
Date: Mon, 17 Apr 2023 11:20:02 -0600
Subject: [PATCH] Stop gdb in gnat_runtime_has_debug_info

gnat_runtime_has_debug_info starts a new gdb to do its work.  However,
it also leaves this gdb running, which can potentially confuse the
calling test -- I encountered this when writing a new DAP test.  This
patch changes the proc to shut down gdb.
---
 gdb/testsuite/lib/ada.exp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp
index b728e3a2aba..b4a93faefa5 100644
--- a/gdb/testsuite/lib/ada.exp
+++ b/gdb/testsuite/lib/ada.exp
@@ -204,5 +204,7 @@ gdb_caching_proc gnat_runtime_has_debug_info {} {
 	}
     }
 
+    gdb_exit
+
     return $has_debug_info
 }
-- 
2.30.2