This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[RFC] pascal: Add lowercase copy of symbol name
- From: "Pierre Muller" <pierre dot muller at ics-cnrs dot unistra dot fr>
- To: <gdb-patches at sourceware dot org>
- Date: Fri, 30 Apr 2010 00:18:31 +0200
- Subject: [RFC] pascal: Add lowercase copy of symbol name
Pascal language is supposed to be
case insensitive, but until now it is
not true inside GDB.
There are several reasons, but some
would like to get better support for this
feature.
Here is a step in that direction:
adding a new pascal_specific field for
general_symbol_info structure,
fill it with a lowercase copy of the symbol name
and use that lowercase copy for searches
if case_sensitivityy is off.
I did not yet really decide
exactly how I am going to use this inside that pascal
expression parser.
One idea would be to first try an exact match,
and if that fails, try again forcing case_sensitivity to off
temporarily.
Comments?
Pierre Muller
Pascal language support maintainer for GDB
2010-04-29 Pierre Muller <muller@ics.u-strasbg.fr>
* symtab.h (general_symbol_info): Add pascal_specific field with
lowercase_name subfield.
* symtab.c (symbol_init_language_specific): Initialize
pascal_specific.lowercase_name to NULL.
(symbol_set_names): Construct lowercase_name string.
(symbol_search_name): Return LOWERCASE_NAME for pascal language
if CASE_SENSITIVITY is off.
Index: src/gdb/symtab.c
===================================================================
RCS file: /cvs/src/src/gdb/symtab.c,v
retrieving revision 1.234
diff -u -p -r1.234 symtab.c
--- src/gdb/symtab.c 29 Apr 2010 14:45:38 -0000 1.234
+++ src/gdb/symtab.c 29 Apr 2010 21:51:42 -0000
@@ -353,6 +353,10 @@ symbol_init_language_specific (struct ge
{
gsymbol->language_specific.cplus_specific.demangled_name = NULL;
}
+ else if (gsymbol->language == language_pascal)
+ {
+ gsymbol->language_specific.pascal_specific.lowercase_name = NULL;
+ }
else
{
memset (&gsymbol->language_specific, 0,
@@ -532,6 +536,28 @@ symbol_set_names (struct general_symbol_
return;
}
+ if (gsymbol->language == language_pascal)
+ {
+ int i;
+ char *lc_name;
+ /* In pascal, we do the symbol lookups using the lowercase name. */
+ if (!copy_name)
+ gsymbol->name = (char *) linkage_name;
+ else
+ {
+ gsymbol->name = obstack_alloc (&objfile->objfile_obstack, len +
1);
+ memcpy (gsymbol->name, linkage_name, len);
+ gsymbol->name[len] = '\0';
+ }
+ lc_name = obstack_alloc (&objfile->objfile_obstack, len + 1);
+ for (i = 0; i < len; i++)
+ lc_name[i] = tolower (linkage_name[i]);
+ lc_name[len] = '\0';
+ gsymbol->language_specific.pascal_specific.lowercase_name = lc_name;
+ return;
+ }
+
+
if (objfile->demangled_names_hash == NULL)
create_demangled_names_hash (objfile);
@@ -691,6 +717,10 @@ symbol_search_name (const struct general
{
if (gsymbol->language == language_ada)
return gsymbol->name;
+ else if (gsymbol->language == language_pascal
+ && case_sensitivity == case_sensitive_off
+ && gsymbol->language_specific.pascal_specific.lowercase_name !=
NULL)
+ return gsymbol->language_specific.pascal_specific.lowercase_name;
else
return symbol_natural_name (gsymbol);
}
Index: src/gdb/symtab.h
===================================================================
RCS file: /cvs/src/src/gdb/symtab.h,v
retrieving revision 1.152
diff -u -p -r1.152 symtab.h
--- src/gdb/symtab.h 22 Apr 2010 23:15:42 -0000 1.152
+++ src/gdb/symtab.h 29 Apr 2010 21:51:45 -0000
@@ -130,6 +130,12 @@ struct general_symbol_info
char *demangled_name;
}
cplus_specific;
+ struct pascal_specific
+ {
+ /* This is used for case insensitive searching. */
+ char *lowercase_name;
+ }
+ pascal_specific;
}
language_specific;