From 94a716bf572725eb2c6517833853a77ca3165362 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Fri, 9 Nov 2001 09:46:40 +0000 Subject: [PATCH] 2001-11-06 Pierre Muller * p-exp.y (yylex): Only change case of expression if symbol is found. Also check for GPC standard name form. --- gdb/ChangeLog | 5 +++++ gdb/p-exp.y | 54 +++++++++++++++++++++++++++++++++++++++++---------- 2 files changed, 49 insertions(+), 10 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index b714e7878b..db07d6c84f 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2001-11-06 Pierre Muller + + * 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 * gdb_indent.sh: New file. diff --git a/gdb/p-exp.y b/gdb/p-exp.y index d786af9f6e..d1fcb1b000 100644 --- a/gdb/p-exp.y +++ b/gdb/p-exp.y @@ -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