Re: RFA: handle "MiniDebuginfo" section

[Tom Tromey <tromey at redhat dot com>]

>>>>> "Ulrich" == Ulrich Weigand <uweigand@de.ibm.com> writes:

Ulrich> ERROR: (DejaGnu) proc "lassign {nm {-D
Ulrich> /home/uweigand/fsf/gdb-head-build/gdb/testsuite/gdb.base/gnu-debugdata
Ulrich> --format=posix --defined-only}} program arguments input output" does
Ulrich> not exist.

Ulrich> I'm not really familiar enough with DejaGnu/Tcl to quite understand
Ulrich> what's going on here ...    Any thoughts?

I think lassign was added in Tcl 8.5.
You must be running an older version.

Can you try the appended?

Tom

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