1 /* Helper routines for C++ support in GDB.
2 Copyright (C) 2003, 2004, 2007, 2008, 2009, 2010
3 Free Software Foundation, Inc.
5 Contributed by David Carlton and by Kealia, Inc.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "cp-support.h"
24 #include "gdb_obstack.h"
27 #include "gdb_assert.h"
31 #include "dictionary.h"
36 static struct symbol
*lookup_namespace_scope (const char *name
,
37 const struct block
*block
,
38 const domain_enum domain
,
42 static struct symbol
*lookup_symbol_file (const char *name
,
43 const struct block
*block
,
44 const domain_enum domain
,
45 int anonymous_namespace
);
47 static struct type
*cp_lookup_transparent_type_loop (const char *name
,
51 static void initialize_namespace_symtab (struct objfile
*objfile
);
53 static struct block
*get_possible_namespace_block (struct objfile
*objfile
);
55 static void free_namespace_block (struct symtab
*symtab
);
57 static int check_possible_namespace_symbols_loop (const char *name
,
59 struct objfile
*objfile
);
61 static int check_one_possible_namespace_symbol (const char *name
,
63 struct objfile
*objfile
);
65 static struct symbol
*lookup_possible_namespace_symbol (const char *name
);
67 static void maintenance_cplus_namespace (char *args
, int from_tty
);
69 /* Check to see if SYMBOL refers to an object contained within an
70 anonymous namespace; if so, add an appropriate using directive. */
72 /* Optimize away strlen ("(anonymous namespace)"). */
74 #define ANONYMOUS_NAMESPACE_LEN 21
77 cp_scan_for_anonymous_namespaces (const struct symbol
*symbol
)
79 if (SYMBOL_DEMANGLED_NAME (symbol
) != NULL
)
81 const char *name
= SYMBOL_DEMANGLED_NAME (symbol
);
82 unsigned int previous_component
;
83 unsigned int next_component
;
85 /* Start with a quick-and-dirty check for mention of "(anonymous
88 if (!cp_is_anonymous (name
))
91 previous_component
= 0;
92 next_component
= cp_find_first_component (name
+ previous_component
);
94 while (name
[next_component
] == ':')
96 if ((next_component
- previous_component
) == ANONYMOUS_NAMESPACE_LEN
97 && strncmp (name
+ previous_component
,
98 "(anonymous namespace)",
99 ANONYMOUS_NAMESPACE_LEN
) == 0)
101 int dest_len
= (previous_component
== 0 ? 0 : previous_component
- 2);
102 int src_len
= next_component
;
104 char *dest
= alloca (dest_len
+ 1);
105 char *src
= alloca (src_len
+ 1);
107 memcpy (dest
, name
, dest_len
);
108 memcpy (src
, name
, src_len
);
110 dest
[dest_len
] = '\0';
113 /* We've found a component of the name that's an
114 anonymous namespace. So add symbols in it to the
115 namespace given by the previous component if there is
116 one, or to the global namespace if there isn't. */
117 cp_add_using_directive (dest
, src
, NULL
, NULL
,
118 &SYMBOL_SYMTAB (symbol
)->objfile
->objfile_obstack
);
120 /* The "+ 2" is for the "::". */
121 previous_component
= next_component
+ 2;
122 next_component
= (previous_component
123 + cp_find_first_component (name
124 + previous_component
));
130 /* Add a using directive to using_directives. If the using directive in
131 question has already been added, don't add it twice.
132 Create a new struct using_direct which imports the namespace SRC into the
133 scope DEST. ALIAS is the name of the imported namespace in the current
134 scope. If ALIAS is NULL then the namespace is known by its original name.
135 DECLARATION is the name if the imported varable if this is a declaration
136 import (Eg. using A::x), otherwise it is NULL. The arguments are copied
137 into newly allocated memory so they can be temporaries. */
140 cp_add_using_directive (const char *dest
,
143 const char *declaration
,
144 struct obstack
*obstack
)
146 struct using_direct
*current
;
147 struct using_direct
*new;
149 /* Has it already been added? */
151 for (current
= using_directives
; current
!= NULL
; current
= current
->next
)
153 if (strcmp (current
->import_src
, src
) == 0
154 && strcmp (current
->import_dest
, dest
) == 0
155 && ((alias
== NULL
&& current
->alias
== NULL
)
156 || (alias
!= NULL
&& current
->alias
!= NULL
157 && strcmp (alias
, current
->alias
) == 0))
158 && ((declaration
== NULL
&& current
->declaration
== NULL
)
159 || (declaration
!= NULL
&& current
->declaration
!= NULL
160 && strcmp (declaration
, current
->declaration
) == 0)))
164 new = OBSTACK_ZALLOC (obstack
, struct using_direct
);
166 new->import_src
= obsavestring (src
, strlen (src
), obstack
);
167 new->import_dest
= obsavestring (dest
, strlen (dest
), obstack
);
170 new->alias
= obsavestring (alias
, strlen (alias
), obstack
);
172 if (declaration
!= NULL
)
173 new->declaration
= obsavestring (declaration
, strlen (declaration
),
176 new->next
= using_directives
;
177 using_directives
= new;
180 /* Record the namespace that the function defined by SYMBOL was
181 defined in, if necessary. BLOCK is the associated block; use
182 OBSTACK for allocation. */
185 cp_set_block_scope (const struct symbol
*symbol
,
187 struct obstack
*obstack
,
188 const char *processing_current_prefix
,
189 int processing_has_namespace_info
)
191 if (processing_has_namespace_info
)
194 (block
, obsavestring (processing_current_prefix
,
195 strlen (processing_current_prefix
),
199 else if (SYMBOL_DEMANGLED_NAME (symbol
) != NULL
)
201 /* Try to figure out the appropriate namespace from the
204 /* FIXME: carlton/2003-04-15: If the function in question is
205 a method of a class, the name will actually include the
206 name of the class as well. This should be harmless, but
207 is a little unfortunate. */
209 const char *name
= SYMBOL_DEMANGLED_NAME (symbol
);
210 unsigned int prefix_len
= cp_entire_prefix_len (name
);
212 block_set_scope (block
,
213 obsavestring (name
, prefix_len
, obstack
),
218 /* Test whether or not NAMESPACE looks like it mentions an anonymous
219 namespace; return nonzero if so. */
222 cp_is_anonymous (const char *namespace)
224 return (strstr (namespace, "(anonymous namespace)")
228 /* The C++-specific version of name lookup for static and global
229 names. This makes sure that names get looked for in all namespaces
230 that are in scope. NAME is the natural name of the symbol that
231 we're looking for, BLOCK is the block that we're searching within,
232 DOMAIN says what kind of symbols we're looking for, and if SYMTAB is
233 non-NULL, we should store the symtab where we found the symbol in it. */
236 cp_lookup_symbol_nonlocal (const char *name
,
237 const struct block
*block
,
238 const domain_enum domain
)
241 const char *scope
= block_scope (block
);
243 sym
= lookup_namespace_scope (name
, block
, domain
, scope
, 0);
247 return cp_lookup_symbol_namespace (scope
, name
, block
, domain
);
250 /* Look up NAME in the C++ namespace NAMESPACE. Other arguments are as in
251 cp_lookup_symbol_nonlocal. */
253 static struct symbol
*
254 cp_lookup_symbol_in_namespace (const char *namespace,
256 const struct block
*block
,
257 const domain_enum domain
)
259 if (namespace[0] == '\0')
261 return lookup_symbol_file (name
, block
, domain
, 0);
265 char *concatenated_name
= alloca (strlen (namespace) + 2 +
268 strcpy (concatenated_name
, namespace);
269 strcat (concatenated_name
, "::");
270 strcat (concatenated_name
, name
);
271 return lookup_symbol_file (concatenated_name
, block
,
272 domain
, cp_is_anonymous (namespace));
276 /* Used for cleanups to reset the "searched" flag incase
280 reset_directive_searched (void *data
)
282 struct using_direct
*direct
= data
;
283 direct
->searched
= 0;
286 /* Search for NAME by applying all import statements belonging
287 to BLOCK which are applicable in SCOPE. If DECLARATION_ONLY the search
288 is restricted to using declarations.
296 If SEARCH_PARENTS the search will include imports which are applicable in
307 If SCOPE is "A::B" and SEARCH_PARENTS is true the imports of namespaces X
308 and Y will be considered. If SEARCH_PARENTS is false only the import of Y
312 cp_lookup_symbol_imports (const char *scope
,
314 const struct block
*block
,
315 const domain_enum domain
,
316 const int declaration_only
,
317 const int search_parents
)
319 struct using_direct
*current
;
320 struct symbol
*sym
= NULL
;
323 struct cleanup
*searched_cleanup
;
325 /* First, try to find the symbol in the given namespace. */
326 if (!declaration_only
)
327 sym
= cp_lookup_symbol_in_namespace (scope
, name
, block
, domain
);
332 /* Go through the using directives. If any of them add new
333 names to the namespace we're searching in, see if we can find a
334 match by applying them. */
336 for (current
= block_using (block
);
338 current
= current
->next
)
340 len
= strlen (current
->import_dest
);
341 directive_match
= (search_parents
342 ? (strncmp (scope
, current
->import_dest
,
343 strlen (current
->import_dest
)) == 0
345 || scope
[len
] == ':' || scope
[len
] == '\0'))
346 : strcmp (scope
, current
->import_dest
) == 0);
348 /* If the import destination is the current scope or one of its ancestors then
350 if (directive_match
&& !current
->searched
)
352 /* Mark this import as searched so that the recursive call does not
354 current
->searched
= 1;
355 searched_cleanup
= make_cleanup (reset_directive_searched
, current
);
357 /* If there is an import of a single declaration, compare the imported
358 declaration (after optional renaming by its alias) with the sought
359 out name. If there is a match pass current->import_src as NAMESPACE
360 to direct the search towards the imported namespace. */
361 if (current
->declaration
362 && strcmp (name
, current
->alias
? current
->alias
363 : current
->declaration
) == 0)
364 sym
= cp_lookup_symbol_in_namespace (current
->import_src
,
365 current
->declaration
,
369 /* If this is a DECLARATION_ONLY search or a symbol was found or
370 this import statement was an import declaration, the search
371 of this import is complete. */
372 if (declaration_only
|| sym
!= NULL
|| current
->declaration
)
374 current
->searched
= 0;
375 discard_cleanups (searched_cleanup
);
383 if (current
->alias
!= NULL
&& strcmp (name
, current
->alias
) == 0)
384 /* If the import is creating an alias and the alias matches the
385 sought name. Pass current->import_src as the NAME to direct the
386 search towards the aliased namespace. */
388 sym
= cp_lookup_symbol_in_namespace (scope
,
393 else if (current
->alias
== NULL
)
395 /* If this import statement creates no alias, pass current->inner as
396 NAMESPACE to direct the search towards the imported namespace. */
397 sym
= cp_lookup_symbol_imports (current
->import_src
,
404 current
->searched
= 0;
405 discard_cleanups (searched_cleanup
);
415 /* Searches for NAME in the current namespace, and by applying relevant import
416 statements belonging to BLOCK and its parents. SCOPE is the namespace scope
417 of the context in which the search is being evaluated. */
420 cp_lookup_symbol_namespace (const char *scope
,
422 const struct block
*block
,
423 const domain_enum domain
)
427 /* First, try to find the symbol in the given namespace. */
428 sym
= cp_lookup_symbol_in_namespace (scope
, name
, block
, domain
);
432 /* Search for name in namespaces imported to this and parent blocks. */
433 while (block
!= NULL
)
435 sym
= cp_lookup_symbol_imports (scope
, name
, block
, domain
, 0, 1);
440 block
= BLOCK_SUPERBLOCK (block
);
446 /* Lookup NAME at namespace scope (or, in C terms, in static and
447 global variables). SCOPE is the namespace that the current
448 function is defined within; only consider namespaces whose length
449 is at least SCOPE_LEN. Other arguments are as in
450 cp_lookup_symbol_nonlocal.
452 For example, if we're within a function A::B::f and looking for a
453 symbol x, this will get called with NAME = "x", SCOPE = "A::B", and
454 SCOPE_LEN = 0. It then calls itself with NAME and SCOPE the same,
455 but with SCOPE_LEN = 1. And then it calls itself with NAME and
456 SCOPE the same, but with SCOPE_LEN = 4. This third call looks for
457 "A::B::x"; if it doesn't find it, then the second call looks for
458 "A::x", and if that call fails, then the first call looks for
461 static struct symbol
*
462 lookup_namespace_scope (const char *name
,
463 const struct block
*block
,
464 const domain_enum domain
,
470 if (scope
[scope_len
] != '\0')
472 /* Recursively search for names in child namespaces first. */
475 int new_scope_len
= scope_len
;
477 /* If the current scope is followed by "::", skip past that. */
478 if (new_scope_len
!= 0)
480 gdb_assert (scope
[new_scope_len
] == ':');
483 new_scope_len
+= cp_find_first_component (scope
+ new_scope_len
);
484 sym
= lookup_namespace_scope (name
, block
, domain
, scope
, new_scope_len
);
489 /* Okay, we didn't find a match in our children, so look for the
490 name in the current namespace. */
492 namespace = alloca (scope_len
+ 1);
493 strncpy (namespace, scope
, scope_len
);
494 namespace[scope_len
] = '\0';
495 return cp_lookup_symbol_in_namespace (namespace, name
, block
, domain
);
498 /* Look up NAME in BLOCK's static block and in global blocks. If
499 ANONYMOUS_NAMESPACE is nonzero, the symbol in question is located
500 within an anonymous namespace. Other arguments are as in
501 cp_lookup_symbol_nonlocal. */
503 static struct symbol
*
504 lookup_symbol_file (const char *name
,
505 const struct block
*block
,
506 const domain_enum domain
,
507 int anonymous_namespace
)
509 struct symbol
*sym
= NULL
;
511 sym
= lookup_symbol_static (name
, block
, domain
);
515 if (anonymous_namespace
)
517 /* Symbols defined in anonymous namespaces have external linkage
518 but should be treated as local to a single file nonetheless.
519 So we only search the current file's global block. */
521 const struct block
*global_block
= block_global_block (block
);
523 if (global_block
!= NULL
)
524 sym
= lookup_symbol_aux_block (name
, global_block
, domain
);
528 sym
= lookup_symbol_global (name
, block
, domain
);
534 /* Now call "lookup_possible_namespace_symbol". Symbols in here
535 claim to be associated to namespaces, but this claim might be
536 incorrect: the names in question might actually correspond to
537 classes instead of namespaces. But if they correspond to
538 classes, then we should have found a match for them above. So if
539 we find them now, they should be genuine. */
541 /* FIXME: carlton/2003-06-12: This is a hack and should eventually
542 be deleted: see comments below. */
544 if (domain
== VAR_DOMAIN
)
546 sym
= lookup_possible_namespace_symbol (name
);
554 /* Look up a type named NESTED_NAME that is nested inside the C++
555 class or namespace given by PARENT_TYPE, from within the context
556 given by BLOCK. Return NULL if there is no such nested type. */
559 cp_lookup_nested_type (struct type
*parent_type
,
560 const char *nested_name
,
561 const struct block
*block
)
563 switch (TYPE_CODE (parent_type
))
565 case TYPE_CODE_STRUCT
:
566 case TYPE_CODE_NAMESPACE
:
567 case TYPE_CODE_UNION
:
569 /* NOTE: carlton/2003-11-10: We don't treat C++ class members
570 of classes like, say, data or function members. Instead,
571 they're just represented by symbols whose names are
572 qualified by the name of the surrounding class. This is
573 just like members of namespaces; in particular,
574 lookup_symbol_namespace works when looking them up. */
576 const char *parent_name
= TYPE_TAG_NAME (parent_type
);
577 struct symbol
*sym
= cp_lookup_symbol_in_namespace (parent_name
,
581 char *concatenated_name
;
583 if (sym
!= NULL
&& SYMBOL_CLASS (sym
) == LOC_TYPEDEF
)
584 return SYMBOL_TYPE (sym
);
586 /* Now search all static file-level symbols. Not strictly correct,
587 but more useful than an error. We do not try to guess any imported
588 namespace as even the fully specified namespace seach is is already
589 not C++ compliant and more assumptions could make it too magic. */
591 concatenated_name
= alloca (strlen (parent_name
) + 2
592 + strlen (nested_name
) + 1);
593 sprintf (concatenated_name
, "%s::%s", parent_name
, nested_name
);
594 sym
= lookup_static_symbol_aux (concatenated_name
, VAR_DOMAIN
);
595 if (sym
!= NULL
&& SYMBOL_CLASS (sym
) == LOC_TYPEDEF
)
596 return SYMBOL_TYPE (sym
);
601 internal_error (__FILE__
, __LINE__
,
602 _("cp_lookup_nested_type called on a non-aggregate type."));
606 /* The C++-version of lookup_transparent_type. */
608 /* FIXME: carlton/2004-01-16: The problem that this is trying to
609 address is that, unfortunately, sometimes NAME is wrong: it may not
610 include the name of namespaces enclosing the type in question.
611 lookup_transparent_type gets called when the the type in question
612 is a declaration, and we're trying to find its definition; but, for
613 declarations, our type name deduction mechanism doesn't work.
614 There's nothing we can do to fix this in general, I think, in the
615 absence of debug information about namespaces (I've filed PR
616 gdb/1511 about this); until such debug information becomes more
617 prevalent, one heuristic which sometimes looks is to search for the
618 definition in namespaces containing the current namespace.
620 We should delete this functions once the appropriate debug
621 information becomes more widespread. (GCC 3.4 will be the first
622 released version of GCC with such information.) */
625 cp_lookup_transparent_type (const char *name
)
627 /* First, try the honest way of looking up the definition. */
628 struct type
*t
= basic_lookup_transparent_type (name
);
634 /* If that doesn't work and we're within a namespace, look there
636 scope
= block_scope (get_selected_block (0));
638 if (scope
[0] == '\0')
641 return cp_lookup_transparent_type_loop (name
, scope
, 0);
644 /* Lookup the the type definition associated to NAME in
645 namespaces/classes containing SCOPE whose name is strictly longer
646 than LENGTH. LENGTH must be the index of the start of a
647 component of SCOPE. */
650 cp_lookup_transparent_type_loop (const char *name
, const char *scope
,
653 int scope_length
= length
+ cp_find_first_component (scope
+ length
);
656 /* If the current scope is followed by "::", look in the next
658 if (scope
[scope_length
] == ':')
661 = cp_lookup_transparent_type_loop (name
, scope
, scope_length
+ 2);
667 full_name
= alloca (scope_length
+ 2 + strlen (name
) + 1);
668 strncpy (full_name
, scope
, scope_length
);
669 strncpy (full_name
+ scope_length
, "::", 2);
670 strcpy (full_name
+ scope_length
+ 2, name
);
672 return basic_lookup_transparent_type (full_name
);
675 /* Now come functions for dealing with symbols associated to
676 namespaces. (They're used to store the namespaces themselves, not
677 objects that live in the namespaces.) These symbols come in two
678 varieties: if we run into a DW_TAG_namespace DIE, then we know that
679 we have a namespace, so dwarf2read.c creates a symbol for it just
680 like normal. But, unfortunately, versions of GCC through at least
681 3.3 don't generate those DIE's. Our solution is to try to guess
682 their existence by looking at demangled names. This might cause us
683 to misidentify classes as namespaces, however. So we put those
684 symbols in a special block (one per objfile), and we only search
685 that block as a last resort. */
687 /* FIXME: carlton/2003-06-12: Once versions of GCC that generate
688 DW_TAG_namespace have been out for a year or two, we should get rid
689 of all of this "possible namespace" nonsense. */
691 /* Allocate everything necessary for the possible namespace block
692 associated to OBJFILE. */
695 initialize_namespace_symtab (struct objfile
*objfile
)
697 struct symtab
*namespace_symtab
;
698 struct blockvector
*bv
;
701 namespace_symtab
= allocate_symtab ("<<C++-namespaces>>", objfile
);
702 namespace_symtab
->language
= language_cplus
;
703 namespace_symtab
->free_code
= free_nothing
;
704 namespace_symtab
->dirname
= NULL
;
706 bv
= obstack_alloc (&objfile
->objfile_obstack
,
707 sizeof (struct blockvector
)
708 + FIRST_LOCAL_BLOCK
* sizeof (struct block
*));
709 BLOCKVECTOR_NBLOCKS (bv
) = FIRST_LOCAL_BLOCK
+ 1;
710 BLOCKVECTOR (namespace_symtab
) = bv
;
712 /* Allocate empty GLOBAL_BLOCK and STATIC_BLOCK. */
714 bl
= allocate_block (&objfile
->objfile_obstack
);
715 BLOCK_DICT (bl
) = dict_create_linear (&objfile
->objfile_obstack
,
717 BLOCKVECTOR_BLOCK (bv
, GLOBAL_BLOCK
) = bl
;
718 bl
= allocate_block (&objfile
->objfile_obstack
);
719 BLOCK_DICT (bl
) = dict_create_linear (&objfile
->objfile_obstack
,
721 BLOCKVECTOR_BLOCK (bv
, STATIC_BLOCK
) = bl
;
723 /* Allocate the possible namespace block; we put it where the first
724 local block will live, though I don't think there's any need to
725 pretend that it's actually a local block (e.g. by setting
726 BLOCK_SUPERBLOCK appropriately). We don't use the global or
727 static block because we don't want it searched during the normal
728 search of all global/static blocks in lookup_symbol: we only want
729 it used as a last resort. */
731 /* NOTE: carlton/2003-09-11: I considered not associating the fake
732 symbols to a block/symtab at all. But that would cause problems
733 with lookup_symbol's SYMTAB argument and with block_found, so
734 having a symtab/block for this purpose seems like the best
737 bl
= allocate_block (&objfile
->objfile_obstack
);
738 BLOCK_DICT (bl
) = dict_create_hashed_expandable ();
739 BLOCKVECTOR_BLOCK (bv
, FIRST_LOCAL_BLOCK
) = bl
;
741 namespace_symtab
->free_func
= free_namespace_block
;
743 objfile
->cp_namespace_symtab
= namespace_symtab
;
746 /* Locate the possible namespace block associated to OBJFILE,
747 allocating it if necessary. */
749 static struct block
*
750 get_possible_namespace_block (struct objfile
*objfile
)
752 if (objfile
->cp_namespace_symtab
== NULL
)
753 initialize_namespace_symtab (objfile
);
755 return BLOCKVECTOR_BLOCK (BLOCKVECTOR (objfile
->cp_namespace_symtab
),
759 /* Free the dictionary associated to the possible namespace block. */
762 free_namespace_block (struct symtab
*symtab
)
764 struct block
*possible_namespace_block
;
766 possible_namespace_block
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab
),
768 gdb_assert (possible_namespace_block
!= NULL
);
769 dict_free (BLOCK_DICT (possible_namespace_block
));
772 /* Ensure that there are symbols in the possible namespace block
773 associated to OBJFILE for all initial substrings of NAME that look
774 like namespaces or classes. NAME should end in a member variable:
775 it shouldn't consist solely of namespaces. */
778 cp_check_possible_namespace_symbols (const char *name
, struct objfile
*objfile
)
780 check_possible_namespace_symbols_loop (name
,
781 cp_find_first_component (name
),
785 /* This is a helper loop for cp_check_possible_namespace_symbols; it
786 ensures that there are symbols in the possible namespace block
787 associated to OBJFILE for all namespaces that are initial
788 substrings of NAME of length at least LEN. It returns 1 if a
789 previous loop had already created the shortest such symbol and 0
792 This function assumes that if there is already a symbol associated
793 to a substring of NAME of a given length, then there are already
794 symbols associated to all substrings of NAME whose length is less
795 than that length. So if cp_check_possible_namespace_symbols has
796 been called once with argument "A::B::C::member", then that will
797 create symbols "A", "A::B", and "A::B::C". If it is then later
798 called with argument "A::B::D::member", then the new call will
799 generate a new symbol for "A::B::D", but once it sees that "A::B"
800 has already been created, it doesn't bother checking to see if "A"
801 has also been created. */
804 check_possible_namespace_symbols_loop (const char *name
, int len
,
805 struct objfile
*objfile
)
807 if (name
[len
] == ':')
810 int next_len
= len
+ 2;
812 next_len
+= cp_find_first_component (name
+ next_len
);
813 done
= check_possible_namespace_symbols_loop (name
, next_len
,
817 done
= check_one_possible_namespace_symbol (name
, len
, objfile
);
825 /* Check to see if there's already a possible namespace symbol in
826 OBJFILE whose name is the initial substring of NAME of length LEN.
827 If not, create one and return 0; otherwise, return 1. */
830 check_one_possible_namespace_symbol (const char *name
, int len
,
831 struct objfile
*objfile
)
833 struct block
*block
= get_possible_namespace_block (objfile
);
834 char *name_copy
= alloca (len
+ 1);
837 memcpy (name_copy
, name
, len
);
838 name_copy
[len
] = '\0';
839 sym
= lookup_block_symbol (block
, name_copy
, VAR_DOMAIN
);
845 type
= init_type (TYPE_CODE_NAMESPACE
, 0, 0, name_copy
, objfile
);
847 TYPE_TAG_NAME (type
) = TYPE_NAME (type
);
849 sym
= obstack_alloc (&objfile
->objfile_obstack
, sizeof (struct symbol
));
850 memset (sym
, 0, sizeof (struct symbol
));
851 SYMBOL_LANGUAGE (sym
) = language_cplus
;
852 /* Note that init_type copied the name to the objfile's
854 SYMBOL_SET_NAMES (sym
, TYPE_NAME (type
), len
, 0, objfile
);
855 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
856 SYMBOL_TYPE (sym
) = type
;
857 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
859 dict_add_symbol (BLOCK_DICT (block
), sym
);
867 /* Look for a symbol named NAME in all the possible namespace blocks.
868 If one is found, return it. */
870 static struct symbol
*
871 lookup_possible_namespace_symbol (const char *name
)
873 struct objfile
*objfile
;
875 ALL_OBJFILES (objfile
)
879 sym
= lookup_block_symbol (get_possible_namespace_block (objfile
),
889 /* Print out all the possible namespace symbols. */
892 maintenance_cplus_namespace (char *args
, int from_tty
)
894 struct objfile
*objfile
;
896 printf_unfiltered (_("Possible namespaces:\n"));
897 ALL_OBJFILES (objfile
)
899 struct dict_iterator iter
;
902 ALL_BLOCK_SYMBOLS (get_possible_namespace_block (objfile
), iter
, sym
)
904 printf_unfiltered ("%s\n", SYMBOL_PRINT_NAME (sym
));
909 /* Provide a prototype to silence -Wmissing-prototypes. */
910 extern initialize_file_ftype _initialize_cp_namespace
;
913 _initialize_cp_namespace (void)
915 add_cmd ("namespace", class_maintenance
, maintenance_cplus_namespace
,
916 _("Print the list of possible C++ namespaces."),
917 &maint_cplus_cmd_list
);