From 1ac77ea1639caba28809b36835f0c97c29a32378 Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Mon, 3 May 2010 20:10:22 +0000 Subject: [PATCH] gdb/ * cp-namespace.c (cp_lookup_symbol_imports): Support ALIAS for the CURRENT->DECLARATION case. * cp-support.h (struct using_direct): Provide extended comment. --- gdb/ChangeLog | 6 ++++++ gdb/cp-namespace.c | 12 ++++++----- gdb/cp-support.h | 51 ++++++++++++++++++++++++++++++++++------------ 3 files changed, 51 insertions(+), 18 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2b8651bbdf..9f3456c74a 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2010-05-03 Jan Kratochvil + + * cp-namespace.c (cp_lookup_symbol_imports): Support ALIAS for the + CURRENT->DECLARATION case. + * cp-support.h (struct using_direct): Provide extended comment. + 2010-05-03 Mark Kettenis * hppaobsd-tdep.c (HPPAOBSD_SIZEOF_GREGS): Renamed from diff --git a/gdb/cp-namespace.c b/gdb/cp-namespace.c index c050d1a2ef..e042463671 100644 --- a/gdb/cp-namespace.c +++ b/gdb/cp-namespace.c @@ -355,12 +355,14 @@ cp_lookup_symbol_imports (const char *scope, searched_cleanup = make_cleanup (reset_directive_searched, current); /* If there is an import of a single declaration, compare the imported - declaration with the sought out name. If there is a match pass - current->import_src as NAMESPACE to direct the search towards the - imported namespace. */ - if (current->declaration && strcmp (name, current->declaration) == 0) + declaration (after optional renaming by its alias) with the sought + out name. If there is a match pass current->import_src as NAMESPACE + to direct the search towards the imported namespace. */ + if (current->declaration + && strcmp (name, current->alias ? current->alias + : current->declaration) == 0) sym = cp_lookup_symbol_in_namespace (current->import_src, - name, + current->declaration, block, domain); diff --git a/gdb/cp-support.h b/gdb/cp-support.h index f2f202f139..dd4df842df 100644 --- a/gdb/cp-support.h +++ b/gdb/cp-support.h @@ -37,19 +37,44 @@ struct type; struct demangle_component; /* This struct is designed to store data from using directives. It - says that names from namespace IMPORT_SRC should be visible within - namespace IMPORT_DEST. These form a linked list; NEXT is the next element - of the list. If the imported namespace has been aliased, ALIAS is set to a - string representing the alias. Otherwise, ALIAS is NULL. - Eg: - namespace C = A::B; - ALIAS = "C" - DECLARATION is the name of the imported declaration, if this import - statement represents one. - Eg: - using A::x; - Where x is variable in namespace A. DECLARATION is set to x. -*/ + says that names from namespace IMPORT_SRC should be visible within namespace + IMPORT_DEST. These form a linked list; NEXT is the next element of the + list. If the imported namespace or declaration has been aliased within the + IMPORT_DEST namespace, ALIAS is set to a string representing the alias. + Otherwise, ALIAS is NULL. DECLARATION is the name of the imported + declaration, if this import statement represents one. Otherwise DECLARATION + is NULL and this import statement represents a namespace. + + C++: using namespace A; + Fortran: use A + import_src = "A" + import_dest = local scope of the import statement even such as "" + alias = NULL + declaration = NULL + + C++: using A::x; + Fortran: use A, only: x + import_src = "A" + import_dest = local scope of the import statement even such as "" + alias = NULL + declaration = "x" + The declaration will get imported as import_dest::x. + + C++: namespace LOCALNS = A; + Fortran has no way to address non-local namespace/module. + import_src = "A" + import_dest = local scope of the import statement even such as "" + alias = "LOCALNS" + declaration = NULL + The namespace will get imported as the import_dest::LOCALNS namespace. + + C++ cannot express it, it would be something like: using localname = A::x; + Fortran: use A, only localname => x + import_src = "A" + import_dest = local scope of the import statement even such as "" + alias = "localname" + declaration = "x" + The declaration will get imported as localname or `import_dest`localname. */ struct using_direct { -- 2.34.1