[PATCH] Handle pascal object fields correctly.

[Pierre Muller <muller@cerbere.u-strasbg.fr>]

[-- Attachment #1: Type: text/plain, Size: 401 bytes --]


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  <muller@ics.u-strasbg.fr>

	* p-exp.y (yylex): Handle also the fact that is_a_field_of_this is non zero
	as a found symbol.


[-- Attachment #2: P-EXP.DIF --]
[-- Type: text/plain, Size: 1385 bytes --]

Index: p-exp.y\0===================================================================\0RCS file: /cvs/src/src/gdb/p-exp.y,v\0retrieving revision 1.7\0diff -u -p -r1.7 p-exp.y\0--- p-exp.y	9 Nov 2001 09:46:40 -0000	1.7\0+++ p-exp.y	9 Apr 2002 10:34:55 -0000\0@@ -1300,7 +1300,7 @@ yylex ()\0 			 &is_a_field_of_this,\0 			 (struct symtab **) NULL);\0     /* second chance uppercased (as Free Pascal does).  */\0-    if (!sym)\0+    if (!sym && !is_a_field_of_this)\0       {\0        for (i = 0; i <= namelen; i++)\0          {\0@@ -1311,7 +1311,7 @@ yylex ()\0                         VAR_NAMESPACE,\0                         &is_a_field_of_this,\0                         (struct symtab **) NULL);\0-       if (sym)\0+       if (sym || is_a_field_of_this)\0          for (i = 0; i <= namelen; i++)\0            {\0              if ((tokstart[i] >= 'a' && tokstart[i] <= 'z'))\0@@ -1319,7 +1319,7 @@ yylex ()\0            }\0       }\0     /* Third chance Capitalized (as GPC does).  */\0-    if (!sym)\0+    if (!sym && !i!
s_a_field_of_this)\0       {\0        for (i = 0; i <= namelen; i++)\0          {\0@@ -1336,7 +1336,7 @@ yylex ()\0                          VAR_NAMESPACE,\0                          &is_a_field_of_this,\0                          (struct symtab **) NULL);\0-        if (sym)\0+        if (sym || is_a_field_of_this)\0           for (i = 0; i <= namelen; i++)\0             {\0               if (i == 0)\0

[-- Attachment #3: Type: text/plain, Size: 176 bytes --]



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