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.
This commit is contained in:
Pierre Muller 2002-04-09 10:52:41 +00:00
parent 0406ec40ea
commit 6044e3ebce
2 changed files with 9 additions and 4 deletions

View File

@ -1,3 +1,8 @@
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.
2002-04-08 Andrew Cagney <ac131313@redhat.com> 2002-04-08 Andrew Cagney <ac131313@redhat.com>
* findvar.c: Include "builtin-regs.h". * findvar.c: Include "builtin-regs.h".

View File

@ -1300,7 +1300,7 @@ yylex ()
&is_a_field_of_this, &is_a_field_of_this,
(struct symtab **) NULL); (struct symtab **) NULL);
/* second chance uppercased (as Free Pascal does). */ /* second chance uppercased (as Free Pascal does). */
if (!sym) if (!sym && !is_a_field_of_this)
{ {
for (i = 0; i <= namelen; i++) for (i = 0; i <= namelen; i++)
{ {
@ -1311,7 +1311,7 @@ yylex ()
VAR_NAMESPACE, VAR_NAMESPACE,
&is_a_field_of_this, &is_a_field_of_this,
(struct symtab **) NULL); (struct symtab **) NULL);
if (sym) if (sym || is_a_field_of_this)
for (i = 0; i <= namelen; i++) for (i = 0; i <= namelen; i++)
{ {
if ((tokstart[i] >= 'a' && tokstart[i] <= 'z')) if ((tokstart[i] >= 'a' && tokstart[i] <= 'z'))
@ -1319,7 +1319,7 @@ yylex ()
} }
} }
/* Third chance Capitalized (as GPC does). */ /* Third chance Capitalized (as GPC does). */
if (!sym) if (!sym && !is_a_field_of_this)
{ {
for (i = 0; i <= namelen; i++) for (i = 0; i <= namelen; i++)
{ {
@ -1336,7 +1336,7 @@ yylex ()
VAR_NAMESPACE, VAR_NAMESPACE,
&is_a_field_of_this, &is_a_field_of_this,
(struct symtab **) NULL); (struct symtab **) NULL);
if (sym) if (sym || is_a_field_of_this)
for (i = 0; i <= namelen; i++) for (i = 0; i <= namelen; i++)
{ {
if (i == 0) if (i == 0)