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 | |
| parent | b1209b035bf46d6a7a7364789866a72ce0a3f5d9 (diff) | |
| download | gdb-4983028c3a5e15579946e69ab63db20d1dd78a79.zip gdb-4983028c3a5e15579946e69ab63db20d1dd78a79.tar.gz gdb-4983028c3a5e15579946e69ab63db20d1dd78a79.tar.bz2 | |
* gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/gnu-debugdata.exp | 9 |
2 files changed, 11 insertions, 2 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 44d2af8..f929438 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-11-29 Tom Tromey <tromey@redhat.com> + + * gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign. + 2012-11-29 Ulrich Weigand <uweigand@de.ibm.com> * gdb.opencl/convs_casts.exp: Always expect standard vector type names. 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 |