From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-98165-listarch-gdb-patches=sources.redhat.com@sourceware.org>
Received: (qmail 3740 invoked by alias); 1 Feb 2013 18:07:52 -0000
Received: (qmail 3727 invoked by uid 22791); 1 Feb 2013 18:07:49 -0000
X-SWARE-Spam-Status: No, hits=-6.5 required=5.0	tests=AWL,BAYES_00,KHOP_RCVD_UNTRUST,KHOP_SPAMHAUS_DROP,RCVD_IN_DNSWL_HI,RCVD_IN_HOSTKARMA_W,RP_MATCHES_RCVD,SPF_HELO_PASS
X-Spam-Check-By: sourceware.org
Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28)    by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 01 Feb 2013 18:07:40 +0000
Received: from int-mx12.intmail.prod.int.phx2.redhat.com (int-mx12.intmail.prod.int.phx2.redhat.com [10.5.11.25])	by mx1.redhat.com (8.14.4/8.14.4) with ESMTP id r11I7dBj005953	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK)	for <gdb-patches@sourceware.org>; Fri, 1 Feb 2013 13:07:39 -0500
Received: from barimba (ovpn01.gateway.prod.ext.phx2.redhat.com [10.5.9.1])	by int-mx12.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id r11I7ca5015549	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES128-SHA bits=128 verify=NO);	Fri, 1 Feb 2013 13:07:38 -0500
From: Tom Tromey <tromey@redhat.com>
To: Jan Kratochvil <jan.kratochvil@redhat.com>
Cc: gdb-patches@sourceware.org
Subject: Re: Incompatibility with tcl 8.4  [Re: [1/2] RFC: add a DWARF assembler]
References: <87vcb739og.fsf@fleche.redhat.com>	<20130201082022.GA22045@host2.jankratochvil.net>	<87boc36i0y.fsf@fleche.redhat.com>	<20130201175534.GA13704@host2.jankratochvil.net>
Date: Fri, 01 Feb 2013 18:07:00 -0000
In-Reply-To: <20130201175534.GA13704@host2.jankratochvil.net> (Jan	Kratochvil's message of "Fri, 1 Feb 2013 18:55:34 +0100")
Message-ID: <87zjzn52mt.fsf@fleche.redhat.com>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2.92 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm
Precedence: bulk
List-Id: <gdb-patches.sourceware.org>
List-Subscribe: <mailto:gdb-patches-subscribe@sourceware.org>
List-Archive: <http://sourceware.org/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sourceware.org>
List-Help: <mailto:gdb-patches-help@sourceware.org>, <http://sourceware.org/ml/#faqs>
Sender: gdb-patches-owner@sourceware.org
X-SW-Source: 2013-02/txt/msg00015.txt.bz2

>>>>> "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