diff options
Diffstat (limited to 'gdb/testsuite/gdb.base')
| -rw-r--r-- | gdb/testsuite/gdb.base/gnu-debugdata.exp | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.base/gnu-debugdata.exp b/gdb/testsuite/gdb.base/gnu-debugdata.exp index f876309..1429a39 100644 --- a/gdb/testsuite/gdb.base/gnu-debugdata.exp +++ b/gdb/testsuite/gdb.base/gnu-debugdata.exp @@ -33,7 +33,8 @@ proc run {test program args} { } set result [eval remote_exec host [list $program] $args] verbose "result is $result" - lassign $result status output + set status [lindex $result 0] + set output [lindex $result 1] if {$status == 0} { pass $test return 0 @@ -58,7 +59,11 @@ proc pipeline {test args} { set input_file {} foreach arglist $args { verbose "raw args are $arglist" - lassign $arglist program arguments input output + + set program [lindex $arglist 0] + set arguments [lindex $arglist 1] + set input [lindex $arglist 2] + set output [lindex $arglist 3] if {$input == ""} { set input $input_file |