From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10846 invoked by alias); 9 Apr 2002 14:19:01 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 10824 invoked from network); 9 Apr 2002 14:18:54 -0000 Received: from unknown (HELO cerbere.u-strasbg.fr) (130.79.112.7) by sources.redhat.com with SMTP; 9 Apr 2002 14:18:54 -0000 Received: from laocoon (laocoon.u-strasbg.fr [130.79.112.72]) by cerbere.u-strasbg.fr (8.9.3/8.8.7) with ESMTP id QAA08603 for ; Tue, 9 Apr 2002 16:18:39 +0200 Message-Id: <4.2.0.58.20020409161350.01b7f780@ics.u-strasbg.fr> X-Sender: muller@ics.u-strasbg.fr Date: Tue, 09 Apr 2002 07:19:00 -0000 To: gdb-patches@sources.redhat.com From: Pierre Muller Subject: Re: [PATCH] Handle pascal object fields correctly. In-Reply-To: <20020409100729.B32579@nevyn.them.org> References: <4.2.0.58.20020409124315.01b065a8@ics.u-strasbg.fr> <4.2.0.58.20020409124315.01b065a8@ics.u-strasbg.fr> Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 8bit X-SW-Source: 2002-04/txt/msg00356.txt.bz2 At 16:07 09/04/2002 , vous avez écrit: >On Tue, Apr 09, 2002 at 12:46:19PM +0200, Pierre Muller wrote: > > > > There was a bug in the code that I added to p-exp.y > > for support of GPC and FPC standard name case conventions > > that made GDB not to print out object or class fields. > > > > The following patch fixes that bug. > > > > Can I also apply this patch to 5.2 branch? > > > > > > 2002-04-09 Pierre Muller > > > > * p-exp.y (yylex): Handle also the fact that is_a_field_of_this is non zero > > as a found symbol. > > > >I don't know what a .DIF file is, but it has nulls instead of newlines. >Please post ASCII patches to this list... Sorry, still a problem with Eudora config that I don't master... There are no nulls, but only spaces instead of newlines, sorry, but when I include my patch into the main mail I also get troubles because Eudora sometimes adds spaces :( But here is the diff Index: p-exp.y =================================================================== RCS file: /cvs/src/src/gdb/p-exp.y,v retrieving revision 1.7 diff -u -p -r1.7 p-exp.y --- p-exp.y 9 Nov 2001 09:46:40 -0000 1.7 +++ p-exp.y 9 Apr 2002 10:34:55 -0000 @@ -1300,7 +1300,7 @@ yylex () &is_a_field_of_this, (struct symtab **) NULL); /* second chance uppercased (as Free Pascal does). */ - if (!sym) + if (!sym && !is_a_field_of_this) { for (i = 0; i <= namelen; i++) { @@ -1311,7 +1311,7 @@ yylex () VAR_NAMESPACE, &is_a_field_of_this, (struct symtab **) NULL); - if (sym) + if (sym || is_a_field_of_this) for (i = 0; i <= namelen; i++) { if ((tokstart[i] >= 'a' && tokstart[i] <= 'z')) @@ -1319,7 +1319,7 @@ yylex () } } /* Third chance Capitalized (as GPC does). */ - if (!sym) + if (!sym && !is_a_field_of_this) { for (i = 0; i <= namelen; i++) { @@ -1336,7 +1336,7 @@ yylex () VAR_NAMESPACE, &is_a_field_of_this, (struct symtab **) NULL); - if (sym) + if (sym || is_a_field_of_this) for (i = 0; i <= namelen; i++) { if (i == 0) Pierre Muller Institut Charles Sadron 6,rue Boussingault F 67083 STRASBOURG CEDEX (France) mailto:muller@ics.u-strasbg.fr Phone : (33)-3-88-41-40-07 Fax : (33)-3-88-41-40-99