From 4983028c3a5e15579946e69ab63db20d1dd78a79 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 29 Nov 2012 20:53:24 +0000 Subject: [PATCH] * gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign. --- gdb/testsuite/ChangeLog | 4 ++++ 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 + + * gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign. + 2012-11-29 Ulrich Weigand * 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 -- 2.7.4