gdb/testsuite:

	* boards/native-gdbserver.exp: New proc ${board}_exec.
	* boards/native-stdio-gdbserver.exp: Likewise.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ad37b0a21230aa380245f66a6886ceb7a7ae9f2d..d101c23903a1767e5451b9d0bd97ca16f0d703ff 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-22  Yao Qi  <[email protected]>
+
+       * boards/native-gdbserver.exp: New proc ${board}_exec.
+       * boards/native-stdio-gdbserver.exp: Likewise.
+
 2012-06-21  Tom Tromey  <[email protected]>
 
        * lib/gdb.exp (skip_altivec_tests, skip_vsx_tests)

diff --git a/gdb/testsuite/boards/native-gdbserver.exp b/gdb/testsuite/boards/native-gdbserver.exp
index 5fa02a466c391121e8ebccfaced4ba441d869f8a..89702df43ba867b9e582b430be58af2e1faa6aa3 100644 (file)
--- a/gdb/testsuite/boards/native-gdbserver.exp
+++ b/gdb/testsuite/boards/native-gdbserver.exp
@@ -64,6 +64,18 @@ proc ${board}_spawn { board cmd } {
     return $result
 }
 
+proc ${board}_exec { hostname program args } {
+    global board_info
+
+    set baseboard [lindex [split $hostname "/"] 0]
+
+    set board_info($baseboard,isremote) 0
+    set result [remote_exec $hostname $program $args]
+    set board_info($baseboard,isremote) 1
+
+    return $result
+}
+
 proc ${board}_download { board host dest } {
     return $host
 }

diff --git a/gdb/testsuite/boards/native-stdio-gdbserver.exp b/gdb/testsuite/boards/native-stdio-gdbserver.exp
index 703f3700a77115e20b1901eb45d0531b6ac4b4ff..9804289017b1252f0b83b627e019fa1dec542d15 100644 (file)
--- a/gdb/testsuite/boards/native-stdio-gdbserver.exp
+++ b/gdb/testsuite/boards/native-stdio-gdbserver.exp
@@ -126,6 +126,18 @@ proc ${board}_spawn { board cmd } {
     return $result
 }
 
+proc ${board}_exec { hostname program args } {
+    global board_info
+
+    set baseboard [lindex [split $hostname "/"] 0]
+
+    set board_info($baseboard,isremote) 0
+    set result [remote_exec $hostname $program $args]
+    set board_info($baseboard,isremote) 1
+
+    return $result
+}
+
 proc ${board}_download { board host dest } {
     return $host
 }