Re: RFA: handle "MiniDebuginfo" section

["Ulrich Weigand" <uweigand@de.ibm.com>]

Tom Tromey wrote:

> +# Run a pipeline of processes through 'run'.
> +# TEST is the base name of the test, it is modified and passed to 'run'.
> +# Each subsequent argument is a list of the form {PROGRAM [ARG]...}.
> +# It is passed to 'run'.  However, before being passed, if input and output
> +# files are not specified in the list, then this proc provides them.
> +# Each program in the pipeline takes its input from the previous
> +# program's output.
> +proc pipeline {test args} {
> +    global pipeline_counter
> +
> +    set input_file {}
> +    foreach arglist $args {
> +	verbose "raw args are $arglist"
> +	lassign $arglist program arguments input output
> +
> +	if {$input == ""} {
> +	    set input $input_file
> +	}
> +	if {$output == ""} {
> +	    set output [standard_output_file pipe.[pid].$pipeline_counter]
> +	    incr pipeline_counter
> +	}
> +	verbose "cooked args are [list $program $arguments $input $output]"
> +
> +	if {[run "$test - invoke $program" $program $arguments \
> +		 $input $output]} {
> +	    return -1
> +	}
> +
> +	set input_file $output
> +    }
> +    return 0
> +}
> +
> +# Extract the dynamic symbols from the main binary, there is no need
> +# to also have these in the normal symbol table.
> +remote_file host delete ${binfile}.dynsyms
> +if {[pipeline "nm -D" \
> +	 [list [transform nm] "-D ${binfile} --format=posix --defined-only"] \
> +	 [list awk "\\{print\\ \\\$1\\}"] \
> +	 [list sort "" "" "${binfile}.dynsyms"]]} {
> +    return -1
> +}


This causes DejaGnu to abort for me with:

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

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

Bye,
Ulrich

-- 
  Dr. Ulrich Weigand
  GNU Toolchain for Linux on System z and Cell BE
  Ulrich.Weigand@de.ibm.com