diff options
| author | Tom Tromey <tromey@redhat.com> | 2012-11-29 20:53:24 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2012-11-29 20:53:24 +0000 |
| commit | 4983028c3a5e15579946e69ab63db20d1dd78a79 (patch) | |
| tree | 0862f7d6dd0987b874fff0672d24c12325dbb181 /gdb/testsuite/gdb.base | |
| parent | b1209b035bf46d6a7a7364789866a72ce0a3f5d9 (diff) | |
| download | fsf-binutils-gdb-4983028c3a5e15579946e69ab63db20d1dd78a79.zip fsf-binutils-gdb-4983028c3a5e15579946e69ab63db20d1dd78a79.tar.gz fsf-binutils-gdb-4983028c3a5e15579946e69ab63db20d1dd78a79.tar.bz2 | |
* gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign.
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 |