From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 16585 invoked by alias); 9 Apr 2002 10:48:06 -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 16283 invoked from network); 9 Apr 2002 10:48:02 -0000 Received: from unknown (HELO cerbere.u-strasbg.fr) (130.79.112.7) by sources.redhat.com with SMTP; 9 Apr 2002 10:48:02 -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 MAA05404 for ; Tue, 9 Apr 2002 12:48:01 +0200 Message-Id: <4.2.0.58.20020409124315.01b065a8@ics.u-strasbg.fr> X-Sender: muller@ics.u-strasbg.fr Date: Tue, 09 Apr 2002 03:48:00 -0000 To: gdb-patches@sources.redhat.com From: Pierre Muller Subject: [PATCH] Handle pascal object fields correctly. Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=====================_613533103==_" X-SW-Source: 2002-04/txt/msg00353.txt.bz2 --=====================_613533103==_ Content-Type: text/plain; charset="us-ascii" Content-length: 401 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. --=====================_613533103==_ Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 8bit Content-Disposition: attachment; filename="P-EXP.DIF" Content-length: 1385 Index: p-exp.y===================================================================RCS file: /cvs/src/src/gdb/p-exp.y,vretrieving revision 1.7diff -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 && !i! s_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) --=====================_613533103==_ Content-Type: text/plain; charset="us-ascii" Content-length: 176 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 --=====================_613533103==_--