1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2005, 2007-2012 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "completer.h"
31 #include "cp-support.h"
32 #include "parser-defs.h"
34 #include "objc-lang.h"
36 #include "exceptions.h"
39 #include "mi/mi-cmds.h"
41 #include "arch-utils.h"
43 #include "cli/cli-utils.h"
44 #include "filenames.h"
47 typedef struct symtab *symtab_p;
50 typedef struct symbol *symbolp;
53 typedef struct type *typep;
56 /* An address entry is used to ensure that any given location is only
57 added to the result a single time. It holds an address and the
58 program space from which the address came. */
62 struct program_space *pspace;
66 /* A helper struct which just holds a minimal symbol and the object
67 file from which it came. */
69 typedef struct minsym_and_objfile
71 struct minimal_symbol *minsym;
72 struct objfile *objfile;
73 } minsym_and_objfile_d;
75 DEF_VEC_O (minsym_and_objfile_d);
77 /* An enumeration of possible signs for a line offset. */
78 enum offset_relative_sign
83 /* A plus sign ("+") */
86 /* A minus sign ("-") */
89 /* A special "sign" for unspecified offset. */
93 /* A line offset in a linespec. */
97 /* Line offset and any specified sign. */
99 enum offset_relative_sign sign;
102 /* A linespec. Elements of this structure are filled in by a parser
103 (either parse_linespec or some other function). The structure is
104 then converted into SALs by convert_linespec_to_sals. */
108 /* An expression and the resulting PC. Specifying an expression
109 currently precludes the use of other members. */
111 /* The expression entered by the user. */
114 /* The resulting PC expression derived from evaluating EXPRESSION. */
117 /* Any specified file symtabs. */
119 /* The user-supplied source filename or NULL if none was specified. */
120 char *source_filename;
122 /* The list of symtabs to search to which to limit the search. May not
123 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
124 FILE_SYMTABS should contain one single NULL member. This will
125 cause the code to use the default symtab. */
126 VEC (symtab_p) *file_symtabs;
128 /* The name of a function or method and any matching symbols. */
130 /* The user-specified function name. If no function name was
131 supplied, this may be NULL. */
134 /* A list of matching function symbols and minimal symbols. Both lists
135 may be NULL if no matching symbols were found. */
136 VEC (symbolp) *function_symbols;
137 VEC (minsym_and_objfile_d) *minimal_symbols;
139 /* The name of a label and matching symbols. */
141 /* The user-specified label name. */
144 /* A structure of matching label symbols and the corresponding
145 function symbol in which the label was found. Both may be NULL
146 or both must be non-NULL. */
149 VEC (symbolp) *label_symbols;
150 VEC (symbolp) *function_symbols;
153 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
154 offset was specified. */
155 struct line_offset line_offset;
157 typedef struct linespec *linespec_p;
159 /* An instance of this is used to keep all state while linespec
160 operates. This instance is passed around as a 'this' pointer to
161 the various implementation methods. */
163 struct linespec_state
165 /* The language in use during linespec processing. */
166 const struct language_defn *language;
168 /* The program space as seen when the module was entered. */
169 struct program_space *program_space;
171 /* The default symtab to use, if no other symtab is specified. */
172 struct symtab *default_symtab;
174 /* The default line to use. */
177 /* The 'funfirstline' value that was passed in to decode_line_1 or
181 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
184 /* The 'canonical' value passed to decode_line_full, or NULL. */
185 struct linespec_result *canonical;
187 /* Canonical strings that mirror the symtabs_and_lines result. */
188 char **canonical_names;
190 /* This is a set of address_entry objects which is used to prevent
191 duplicate symbols from being entered into the result. */
195 /* This is a helper object that is used when collecting symbols into a
200 /* The linespec object in use. */
201 struct linespec_state *state;
203 /* A list of symtabs to which to restrict matches. */
204 VEC (symtab_p) *file_symtabs;
206 /* The result being accumulated. */
209 VEC (symbolp) *symbols;
210 VEC (minsym_and_objfile_d) *minimal_symbols;
221 /* A colon "separator" */
233 /* EOI (end of input) */
239 typedef enum ls_token_type linespec_token_type;
241 /* List of keywords */
243 static const char * const linespec_keywords[] = { "if", "thread", "task" };
245 /* A token of the linespec lexer */
249 /* The type of the token */
250 linespec_token_type type;
252 /* Data for the token */
255 /* A string, given as a stoken */
256 struct stoken string;
262 typedef struct ls_token linespec_token;
264 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
265 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
267 /* An instance of the linespec parser. */
271 /* Lexer internal data */
274 /* Save head of input stream. */
277 /* Head of the input stream. */
279 #define PARSER_STREAM(P) (*(P)->lexer.stream)
281 /* The current token. */
282 linespec_token current;
285 /* Is the entire linespec quote-enclosed? */
286 int is_quote_enclosed;
288 /* The state of the parse. */
289 struct linespec_state state;
290 #define PARSER_STATE(PPTR) (&(PPTR)->state)
292 /* The result of the parse. */
293 struct linespec result;
294 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
296 typedef struct ls_parser linespec_parser;
298 /* Prototypes for local functions. */
300 static void initialize_defaults (struct symtab **default_symtab,
303 static CORE_ADDR linespec_expression_to_pc (char **exp_ptr);
305 static struct symtabs_and_lines decode_objc (struct linespec_state *self,
309 static VEC (symtab_p) *symtabs_from_filename (const char *);
311 static VEC (symbolp) *find_label_symbols (struct linespec_state *self,
312 VEC (symbolp) *function_symbols,
313 VEC (symbolp) **label_funcs_ret,
316 void find_linespec_symbols (struct linespec_state *self,
317 VEC (symtab_p) *file_symtabs,
319 VEC (symbolp) **symbols,
320 VEC (minsym_and_objfile_d) **minsyms);
322 static struct line_offset
323 linespec_parse_variable (struct linespec_state *self,
324 const char *variable);
326 static int symbol_to_sal (struct symtab_and_line *result,
327 int funfirstline, struct symbol *sym);
329 static void add_matching_symbols_to_info (const char *name,
330 struct collect_info *info,
331 struct program_space *pspace);
333 static void add_all_symbol_names_from_pspace (struct collect_info *info,
334 struct program_space *pspace,
335 VEC (const_char_ptr) *names);
337 static VEC (symtab_p) *collect_symtabs_from_filename (const char *file);
339 static void decode_digits_ordinary (struct linespec_state *self,
342 struct symtabs_and_lines *sals,
343 struct linetable_entry **best_entry);
345 static void decode_digits_list_mode (struct linespec_state *self,
347 struct symtabs_and_lines *values,
348 struct symtab_and_line val);
350 static void minsym_found (struct linespec_state *self, struct objfile *objfile,
351 struct minimal_symbol *msymbol,
352 struct symtabs_and_lines *result);
354 static int compare_symbols (const void *a, const void *b);
356 static int compare_msymbols (const void *a, const void *b);
358 static const char *find_toplevel_char (const char *s, char c);
360 /* Permitted quote characters for the parser. This is different from the
361 completer's quote characters to allow backward compatibility with the
363 static const char *const linespec_quote_characters = "\"\'";
365 /* Lexer functions. */
367 /* Lex a number from the input in PARSER. This only supports
370 static linespec_token
371 linespec_lexer_lex_number (linespec_parser *parser)
373 linespec_token token;
375 token.type = LSTOKEN_NUMBER;
376 LS_TOKEN_STOKEN (token).length = 0;
377 LS_TOKEN_STOKEN (token).ptr = PARSER_STREAM (parser);
379 /* Keep any sign at the start of the stream. */
380 if (*PARSER_STREAM (parser) == '+' || *PARSER_STREAM (parser) == '-')
382 ++LS_TOKEN_STOKEN (token).length;
383 ++(PARSER_STREAM (parser));
386 while (isdigit (*PARSER_STREAM (parser)))
388 ++LS_TOKEN_STOKEN (token).length;
389 ++(PARSER_STREAM (parser));
395 /* Does P represent one of the keywords? If so, return
396 the keyword. If not, return NULL. */
399 linespec_lexer_lex_keyword (const char *p)
405 for (i = 0; i < ARRAY_SIZE (linespec_keywords); ++i)
407 int len = strlen (linespec_keywords[i]);
409 /* If P begins with one of the keywords and the next
410 character is not a valid identifier character,
411 we have found a keyword. */
412 if (strncmp (p, linespec_keywords[i], len) == 0
413 && !(isalnum (p[len]) || p[len] == '_'))
414 return linespec_keywords[i];
421 /* Does STRING represent an Ada operator? If so, return the length
422 of the decoded operator name. If not, return 0. */
425 is_ada_operator (const char *string)
427 const struct ada_opname_map *mapping;
429 for (mapping = ada_opname_table;
430 mapping->encoded != NULL
431 && strncmp (mapping->decoded, string,
432 strlen (mapping->decoded)) != 0; ++mapping)
435 return mapping->decoded == NULL ? 0 : strlen (mapping->decoded);
438 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
439 the location of QUOTE_CHAR, or NULL if not found. */
442 skip_quote_char (const char *string, char quote_char)
444 const char *p, *last;
446 p = last = find_toplevel_char (string, quote_char);
447 while (p && *p != '\0' && *p != ':')
449 p = find_toplevel_char (p, quote_char);
457 /* Make a writable copy of the string given in TOKEN, trimming
458 any trailing whitespace. */
461 copy_token_string (linespec_token token)
465 if (token.type == LSTOKEN_KEYWORD)
466 return xstrdup (LS_TOKEN_KEYWORD (token));
468 str = savestring (LS_TOKEN_STOKEN (token).ptr,
469 LS_TOKEN_STOKEN (token).length);
470 s = remove_trailing_whitespace (str, str + LS_TOKEN_STOKEN (token).length);
476 /* Does P represent the end of a quote-enclosed linespec? */
479 is_closing_quote_enclosed (const char *p)
481 if (strchr (linespec_quote_characters, *p))
483 p = skip_spaces ((char *) p);
484 return (*p == '\0' || linespec_lexer_lex_keyword (p));
487 /* Find the end of the parameter list that starts with *INPUT.
488 This helper function assists with lexing string segments
489 which might contain valid (non-terminating) commas. */
492 find_parameter_list_end (char *input)
494 char end_char, start_char;
499 if (start_char == '(')
501 else if (start_char == '<')
510 if (*p == start_char)
512 else if (*p == end_char)
527 /* Lex a string from the input in PARSER. */
529 static linespec_token
530 linespec_lexer_lex_string (linespec_parser *parser)
532 linespec_token token;
533 char *start = PARSER_STREAM (parser);
535 token.type = LSTOKEN_STRING;
537 /* If the input stream starts with a quote character, skip to the next
538 quote character, regardless of the content. */
539 if (strchr (linespec_quote_characters, *PARSER_STREAM (parser)))
542 char quote_char = *PARSER_STREAM (parser);
544 /* Special case: Ada operators. */
545 if (PARSER_STATE (parser)->language->la_language == language_ada
546 && quote_char == '\"')
548 int len = is_ada_operator (PARSER_STREAM (parser));
552 /* The input is an Ada operator. Return the quoted string
554 LS_TOKEN_STOKEN (token).ptr = PARSER_STREAM (parser);
555 LS_TOKEN_STOKEN (token).length = len;
556 PARSER_STREAM (parser) += len;
560 /* The input does not represent an Ada operator -- fall through
561 to normal quoted string handling. */
564 /* Skip past the beginning quote. */
565 ++(PARSER_STREAM (parser));
567 /* Mark the start of the string. */
568 LS_TOKEN_STOKEN (token).ptr = PARSER_STREAM (parser);
570 /* Skip to the ending quote. */
571 end = skip_quote_char (PARSER_STREAM (parser), quote_char);
573 /* Error if the input did not terminate properly. */
575 error (_("unmatched quote"));
577 /* Skip over the ending quote and mark the length of the string. */
578 PARSER_STREAM (parser) = (char *) ++end;
579 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - 2 - start;
585 /* Otherwise, only identifier characters are permitted.
586 Spaces are the exception. In general, we keep spaces,
587 but only if the next characters in the input do not resolve
588 to one of the keywords.
590 This allows users to forgo quoting CV-qualifiers, template arguments,
591 and similar common language constructs. */
595 if (isspace (*PARSER_STREAM (parser)))
597 p = skip_spaces (PARSER_STREAM (parser));
598 if (linespec_lexer_lex_keyword (p) != NULL)
600 LS_TOKEN_STOKEN (token).ptr = start;
601 LS_TOKEN_STOKEN (token).length
602 = PARSER_STREAM (parser) - start;
606 /* Advance past the whitespace. */
607 PARSER_STREAM (parser) = p;
610 /* If the next character is EOI or (single) ':', the
611 string is complete; return the token. */
612 if (*PARSER_STREAM (parser) == 0)
614 LS_TOKEN_STOKEN (token).ptr = start;
615 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - start;
618 else if (PARSER_STREAM (parser)[0] == ':')
620 /* Do not tokenize the C++ scope operator. */
621 if (PARSER_STREAM (parser)[1] == ':')
622 ++(PARSER_STREAM (parser));
624 /* Do not tokenify if the input length so far is one
625 (i.e, a single-letter drive name) and the next character
626 is a directory separator. This allows Windows-style
627 paths to be recognized as filenames without quoting it. */
628 else if ((PARSER_STREAM (parser) - start) != 1
629 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser)[1]))
631 LS_TOKEN_STOKEN (token).ptr = start;
632 LS_TOKEN_STOKEN (token).length
633 = PARSER_STREAM (parser) - start;
637 /* Special case: permit quote-enclosed linespecs. */
638 else if (parser->is_quote_enclosed
639 && strchr (linespec_quote_characters,
640 *PARSER_STREAM (parser))
641 && is_closing_quote_enclosed (PARSER_STREAM (parser)))
643 LS_TOKEN_STOKEN (token).ptr = start;
644 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - start;
647 /* Because commas may terminate a linespec and appear in
648 the middle of valid string input, special cases for
649 '<' and '(' are necessary. */
650 else if (*PARSER_STREAM (parser) == '<'
651 || *PARSER_STREAM (parser) == '(')
655 p = find_parameter_list_end (PARSER_STREAM (parser));
658 PARSER_STREAM (parser) = p;
662 /* Commas are terminators, but not if they are part of an
664 else if (*PARSER_STREAM (parser) == ',')
666 if ((PARSER_STATE (parser)->language->la_language
668 && (PARSER_STREAM (parser) - start) > 8
669 /* strlen ("operator") */)
671 char *p = strstr (start, "operator");
673 if (p != NULL && is_operator_name (p))
675 /* This is an operator name. Keep going. */
676 ++(PARSER_STREAM (parser));
681 /* Comma terminates the string. */
682 LS_TOKEN_STOKEN (token).ptr = start;
683 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - start;
687 /* Advance the stream. */
688 ++(PARSER_STREAM (parser));
695 /* Lex a single linespec token from PARSER. */
697 static linespec_token
698 linespec_lexer_lex_one (linespec_parser *parser)
702 if (parser->lexer.current.type == LSTOKEN_CONSUMED)
704 /* Skip any whitespace. */
705 PARSER_STREAM (parser) = skip_spaces (PARSER_STREAM (parser));
707 /* Check for a keyword. */
708 keyword = linespec_lexer_lex_keyword (PARSER_STREAM (parser));
711 parser->lexer.current.type = LSTOKEN_KEYWORD;
712 LS_TOKEN_KEYWORD (parser->lexer.current) = keyword;
713 return parser->lexer.current;
716 /* Handle other tokens. */
717 switch (*PARSER_STREAM (parser))
720 parser->lexer.current.type = LSTOKEN_EOI;
724 case '0': case '1': case '2': case '3': case '4':
725 case '5': case '6': case '7': case '8': case '9':
726 parser->lexer.current = linespec_lexer_lex_number (parser);
730 /* If we have a scope operator, lex the input as a string.
731 Otherwise, return LSTOKEN_COLON. */
732 if (PARSER_STREAM (parser)[1] == ':')
733 parser->lexer.current = linespec_lexer_lex_string (parser);
736 parser->lexer.current.type = LSTOKEN_COLON;
737 ++(PARSER_STREAM (parser));
741 case '\'': case '\"':
742 /* Special case: permit quote-enclosed linespecs. */
743 if (parser->is_quote_enclosed
744 && is_closing_quote_enclosed (PARSER_STREAM (parser)))
746 ++(PARSER_STREAM (parser));
747 parser->lexer.current.type = LSTOKEN_EOI;
750 parser->lexer.current = linespec_lexer_lex_string (parser);
754 parser->lexer.current.type = LSTOKEN_COMMA;
755 LS_TOKEN_STOKEN (parser->lexer.current).ptr
756 = PARSER_STREAM (parser);
757 LS_TOKEN_STOKEN (parser->lexer.current).length = 1;
758 ++(PARSER_STREAM (parser));
762 /* If the input is not a number, it must be a string.
763 [Keywords were already considered above.] */
764 parser->lexer.current = linespec_lexer_lex_string (parser);
769 return parser->lexer.current;
772 /* Consume the current token and return the next token in PARSER's
775 static linespec_token
776 linespec_lexer_consume_token (linespec_parser *parser)
778 parser->lexer.current.type = LSTOKEN_CONSUMED;
779 return linespec_lexer_lex_one (parser);
782 /* Return the next token without consuming the current token. */
784 static linespec_token
785 linespec_lexer_peek_token (linespec_parser *parser)
788 char *saved_stream = PARSER_STREAM (parser);
789 linespec_token saved_token = parser->lexer.current;
791 next = linespec_lexer_consume_token (parser);
792 PARSER_STREAM (parser) = saved_stream;
793 parser->lexer.current = saved_token;
797 /* Helper functions. */
799 /* Add SAL to SALS. */
802 add_sal_to_sals_basic (struct symtabs_and_lines *sals,
803 struct symtab_and_line *sal)
806 sals->sals = xrealloc (sals->sals, sals->nelts * sizeof (sals->sals[0]));
807 sals->sals[sals->nelts - 1] = *sal;
810 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
811 the new sal, if needed. If not NULL, SYMNAME is the name of the
812 symbol to use when constructing the new canonical name. */
815 add_sal_to_sals (struct linespec_state *self,
816 struct symtabs_and_lines *sals,
817 struct symtab_and_line *sal,
820 add_sal_to_sals_basic (sals, sal);
824 char *canonical_name = NULL;
826 self->canonical_names = xrealloc (self->canonical_names,
827 sals->nelts * sizeof (char *));
828 if (sal->symtab && sal->symtab->filename)
830 char *filename = sal->symtab->filename;
832 /* Note that the filter doesn't have to be a valid linespec
833 input. We only apply the ":LINE" treatment to Ada for
835 if (symname != NULL && sal->line != 0
836 && self->language->la_language == language_ada)
837 canonical_name = xstrprintf ("%s:%s:%d", filename, symname,
839 else if (symname != NULL)
840 canonical_name = xstrprintf ("%s:%s", filename, symname);
842 canonical_name = xstrprintf ("%s:%d", filename, sal->line);
845 self->canonical_names[sals->nelts - 1] = canonical_name;
849 /* A hash function for address_entry. */
852 hash_address_entry (const void *p)
854 const struct address_entry *aep = p;
857 hash = iterative_hash_object (aep->pspace, 0);
858 return iterative_hash_object (aep->addr, hash);
861 /* An equality function for address_entry. */
864 eq_address_entry (const void *a, const void *b)
866 const struct address_entry *aea = a;
867 const struct address_entry *aeb = b;
869 return aea->pspace == aeb->pspace && aea->addr == aeb->addr;
872 /* Check whether the address, represented by PSPACE and ADDR, is
873 already in the set. If so, return 0. Otherwise, add it and return
877 maybe_add_address (htab_t set, struct program_space *pspace, CORE_ADDR addr)
879 struct address_entry e, *p;
884 slot = htab_find_slot (set, &e, INSERT);
888 p = XNEW (struct address_entry);
889 memcpy (p, &e, sizeof (struct address_entry));
895 /* A callback function and the additional data to call it with. */
897 struct symbol_and_data_callback
899 /* The callback to use. */
900 symbol_found_callback_ftype *callback;
902 /* Data to be passed to the callback. */
906 /* A helper for iterate_over_all_matching_symtabs that is used to
907 restrict calls to another callback to symbols representing inline
911 iterate_inline_only (struct symbol *sym, void *d)
913 if (SYMBOL_INLINED (sym))
915 struct symbol_and_data_callback *cad = d;
917 return cad->callback (sym, cad->data);
919 return 1; /* Continue iterating. */
922 /* Some data for the expand_symtabs_matching callback. */
924 struct symbol_matcher_data
926 /* The lookup name against which symbol name should be compared. */
927 const char *lookup_name;
929 /* The routine to be used for comparison. */
930 symbol_name_cmp_ftype symbol_name_cmp;
933 /* A helper for iterate_over_all_matching_symtabs that is passed as a
934 callback to the expand_symtabs_matching method. */
937 iterate_name_matcher (const char *name, void *d)
939 const struct symbol_matcher_data *data = d;
941 if (data->symbol_name_cmp (name, data->lookup_name) == 0)
942 return 1; /* Expand this symbol's symbol table. */
943 return 0; /* Skip this symbol. */
946 /* A helper that walks over all matching symtabs in all objfiles and
947 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
948 not NULL, then the search is restricted to just that program
949 space. If INCLUDE_INLINE is nonzero then symbols representing
950 inlined instances of functions will be included in the result. */
953 iterate_over_all_matching_symtabs (struct linespec_state *state,
955 const domain_enum domain,
956 symbol_found_callback_ftype *callback,
958 struct program_space *search_pspace,
961 struct objfile *objfile;
962 struct program_space *pspace;
963 struct symbol_matcher_data matcher_data;
965 matcher_data.lookup_name = name;
966 matcher_data.symbol_name_cmp =
967 state->language->la_get_symbol_name_cmp != NULL
968 ? state->language->la_get_symbol_name_cmp (name)
973 if (search_pspace != NULL && search_pspace != pspace)
975 if (pspace->executing_startup)
978 set_current_program_space (pspace);
980 ALL_OBJFILES (objfile)
982 struct symtab *symtab;
985 objfile->sf->qf->expand_symtabs_matching (objfile, NULL,
986 iterate_name_matcher,
990 ALL_OBJFILE_SYMTABS (objfile, symtab)
996 block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), STATIC_BLOCK);
997 LA_ITERATE_OVER_SYMBOLS (block, name, domain, callback, data);
1001 struct symbol_and_data_callback cad = { callback, data };
1004 for (i = FIRST_LOCAL_BLOCK;
1005 i < BLOCKVECTOR_NBLOCKS (BLOCKVECTOR (symtab)); i++)
1007 block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), i);
1008 LA_ITERATE_OVER_SYMBOLS (block, name, domain,
1009 iterate_inline_only, &cad);
1018 /* Returns the block to be used for symbol searches for the given SYMTAB,
1019 which may be NULL. */
1021 static struct block *
1022 get_search_block (struct symtab *symtab)
1024 struct block *block;
1027 block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), STATIC_BLOCK);
1030 enum language save_language;
1032 /* get_selected_block can change the current language when there is
1033 no selected frame yet. */
1034 save_language = current_language->la_language;
1035 block = get_selected_block (0);
1036 set_language (save_language);
1042 /* A helper for find_method. This finds all methods in type T which
1043 match NAME. It adds matching symbol names to RESULT_NAMES, and
1044 adds T's direct superclasses to SUPERCLASSES. */
1047 find_methods (struct type *t, const char *name,
1048 VEC (const_char_ptr) **result_names,
1049 VEC (typep) **superclasses)
1053 const char *class_name = type_name_no_tag (t);
1055 /* Ignore this class if it doesn't have a name. This is ugly, but
1056 unless we figure out how to get the physname without the name of
1057 the class, then the loop can't do any good. */
1061 int name_len = strlen (name);
1065 /* Loop over each method name. At this level, all overloads of a name
1066 are counted as a single name. There is an inner loop which loops over
1069 for (method_counter = TYPE_NFN_FIELDS (t) - 1;
1070 method_counter >= 0;
1073 const char *method_name = TYPE_FN_FIELDLIST_NAME (t, method_counter);
1074 char dem_opname[64];
1076 if (strncmp (method_name, "__", 2) == 0 ||
1077 strncmp (method_name, "op", 2) == 0 ||
1078 strncmp (method_name, "type", 4) == 0)
1080 if (cplus_demangle_opname (method_name, dem_opname, DMGL_ANSI))
1081 method_name = dem_opname;
1082 else if (cplus_demangle_opname (method_name, dem_opname, 0))
1083 method_name = dem_opname;
1086 if (strcmp_iw (method_name, name) == 0)
1090 for (field_counter = (TYPE_FN_FIELDLIST_LENGTH (t, method_counter)
1096 const char *phys_name;
1098 f = TYPE_FN_FIELDLIST1 (t, method_counter);
1099 if (TYPE_FN_FIELD_STUB (f, field_counter))
1101 phys_name = TYPE_FN_FIELD_PHYSNAME (f, field_counter);
1102 VEC_safe_push (const_char_ptr, *result_names, phys_name);
1108 for (ibase = 0; ibase < TYPE_N_BASECLASSES (t); ibase++)
1109 VEC_safe_push (typep, *superclasses, TYPE_BASECLASS (t, ibase));
1112 /* Find an instance of the character C in the string S that is outside
1113 of all parenthesis pairs, single-quoted strings, and double-quoted
1114 strings. Also, ignore the char within a template name, like a ','
1115 within foo<int, int>. */
1118 find_toplevel_char (const char *s, char c)
1120 int quoted = 0; /* zero if we're not in quotes;
1121 '"' if we're in a double-quoted string;
1122 '\'' if we're in a single-quoted string. */
1123 int depth = 0; /* Number of unclosed parens we've seen. */
1126 for (scan = s; *scan; scan++)
1130 if (*scan == quoted)
1132 else if (*scan == '\\' && *(scan + 1))
1135 else if (*scan == c && ! quoted && depth == 0)
1137 else if (*scan == '"' || *scan == '\'')
1139 else if (*scan == '(' || *scan == '<')
1141 else if ((*scan == ')' || *scan == '>') && depth > 0)
1148 /* The string equivalent of find_toplevel_char. Returns a pointer
1149 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1150 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1153 find_toplevel_string (const char *haystack, const char *needle)
1155 const char *s = haystack;
1159 s = find_toplevel_char (s, *needle);
1163 /* Found first char in HAYSTACK; check rest of string. */
1164 if (strncmp (s, needle, strlen (needle)) == 0)
1167 /* Didn't find it; loop over HAYSTACK, looking for the next
1168 instance of the first character of NEEDLE. */
1172 while (s != NULL && *s != '\0');
1174 /* NEEDLE was not found in HAYSTACK. */
1178 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1179 and store the result in SELF->CANONICAL. */
1182 filter_results (struct linespec_state *self,
1183 struct symtabs_and_lines *result,
1184 VEC (const_char_ptr) *filters)
1189 for (i = 0; VEC_iterate (const_char_ptr, filters, i, name); ++i)
1191 struct linespec_sals lsal;
1194 memset (&lsal, 0, sizeof (lsal));
1196 for (j = 0; j < result->nelts; ++j)
1198 if (strcmp (name, self->canonical_names[j]) == 0)
1199 add_sal_to_sals_basic (&lsal.sals, &result->sals[j]);
1202 if (lsal.sals.nelts > 0)
1204 lsal.canonical = xstrdup (name);
1205 VEC_safe_push (linespec_sals, self->canonical->sals, &lsal);
1209 self->canonical->pre_expanded = 0;
1212 /* Store RESULT into SELF->CANONICAL. */
1215 convert_results_to_lsals (struct linespec_state *self,
1216 struct symtabs_and_lines *result)
1218 struct linespec_sals lsal;
1220 lsal.canonical = NULL;
1221 lsal.sals = *result;
1222 VEC_safe_push (linespec_sals, self->canonical->sals, &lsal);
1225 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1226 will either return normally, throw an exception on multiple
1227 results, or present a menu to the user. On return, the SALS vector
1228 in SELF->CANONICAL is set up properly. */
1231 decode_line_2 (struct linespec_state *self,
1232 struct symtabs_and_lines *result,
1233 const char *select_mode)
1236 char *args, *prompt;
1238 struct cleanup *old_chain;
1239 VEC (const_char_ptr) *item_names = NULL, *filters = NULL;
1240 struct get_number_or_range_state state;
1242 gdb_assert (select_mode != multiple_symbols_all);
1243 gdb_assert (self->canonical != NULL);
1245 old_chain = make_cleanup (VEC_cleanup (const_char_ptr), &item_names);
1246 make_cleanup (VEC_cleanup (const_char_ptr), &filters);
1247 for (i = 0; i < result->nelts; ++i)
1252 gdb_assert (self->canonical_names[i] != NULL);
1253 for (j = 0; VEC_iterate (const_char_ptr, item_names, j, iter); ++j)
1255 if (strcmp (iter, self->canonical_names[i]) == 0)
1263 VEC_safe_push (const_char_ptr, item_names, self->canonical_names[i]);
1266 if (select_mode == multiple_symbols_cancel
1267 && VEC_length (const_char_ptr, item_names) > 1)
1268 error (_("canceled because the command is ambiguous\n"
1269 "See set/show multiple-symbol."));
1271 if (select_mode == multiple_symbols_all
1272 || VEC_length (const_char_ptr, item_names) == 1)
1274 do_cleanups (old_chain);
1275 convert_results_to_lsals (self, result);
1279 /* Sort the list of method names alphabetically. */
1280 qsort (VEC_address (const_char_ptr, item_names),
1281 VEC_length (const_char_ptr, item_names),
1282 sizeof (const_char_ptr), compare_strings);
1284 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1285 for (i = 0; VEC_iterate (const_char_ptr, item_names, i, iter); ++i)
1286 printf_unfiltered ("[%d] %s\n", i + 2, iter);
1288 prompt = getenv ("PS2");
1293 args = command_line_input (prompt, 0, "overload-choice");
1295 if (args == 0 || *args == 0)
1296 error_no_arg (_("one or more choice numbers"));
1298 init_number_or_range (&state, args);
1299 while (!state.finished)
1303 num = get_number_or_range (&state);
1306 error (_("canceled"));
1309 /* We intentionally make this result in a single breakpoint,
1310 contrary to what older versions of gdb did. The
1311 rationale is that this lets a user get the
1312 multiple_symbols_all behavior even with the 'ask'
1313 setting; and he can get separate breakpoints by entering
1314 "2-57" at the query. */
1315 do_cleanups (old_chain);
1316 convert_results_to_lsals (self, result);
1321 if (num >= VEC_length (const_char_ptr, item_names))
1322 printf_unfiltered (_("No choice number %d.\n"), num);
1325 const char *elt = VEC_index (const_char_ptr, item_names, num);
1329 VEC_safe_push (const_char_ptr, filters, elt);
1330 VEC_replace (const_char_ptr, item_names, num, NULL);
1334 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1340 filter_results (self, result, filters);
1341 do_cleanups (old_chain);
1346 /* The parser of linespec itself. */
1348 /* Throw an appropriate error when SYMBOL is not found (optionally in
1351 static void ATTRIBUTE_NORETURN
1352 symbol_not_found_error (char *symbol, char *filename)
1357 if (!have_full_symbols ()
1358 && !have_partial_symbols ()
1359 && !have_minimal_symbols ())
1360 throw_error (NOT_FOUND_ERROR,
1361 _("No symbol table is loaded. Use the \"file\" command."));
1363 /* If SYMBOL starts with '$', the user attempted to either lookup
1364 a function/variable in his code starting with '$' or an internal
1365 variable of that name. Since we do not know which, be concise and
1366 explain both possibilities. */
1370 throw_error (NOT_FOUND_ERROR,
1371 _("Undefined convenience variable or function \"%s\" "
1372 "not defined in \"%s\"."), symbol, filename);
1374 throw_error (NOT_FOUND_ERROR,
1375 _("Undefined convenience variable or function \"%s\" "
1376 "not defined."), symbol);
1381 throw_error (NOT_FOUND_ERROR,
1382 _("Function \"%s\" not defined in \"%s\"."),
1385 throw_error (NOT_FOUND_ERROR,
1386 _("Function \"%s\" not defined."), symbol);
1390 /* Throw an appropriate error when an unexpected token is encountered
1393 static void ATTRIBUTE_NORETURN
1394 unexpected_linespec_error (linespec_parser *parser)
1396 linespec_token token;
1397 static const char * token_type_strings[]
1398 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1400 /* Get the token that generated the error. */
1401 token = linespec_lexer_lex_one (parser);
1403 /* Finally, throw the error. */
1404 if (token.type == LSTOKEN_STRING || token.type == LSTOKEN_NUMBER
1405 || token.type == LSTOKEN_KEYWORD)
1408 struct cleanup *cleanup;
1410 string = copy_token_string (token);
1411 cleanup = make_cleanup (xfree, string);
1412 throw_error (GENERIC_ERROR,
1413 _("malformed linespec error: unexpected %s, \"%s\""),
1414 token_type_strings[token.type], string);
1417 throw_error (GENERIC_ERROR,
1418 _("malformed linespec error: unexpected %s"),
1419 token_type_strings[token.type]);
1422 /* Parse and return a line offset in STRING. */
1424 static struct line_offset
1425 linespec_parse_line_offset (char *string)
1427 struct line_offset line_offset = {0, LINE_OFFSET_NONE};
1431 line_offset.sign = LINE_OFFSET_PLUS;
1434 else if (*string == '-')
1436 line_offset.sign = LINE_OFFSET_MINUS;
1440 /* Right now, we only allow base 10 for offsets. */
1441 line_offset.offset = atoi (string);
1445 /* Parse the basic_spec in PARSER's input. */
1448 linespec_parse_basic (linespec_parser *parser)
1451 linespec_token token;
1452 VEC (symbolp) *symbols, *labels;
1453 VEC (minsym_and_objfile_d) *minimal_symbols;
1454 struct cleanup *cleanup;
1456 /* Get the next token. */
1457 token = linespec_lexer_lex_one (parser);
1459 /* If it is EOI or KEYWORD, issue an error. */
1460 if (token.type == LSTOKEN_KEYWORD || token.type == LSTOKEN_EOI)
1461 unexpected_linespec_error (parser);
1462 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1463 else if (token.type == LSTOKEN_NUMBER)
1465 /* Record the line offset and get the next token. */
1466 name = copy_token_string (token);
1467 cleanup = make_cleanup (xfree, name);
1468 PARSER_RESULT (parser)->line_offset = linespec_parse_line_offset (name);
1469 do_cleanups (cleanup);
1471 /* Get the next token. */
1472 token = linespec_lexer_consume_token (parser);
1474 /* If the next token is a comma, stop parsing and return. */
1475 if (token.type == LSTOKEN_COMMA)
1478 /* If the next token is anything but EOI or KEYWORD, issue
1480 if (token.type != LSTOKEN_KEYWORD && token.type != LSTOKEN_EOI)
1481 unexpected_linespec_error (parser);
1484 if (token.type == LSTOKEN_KEYWORD || token.type == LSTOKEN_EOI)
1487 /* Next token must be LSTOKEN_STRING. */
1488 if (token.type != LSTOKEN_STRING)
1489 unexpected_linespec_error (parser);
1491 /* The current token will contain the name of a function, method,
1493 name = copy_token_string (token);
1494 cleanup = make_cleanup (xfree, name);
1496 /* Try looking it up as a function/method. */
1497 find_linespec_symbols (PARSER_STATE (parser),
1498 PARSER_RESULT (parser)->file_symtabs, name,
1499 &symbols, &minimal_symbols);
1501 if (symbols != NULL || minimal_symbols != NULL)
1503 PARSER_RESULT (parser)->function_symbols = symbols;
1504 PARSER_RESULT (parser)->minimal_symbols = minimal_symbols;
1505 PARSER_RESULT (parser)->function_name = name;
1507 discard_cleanups (cleanup);
1511 /* NAME was not a function or a method. So it must be a label
1513 labels = find_label_symbols (PARSER_STATE (parser), NULL,
1517 PARSER_RESULT (parser)->labels.label_symbols = labels;
1518 PARSER_RESULT (parser)->labels.function_symbols = symbols;
1519 PARSER_RESULT (parser)->label_name = name;
1521 discard_cleanups (cleanup);
1525 /* The name is also not a label. Abort parsing. Do not throw
1526 an error here. parse_linespec will do it for us. */
1528 /* Save a copy of the name we were trying to lookup. */
1529 PARSER_RESULT (parser)->function_name = name;
1530 discard_cleanups (cleanup);
1535 /* Get the next token. */
1536 token = linespec_lexer_consume_token (parser);
1538 if (token.type == LSTOKEN_COLON)
1540 /* User specified a label or a lineno. */
1541 token = linespec_lexer_consume_token (parser);
1543 if (token.type == LSTOKEN_NUMBER)
1545 /* User specified an offset. Record the line offset and
1546 get the next token. */
1547 name = copy_token_string (token);
1548 cleanup = make_cleanup (xfree, name);
1549 PARSER_RESULT (parser)->line_offset
1550 = linespec_parse_line_offset (name);
1551 do_cleanups (cleanup);
1553 /* Ge the next token. */
1554 token = linespec_lexer_consume_token (parser);
1556 else if (token.type == LSTOKEN_STRING)
1558 /* Grab a copy of the label's name and look it up. */
1559 name = copy_token_string (token);
1560 cleanup = make_cleanup (xfree, name);
1561 labels = find_label_symbols (PARSER_STATE (parser),
1562 PARSER_RESULT (parser)->function_symbols,
1567 PARSER_RESULT (parser)->labels.label_symbols = labels;
1568 PARSER_RESULT (parser)->labels.function_symbols = symbols;
1569 PARSER_RESULT (parser)->label_name = name;
1571 discard_cleanups (cleanup);
1575 /* We don't know what it was, but it isn't a label. */
1576 throw_error (NOT_FOUND_ERROR,
1577 _("No label \"%s\" defined in function \"%s\"."),
1578 name, PARSER_RESULT (parser)->function_name);
1581 /* Check for a line offset. */
1582 token = linespec_lexer_consume_token (parser);
1583 if (token.type == LSTOKEN_COLON)
1585 /* Get the next token. */
1586 token = linespec_lexer_consume_token (parser);
1588 /* It must be a line offset. */
1589 if (token.type != LSTOKEN_NUMBER)
1590 unexpected_linespec_error (parser);
1592 /* Record the lione offset and get the next token. */
1593 name = copy_token_string (token);
1594 cleanup = make_cleanup (xfree, name);
1596 PARSER_RESULT (parser)->line_offset
1597 = linespec_parse_line_offset (name);
1598 do_cleanups (cleanup);
1600 /* Get the next token. */
1601 token = linespec_lexer_consume_token (parser);
1606 /* Trailing ':' in the input. Issue an error. */
1607 unexpected_linespec_error (parser);
1612 /* Canonicalize the linespec contained in LS. The result is saved into
1613 STATE->canonical. */
1616 canonicalize_linespec (struct linespec_state *state, linespec_p ls)
1618 /* If canonicalization was not requested, no need to do anything. */
1619 if (!state->canonical)
1622 /* Shortcut expressions, which can only appear by themselves. */
1623 if (ls->expression != NULL)
1624 state->canonical->addr_string = xstrdup (ls->expression);
1627 struct ui_file *buf;
1630 buf = mem_fileopen ();
1631 if (ls->source_filename)
1633 fputs_unfiltered (ls->source_filename, buf);
1637 if (ls->function_name)
1640 fputc_unfiltered (':', buf);
1641 fputs_unfiltered (ls->function_name, buf);
1648 fputc_unfiltered (':', buf);
1650 if (ls->function_name == NULL)
1654 /* No function was specified, so add the symbol name. */
1655 gdb_assert (ls->labels.function_symbols != NULL
1656 && (VEC_length (symbolp, ls->labels.function_symbols)
1658 s = VEC_index (symbolp, ls->labels.function_symbols, 0);
1659 fputs_unfiltered (SYMBOL_NATURAL_NAME (s), buf);
1660 fputc_unfiltered (':', buf);
1663 fputs_unfiltered (ls->label_name, buf);
1665 state->canonical->special_display = 1;
1668 if (ls->line_offset.sign != LINE_OFFSET_UNKNOWN)
1671 fputc_unfiltered (':', buf);
1672 fprintf_filtered (buf, "%s%d",
1673 (ls->line_offset.sign == LINE_OFFSET_NONE ? ""
1674 : (ls->line_offset.sign
1675 == LINE_OFFSET_PLUS ? "+" : "-")),
1676 ls->line_offset.offset);
1679 state->canonical->addr_string = ui_file_xstrdup (buf, NULL);
1680 ui_file_delete (buf);
1684 /* Given a line offset in LS, construct the relevant SALs. */
1686 static struct symtabs_and_lines
1687 create_sals_line_offset (struct linespec_state *self,
1690 struct symtabs_and_lines values;
1691 struct symtab_and_line val;
1692 int use_default = 0;
1698 /* This is where we need to make sure we have good defaults.
1699 We must guarantee that this section of code is never executed
1700 when we are called with just a function anme, since
1701 set_default_source_symtab_and_line uses
1702 select_source_symtab that calls us with such an argument. */
1704 if (VEC_length (symtab_p, ls->file_symtabs) == 1
1705 && VEC_index (symtab_p, ls->file_symtabs, 0) == NULL)
1707 set_current_program_space (self->program_space);
1709 /* Make sure we have at least a default source line. */
1710 set_default_source_symtab_and_line ();
1711 initialize_defaults (&self->default_symtab, &self->default_line);
1712 VEC_pop (symtab_p, ls->file_symtabs);
1713 VEC_free (symtab_p, ls->file_symtabs);
1715 = collect_symtabs_from_filename (self->default_symtab->filename);
1719 val.line = ls->line_offset.offset;
1720 switch (ls->line_offset.sign)
1722 case LINE_OFFSET_PLUS:
1723 if (ls->line_offset.offset == 0)
1726 val.line = self->default_line + val.line;
1729 case LINE_OFFSET_MINUS:
1730 if (ls->line_offset.offset == 0)
1733 val.line = self->default_line - val.line;
1735 val.line = -val.line;
1738 case LINE_OFFSET_NONE:
1739 break; /* No need to adjust val.line. */
1742 if (self->list_mode)
1743 decode_digits_list_mode (self, ls, &values, val);
1746 struct linetable_entry *best_entry = NULL;
1748 struct block **blocks;
1749 struct cleanup *cleanup;
1750 struct symtabs_and_lines intermediate_results;
1753 intermediate_results.sals = NULL;
1754 intermediate_results.nelts = 0;
1756 decode_digits_ordinary (self, ls, val.line, &intermediate_results,
1758 if (intermediate_results.nelts == 0 && best_entry != NULL)
1759 decode_digits_ordinary (self, ls, best_entry->line,
1760 &intermediate_results, &best_entry);
1762 cleanup = make_cleanup (xfree, intermediate_results.sals);
1764 /* For optimized code, the compiler can scatter one source line
1765 across disjoint ranges of PC values, even when no duplicate
1766 functions or inline functions are involved. For example,
1767 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1768 function can result in two PC ranges. In this case, we don't
1769 want to set a breakpoint on the first PC of each range. To filter
1770 such cases, we use containing blocks -- for each PC found
1771 above, we see if there are other PCs that are in the same
1772 block. If yes, the other PCs are filtered out. */
1774 filter = XNEWVEC (int, intermediate_results.nelts);
1775 make_cleanup (xfree, filter);
1776 blocks = XNEWVEC (struct block *, intermediate_results.nelts);
1777 make_cleanup (xfree, blocks);
1779 for (i = 0; i < intermediate_results.nelts; ++i)
1781 set_current_program_space (intermediate_results.sals[i].pspace);
1784 blocks[i] = block_for_pc_sect (intermediate_results.sals[i].pc,
1785 intermediate_results.sals[i].section);
1788 for (i = 0; i < intermediate_results.nelts; ++i)
1790 if (blocks[i] != NULL)
1791 for (j = i + 1; j < intermediate_results.nelts; ++j)
1793 if (blocks[j] == blocks[i])
1801 for (i = 0; i < intermediate_results.nelts; ++i)
1804 struct symbol *sym = (blocks[i]
1805 ? block_containing_function (blocks[i])
1808 if (self->funfirstline)
1809 skip_prologue_sal (&intermediate_results.sals[i]);
1810 /* Make sure the line matches the request, not what was
1812 intermediate_results.sals[i].line = val.line;
1813 add_sal_to_sals (self, &values, &intermediate_results.sals[i],
1814 sym ? SYMBOL_NATURAL_NAME (sym) : NULL);
1817 do_cleanups (cleanup);
1820 if (values.nelts == 0)
1822 if (ls->source_filename)
1823 throw_error (NOT_FOUND_ERROR, _("No line %d in file \"%s\"."),
1824 val.line, ls->source_filename);
1826 throw_error (NOT_FOUND_ERROR, _("No line %d in the current file."),
1833 /* Create and return SALs from the linespec LS. */
1835 static struct symtabs_and_lines
1836 convert_linespec_to_sals (struct linespec_state *state, linespec_p ls)
1838 struct symtabs_and_lines sals = {NULL, 0};
1840 if (ls->expression != NULL)
1842 /* We have an expression. No other attribute is allowed. */
1843 sals.sals = XMALLOC (struct symtab_and_line);
1845 sals.sals[0] = find_pc_line (ls->expr_pc, 0);
1846 sals.sals[0].pc = ls->expr_pc;
1847 sals.sals[0].section = find_pc_overlay (ls->expr_pc);
1848 sals.sals[0].explicit_pc = 1;
1850 else if (ls->labels.label_symbols != NULL)
1852 /* We have just a bunch of functions/methods or labels. */
1854 struct symtab_and_line sal;
1857 for (i = 0; VEC_iterate (symbolp, ls->labels.label_symbols, i, sym); ++i)
1859 symbol_to_sal (&sal, state->funfirstline, sym);
1860 add_sal_to_sals (state, &sals, &sal,
1861 SYMBOL_NATURAL_NAME (sym));
1864 else if (ls->function_symbols != NULL || ls->minimal_symbols != NULL)
1866 /* We have just a bunch of functions and/or methods. */
1868 struct symtab_and_line sal;
1870 minsym_and_objfile_d *elem;
1871 struct program_space *pspace;
1873 if (ls->function_symbols != NULL)
1875 /* Sort symbols so that symbols with the same program space are next
1877 qsort (VEC_address (symbolp, ls->function_symbols),
1878 VEC_length (symbolp, ls->function_symbols),
1879 sizeof (symbolp), compare_symbols);
1881 for (i = 0; VEC_iterate (symbolp, ls->function_symbols, i, sym); ++i)
1883 pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
1884 set_current_program_space (pspace);
1885 symbol_to_sal (&sal, state->funfirstline, sym);
1886 if (maybe_add_address (state->addr_set, pspace, sal.pc))
1887 add_sal_to_sals (state, &sals, &sal, SYMBOL_NATURAL_NAME (sym));
1891 if (ls->minimal_symbols != NULL)
1893 /* Sort minimal symbols by program space, too. */
1894 qsort (VEC_address (minsym_and_objfile_d, ls->minimal_symbols),
1895 VEC_length (minsym_and_objfile_d, ls->minimal_symbols),
1896 sizeof (minsym_and_objfile_d), compare_msymbols);
1899 VEC_iterate (minsym_and_objfile_d, ls->minimal_symbols, i, elem);
1902 pspace = SYMBOL_OBJ_SECTION (elem->minsym)->objfile->pspace;
1903 set_current_program_space (pspace);
1904 minsym_found (state, elem->objfile, elem->minsym, &sals);
1908 else if (ls->line_offset.sign != LINE_OFFSET_UNKNOWN)
1910 /* Only an offset was specified. */
1911 sals = create_sals_line_offset (state, ls);
1913 /* Make sure we have a filename for canonicalization. */
1914 if (ls->source_filename == NULL)
1915 ls->source_filename = xstrdup (state->default_symtab->filename);
1919 /* We haven't found any results... */
1923 canonicalize_linespec (state, ls);
1925 if (sals.nelts > 0 && state->canonical != NULL)
1926 state->canonical->pre_expanded = 1;
1931 /* Parse a string that specifies a linespec.
1932 Pass the address of a char * variable; that variable will be
1933 advanced over the characters actually parsed.
1935 The basic grammar of linespecs:
1937 linespec -> expr_spec | var_spec | basic_spec
1938 expr_spec -> '*' STRING
1939 var_spec -> '$' (STRING | NUMBER)
1941 basic_spec -> file_offset_spec | function_spec | label_spec
1942 file_offset_spec -> opt_file_spec offset_spec
1943 function_spec -> opt_file_spec function_name_spec opt_label_spec
1944 label_spec -> label_name_spec
1946 opt_file_spec -> "" | file_name_spec ':'
1947 opt_label_spec -> "" | ':' label_name_spec
1949 file_name_spec -> STRING
1950 function_name_spec -> STRING
1951 label_name_spec -> STRING
1952 function_name_spec -> STRING
1953 offset_spec -> NUMBER
1957 This may all be followed by several keywords such as "if EXPR",
1960 A comma will terminate parsing.
1962 The function may be an undebuggable function found in minimal symbol table.
1964 If the argument FUNFIRSTLINE is nonzero, we want the first line
1965 of real code inside a function when a function is specified, and it is
1966 not OK to specify a variable or type to get its line number.
1968 DEFAULT_SYMTAB specifies the file to use if none is specified.
1969 It defaults to current_source_symtab.
1970 DEFAULT_LINE specifies the line number to use for relative
1971 line numbers (that start with signs). Defaults to current_source_line.
1972 If CANONICAL is non-NULL, store an array of strings containing the canonical
1973 line specs there if necessary. Currently overloaded member functions and
1974 line numbers or static functions without a filename yield a canonical
1975 line spec. The array and the line spec strings are allocated on the heap,
1976 it is the callers responsibility to free them.
1978 Note that it is possible to return zero for the symtab
1979 if no file is validly specified. Callers must check that.
1980 Also, the line number returned may be invalid. */
1982 /* Parse the linespec in ARGPTR. */
1984 static struct symtabs_and_lines
1985 parse_linespec (linespec_parser *parser, char **argptr)
1987 linespec_token token;
1988 struct symtabs_and_lines values;
1989 volatile struct gdb_exception file_exception;
1990 struct cleanup *cleanup;
1992 /* A special case to start. It has become quite popular for
1993 IDEs to work around bugs in the previous parser by quoting
1994 the entire linespec, so we attempt to deal with this nicely. */
1995 parser->is_quote_enclosed = 0;
1996 if (!is_ada_operator (*argptr)
1997 && strchr (linespec_quote_characters, **argptr) != NULL)
2001 end = skip_quote_char (*argptr + 1, **argptr);
2002 if (end != NULL && is_closing_quote_enclosed (end))
2004 /* Here's the special case. Skip ARGPTR past the initial
2007 parser->is_quote_enclosed = 1;
2011 parser->lexer.saved_arg = *argptr;
2012 parser->lexer.stream = argptr;
2013 file_exception.reason = 0;
2015 /* Initialize the default symtab and line offset. */
2016 initialize_defaults (&PARSER_STATE (parser)->default_symtab,
2017 &PARSER_STATE (parser)->default_line);
2019 /* Objective-C shortcut. */
2020 values = decode_objc (PARSER_STATE (parser), PARSER_RESULT (parser), argptr);
2021 if (values.sals != NULL)
2024 /* Start parsing. */
2026 /* Get the first token. */
2027 token = linespec_lexer_lex_one (parser);
2029 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2030 if (token.type == LSTOKEN_STRING && *LS_TOKEN_STOKEN (token).ptr == '*')
2034 /* User specified an expression, *EXPR. */
2035 copy = expr = copy_token_string (token);
2036 cleanup = make_cleanup (xfree, expr);
2037 PARSER_RESULT (parser)->expr_pc = linespec_expression_to_pc (©);
2038 discard_cleanups (cleanup);
2039 PARSER_RESULT (parser)->expression = expr;
2041 /* This is a little hacky/tricky. If linespec_expression_to_pc
2042 did not evaluate the entire token, then we must find the
2043 string COPY inside the original token buffer. */
2046 PARSER_STREAM (parser) = strstr (parser->lexer.saved_arg, copy);
2047 gdb_assert (PARSER_STREAM (parser) != NULL);
2050 /* Consume the token. */
2051 linespec_lexer_consume_token (parser);
2053 goto convert_to_sals;
2055 else if (token.type == LSTOKEN_STRING && *LS_TOKEN_STOKEN (token).ptr == '$')
2059 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2060 VEC_safe_push (symtab_p, PARSER_RESULT (parser)->file_symtabs, NULL);
2062 /* User specified a convenience variable or history value. */
2063 var = copy_token_string (token);
2064 cleanup = make_cleanup (xfree, var);
2065 PARSER_RESULT (parser)->line_offset
2066 = linespec_parse_variable (PARSER_STATE (parser), var);
2068 /* If a line_offset wasn't found (VAR is the name of a user
2069 variable/function), then skip to normal symbol processing. */
2070 if (PARSER_RESULT (parser)->line_offset.sign != LINE_OFFSET_UNKNOWN)
2072 discard_cleanups (cleanup);
2074 /* Consume this token. */
2075 linespec_lexer_consume_token (parser);
2077 goto convert_to_sals;
2080 do_cleanups (cleanup);
2082 else if (token.type != LSTOKEN_STRING && token.type != LSTOKEN_NUMBER)
2083 unexpected_linespec_error (parser);
2085 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2086 this token cannot represent a filename. */
2087 token = linespec_lexer_peek_token (parser);
2089 if (token.type == LSTOKEN_COLON)
2091 char *user_filename;
2093 /* Get the current token again and extract the filename. */
2094 token = linespec_lexer_lex_one (parser);
2095 user_filename = copy_token_string (token);
2097 /* Check if the input is a filename. */
2098 TRY_CATCH (file_exception, RETURN_MASK_ERROR)
2100 PARSER_RESULT (parser)->file_symtabs
2101 = symtabs_from_filename (user_filename);
2104 if (file_exception.reason >= 0)
2106 /* Symtabs were found for the file. Record the filename. */
2107 PARSER_RESULT (parser)->source_filename = user_filename;
2109 /* Get the next token. */
2110 token = linespec_lexer_consume_token (parser);
2112 /* This is LSTOKEN_COLON; consume it. */
2113 linespec_lexer_consume_token (parser);
2117 /* No symtabs found -- discard user_filename. */
2118 xfree (user_filename);
2120 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2121 VEC_safe_push (symtab_p, PARSER_RESULT (parser)->file_symtabs, NULL);
2124 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2125 else if (token.type != LSTOKEN_EOI && token.type != LSTOKEN_KEYWORD
2126 && token.type != LSTOKEN_COMMA)
2128 /* TOKEN is the _next_ token, not the one currently in the parser.
2129 Consuming the token will give the correct error message. */
2130 linespec_lexer_consume_token (parser);
2131 unexpected_linespec_error (parser);
2135 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2136 VEC_safe_push (symtab_p, PARSER_RESULT (parser)->file_symtabs, NULL);
2139 /* Parse the rest of the linespec. */
2140 linespec_parse_basic (parser);
2142 if (PARSER_RESULT (parser)->function_symbols == NULL
2143 && PARSER_RESULT (parser)->labels.label_symbols == NULL
2144 && PARSER_RESULT (parser)->line_offset.sign == LINE_OFFSET_UNKNOWN
2145 && PARSER_RESULT (parser)->minimal_symbols == NULL)
2147 /* The linespec didn't parse. Re-throw the file exception if
2149 if (file_exception.reason < 0)
2150 throw_exception (file_exception);
2152 /* Otherwise, the symbol is not found. */
2153 symbol_not_found_error (PARSER_RESULT (parser)->function_name,
2154 PARSER_RESULT (parser)->source_filename);
2159 /* Get the last token and record how much of the input was parsed,
2161 token = linespec_lexer_lex_one (parser);
2162 if (token.type != LSTOKEN_EOI && token.type != LSTOKEN_KEYWORD)
2163 PARSER_STREAM (parser) = LS_TOKEN_STOKEN (token).ptr;
2165 /* Convert the data in PARSER_RESULT to SALs. */
2166 values = convert_linespec_to_sals (PARSER_STATE (parser),
2167 PARSER_RESULT (parser));
2173 /* A constructor for linespec_state. */
2176 linespec_state_constructor (struct linespec_state *self,
2177 int flags, const struct language_defn *language,
2178 struct symtab *default_symtab,
2180 struct linespec_result *canonical)
2182 memset (self, 0, sizeof (*self));
2183 self->language = language;
2184 self->funfirstline = (flags & DECODE_LINE_FUNFIRSTLINE) ? 1 : 0;
2185 self->list_mode = (flags & DECODE_LINE_LIST_MODE) ? 1 : 0;
2186 self->default_symtab = default_symtab;
2187 self->default_line = default_line;
2188 self->canonical = canonical;
2189 self->program_space = current_program_space;
2190 self->addr_set = htab_create_alloc (10, hash_address_entry, eq_address_entry,
2191 xfree, xcalloc, xfree);
2194 /* Initialize a new linespec parser. */
2197 linespec_parser_new (linespec_parser *parser,
2198 int flags, const struct language_defn *language,
2199 struct symtab *default_symtab,
2201 struct linespec_result *canonical)
2203 parser->lexer.current.type = LSTOKEN_CONSUMED;
2204 memset (PARSER_RESULT (parser), 0, sizeof (struct linespec));
2205 PARSER_RESULT (parser)->line_offset.sign = LINE_OFFSET_UNKNOWN;
2206 linespec_state_constructor (PARSER_STATE (parser), flags, language,
2207 default_symtab, default_line, canonical);
2210 /* A destructor for linespec_state. */
2213 linespec_state_destructor (struct linespec_state *self)
2215 htab_delete (self->addr_set);
2218 /* Delete a linespec parser. */
2221 linespec_parser_delete (void *arg)
2223 linespec_parser *parser = (linespec_parser *) arg;
2225 if (PARSER_RESULT (parser)->expression)
2226 xfree (PARSER_RESULT (parser)->expression);
2227 if (PARSER_RESULT (parser)->source_filename)
2228 xfree (PARSER_RESULT (parser)->source_filename);
2229 if (PARSER_RESULT (parser)->label_name)
2230 xfree (PARSER_RESULT (parser)->label_name);
2231 if (PARSER_RESULT (parser)->function_name)
2232 xfree (PARSER_RESULT (parser)->function_name);
2234 if (PARSER_RESULT (parser)->file_symtabs != NULL)
2235 VEC_free (symtab_p, PARSER_RESULT (parser)->file_symtabs);
2237 if (PARSER_RESULT (parser)->function_symbols != NULL)
2238 VEC_free (symbolp, PARSER_RESULT (parser)->function_symbols);
2240 if (PARSER_RESULT (parser)->minimal_symbols != NULL)
2241 VEC_free (minsym_and_objfile_d, PARSER_RESULT (parser)->minimal_symbols);
2243 if (PARSER_RESULT (parser)->labels.label_symbols != NULL)
2244 VEC_free (symbolp, PARSER_RESULT (parser)->labels.label_symbols);
2246 if (PARSER_RESULT (parser)->labels.function_symbols != NULL)
2247 VEC_free (symbolp, PARSER_RESULT (parser)->labels.function_symbols);
2249 linespec_state_destructor (PARSER_STATE (parser));
2252 /* See linespec.h. */
2255 decode_line_full (char **argptr, int flags,
2256 struct symtab *default_symtab,
2257 int default_line, struct linespec_result *canonical,
2258 const char *select_mode,
2261 struct symtabs_and_lines result;
2262 struct cleanup *cleanups;
2263 char *arg_start = *argptr;
2264 VEC (const_char_ptr) *filters = NULL;
2265 linespec_parser parser;
2266 struct linespec_state *state;
2268 gdb_assert (canonical != NULL);
2269 /* The filter only makes sense for 'all'. */
2270 gdb_assert (filter == NULL || select_mode == multiple_symbols_all);
2271 gdb_assert (select_mode == NULL
2272 || select_mode == multiple_symbols_all
2273 || select_mode == multiple_symbols_ask
2274 || select_mode == multiple_symbols_cancel);
2275 gdb_assert ((flags & DECODE_LINE_LIST_MODE) == 0);
2277 linespec_parser_new (&parser, flags, current_language, default_symtab,
2278 default_line, canonical);
2279 cleanups = make_cleanup (linespec_parser_delete, &parser);
2280 save_current_program_space ();
2282 result = parse_linespec (&parser, argptr);
2283 state = PARSER_STATE (&parser);
2285 gdb_assert (result.nelts == 1 || canonical->pre_expanded);
2286 gdb_assert (canonical->addr_string != NULL);
2287 canonical->pre_expanded = 1;
2289 /* Fill in the missing canonical names. */
2290 if (result.nelts > 0)
2294 if (state->canonical_names == NULL)
2295 state->canonical_names = xcalloc (result.nelts, sizeof (char *));
2296 make_cleanup (xfree, state->canonical_names);
2297 for (i = 0; i < result.nelts; ++i)
2299 if (state->canonical_names[i] == NULL)
2300 state->canonical_names[i] = savestring (arg_start,
2301 *argptr - arg_start);
2302 make_cleanup (xfree, state->canonical_names[i]);
2306 if (select_mode == NULL)
2308 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2309 select_mode = multiple_symbols_all;
2311 select_mode = multiple_symbols_select_mode ();
2314 if (select_mode == multiple_symbols_all)
2318 make_cleanup (VEC_cleanup (const_char_ptr), &filters);
2319 VEC_safe_push (const_char_ptr, filters, filter);
2320 filter_results (state, &result, filters);
2323 convert_results_to_lsals (state, &result);
2326 decode_line_2 (state, &result, select_mode);
2328 do_cleanups (cleanups);
2331 struct symtabs_and_lines
2332 decode_line_1 (char **argptr, int flags,
2333 struct symtab *default_symtab,
2336 struct symtabs_and_lines result;
2337 linespec_parser parser;
2338 struct cleanup *cleanups;
2340 linespec_parser_new (&parser, flags, current_language, default_symtab,
2341 default_line, NULL);
2342 cleanups = make_cleanup (linespec_parser_delete, &parser);
2343 save_current_program_space ();
2345 result = parse_linespec (&parser, argptr);
2347 do_cleanups (cleanups);
2353 /* First, some functions to initialize stuff at the beggining of the
2357 initialize_defaults (struct symtab **default_symtab, int *default_line)
2359 if (*default_symtab == 0)
2361 /* Use whatever we have for the default source line. We don't use
2362 get_current_or_default_symtab_and_line as it can recurse and call
2364 struct symtab_and_line cursal =
2365 get_current_source_symtab_and_line ();
2367 *default_symtab = cursal.symtab;
2368 *default_line = cursal.line;
2374 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2375 advancing EXP_PTR past any parsed text. */
2378 linespec_expression_to_pc (char **exp_ptr)
2380 if (current_program_space->executing_startup)
2381 /* The error message doesn't really matter, because this case
2382 should only hit during breakpoint reset. */
2383 throw_error (NOT_FOUND_ERROR, _("cannot evaluate expressions while "
2384 "program space is in startup"));
2387 return value_as_address (parse_to_comma_and_eval (exp_ptr));
2392 /* Here's where we recognise an Objective-C Selector. An Objective C
2393 selector may be implemented by more than one class, therefore it
2394 may represent more than one method/function. This gives us a
2395 situation somewhat analogous to C++ overloading. If there's more
2396 than one method that could represent the selector, then use some of
2397 the existing C++ code to let the user choose one. */
2399 static struct symtabs_and_lines
2400 decode_objc (struct linespec_state *self, linespec_p ls, char **argptr)
2402 struct collect_info info;
2403 VEC (const_char_ptr) *symbol_names = NULL;
2404 struct symtabs_and_lines values;
2406 struct cleanup *cleanup = make_cleanup (VEC_cleanup (const_char_ptr),
2410 info.file_symtabs = NULL;
2411 VEC_safe_push (symtab_p, info.file_symtabs, NULL);
2412 info.result.symbols = NULL;
2413 info.result.minimal_symbols = NULL;
2417 new_argptr = find_imps (*argptr, &symbol_names);
2418 if (VEC_empty (const_char_ptr, symbol_names))
2420 do_cleanups (cleanup);
2424 add_all_symbol_names_from_pspace (&info, NULL, symbol_names);
2426 if (!VEC_empty (symbolp, info.result.symbols)
2427 || !VEC_empty (minsym_and_objfile_d, info.result.minimal_symbols))
2431 saved_arg = alloca (new_argptr - *argptr + 1);
2432 memcpy (saved_arg, *argptr, new_argptr - *argptr);
2433 saved_arg[new_argptr - *argptr] = '\0';
2435 ls->function_symbols = info.result.symbols;
2436 ls->minimal_symbols = info.result.minimal_symbols;
2437 values = convert_linespec_to_sals (self, ls);
2439 if (self->canonical)
2441 self->canonical->pre_expanded = 1;
2442 if (ls->source_filename)
2443 self->canonical->addr_string
2444 = xstrprintf ("%s:%s", ls->source_filename, saved_arg);
2446 self->canonical->addr_string = xstrdup (saved_arg);
2450 *argptr = new_argptr;
2452 do_cleanups (cleanup);
2457 /* An instance of this type is used when collecting prefix symbols for
2460 struct decode_compound_collector
2462 /* The result vector. */
2463 VEC (symbolp) *symbols;
2465 /* A hash table of all symbols we found. We use this to avoid
2466 adding any symbol more than once. */
2470 /* A callback for iterate_over_symbols that is used by
2471 lookup_prefix_sym to collect type symbols. */
2474 collect_one_symbol (struct symbol *sym, void *d)
2476 struct decode_compound_collector *collector = d;
2480 if (SYMBOL_CLASS (sym) != LOC_TYPEDEF)
2481 return 1; /* Continue iterating. */
2483 t = SYMBOL_TYPE (sym);
2485 if (TYPE_CODE (t) != TYPE_CODE_STRUCT
2486 && TYPE_CODE (t) != TYPE_CODE_UNION
2487 && TYPE_CODE (t) != TYPE_CODE_NAMESPACE)
2488 return 1; /* Continue iterating. */
2490 slot = htab_find_slot (collector->unique_syms, sym, INSERT);
2494 VEC_safe_push (symbolp, collector->symbols, sym);
2497 return 1; /* Continue iterating. */
2500 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2502 static VEC (symbolp) *
2503 lookup_prefix_sym (struct linespec_state *state, VEC (symtab_p) *file_symtabs,
2504 const char *class_name)
2508 struct decode_compound_collector collector;
2509 struct cleanup *outer;
2510 struct cleanup *cleanup;
2512 collector.symbols = NULL;
2513 outer = make_cleanup (VEC_cleanup (symbolp), &collector.symbols);
2515 collector.unique_syms = htab_create_alloc (1, htab_hash_pointer,
2516 htab_eq_pointer, NULL,
2518 cleanup = make_cleanup_htab_delete (collector.unique_syms);
2520 for (ix = 0; VEC_iterate (symtab_p, file_symtabs, ix, elt); ++ix)
2524 iterate_over_all_matching_symtabs (state, class_name, STRUCT_DOMAIN,
2525 collect_one_symbol, &collector,
2527 iterate_over_all_matching_symtabs (state, class_name, VAR_DOMAIN,
2528 collect_one_symbol, &collector,
2533 struct block *search_block;
2535 /* Program spaces that are executing startup should have
2536 been filtered out earlier. */
2537 gdb_assert (!SYMTAB_PSPACE (elt)->executing_startup);
2538 set_current_program_space (SYMTAB_PSPACE (elt));
2539 search_block = get_search_block (elt);
2540 LA_ITERATE_OVER_SYMBOLS (search_block, class_name, STRUCT_DOMAIN,
2541 collect_one_symbol, &collector);
2542 LA_ITERATE_OVER_SYMBOLS (search_block, class_name, VAR_DOMAIN,
2543 collect_one_symbol, &collector);
2547 do_cleanups (cleanup);
2548 discard_cleanups (outer);
2549 return collector.symbols;
2552 /* A qsort comparison function for symbols. The resulting order does
2553 not actually matter; we just need to be able to sort them so that
2554 symbols with the same program space end up next to each other. */
2557 compare_symbols (const void *a, const void *b)
2559 struct symbol * const *sa = a;
2560 struct symbol * const *sb = b;
2563 uia = (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sa));
2564 uib = (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sb));
2571 uia = (uintptr_t) *sa;
2572 uib = (uintptr_t) *sb;
2582 /* Like compare_symbols but for minimal symbols. */
2585 compare_msymbols (const void *a, const void *b)
2587 struct minimal_symbol * const *sa = a;
2588 struct minimal_symbol * const *sb = b;
2591 uia = (uintptr_t) SYMBOL_OBJ_SECTION (*sa)->objfile->pspace;
2592 uib = (uintptr_t) SYMBOL_OBJ_SECTION (*sb)->objfile->pspace;
2599 uia = (uintptr_t) *sa;
2600 uib = (uintptr_t) *sb;
2610 /* Look for all the matching instances of each symbol in NAMES. Only
2611 instances from PSPACE are considered; other program spaces are
2612 handled by our caller. If PSPACE is NULL, then all program spaces
2613 are considered. Results are stored into INFO. */
2616 add_all_symbol_names_from_pspace (struct collect_info *info,
2617 struct program_space *pspace,
2618 VEC (const_char_ptr) *names)
2623 for (ix = 0; VEC_iterate (const_char_ptr, names, ix, iter); ++ix)
2624 add_matching_symbols_to_info (iter, info, pspace);
2628 find_superclass_methods (VEC (typep) *superclasses,
2630 VEC (const_char_ptr) **result_names)
2632 int old_len = VEC_length (const_char_ptr, *result_names);
2633 VEC (typep) *iter_classes;
2634 struct cleanup *cleanup = make_cleanup (null_cleanup, NULL);
2636 iter_classes = superclasses;
2639 VEC (typep) *new_supers = NULL;
2643 make_cleanup (VEC_cleanup (typep), &new_supers);
2644 for (ix = 0; VEC_iterate (typep, iter_classes, ix, t); ++ix)
2645 find_methods (t, name, result_names, &new_supers);
2647 if (VEC_length (const_char_ptr, *result_names) != old_len
2648 || VEC_empty (typep, new_supers))
2651 iter_classes = new_supers;
2654 do_cleanups (cleanup);
2657 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2658 given by one of the symbols in SYM_CLASSES. Matches are returned
2659 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2662 find_method (struct linespec_state *self, VEC (symtab_p) *file_symtabs,
2663 const char *class_name, const char *method_name,
2664 VEC (symbolp) *sym_classes, VEC (symbolp) **symbols,
2665 VEC (minsym_and_objfile_d) **minsyms)
2668 struct cleanup *cleanup = make_cleanup (null_cleanup, NULL);
2670 int last_result_len;
2671 VEC (typep) *superclass_vec;
2672 VEC (const_char_ptr) *result_names;
2673 struct collect_info info;
2676 /* Sort symbols so that symbols with the same program space are next
2678 qsort (VEC_address (symbolp, sym_classes),
2679 VEC_length (symbolp, sym_classes),
2684 info.file_symtabs = file_symtabs;
2685 info.result.symbols = NULL;
2686 info.result.minimal_symbols = NULL;
2688 /* Iterate over all the types, looking for the names of existing
2689 methods matching METHOD_NAME. If we cannot find a direct method in a
2690 given program space, then we consider inherited methods; this is
2691 not ideal (ideal would be to respect C++ hiding rules), but it
2692 seems good enough and is what GDB has historically done. We only
2693 need to collect the names because later we find all symbols with
2694 those names. This loop is written in a somewhat funny way
2695 because we collect data across the program space before deciding
2697 superclass_vec = NULL;
2698 make_cleanup (VEC_cleanup (typep), &superclass_vec);
2699 result_names = NULL;
2700 make_cleanup (VEC_cleanup (const_char_ptr), &result_names);
2701 last_result_len = 0;
2702 for (ix = 0; VEC_iterate (symbolp, sym_classes, ix, sym); ++ix)
2705 struct program_space *pspace;
2707 /* Program spaces that are executing startup should have
2708 been filtered out earlier. */
2709 gdb_assert (!SYMTAB_PSPACE (SYMBOL_SYMTAB (sym))->executing_startup);
2710 pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
2711 set_current_program_space (pspace);
2712 t = check_typedef (SYMBOL_TYPE (sym));
2713 find_methods (t, method_name, &result_names, &superclass_vec);
2715 /* Handle all items from a single program space at once; and be
2716 sure not to miss the last batch. */
2717 if (ix == VEC_length (symbolp, sym_classes) - 1
2719 != SYMTAB_PSPACE (SYMBOL_SYMTAB (VEC_index (symbolp, sym_classes,
2722 /* If we did not find a direct implementation anywhere in
2723 this program space, consider superclasses. */
2724 if (VEC_length (const_char_ptr, result_names) == last_result_len)
2725 find_superclass_methods (superclass_vec, method_name,
2728 /* We have a list of candidate symbol names, so now we
2729 iterate over the symbol tables looking for all
2730 matches in this pspace. */
2731 add_all_symbol_names_from_pspace (&info, pspace, result_names);
2733 VEC_truncate (typep, superclass_vec, 0);
2734 last_result_len = VEC_length (const_char_ptr, result_names);
2738 if (!VEC_empty (symbolp, info.result.symbols)
2739 || !VEC_empty (minsym_and_objfile_d, info.result.minimal_symbols))
2741 *symbols = info.result.symbols;
2742 *minsyms = info.result.minimal_symbols;
2743 do_cleanups (cleanup);
2747 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
2748 and other attempts to locate the symbol will be made. */
2749 throw_error (NOT_FOUND_ERROR, _("see caller, this text doesn't matter"));
2754 /* This object is used when collecting all matching symtabs. */
2756 struct symtab_collector
2758 /* The result vector of symtabs. */
2759 VEC (symtab_p) *symtabs;
2761 /* This is used to ensure the symtabs are unique. */
2762 htab_t symtab_table;
2765 /* Callback for iterate_over_symtabs. */
2768 add_symtabs_to_list (struct symtab *symtab, void *d)
2770 struct symtab_collector *data = d;
2773 slot = htab_find_slot (data->symtab_table, symtab, INSERT);
2777 VEC_safe_push (symtab_p, data->symtabs, symtab);
2783 /* Given a file name, return a VEC of all matching symtabs. */
2785 static VEC (symtab_p) *
2786 collect_symtabs_from_filename (const char *file)
2788 struct symtab_collector collector;
2789 struct cleanup *cleanups;
2790 struct program_space *pspace;
2792 collector.symtabs = NULL;
2793 collector.symtab_table = htab_create (1, htab_hash_pointer, htab_eq_pointer,
2795 cleanups = make_cleanup_htab_delete (collector.symtab_table);
2797 /* Find that file's data. */
2798 ALL_PSPACES (pspace)
2800 if (pspace->executing_startup)
2803 set_current_program_space (pspace);
2804 iterate_over_symtabs (file, add_symtabs_to_list, &collector);
2807 do_cleanups (cleanups);
2808 return collector.symtabs;
2811 /* Return all the symtabs associated to the FILENAME. */
2813 static VEC (symtab_p) *
2814 symtabs_from_filename (const char *filename)
2816 VEC (symtab_p) *result;
2818 result = collect_symtabs_from_filename (filename);
2820 if (VEC_empty (symtab_p, result))
2822 if (!have_full_symbols () && !have_partial_symbols ())
2823 throw_error (NOT_FOUND_ERROR,
2824 _("No symbol table is loaded. "
2825 "Use the \"file\" command."));
2826 throw_error (NOT_FOUND_ERROR, _("No source file named %s."), filename);
2832 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
2833 debug symbols are returned in SYMBOLS. Matching minimal symbols are
2834 returned in MINSYMS. */
2837 find_function_symbols (struct linespec_state *state,
2838 VEC (symtab_p) *file_symtabs, const char *name,
2839 VEC (symbolp) **symbols,
2840 VEC (minsym_and_objfile_d) **minsyms)
2842 struct collect_info info;
2843 VEC (const_char_ptr) *symbol_names = NULL;
2844 struct cleanup *cleanup = make_cleanup (VEC_cleanup (const_char_ptr),
2848 info.result.symbols = NULL;
2849 info.result.minimal_symbols = NULL;
2850 info.file_symtabs = file_symtabs;
2852 /* Try NAME as an Objective-C selector. */
2853 find_imps ((char *) name, &symbol_names);
2854 if (!VEC_empty (const_char_ptr, symbol_names))
2855 add_all_symbol_names_from_pspace (&info, NULL, symbol_names);
2857 add_matching_symbols_to_info (name, &info, NULL);
2859 do_cleanups (cleanup);
2861 if (VEC_empty (symbolp, info.result.symbols))
2863 VEC_free (symbolp, info.result.symbols);
2867 *symbols = info.result.symbols;
2869 if (VEC_empty (minsym_and_objfile_d, info.result.minimal_symbols))
2871 VEC_free (minsym_and_objfile_d, info.result.minimal_symbols);
2875 *minsyms = info.result.minimal_symbols;
2878 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
2879 in SYMBOLS and minimal symbols in MINSYMS. */
2882 find_linespec_symbols (struct linespec_state *state,
2883 VEC (symtab_p) *file_symtabs,
2885 VEC (symbolp) **symbols,
2886 VEC (minsym_and_objfile_d) **minsyms)
2888 char *klass, *method, *canon;
2889 const char *lookup_name, *last, *p, *scope_op;
2890 struct cleanup *cleanup;
2891 VEC (symbolp) *classes;
2892 volatile struct gdb_exception except;
2894 cleanup = demangle_for_lookup (name, state->language->la_language,
2896 if (state->language->la_language == language_ada)
2898 /* In Ada, the symbol lookups are performed using the encoded
2899 name rather than the demangled name. */
2900 lookup_name = ada_name_for_lookup (name);
2901 make_cleanup (xfree, (void *) lookup_name);
2904 canon = cp_canonicalize_string_no_typedefs (lookup_name);
2907 lookup_name = canon;
2908 cleanup = make_cleanup (xfree, canon);
2911 /* See if we can find a scope operator and break this symbol
2912 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
2914 p = find_toplevel_string (lookup_name, scope_op);
2917 /* No C++ scope operator. Try Java. */
2919 p = find_toplevel_string (lookup_name, scope_op);
2926 p = find_toplevel_string (p + strlen (scope_op), scope_op);
2929 /* If no scope operator was found, lookup the name as a symbol. */
2932 find_function_symbols (state, file_symtabs, lookup_name,
2934 do_cleanups (cleanup);
2938 /* NAME points to the class name.
2939 LAST points to the method name. */
2940 klass = xmalloc ((last - lookup_name + 1) * sizeof (char));
2941 make_cleanup (xfree, klass);
2942 strncpy (klass, lookup_name, last - lookup_name);
2943 klass[last - lookup_name] = '\0';
2945 /* Skip past the scope operator. */
2946 last += strlen (scope_op);
2947 method = xmalloc ((strlen (last) + 1) * sizeof (char));
2948 make_cleanup (xfree, method);
2949 strcpy (method, last);
2951 /* Find a list of classes named KLASS. */
2952 classes = lookup_prefix_sym (state, file_symtabs, klass);
2953 if (!VEC_empty (symbolp, classes))
2955 /* Now locate a list of suitable methods named METHOD. */
2956 TRY_CATCH (except, RETURN_MASK_ERROR)
2958 find_method (state, file_symtabs, klass, method, classes,
2962 /* If successful, we're done. If NOT_FOUND_ERROR
2963 was not thrown, rethrow the exception that we did get.
2964 Otherwise, fall back to looking up the entire name as a symbol.
2965 This can happen with namespace::function. */
2966 if (except.reason >= 0)
2968 do_cleanups (cleanup);
2971 else if (except.error != NOT_FOUND_ERROR)
2972 throw_exception (except);
2975 /* We couldn't find a class, so we check the entire name as a symbol
2977 find_function_symbols (state, file_symtabs, lookup_name, symbols, minsyms);
2978 do_cleanups (cleanup);
2981 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
2982 actual function symbol in which the label was found in LABEL_FUNC_RET. */
2984 static VEC (symbolp) *
2985 find_label_symbols (struct linespec_state *self,
2986 VEC (symbolp) *function_symbols,
2987 VEC (symbolp) **label_funcs_ret, const char *name)
2990 struct block *block;
2992 struct symbol *fn_sym;
2993 VEC (symbolp) *result = NULL;
2995 if (function_symbols == NULL)
2997 set_current_program_space (self->program_space);
2998 block = get_search_block (NULL);
3001 block && !BLOCK_FUNCTION (block);
3002 block = BLOCK_SUPERBLOCK (block))
3006 fn_sym = BLOCK_FUNCTION (block);
3008 sym = lookup_symbol (name, block, LABEL_DOMAIN, 0);
3012 VEC_safe_push (symbolp, result, sym);
3013 VEC_safe_push (symbolp, *label_funcs_ret, fn_sym);
3019 VEC_iterate (symbolp, function_symbols, ix, fn_sym); ++ix)
3021 set_current_program_space (SYMTAB_PSPACE (SYMBOL_SYMTAB (fn_sym)));
3022 block = SYMBOL_BLOCK_VALUE (fn_sym);
3023 sym = lookup_symbol (name, block, LABEL_DOMAIN, 0);
3027 VEC_safe_push (symbolp, result, sym);
3028 VEC_safe_push (symbolp, *label_funcs_ret, fn_sym);
3038 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3041 decode_digits_list_mode (struct linespec_state *self,
3043 struct symtabs_and_lines *values,
3044 struct symtab_and_line val)
3049 gdb_assert (self->list_mode);
3051 for (ix = 0; VEC_iterate (symtab_p, ls->file_symtabs, ix, elt);
3054 /* The logic above should ensure this. */
3055 gdb_assert (elt != NULL);
3057 set_current_program_space (SYMTAB_PSPACE (elt));
3059 /* Simplistic search just for the list command. */
3060 val.symtab = find_line_symtab (elt, val.line, NULL, NULL);
3061 if (val.symtab == NULL)
3063 val.pspace = SYMTAB_PSPACE (elt);
3065 val.explicit_line = 1;
3067 add_sal_to_sals (self, values, &val, NULL);
3071 /* A helper for create_sals_line_offset that iterates over the symtabs,
3072 adding lines to the VEC. */
3075 decode_digits_ordinary (struct linespec_state *self,
3078 struct symtabs_and_lines *sals,
3079 struct linetable_entry **best_entry)
3084 for (ix = 0; VEC_iterate (symtab_p, ls->file_symtabs, ix, elt); ++ix)
3087 VEC (CORE_ADDR) *pcs;
3090 /* The logic above should ensure this. */
3091 gdb_assert (elt != NULL);
3093 set_current_program_space (SYMTAB_PSPACE (elt));
3095 pcs = find_pcs_for_symtab_line (elt, line, best_entry);
3096 for (i = 0; VEC_iterate (CORE_ADDR, pcs, i, pc); ++i)
3098 struct symtab_and_line sal;
3101 sal.pspace = SYMTAB_PSPACE (elt);
3105 add_sal_to_sals_basic (sals, &sal);
3108 VEC_free (CORE_ADDR, pcs);
3114 /* Return the line offset represented by VARIABLE. */
3116 static struct line_offset
3117 linespec_parse_variable (struct linespec_state *self, const char *variable)
3121 struct line_offset offset = {0, LINE_OFFSET_NONE};
3123 p = (variable[1] == '$') ? variable + 2 : variable + 1;
3126 while (*p >= '0' && *p <= '9')
3128 if (!*p) /* Reached end of token without hitting non-digit. */
3130 /* We have a value history reference. */
3131 struct value *val_history;
3133 sscanf ((variable[1] == '$') ? variable + 2 : variable + 1, "%d", &index);
3135 = access_value_history ((variable[1] == '$') ? -index : index);
3136 if (TYPE_CODE (value_type (val_history)) != TYPE_CODE_INT)
3137 error (_("History values used in line "
3138 "specs must have integer values."));
3139 offset.offset = value_as_long (val_history);
3143 /* Not all digits -- may be user variable/function or a
3144 convenience variable. */
3146 struct internalvar *ivar;
3148 /* Try it as a convenience variable. If it is not a convenience
3149 variable, return and allow normal symbol lookup to occur. */
3150 ivar = lookup_only_internalvar (variable + 1);
3152 /* No internal variable with that name. Mark the offset
3153 as unknown to allow the name to be looked up as a symbol. */
3154 offset.sign = LINE_OFFSET_UNKNOWN;
3157 /* We found a valid variable name. If it is not an integer,
3159 if (!get_internalvar_integer (ivar, &valx))
3160 error (_("Convenience variables used in line "
3161 "specs must have integer values."));
3163 offset.offset = valx;
3171 /* A callback used to possibly add a symbol to the results. */
3174 collect_symbols (struct symbol *sym, void *data)
3176 struct collect_info *info = data;
3178 /* In list mode, add all matching symbols, regardless of class.
3179 This allows the user to type "list a_global_variable". */
3180 if (SYMBOL_CLASS (sym) == LOC_BLOCK || info->state->list_mode)
3181 VEC_safe_push (symbolp, info->result.symbols, sym);
3182 return 1; /* Continue iterating. */
3185 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3186 linespec; return the SAL in RESULT. */
3189 minsym_found (struct linespec_state *self, struct objfile *objfile,
3190 struct minimal_symbol *msymbol,
3191 struct symtabs_and_lines *result)
3193 struct gdbarch *gdbarch = get_objfile_arch (objfile);
3195 struct symtab_and_line sal;
3197 sal = find_pc_sect_line (SYMBOL_VALUE_ADDRESS (msymbol),
3198 (struct obj_section *) 0, 0);
3199 sal.section = SYMBOL_OBJ_SECTION (msymbol);
3201 /* The minimal symbol might point to a function descriptor;
3202 resolve it to the actual code address instead. */
3203 pc = gdbarch_convert_from_func_ptr_addr (gdbarch, sal.pc, ¤t_target);
3205 sal = find_pc_sect_line (pc, NULL, 0);
3207 if (self->funfirstline)
3208 skip_prologue_sal (&sal);
3210 if (maybe_add_address (self->addr_set, objfile->pspace, sal.pc))
3211 add_sal_to_sals (self, result, &sal, SYMBOL_NATURAL_NAME (msymbol));
3214 /* A helper struct to pass some data through
3215 iterate_over_minimal_symbols. */
3217 struct collect_minsyms
3219 /* The objfile we're examining. */
3220 struct objfile *objfile;
3222 /* The funfirstline setting from the initial call. */
3225 /* The list_mode setting from the initial call. */
3228 /* The resulting symbols. */
3229 VEC (minsym_and_objfile_d) *msyms;
3232 /* A helper function to classify a minimal_symbol_type according to
3236 classify_mtype (enum minimal_symbol_type t)
3243 /* Intermediate priority. */
3246 case mst_solib_trampoline:
3247 /* Lowest priority. */
3251 /* Highest priority. */
3256 /* Callback for qsort that sorts symbols by priority. */
3259 compare_msyms (const void *a, const void *b)
3261 const minsym_and_objfile_d *moa = a;
3262 const minsym_and_objfile_d *mob = b;
3263 enum minimal_symbol_type ta = MSYMBOL_TYPE (moa->minsym);
3264 enum minimal_symbol_type tb = MSYMBOL_TYPE (mob->minsym);
3266 return classify_mtype (ta) - classify_mtype (tb);
3269 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3273 add_minsym (struct minimal_symbol *minsym, void *d)
3275 struct collect_minsyms *info = d;
3276 minsym_and_objfile_d mo;
3278 /* Exclude data symbols when looking for breakpoint locations. */
3279 if (!info->list_mode)
3280 switch (minsym->type)
3282 case mst_slot_got_plt:
3289 /* Make sure this minsym is not a function descriptor
3290 before we decide to discard it. */
3291 struct gdbarch *gdbarch = info->objfile->gdbarch;
3292 CORE_ADDR addr = gdbarch_convert_from_func_ptr_addr
3293 (gdbarch, SYMBOL_VALUE_ADDRESS (minsym),
3296 if (addr == SYMBOL_VALUE_ADDRESS (minsym))
3302 mo.objfile = info->objfile;
3303 VEC_safe_push (minsym_and_objfile_d, info->msyms, &mo);
3306 /* Search minimal symbols in all objfiles for NAME. If SEARCH_PSPACE
3307 is not NULL, the search is restricted to just that program
3311 search_minsyms_for_name (struct collect_info *info, const char *name,
3312 struct program_space *search_pspace)
3314 struct objfile *objfile;
3315 struct program_space *pspace;
3317 ALL_PSPACES (pspace)
3319 struct collect_minsyms local;
3320 struct cleanup *cleanup;
3322 if (search_pspace != NULL && search_pspace != pspace)
3324 if (pspace->executing_startup)
3327 set_current_program_space (pspace);
3329 memset (&local, 0, sizeof (local));
3330 local.funfirstline = info->state->funfirstline;
3331 local.list_mode = info->state->list_mode;
3333 cleanup = make_cleanup (VEC_cleanup (minsym_and_objfile_d),
3336 ALL_OBJFILES (objfile)
3338 local.objfile = objfile;
3339 iterate_over_minimal_symbols (objfile, name, add_minsym, &local);
3342 if (!VEC_empty (minsym_and_objfile_d, local.msyms))
3346 minsym_and_objfile_d *item;
3348 qsort (VEC_address (minsym_and_objfile_d, local.msyms),
3349 VEC_length (minsym_and_objfile_d, local.msyms),
3350 sizeof (minsym_and_objfile_d),
3353 /* Now the minsyms are in classification order. So, we walk
3354 over them and process just the minsyms with the same
3355 classification as the very first minsym in the list. */
3356 item = VEC_index (minsym_and_objfile_d, local.msyms, 0);
3357 classification = classify_mtype (MSYMBOL_TYPE (item->minsym));
3360 VEC_iterate (minsym_and_objfile_d, local.msyms, ix, item);
3363 if (classify_mtype (MSYMBOL_TYPE (item->minsym)) != classification)
3366 VEC_safe_push (minsym_and_objfile_d,
3367 info->result.minimal_symbols, item);
3371 do_cleanups (cleanup);
3375 /* A helper function to add all symbols matching NAME to INFO. If
3376 PSPACE is not NULL, the search is restricted to just that program
3380 add_matching_symbols_to_info (const char *name,
3381 struct collect_info *info,
3382 struct program_space *pspace)
3387 for (ix = 0; VEC_iterate (symtab_p, info->file_symtabs, ix, elt); ++ix)
3393 iterate_over_all_matching_symtabs (info->state, name, VAR_DOMAIN,
3394 collect_symbols, info,
3396 search_minsyms_for_name (info, name, pspace);
3398 else if (pspace == NULL || pspace == SYMTAB_PSPACE (elt))
3400 /* Program spaces that are executing startup should have
3401 been filtered out earlier. */
3402 gdb_assert (!SYMTAB_PSPACE (elt)->executing_startup);
3403 set_current_program_space (SYMTAB_PSPACE (elt));
3404 LA_ITERATE_OVER_SYMBOLS (get_search_block (elt), name,
3405 VAR_DOMAIN, collect_symbols,
3413 /* Now come some functions that are called from multiple places within
3417 symbol_to_sal (struct symtab_and_line *result,
3418 int funfirstline, struct symbol *sym)
3420 if (SYMBOL_CLASS (sym) == LOC_BLOCK)
3422 *result = find_function_start_sal (sym, funfirstline);
3427 if (SYMBOL_CLASS (sym) == LOC_LABEL && SYMBOL_VALUE_ADDRESS (sym) != 0)
3430 result->symtab = SYMBOL_SYMTAB (sym);
3431 result->line = SYMBOL_LINE (sym);
3432 result->pc = SYMBOL_VALUE_ADDRESS (sym);
3433 result->pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
3434 result->explicit_pc = 1;
3437 else if (funfirstline)
3441 else if (SYMBOL_LINE (sym) != 0)
3443 /* We know its line number. */
3445 result->symtab = SYMBOL_SYMTAB (sym);
3446 result->line = SYMBOL_LINE (sym);
3447 result->pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
3455 /* See the comment in linespec.h. */
3458 init_linespec_result (struct linespec_result *lr)
3460 memset (lr, 0, sizeof (*lr));
3463 /* See the comment in linespec.h. */
3466 destroy_linespec_result (struct linespec_result *ls)
3469 struct linespec_sals *lsal;
3471 xfree (ls->addr_string);
3472 for (i = 0; VEC_iterate (linespec_sals, ls->sals, i, lsal); ++i)
3474 xfree (lsal->canonical);
3475 xfree (lsal->sals.sals);
3477 VEC_free (linespec_sals, ls->sals);
3480 /* Cleanup function for a linespec_result. */
3483 cleanup_linespec_result (void *a)
3485 destroy_linespec_result (a);
3488 /* See the comment in linespec.h. */
3491 make_cleanup_destroy_linespec_result (struct linespec_result *ls)
3493 return make_cleanup (cleanup_linespec_result, ls);