(gdb_target_cmd): Add explicit error return.

(gdb_target_monitor): Add check of gdb_target_cmd return value.

diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp
index e9a2218..e48d0d9 100644 (file)
--- a/gdb/testsuite/config/monitor.exp
+++ b/gdb/testsuite/config/monitor.exp
@@ -67,6 +67,7 @@ proc gdb_target_cmd { targetname serialport } {
            }
        }
     }
+    return 1
 }
 
 
@@ -109,7 +110,7 @@ proc gdb_target_monitor { exec_file } {
     for {set j 1} {$j <= 2} {incr j} {
        if [gdb_file_cmd $exec_file] { return -1; }
 
-       gdb_target_cmd $targetname $serialport;
+       if ![gdb_target_cmd $targetname $serialport] { return 0; }
 
        gdb_target_exec;