[Bug binutils/5322] New: ERROR: tcl error sourcing /home/dave/binutils-2.17.50/src/gas/testsuite/gas/all/ gas.exp

[danglin at gcc dot gnu dot org]

Running /home/dave/binutils-2.17.50/src/gas/testsuite/gas/all/gas.exp ...
ERROR: tcl error sourcing /home/dave/binutils-2.17.50/src/gas/testsuite/gas/all/
gas.exp.
ERROR: wrong # args: should be "regsub ?switches? exp string subSpec varName"
    while executing
"regsub ">&" $redir """
    (procedure "gas_host_run" line 12)
    invoked from within
"gas_host_run "$AS $ASFLAGS $as_opts $srcdir/$subdir/$prog" ">&gas.out""
    (procedure "gas_start" line 12)
    invoked from within
"gas_start "comment.s" "-al""
    (procedure "do_comment" line 7)
    invoked from within
"do_comment"
    (file "/home/dave/binutils-2.17.50/src/gas/testsuite/gas/all/gas.exp" line 1
35)
    invoked from within
"source /home/dave/binutils-2.17.50/src/gas/testsuite/gas/all/gas.exp"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 source /home/dave/binutils-2.17.50/src/gas/testsuite/gas/all/gas.exp
"
    invoked from within
"catch "uplevel #0 source $test_file_name""
send: spawn id exp0 not open
    while executing
"send_user "$message\n""
    ("default" arm line 2)
    invoked from within
"switch -glob "$firstword" {
        "PASS:" -
        "XFAIL:" -
        "KFAIL:" -
        "UNRESOLVED:" -
        "UNSUPPORTED:" -
        "UNTESTED:" {
            if {$all_flag} {
                send_user "$m..."
    (procedure "clone_output" line 10)
    invoked from within
"clone_output "Running $test_file_name ...""
    (procedure "runtest" line 9)
    invoked from within
"runtest $test_name"
    ("foreach" body line 42)
    invoked from within
"foreach test_name [lsort [find ${dir} *.exp]] {
                        if { ${test_name} == "" } {
                            continue
                        }
                        # Ignore this one if asked to.
                        if { ${ignore..."
    ("foreach" body line 54)
    invoked from within
"foreach dir "${test_top_dirs}" {
                if { ${dir} != ${srcdir} } {
                    # Ignore this directory if is a directory to be
                    # ignored.
                    if {[info..."
    ("foreach" body line 121)
    invoked from within
"foreach pass $multipass {

        # multipass_name is set for `record_test' to use (see framework.exp).
        if { [lindex $pass 0] != "" } {
            set multipass_..."
    ("foreach" body line 51)
    invoked from within
"foreach current_target $target_list {
    verbose "target is $current_target"
    set current_target_name $current_target
    set tlist [split $curren..."
    (file "/usr/share/dejagnu/runtest.exp" line 1624)
make[4]: *** [check-DEJAGNU] Error 1

-- 
           Summary: ERROR: tcl error sourcing /home/dave/binutils-
                    2.17.50/src/gas/testsuite/gas/all/
                    gas.exp
           Product: binutils
           Version: 2.19 (HEAD)
            Status: NEW
          Severity: normal
          Priority: P2
         Component: binutils
        AssignedTo: unassigned at sources dot redhat dot com
        ReportedBy: danglin at gcc dot gnu dot org
                CC: bug-binutils at gnu dot org
 GCC build triplet: hppa-unknown-linux-gnu
  GCC host triplet: hppa-unknown-linux-gnu
GCC target triplet: hppa-unknown-linux-gnu


http://sourceware.org/bugzilla/show_bug.cgi?id=5322

------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.