Incompatibility with tcl 8.4 [Re: [1/2] RFC: add a DWARF assembler]

[Jan Kratochvil <jan dot kratochvil at redhat dot com>]

Hi Tom,

on RHEL-5 with tcl-8.4.13-6.el5.x86_64:

Running gdb/testsuite/gdb.dwarf2/method-ptr.exp ...
ERROR: tcl error sourcing gdb/testsuite/gdb.dwarf2/method-ptr.exp.
ERROR: can't read "_cu_count": no such variable
    (reading value of variable to increment)
    invoked from within
"incr _cu_count"
    (procedure "cu" line 19)
    invoked from within
"cu 0 2 8 {
       compile_unit {{language @DW_LANG_C_plus_plus}} {
           int_label: base_type {
               {name int}
               {encoding @DW_ATE_signed}
               {byte_size 4}
          ..."
    ("eval" body line 5)
    invoked from within
"eval $body"
    (procedure "Dwarf::assemble" line 24)
    invoked from within
"Dwarf::assemble $asm_file {
    declare_labels int_label float_label struct_label
    declare_labels ptr_label subr_label memptr_label
    cu 0 2 8 {..."
    (file "gdb/testsuite/gdb.dwarf2/method-ptr.exp" line 28)
    invoked from within
"source gdb/testsuite/gdb.dwarf2/method-ptr.exp"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 source gdb/testsuite/gdb.dwarf2/method-ptr.exp"
    invoked from within
"catch "uplevel #0 source $test_file_name""


Thanks,
Jan