From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10032 invoked by alias); 7 Oct 2004 14:28:27 -0000 Mailing-List: contact gdb-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-owner@sources.redhat.com Received: (qmail 10007 invoked from network); 7 Oct 2004 14:28:24 -0000 Received: from unknown (HELO takamaka.act-europe.fr) (142.179.108.108) by sourceware.org with SMTP; 7 Oct 2004 14:28:24 -0000 Received: by takamaka.act-europe.fr (Postfix, from userid 507) id CFD5947D98; Thu, 7 Oct 2004 07:28:23 -0700 (PDT) Date: Thu, 07 Oct 2004 14:48:00 -0000 From: Joel Brobecker To: Duncan Sands Cc: Hilfinger@otisco.mckusick.com, gdb@sources.redhat.com Subject: Re: Meaning of "Builds libada directory" Message-ID: <20041007142823.GF1282@gnat.com> References: <200410061940.i96JeCLF003487@tully.CS.Berkeley.EDU> <200410070832.37376.duncan.sands@math.u-psud.fr> <200410070642.i976gaX24720@otisco.McKusick.COM> <200410070849.24262.duncan.sands@math.u-psud.fr> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="4Ckj6UjgE2iN1+kY" Content-Disposition: inline In-Reply-To: <200410070849.24262.duncan.sands@math.u-psud.fr> User-Agent: Mutt/1.4i X-SW-Source: 2004-10/txt/msg00211.txt.bz2 --4Ckj6UjgE2iN1+kY Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 769 > > Hmm. Haven't seen this, but then I don't use that compiler. I > > shall inquire. Just out of curiosity, if you stop somewhere in Ada > > source, what language do you see? > > minimal: I think I know why. I am a bit in a rush this morning, so I'll let you try the attached patch, see if it makes a difference. The key here is that 3.15p uses stabs, while recent GCC versions use dwarf2, where the language is set from the DW_LANG value, rather than the source extension. 2004-10-07 Joel Brobecker * dwarf2read.c (set_cu_language): Set language to Ada for DW_LANG_Ada83 and DW_LANG_Ada95. It is almost obvious, but I want to test it before I submit this patch and I can't do it this morning. Do give it a try. -- Joel --4Ckj6UjgE2iN1+kY Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="dwarf2read.c.diff" Content-length: 540 Index: dwarf2read.c =================================================================== RCS file: /cvs/src/src/gdb/dwarf2read.c,v retrieving revision 1.163 diff -u -p -r1.163 dwarf2read.c --- dwarf2read.c 21 Sep 2004 15:04:41 -0000 1.163 +++ dwarf2read.c 7 Oct 2004 14:24:29 -0000 @@ -5932,6 +5932,8 @@ set_cu_language (unsigned int lang, stru break; case DW_LANG_Ada83: case DW_LANG_Ada95: + cu->language = language_ada; + break; case DW_LANG_Cobol74: case DW_LANG_Cobol85: case DW_LANG_Pascal83: --4Ckj6UjgE2iN1+kY--