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:
parent
0406ec40ea
commit
6044e3ebce
@ -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>
|
||||
|
||||
* findvar.c: Include "builtin-regs.h".
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user