From 6fadd07a48534c07dc123b00855eb5205842f698 Mon Sep 17 00:00:00 2001
From: Doug Evans <dje@google.com>
Date: Mon, 12 May 2008 17:25:28 +0000
Subject: [PATCH] 	* lib/gdbserver-support.exp (find_gdbserver): Use
 $GDBSERVER if set.

---
 gdb/testsuite/ChangeLog                 | 4 ++++
 gdb/testsuite/lib/gdbserver-support.exp | 5 +++++
 2 files changed, 9 insertions(+)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8abe50dec93..f9589806fa9 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-12  Doug Evans  <dje@google.com>
+
+	* lib/gdbserver-support.exp (find_gdbserver): Use $GDBSERVER if set.
+
 2008-05-09  Joel Brobecker  <brobecker@adacore.com>
 
 	* gdb.ada/assign_1.exp: New testcase.
diff --git a/gdb/testsuite/lib/gdbserver-support.exp b/gdb/testsuite/lib/gdbserver-support.exp
index 6fbaa224386..0ec2500c659 100644
--- a/gdb/testsuite/lib/gdbserver-support.exp
+++ b/gdb/testsuite/lib/gdbserver-support.exp
@@ -105,6 +105,11 @@ set portnum "2345"
 
 proc find_gdbserver { } {
   global GDB
+  global GDBSERVER
+
+  if [info exists GDBSERVER] {
+    return ${GDBSERVER}
+  }
 
   if [target_info exists gdb_server_prog] {
     return [target_info gdb_server_prog]
-- 
2.30.2