diff options
-rw-r--r-- | gdb/testsuite/lib/gdb.exp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index b4d4e46..e193a20 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1161,7 +1161,9 @@ proc gdb_test_multiple { command message args } { if { $foo < [expr $len - 1] } { set str [string range "$string" 0 $foo] if { [send_gdb "$str"] != "" } { - perror "Couldn't send $command to GDB." + verbose -log "Couldn't send $command to GDB." + unresolved $message + return -1 } # since we're checking if each line of the multi-line # command are 'accepted' by GDB here, @@ -1180,7 +1182,9 @@ proc gdb_test_multiple { command message args } { } if { "$string" != "" } { if { [send_gdb "$string"] != "" } { - perror "Couldn't send $command to GDB." + verbose -log "Couldn't send $command to GDB." + unresolved $message + return -1 } } } |