* gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 44d2af80c2196562ee28ee9b257e2b1f00cc5ecd..f9294387588ebbf11dabd36fd99cdd6f553487d7 100644 (file)
--- 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 f876309ba6f541383cd3ee4f2fe13f80961c9590..1429a392af1b630e10d3492dcb4e58f904383a98 100644 (file)
--- 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