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

[Tom Tromey <tromey@redhat.com>]

>>>>> "Jan" == Jan Kratochvil <jan.kratochvil@redhat.com> writes:

Jan>  if  {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \
Jan> -         "${binfile}" executable {}] != ""} {
Jan> +         "${binfile}" executable {c++}] != ""} {

Here is what I am checking in.

Tom

2013-02-01  Jan Kratochvil  <jan.kratochvil@redhat.com>
	    Tom Tromey  <tromey@redhat.com>

	* gdb.dwarf2/method-ptr.exp: Link with c++.
	* lib/dwarf.exp (Dwarf::assemble): Declare _cu_count.

diff --git a/gdb/testsuite/gdb.dwarf2/method-ptr.exp b/gdb/testsuite/gdb.dwarf2/method-ptr.exp
index fcd1d69..5b930c6 100644
--- a/gdb/testsuite/gdb.dwarf2/method-ptr.exp
+++ b/gdb/testsuite/gdb.dwarf2/method-ptr.exp
@@ -87,7 +87,7 @@ if  {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} {
 }
 
 if  {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \
-	  "${binfile}" executable {}] != ""} {
+	  "${binfile}" executable {c++}] != ""} {
     return -1
 }
 
diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp
index 28e8e26..bb58997 100644
--- a/gdb/testsuite/lib/dwarf.exp
+++ b/gdb/testsuite/lib/dwarf.exp
@@ -732,6 +732,7 @@ namespace eval Dwarf {
 	variable _defer
 	variable _label_num
 	variable _strings
+	variable _cu_count
 
 	if {!$_initialized} {
 	    _read_constants