From: Per Bothner Date: Thu, 7 Jul 1994 03:27:48 +0000 (+0000) Subject: * ch-exp.y (match_simple_name_string): Don't lower-case here. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ad86f717998e7dfe321dd21bdd4d3a8005db9c4e;p=binutils-gdb.git * ch-exp.y (match_simple_name_string): Don't lower-case here. * ch-exp.y (yylex): First try name lookup using exact name typed by user; if that fails, try lower-cased name. --- diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y index 95259787ff2..dc46d796762 100644 --- a/gdb/ch-exp.y +++ b/gdb/ch-exp.y @@ -1053,9 +1053,6 @@ match_simple_name_string () yylval.sval.length = tokptr - lexptr; lexptr = tokptr; result = copy_name (yylval.sval); - for (tokptr = result; *tokptr; tokptr++) - if (isupper (*tokptr)) - *tokptr = tolower(*tokptr); return result; } return (NULL); @@ -1776,7 +1773,7 @@ yylex () { unsigned int i; int token; - char *simplename; + char *inputname; struct symbol *sym; /* Skip over any leading whitespace. */ @@ -1888,10 +1885,16 @@ yylex () the token from lexptr, so we can't back out if we later find that we can't classify what sort of name it is. */ - simplename = match_simple_name_string (); + inputname = match_simple_name_string (); - if (simplename != NULL) + if (inputname != NULL) { + char *simplename = (char*) alloca (strlen (inputname)); + + char *dptr = simplename, *sptr = inputname; + for (; *sptr; sptr++) + *dptr++ = isupper (*sptr) ? tolower(*sptr) : *sptr; + /* See if it is a reserved identifier. */ for (i = 0; i < sizeof (idtokentab) / sizeof (idtokentab[0]); i++) { @@ -1913,9 +1916,15 @@ yylex () return (BOOLEAN_LITERAL); } - sym = lookup_symbol (simplename, expression_context_block, + sym = lookup_symbol (inputname, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); + if (sym == NULL && strcmp (inputname, simplename) != 0) + { + sym = lookup_symbol (simplename, expression_context_block, + VAR_NAMESPACE, (int *) NULL, + (struct symtab **) NULL); + } if (sym != NULL) { yylval.ssym.stoken.ptr = NULL; @@ -1956,7 +1965,7 @@ yylex () case LOC_UNDEF: case LOC_CONST_BYTES: case LOC_OPTIMIZED_OUT: - error ("Symbol \"%s\" names no location.", simplename); + error ("Symbol \"%s\" names no location.", inputname); break; } } @@ -1966,7 +1975,7 @@ yylex () } else { - error ("No symbol \"%s\" in current context.", simplename); + error ("No symbol \"%s\" in current context.", inputname); } } @@ -1978,8 +1987,8 @@ yylex () case '.': /* Not float for example. */ lexptr++; while (isspace (*lexptr)) lexptr++; - simplename = match_simple_name_string (); - if (!simplename) + inputname = match_simple_name_string (); + if (!inputname) return '.'; return FIELD_NAME; }