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

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8abe50dec939cc1e9a2d89e4d341aa6bf21d9888..f9589806fa9ea5ac91828439d21fc355c78d2d35 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 6fbaa224386cd7b891559a77c1f78dc47ffad739..0ec2500c65966c92633e8798cce138b27f3e3d65 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]