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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index e85ab396157d286d7a080615121f28669110d207..eab7956c6161571ff1f8fef49cfd602a6f98f639 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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".

diff --git a/gdb/p-exp.y b/gdb/p-exp.y
index d1fcb1b000f6e35c6a6b56dddf3cbc209f340bfd..b0e4daa4040f507a6c377b32d0a9bb90c5d0d92a 100644 (file)
--- a/gdb/p-exp.y
+++ b/gdb/p-exp.y
@@ -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)