yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2001-11-06 Pierre Muller <muller@ics.u-strasbg.fr>

Browse Source 
* p-exp.y (yylex): Only change case of expression if symbol is found.
	Also check for GPC standard name form.
This commit is contained in:
Pierre Muller 2001-11-09 09:46:40 +00:00
parent f6a9480ec1
commit 94a716bf57
2 changed files with 49 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2001-11-06 Pierre Muller <muller@ics.u-strasbg.fr>
* p-exp.y (yylex): Only change case of expression if symbol is found.
Also check for GPC standard name form.
2001-11-08 Andrew Cagney <ac131313@redhat.com>
* gdb_indent.sh: New file.

54
gdb/p-exp.y
View File

@ -1299,21 +1299,55 @@ yylex ()
VAR_NAMESPACE,
&is_a_field_of_this,
(struct symtab **) NULL);
/* second chance uppercased ! */
/* second chance uppercased (as Free Pascal does). */
if (!sym)
{
for (i = 0;i <= namelen;i++)
for (i = 0; i <= namelen; i++)
{
if ((tmp[i]>='a' && tmp[i]<='z'))
if ((tmp[i] >= 'a' && tmp[i] <= 'z'))
tmp[i] -= ('a'-'A');
/* I am not sure that copy_name gives excatly the same result ! */
if ((tokstart[i]>='a' && tokstart[i]<='z'))
tokstart[i] -= ('a'-'A');
}
sym = lookup_symbol (tmp, expression_context_block,
VAR_NAMESPACE,
&is_a_field_of_this,
(struct symtab **) NULL);
sym = lookup_symbol (tmp, expression_context_block,
VAR_NAMESPACE,
&is_a_field_of_this,
(struct symtab **) NULL);
if (sym)
for (i = 0; i <= namelen; i++)
{
if ((tokstart[i] >= 'a' && tokstart[i] <= 'z'))
tokstart[i] -= ('a'-'A');
}
}
/* Third chance Capitalized (as GPC does). */
if (!sym)
{
for (i = 0; i <= namelen; i++)
{
if (i == 0)
{
if ((tmp[i] >= 'a' && tmp[i] <= 'z'))
tmp[i] -= ('a'-'A');
}
else
if ((tmp[i] >= 'A' && tmp[i] <= 'Z'))
tmp[i] -= ('A'-'a');
}
sym = lookup_symbol (tmp, expression_context_block,
VAR_NAMESPACE,
&is_a_field_of_this,
(struct symtab **) NULL);
if (sym)
for (i = 0; i <= namelen; i++)
{
if (i == 0)
{
if ((tokstart[i] >= 'a' && tokstart[i] <= 'z'))
tokstart[i] -= ('a'-'A');
}
else
if ((tokstart[i] >= 'A' && tokstart[i] <= 'Z'))
tokstart[i] -= ('A'-'a');
}
}
/* Call lookup_symtab, not lookup_partial_symtab, in case there are
no psymtabs (coff, xcoff, or some future change to blow away the