From: Tom Tromey <tromey@redhat.com>
Date: Thu, 29 Nov 2012 20:53:24 +0000 (+0000)
Subject: 	* gdb.base/gnu-debugdata.exp (run, pipeline): Don't use lassign.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4983028c3a5e15579946e69ab63db20d1dd78a79;p=binutils-gdb.git

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

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 44d2af80c21..f9294387588 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 f876309ba6f..1429a392af1 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