* lib/gdbserver-support.exp (find_gdbserver): Use $GDBSERVER if set.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8abe50d..f958980 100644 (file)
--- 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 6fbaa22..0ec2500 100644 (file)
--- 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]