1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2013 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"
48 typedef struct symtab *symtab_p;
51 typedef struct symbol *symbolp;
54 typedef struct type *typep;
57 /* An address entry is used to ensure that any given location is only
58 added to the result a single time. It holds an address and the
59 program space from which the address came. */
63 struct program_space *pspace;
67 /* A helper struct which just holds a minimal symbol and the object
68 file from which it came. */
70 typedef struct minsym_and_objfile
72 struct minimal_symbol *minsym;
73 struct objfile *objfile;
74 } minsym_and_objfile_d;
76 DEF_VEC_O (minsym_and_objfile_d);
78 /* An enumeration of possible signs for a line offset. */
79 enum offset_relative_sign
84 /* A plus sign ("+") */
87 /* A minus sign ("-") */
90 /* A special "sign" for unspecified offset. */
94 /* A line offset in a linespec. */
98 /* Line offset and any specified sign. */
100 enum offset_relative_sign sign;
103 /* A linespec. Elements of this structure are filled in by a parser
104 (either parse_linespec or some other function). The structure is
105 then converted into SALs by convert_linespec_to_sals. */
109 /* An expression and the resulting PC. Specifying an expression
110 currently precludes the use of other members. */
112 /* The expression entered by the user. */
113 const char *expression;
115 /* The resulting PC expression derived from evaluating EXPRESSION. */
118 /* Any specified file symtabs. */
120 /* The user-supplied source filename or NULL if none was specified. */
121 const char *source_filename;
123 /* The list of symtabs to search to which to limit the search. May not
124 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
125 FILE_SYMTABS should contain one single NULL member. This will
126 cause the code to use the default symtab. */
127 VEC (symtab_p) *file_symtabs;
129 /* The name of a function or method and any matching symbols. */
131 /* The user-specified function name. If no function name was
132 supplied, this may be NULL. */
133 const char *function_name;
135 /* A list of matching function symbols and minimal symbols. Both lists
136 may be NULL if no matching symbols were found. */
137 VEC (symbolp) *function_symbols;
138 VEC (minsym_and_objfile_d) *minimal_symbols;
140 /* The name of a label and matching symbols. */
142 /* The user-specified label name. */
143 const char *label_name;
145 /* A structure of matching label symbols and the corresponding
146 function symbol in which the label was found. Both may be NULL
147 or both must be non-NULL. */
150 VEC (symbolp) *label_symbols;
151 VEC (symbolp) *function_symbols;
154 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
155 offset was specified. */
156 struct line_offset line_offset;
158 typedef struct linespec *linespec_p;
160 /* A canonical linespec represented as a symtab-related string.
162 Each entry represents the "SYMTAB:SUFFIX" linespec string.
163 SYMTAB can be converted for example by symtab_to_fullname or
164 symtab_to_filename_for_display as needed. */
166 struct linespec_canonical_name
168 /* Remaining text part of the linespec string. */
171 /* If NULL then SUFFIX is the whole linespec string. */
172 struct symtab *symtab;
175 /* An instance of this is used to keep all state while linespec
176 operates. This instance is passed around as a 'this' pointer to
177 the various implementation methods. */
179 struct linespec_state
181 /* The language in use during linespec processing. */
182 const struct language_defn *language;
184 /* The program space as seen when the module was entered. */
185 struct program_space *program_space;
187 /* The default symtab to use, if no other symtab is specified. */
188 struct symtab *default_symtab;
190 /* The default line to use. */
193 /* The 'funfirstline' value that was passed in to decode_line_1 or
197 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
200 /* The 'canonical' value passed to decode_line_full, or NULL. */
201 struct linespec_result *canonical;
203 /* Canonical strings that mirror the symtabs_and_lines result. */
204 struct linespec_canonical_name *canonical_names;
206 /* This is a set of address_entry objects which is used to prevent
207 duplicate symbols from being entered into the result. */
211 /* This is a helper object that is used when collecting symbols into a
216 /* The linespec object in use. */
217 struct linespec_state *state;
219 /* A list of symtabs to which to restrict matches. */
220 VEC (symtab_p) *file_symtabs;
222 /* The result being accumulated. */
225 VEC (symbolp) *symbols;
226 VEC (minsym_and_objfile_d) *minimal_symbols;
237 /* A colon "separator" */
249 /* EOI (end of input) */
255 typedef enum ls_token_type linespec_token_type;
257 /* List of keywords */
259 static const char * const linespec_keywords[] = { "if", "thread", "task" };
261 /* A token of the linespec lexer */
265 /* The type of the token */
266 linespec_token_type type;
268 /* Data for the token */
271 /* A string, given as a stoken */
272 struct stoken string;
278 typedef struct ls_token linespec_token;
280 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
281 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
283 /* An instance of the linespec parser. */
287 /* Lexer internal data */
290 /* Save head of input stream. */
293 /* Head of the input stream. */
295 #define PARSER_STREAM(P) (*(P)->lexer.stream)
297 /* The current token. */
298 linespec_token current;
301 /* Is the entire linespec quote-enclosed? */
302 int is_quote_enclosed;
304 /* Is a keyword syntactically valid at this point?
305 In, e.g., "break thread thread 1", the leading "keyword" must not
306 be interpreted as such. */
309 /* The state of the parse. */
310 struct linespec_state state;
311 #define PARSER_STATE(PPTR) (&(PPTR)->state)
313 /* The result of the parse. */
314 struct linespec result;
315 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
317 typedef struct ls_parser linespec_parser;
319 /* Prototypes for local functions. */
321 static void iterate_over_file_blocks (struct symtab *symtab,
322 const char *name, domain_enum domain,
323 symbol_found_callback_ftype *callback,
326 static void initialize_defaults (struct symtab **default_symtab,
329 static CORE_ADDR linespec_expression_to_pc (char **exp_ptr);
331 static struct symtabs_and_lines decode_objc (struct linespec_state *self,
335 static VEC (symtab_p) *symtabs_from_filename (const char *);
337 static VEC (symbolp) *find_label_symbols (struct linespec_state *self,
338 VEC (symbolp) *function_symbols,
339 VEC (symbolp) **label_funcs_ret,
342 static void find_linespec_symbols (struct linespec_state *self,
343 VEC (symtab_p) *file_symtabs,
345 VEC (symbolp) **symbols,
346 VEC (minsym_and_objfile_d) **minsyms);
348 static struct line_offset
349 linespec_parse_variable (struct linespec_state *self,
350 const char *variable);
352 static int symbol_to_sal (struct symtab_and_line *result,
353 int funfirstline, struct symbol *sym);
355 static void add_matching_symbols_to_info (const char *name,
356 struct collect_info *info,
357 struct program_space *pspace);
359 static void add_all_symbol_names_from_pspace (struct collect_info *info,
360 struct program_space *pspace,
361 VEC (const_char_ptr) *names);
363 static VEC (symtab_p) *collect_symtabs_from_filename (const char *file);
365 static void decode_digits_ordinary (struct linespec_state *self,
368 struct symtabs_and_lines *sals,
369 struct linetable_entry **best_entry);
371 static void decode_digits_list_mode (struct linespec_state *self,
373 struct symtabs_and_lines *values,
374 struct symtab_and_line val);
376 static void minsym_found (struct linespec_state *self, struct objfile *objfile,
377 struct minimal_symbol *msymbol,
378 struct symtabs_and_lines *result);
380 static int compare_symbols (const void *a, const void *b);
382 static int compare_msymbols (const void *a, const void *b);
384 static const char *find_toplevel_char (const char *s, char c);
386 /* Permitted quote characters for the parser. This is different from the
387 completer's quote characters to allow backward compatibility with the
389 static const char *const linespec_quote_characters = "\"\'";
391 /* Lexer functions. */
393 /* Lex a number from the input in PARSER. This only supports
396 Return true if input is decimal numbers. Return false if not. */
399 linespec_lexer_lex_number (linespec_parser *parser, linespec_token *tokenp)
401 tokenp->type = LSTOKEN_NUMBER;
402 LS_TOKEN_STOKEN (*tokenp).length = 0;
403 LS_TOKEN_STOKEN (*tokenp).ptr = PARSER_STREAM (parser);
405 /* Keep any sign at the start of the stream. */
406 if (*PARSER_STREAM (parser) == '+' || *PARSER_STREAM (parser) == '-')
408 ++LS_TOKEN_STOKEN (*tokenp).length;
409 ++(PARSER_STREAM (parser));
412 while (isdigit (*PARSER_STREAM (parser)))
414 ++LS_TOKEN_STOKEN (*tokenp).length;
415 ++(PARSER_STREAM (parser));
418 /* If the next character in the input buffer is not a space, comma,
419 quote, or colon, this input does not represent a number. */
420 if (*PARSER_STREAM (parser) != '\0'
421 && !isspace (*PARSER_STREAM (parser)) && *PARSER_STREAM (parser) != ','
422 && *PARSER_STREAM (parser) != ':'
423 && !strchr (linespec_quote_characters, *PARSER_STREAM (parser)))
425 PARSER_STREAM (parser) = LS_TOKEN_STOKEN (*tokenp).ptr;
432 /* Does P represent one of the keywords? If so, return
433 the keyword. If not, return NULL. */
436 linespec_lexer_lex_keyword (const char *p)
442 for (i = 0; i < ARRAY_SIZE (linespec_keywords); ++i)
444 int len = strlen (linespec_keywords[i]);
446 /* If P begins with one of the keywords and the next
447 character is not a valid identifier character,
448 we have found a keyword. */
449 if (strncmp (p, linespec_keywords[i], len) == 0
450 && !(isalnum (p[len]) || p[len] == '_'))
451 return linespec_keywords[i];
458 /* Does STRING represent an Ada operator? If so, return the length
459 of the decoded operator name. If not, return 0. */
462 is_ada_operator (const char *string)
464 const struct ada_opname_map *mapping;
466 for (mapping = ada_opname_table;
467 mapping->encoded != NULL
468 && strncmp (mapping->decoded, string,
469 strlen (mapping->decoded)) != 0; ++mapping)
472 return mapping->decoded == NULL ? 0 : strlen (mapping->decoded);
475 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
476 the location of QUOTE_CHAR, or NULL if not found. */
479 skip_quote_char (const char *string, char quote_char)
481 const char *p, *last;
483 p = last = find_toplevel_char (string, quote_char);
484 while (p && *p != '\0' && *p != ':')
486 p = find_toplevel_char (p, quote_char);
494 /* Make a writable copy of the string given in TOKEN, trimming
495 any trailing whitespace. */
498 copy_token_string (linespec_token token)
502 if (token.type == LSTOKEN_KEYWORD)
503 return xstrdup (LS_TOKEN_KEYWORD (token));
505 str = savestring (LS_TOKEN_STOKEN (token).ptr,
506 LS_TOKEN_STOKEN (token).length);
507 s = remove_trailing_whitespace (str, str + LS_TOKEN_STOKEN (token).length);
513 /* Does P represent the end of a quote-enclosed linespec? */
516 is_closing_quote_enclosed (const char *p)
518 if (strchr (linespec_quote_characters, *p))
520 p = skip_spaces ((char *) p);
521 return (*p == '\0' || linespec_lexer_lex_keyword (p));
524 /* Find the end of the parameter list that starts with *INPUT.
525 This helper function assists with lexing string segments
526 which might contain valid (non-terminating) commas. */
529 find_parameter_list_end (char *input)
531 char end_char, start_char;
536 if (start_char == '(')
538 else if (start_char == '<')
547 if (*p == start_char)
549 else if (*p == end_char)
564 /* Lex a string from the input in PARSER. */
566 static linespec_token
567 linespec_lexer_lex_string (linespec_parser *parser)
569 linespec_token token;
570 char *start = PARSER_STREAM (parser);
572 token.type = LSTOKEN_STRING;
574 /* If the input stream starts with a quote character, skip to the next
575 quote character, regardless of the content. */
576 if (strchr (linespec_quote_characters, *PARSER_STREAM (parser)))
579 char quote_char = *PARSER_STREAM (parser);
581 /* Special case: Ada operators. */
582 if (PARSER_STATE (parser)->language->la_language == language_ada
583 && quote_char == '\"')
585 int len = is_ada_operator (PARSER_STREAM (parser));
589 /* The input is an Ada operator. Return the quoted string
591 LS_TOKEN_STOKEN (token).ptr = PARSER_STREAM (parser);
592 LS_TOKEN_STOKEN (token).length = len;
593 PARSER_STREAM (parser) += len;
597 /* The input does not represent an Ada operator -- fall through
598 to normal quoted string handling. */
601 /* Skip past the beginning quote. */
602 ++(PARSER_STREAM (parser));
604 /* Mark the start of the string. */
605 LS_TOKEN_STOKEN (token).ptr = PARSER_STREAM (parser);
607 /* Skip to the ending quote. */
608 end = skip_quote_char (PARSER_STREAM (parser), quote_char);
610 /* Error if the input did not terminate properly. */
612 error (_("unmatched quote"));
614 /* Skip over the ending quote and mark the length of the string. */
615 PARSER_STREAM (parser) = (char *) ++end;
616 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - 2 - start;
622 /* Otherwise, only identifier characters are permitted.
623 Spaces are the exception. In general, we keep spaces,
624 but only if the next characters in the input do not resolve
625 to one of the keywords.
627 This allows users to forgo quoting CV-qualifiers, template arguments,
628 and similar common language constructs. */
632 if (isspace (*PARSER_STREAM (parser)))
634 p = skip_spaces (PARSER_STREAM (parser));
635 /* When we get here we know we've found something followed by
636 a space (we skip over parens and templates below).
637 So if we find a keyword now, we know it is a keyword and not,
638 say, a function name. */
639 if (linespec_lexer_lex_keyword (p) != NULL)
641 LS_TOKEN_STOKEN (token).ptr = start;
642 LS_TOKEN_STOKEN (token).length
643 = PARSER_STREAM (parser) - start;
647 /* Advance past the whitespace. */
648 PARSER_STREAM (parser) = p;
651 /* If the next character is EOI or (single) ':', the
652 string is complete; return the token. */
653 if (*PARSER_STREAM (parser) == 0)
655 LS_TOKEN_STOKEN (token).ptr = start;
656 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - start;
659 else if (PARSER_STREAM (parser)[0] == ':')
661 /* Do not tokenize the C++ scope operator. */
662 if (PARSER_STREAM (parser)[1] == ':')
663 ++(PARSER_STREAM (parser));
665 /* Do not tokenify if the input length so far is one
666 (i.e, a single-letter drive name) and the next character
667 is a directory separator. This allows Windows-style
668 paths to be recognized as filenames without quoting it. */
669 else if ((PARSER_STREAM (parser) - start) != 1
670 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser)[1]))
672 LS_TOKEN_STOKEN (token).ptr = start;
673 LS_TOKEN_STOKEN (token).length
674 = PARSER_STREAM (parser) - start;
678 /* Special case: permit quote-enclosed linespecs. */
679 else if (parser->is_quote_enclosed
680 && strchr (linespec_quote_characters,
681 *PARSER_STREAM (parser))
682 && is_closing_quote_enclosed (PARSER_STREAM (parser)))
684 LS_TOKEN_STOKEN (token).ptr = start;
685 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - start;
688 /* Because commas may terminate a linespec and appear in
689 the middle of valid string input, special cases for
690 '<' and '(' are necessary. */
691 else if (*PARSER_STREAM (parser) == '<'
692 || *PARSER_STREAM (parser) == '(')
696 p = find_parameter_list_end (PARSER_STREAM (parser));
699 PARSER_STREAM (parser) = p;
703 /* Commas are terminators, but not if they are part of an
705 else if (*PARSER_STREAM (parser) == ',')
707 if ((PARSER_STATE (parser)->language->la_language
709 && (PARSER_STREAM (parser) - start) > 8
710 /* strlen ("operator") */)
712 char *p = strstr (start, "operator");
714 if (p != NULL && is_operator_name (p))
716 /* This is an operator name. Keep going. */
717 ++(PARSER_STREAM (parser));
722 /* Comma terminates the string. */
723 LS_TOKEN_STOKEN (token).ptr = start;
724 LS_TOKEN_STOKEN (token).length = PARSER_STREAM (parser) - start;
728 /* Advance the stream. */
729 ++(PARSER_STREAM (parser));
736 /* Lex a single linespec token from PARSER. */
738 static linespec_token
739 linespec_lexer_lex_one (linespec_parser *parser)
743 if (parser->lexer.current.type == LSTOKEN_CONSUMED)
745 /* Skip any whitespace. */
746 PARSER_STREAM (parser) = skip_spaces (PARSER_STREAM (parser));
748 /* Check for a keyword, they end the linespec. */
750 if (parser->keyword_ok)
751 keyword = linespec_lexer_lex_keyword (PARSER_STREAM (parser));
754 parser->lexer.current.type = LSTOKEN_KEYWORD;
755 LS_TOKEN_KEYWORD (parser->lexer.current) = keyword;
756 return parser->lexer.current;
759 /* Handle other tokens. */
760 switch (*PARSER_STREAM (parser))
763 parser->lexer.current.type = LSTOKEN_EOI;
767 case '0': case '1': case '2': case '3': case '4':
768 case '5': case '6': case '7': case '8': case '9':
769 if (!linespec_lexer_lex_number (parser, &(parser->lexer.current)))
770 parser->lexer.current = linespec_lexer_lex_string (parser);
774 /* If we have a scope operator, lex the input as a string.
775 Otherwise, return LSTOKEN_COLON. */
776 if (PARSER_STREAM (parser)[1] == ':')
777 parser->lexer.current = linespec_lexer_lex_string (parser);
780 parser->lexer.current.type = LSTOKEN_COLON;
781 ++(PARSER_STREAM (parser));
785 case '\'': case '\"':
786 /* Special case: permit quote-enclosed linespecs. */
787 if (parser->is_quote_enclosed
788 && is_closing_quote_enclosed (PARSER_STREAM (parser)))
790 ++(PARSER_STREAM (parser));
791 parser->lexer.current.type = LSTOKEN_EOI;
794 parser->lexer.current = linespec_lexer_lex_string (parser);
798 parser->lexer.current.type = LSTOKEN_COMMA;
799 LS_TOKEN_STOKEN (parser->lexer.current).ptr
800 = PARSER_STREAM (parser);
801 LS_TOKEN_STOKEN (parser->lexer.current).length = 1;
802 ++(PARSER_STREAM (parser));
806 /* If the input is not a number, it must be a string.
807 [Keywords were already considered above.] */
808 parser->lexer.current = linespec_lexer_lex_string (parser);
813 return parser->lexer.current;
816 /* Consume the current token and return the next token in PARSER's
819 static linespec_token
820 linespec_lexer_consume_token (linespec_parser *parser)
822 parser->lexer.current.type = LSTOKEN_CONSUMED;
823 return linespec_lexer_lex_one (parser);
826 /* Return the next token without consuming the current token. */
828 static linespec_token
829 linespec_lexer_peek_token (linespec_parser *parser)
832 char *saved_stream = PARSER_STREAM (parser);
833 linespec_token saved_token = parser->lexer.current;
835 next = linespec_lexer_consume_token (parser);
836 PARSER_STREAM (parser) = saved_stream;
837 parser->lexer.current = saved_token;
841 /* Helper functions. */
843 /* Add SAL to SALS. */
846 add_sal_to_sals_basic (struct symtabs_and_lines *sals,
847 struct symtab_and_line *sal)
850 sals->sals = xrealloc (sals->sals, sals->nelts * sizeof (sals->sals[0]));
851 sals->sals[sals->nelts - 1] = *sal;
854 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
855 the new sal, if needed. If not NULL, SYMNAME is the name of the
856 symbol to use when constructing the new canonical name.
858 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
859 canonical name for the SAL. */
862 add_sal_to_sals (struct linespec_state *self,
863 struct symtabs_and_lines *sals,
864 struct symtab_and_line *sal,
865 const char *symname, int literal_canonical)
867 add_sal_to_sals_basic (sals, sal);
871 struct linespec_canonical_name *canonical;
873 self->canonical_names = xrealloc (self->canonical_names,
875 * sizeof (*self->canonical_names)));
876 canonical = &self->canonical_names[sals->nelts - 1];
877 if (!literal_canonical && sal->symtab)
879 const char *fullname = symtab_to_fullname (sal->symtab);
881 /* Note that the filter doesn't have to be a valid linespec
882 input. We only apply the ":LINE" treatment to Ada for
884 if (symname != NULL && sal->line != 0
885 && self->language->la_language == language_ada)
886 canonical->suffix = xstrprintf ("%s:%d", symname, sal->line);
887 else if (symname != NULL)
888 canonical->suffix = xstrdup (symname);
890 canonical->suffix = xstrprintf ("%d", sal->line);
891 canonical->symtab = sal->symtab;
896 canonical->suffix = xstrdup (symname);
898 canonical->suffix = NULL;
899 canonical->symtab = NULL;
904 /* A hash function for address_entry. */
907 hash_address_entry (const void *p)
909 const struct address_entry *aep = p;
912 hash = iterative_hash_object (aep->pspace, 0);
913 return iterative_hash_object (aep->addr, hash);
916 /* An equality function for address_entry. */
919 eq_address_entry (const void *a, const void *b)
921 const struct address_entry *aea = a;
922 const struct address_entry *aeb = b;
924 return aea->pspace == aeb->pspace && aea->addr == aeb->addr;
927 /* Check whether the address, represented by PSPACE and ADDR, is
928 already in the set. If so, return 0. Otherwise, add it and return
932 maybe_add_address (htab_t set, struct program_space *pspace, CORE_ADDR addr)
934 struct address_entry e, *p;
939 slot = htab_find_slot (set, &e, INSERT);
943 p = XNEW (struct address_entry);
944 memcpy (p, &e, sizeof (struct address_entry));
950 /* A callback function and the additional data to call it with. */
952 struct symbol_and_data_callback
954 /* The callback to use. */
955 symbol_found_callback_ftype *callback;
957 /* Data to be passed to the callback. */
961 /* A helper for iterate_over_all_matching_symtabs that is used to
962 restrict calls to another callback to symbols representing inline
966 iterate_inline_only (struct symbol *sym, void *d)
968 if (SYMBOL_INLINED (sym))
970 struct symbol_and_data_callback *cad = d;
972 return cad->callback (sym, cad->data);
974 return 1; /* Continue iterating. */
977 /* Some data for the expand_symtabs_matching callback. */
979 struct symbol_matcher_data
981 /* The lookup name against which symbol name should be compared. */
982 const char *lookup_name;
984 /* The routine to be used for comparison. */
985 symbol_name_cmp_ftype symbol_name_cmp;
988 /* A helper for iterate_over_all_matching_symtabs that is passed as a
989 callback to the expand_symtabs_matching method. */
992 iterate_name_matcher (const char *name, void *d)
994 const struct symbol_matcher_data *data = d;
996 if (data->symbol_name_cmp (name, data->lookup_name) == 0)
997 return 1; /* Expand this symbol's symbol table. */
998 return 0; /* Skip this symbol. */
1001 /* A helper that walks over all matching symtabs in all objfiles and
1002 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
1003 not NULL, then the search is restricted to just that program
1004 space. If INCLUDE_INLINE is nonzero then symbols representing
1005 inlined instances of functions will be included in the result. */
1008 iterate_over_all_matching_symtabs (struct linespec_state *state,
1010 const domain_enum domain,
1011 symbol_found_callback_ftype *callback,
1013 struct program_space *search_pspace,
1016 struct objfile *objfile;
1017 struct program_space *pspace;
1018 struct symbol_matcher_data matcher_data;
1020 matcher_data.lookup_name = name;
1021 matcher_data.symbol_name_cmp =
1022 state->language->la_get_symbol_name_cmp != NULL
1023 ? state->language->la_get_symbol_name_cmp (name)
1026 ALL_PSPACES (pspace)
1028 if (search_pspace != NULL && search_pspace != pspace)
1030 if (pspace->executing_startup)
1033 set_current_program_space (pspace);
1035 ALL_OBJFILES (objfile)
1037 struct symtab *symtab;
1040 objfile->sf->qf->expand_symtabs_matching (objfile, NULL,
1041 iterate_name_matcher,
1045 ALL_OBJFILE_PRIMARY_SYMTABS (objfile, symtab)
1047 iterate_over_file_blocks (symtab, name, domain, callback, data);
1051 struct symbol_and_data_callback cad = { callback, data };
1052 struct block *block;
1055 for (i = FIRST_LOCAL_BLOCK;
1056 i < BLOCKVECTOR_NBLOCKS (BLOCKVECTOR (symtab)); i++)
1058 block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), i);
1059 state->language->la_iterate_over_symbols
1060 (block, name, domain, iterate_inline_only, &cad);
1068 /* Returns the block to be used for symbol searches from
1069 the current location. */
1071 static struct block *
1072 get_current_search_block (void)
1074 struct block *block;
1075 enum language save_language;
1077 /* get_selected_block can change the current language when there is
1078 no selected frame yet. */
1079 save_language = current_language->la_language;
1080 block = get_selected_block (0);
1081 set_language (save_language);
1086 /* Iterate over static and global blocks. */
1089 iterate_over_file_blocks (struct symtab *symtab,
1090 const char *name, domain_enum domain,
1091 symbol_found_callback_ftype *callback, void *data)
1093 struct block *block;
1095 for (block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), STATIC_BLOCK);
1097 block = BLOCK_SUPERBLOCK (block))
1098 LA_ITERATE_OVER_SYMBOLS (block, name, domain, callback, data);
1101 /* A helper for find_method. This finds all methods in type T which
1102 match NAME. It adds matching symbol names to RESULT_NAMES, and
1103 adds T's direct superclasses to SUPERCLASSES. */
1106 find_methods (struct type *t, const char *name,
1107 VEC (const_char_ptr) **result_names,
1108 VEC (typep) **superclasses)
1111 const char *class_name = type_name_no_tag (t);
1113 /* Ignore this class if it doesn't have a name. This is ugly, but
1114 unless we figure out how to get the physname without the name of
1115 the class, then the loop can't do any good. */
1122 /* Loop over each method name. At this level, all overloads of a name
1123 are counted as a single name. There is an inner loop which loops over
1126 for (method_counter = TYPE_NFN_FIELDS (t) - 1;
1127 method_counter >= 0;
1130 const char *method_name = TYPE_FN_FIELDLIST_NAME (t, method_counter);
1131 char dem_opname[64];
1133 if (strncmp (method_name, "__", 2) == 0 ||
1134 strncmp (method_name, "op", 2) == 0 ||
1135 strncmp (method_name, "type", 4) == 0)
1137 if (cplus_demangle_opname (method_name, dem_opname, DMGL_ANSI))
1138 method_name = dem_opname;
1139 else if (cplus_demangle_opname (method_name, dem_opname, 0))
1140 method_name = dem_opname;
1143 if (strcmp_iw (method_name, name) == 0)
1147 for (field_counter = (TYPE_FN_FIELDLIST_LENGTH (t, method_counter)
1153 const char *phys_name;
1155 f = TYPE_FN_FIELDLIST1 (t, method_counter);
1156 if (TYPE_FN_FIELD_STUB (f, field_counter))
1158 phys_name = TYPE_FN_FIELD_PHYSNAME (f, field_counter);
1159 VEC_safe_push (const_char_ptr, *result_names, phys_name);
1165 for (ibase = 0; ibase < TYPE_N_BASECLASSES (t); ibase++)
1166 VEC_safe_push (typep, *superclasses, TYPE_BASECLASS (t, ibase));
1169 /* Find an instance of the character C in the string S that is outside
1170 of all parenthesis pairs, single-quoted strings, and double-quoted
1171 strings. Also, ignore the char within a template name, like a ','
1172 within foo<int, int>. */
1175 find_toplevel_char (const char *s, char c)
1177 int quoted = 0; /* zero if we're not in quotes;
1178 '"' if we're in a double-quoted string;
1179 '\'' if we're in a single-quoted string. */
1180 int depth = 0; /* Number of unclosed parens we've seen. */
1183 for (scan = s; *scan; scan++)
1187 if (*scan == quoted)
1189 else if (*scan == '\\' && *(scan + 1))
1192 else if (*scan == c && ! quoted && depth == 0)
1194 else if (*scan == '"' || *scan == '\'')
1196 else if (*scan == '(' || *scan == '<')
1198 else if ((*scan == ')' || *scan == '>') && depth > 0)
1205 /* The string equivalent of find_toplevel_char. Returns a pointer
1206 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1207 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1210 find_toplevel_string (const char *haystack, const char *needle)
1212 const char *s = haystack;
1216 s = find_toplevel_char (s, *needle);
1220 /* Found first char in HAYSTACK; check rest of string. */
1221 if (strncmp (s, needle, strlen (needle)) == 0)
1224 /* Didn't find it; loop over HAYSTACK, looking for the next
1225 instance of the first character of NEEDLE. */
1229 while (s != NULL && *s != '\0');
1231 /* NEEDLE was not found in HAYSTACK. */
1235 /* Convert CANONICAL to its string representation using
1236 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1239 canonical_to_fullform (const struct linespec_canonical_name *canonical)
1241 if (canonical->symtab == NULL)
1242 return xstrdup (canonical->suffix);
1244 return xstrprintf ("%s:%s", symtab_to_fullname (canonical->symtab),
1248 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1249 and store the result in SELF->CANONICAL. */
1252 filter_results (struct linespec_state *self,
1253 struct symtabs_and_lines *result,
1254 VEC (const_char_ptr) *filters)
1259 for (i = 0; VEC_iterate (const_char_ptr, filters, i, name); ++i)
1261 struct linespec_sals lsal;
1264 memset (&lsal, 0, sizeof (lsal));
1266 for (j = 0; j < result->nelts; ++j)
1268 const struct linespec_canonical_name *canonical;
1270 struct cleanup *cleanup;
1272 canonical = &self->canonical_names[j];
1273 fullform = canonical_to_fullform (canonical);
1274 cleanup = make_cleanup (xfree, fullform);
1276 if (strcmp (name, fullform) == 0)
1277 add_sal_to_sals_basic (&lsal.sals, &result->sals[j]);
1279 do_cleanups (cleanup);
1282 if (lsal.sals.nelts > 0)
1284 lsal.canonical = xstrdup (name);
1285 VEC_safe_push (linespec_sals, self->canonical->sals, &lsal);
1289 self->canonical->pre_expanded = 0;
1292 /* Store RESULT into SELF->CANONICAL. */
1295 convert_results_to_lsals (struct linespec_state *self,
1296 struct symtabs_and_lines *result)
1298 struct linespec_sals lsal;
1300 lsal.canonical = NULL;
1301 lsal.sals = *result;
1302 VEC_safe_push (linespec_sals, self->canonical->sals, &lsal);
1305 /* A structure that contains two string representations of a struct
1306 linespec_canonical_name:
1307 - one where the the symtab's fullname is used;
1308 - one where the filename followed the "set filename-display"
1311 struct decode_line_2_item
1313 /* The form using symtab_to_fullname.
1314 It must be xfree'ed after use. */
1317 /* The form using symtab_to_filename_for_display.
1318 It must be xfree'ed after use. */
1321 /* Field is initialized to zero and it is set to one if the user
1322 requested breakpoint for this entry. */
1323 unsigned int selected : 1;
1326 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1327 secondarily by FULLFORM. */
1330 decode_line_2_compare_items (const void *ap, const void *bp)
1332 const struct decode_line_2_item *a = ap;
1333 const struct decode_line_2_item *b = bp;
1336 retval = strcmp (a->displayform, b->displayform);
1340 return strcmp (a->fullform, b->fullform);
1343 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1344 will either return normally, throw an exception on multiple
1345 results, or present a menu to the user. On return, the SALS vector
1346 in SELF->CANONICAL is set up properly. */
1349 decode_line_2 (struct linespec_state *self,
1350 struct symtabs_and_lines *result,
1351 const char *select_mode)
1353 char *args, *prompt;
1355 struct cleanup *old_chain;
1356 VEC (const_char_ptr) *filters = NULL;
1357 struct get_number_or_range_state state;
1358 struct decode_line_2_item *items;
1361 gdb_assert (select_mode != multiple_symbols_all);
1362 gdb_assert (self->canonical != NULL);
1363 gdb_assert (result->nelts >= 1);
1365 old_chain = make_cleanup (VEC_cleanup (const_char_ptr), &filters);
1367 /* Prepare ITEMS array. */
1368 items_count = result->nelts;
1369 items = xmalloc (sizeof (*items) * items_count);
1370 make_cleanup (xfree, items);
1371 for (i = 0; i < items_count; ++i)
1373 const struct linespec_canonical_name *canonical;
1374 struct decode_line_2_item *item;
1376 canonical = &self->canonical_names[i];
1377 gdb_assert (canonical->suffix != NULL);
1380 item->fullform = canonical_to_fullform (canonical);
1381 make_cleanup (xfree, item->fullform);
1383 if (canonical->symtab == NULL)
1384 item->displayform = canonical->suffix;
1387 const char *fn_for_display;
1389 fn_for_display = symtab_to_filename_for_display (canonical->symtab);
1390 item->displayform = xstrprintf ("%s:%s", fn_for_display,
1392 make_cleanup (xfree, item->displayform);
1398 /* Sort the list of method names. */
1399 qsort (items, items_count, sizeof (*items), decode_line_2_compare_items);
1401 /* Remove entries with the same FULLFORM. */
1402 if (items_count >= 2)
1404 struct decode_line_2_item *dst, *src;
1407 for (src = &items[1]; src < &items[items_count]; src++)
1408 if (strcmp (src->fullform, dst->fullform) != 0)
1410 items_count = dst + 1 - items;
1413 if (select_mode == multiple_symbols_cancel && items_count > 1)
1414 error (_("canceled because the command is ambiguous\n"
1415 "See set/show multiple-symbol."));
1417 if (select_mode == multiple_symbols_all || items_count == 1)
1419 do_cleanups (old_chain);
1420 convert_results_to_lsals (self, result);
1424 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1425 for (i = 0; i < items_count; i++)
1426 printf_unfiltered ("[%d] %s\n", i + 2, items[i].displayform);
1428 prompt = getenv ("PS2");
1433 args = command_line_input (prompt, 0, "overload-choice");
1435 if (args == 0 || *args == 0)
1436 error_no_arg (_("one or more choice numbers"));
1438 init_number_or_range (&state, args);
1439 while (!state.finished)
1443 num = get_number_or_range (&state);
1446 error (_("canceled"));
1449 /* We intentionally make this result in a single breakpoint,
1450 contrary to what older versions of gdb did. The
1451 rationale is that this lets a user get the
1452 multiple_symbols_all behavior even with the 'ask'
1453 setting; and he can get separate breakpoints by entering
1454 "2-57" at the query. */
1455 do_cleanups (old_chain);
1456 convert_results_to_lsals (self, result);
1461 if (num >= items_count)
1462 printf_unfiltered (_("No choice number %d.\n"), num);
1465 struct decode_line_2_item *item = &items[num];
1467 if (!item->selected)
1469 VEC_safe_push (const_char_ptr, filters, item->fullform);
1474 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1480 filter_results (self, result, filters);
1481 do_cleanups (old_chain);
1486 /* The parser of linespec itself. */
1488 /* Throw an appropriate error when SYMBOL is not found (optionally in
1491 static void ATTRIBUTE_NORETURN
1492 symbol_not_found_error (const char *symbol, const char *filename)
1497 if (!have_full_symbols ()
1498 && !have_partial_symbols ()
1499 && !have_minimal_symbols ())
1500 throw_error (NOT_FOUND_ERROR,
1501 _("No symbol table is loaded. Use the \"file\" command."));
1503 /* If SYMBOL starts with '$', the user attempted to either lookup
1504 a function/variable in his code starting with '$' or an internal
1505 variable of that name. Since we do not know which, be concise and
1506 explain both possibilities. */
1510 throw_error (NOT_FOUND_ERROR,
1511 _("Undefined convenience variable or function \"%s\" "
1512 "not defined in \"%s\"."), symbol, filename);
1514 throw_error (NOT_FOUND_ERROR,
1515 _("Undefined convenience variable or function \"%s\" "
1516 "not defined."), symbol);
1521 throw_error (NOT_FOUND_ERROR,
1522 _("Function \"%s\" not defined in \"%s\"."),
1525 throw_error (NOT_FOUND_ERROR,
1526 _("Function \"%s\" not defined."), symbol);
1530 /* Throw an appropriate error when an unexpected token is encountered
1533 static void ATTRIBUTE_NORETURN
1534 unexpected_linespec_error (linespec_parser *parser)
1536 linespec_token token;
1537 static const char * token_type_strings[]
1538 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1540 /* Get the token that generated the error. */
1541 token = linespec_lexer_lex_one (parser);
1543 /* Finally, throw the error. */
1544 if (token.type == LSTOKEN_STRING || token.type == LSTOKEN_NUMBER
1545 || token.type == LSTOKEN_KEYWORD)
1548 struct cleanup *cleanup;
1550 string = copy_token_string (token);
1551 cleanup = make_cleanup (xfree, string);
1552 throw_error (GENERIC_ERROR,
1553 _("malformed linespec error: unexpected %s, \"%s\""),
1554 token_type_strings[token.type], string);
1557 throw_error (GENERIC_ERROR,
1558 _("malformed linespec error: unexpected %s"),
1559 token_type_strings[token.type]);
1562 /* Parse and return a line offset in STRING. */
1564 static struct line_offset
1565 linespec_parse_line_offset (const char *string)
1567 struct line_offset line_offset = {0, LINE_OFFSET_NONE};
1571 line_offset.sign = LINE_OFFSET_PLUS;
1574 else if (*string == '-')
1576 line_offset.sign = LINE_OFFSET_MINUS;
1580 /* Right now, we only allow base 10 for offsets. */
1581 line_offset.offset = atoi (string);
1585 /* Parse the basic_spec in PARSER's input. */
1588 linespec_parse_basic (linespec_parser *parser)
1591 linespec_token token;
1592 VEC (symbolp) *symbols, *labels;
1593 VEC (minsym_and_objfile_d) *minimal_symbols;
1594 struct cleanup *cleanup;
1596 /* Get the next token. */
1597 token = linespec_lexer_lex_one (parser);
1599 /* If it is EOI or KEYWORD, issue an error. */
1600 if (token.type == LSTOKEN_KEYWORD || token.type == LSTOKEN_EOI)
1601 unexpected_linespec_error (parser);
1602 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1603 else if (token.type == LSTOKEN_NUMBER)
1605 /* Record the line offset and get the next token. */
1606 name = copy_token_string (token);
1607 cleanup = make_cleanup (xfree, name);
1608 PARSER_RESULT (parser)->line_offset = linespec_parse_line_offset (name);
1609 do_cleanups (cleanup);
1611 /* Get the next token. */
1612 token = linespec_lexer_consume_token (parser);
1614 /* If the next token is a comma, stop parsing and return. */
1615 if (token.type == LSTOKEN_COMMA)
1618 /* If the next token is anything but EOI or KEYWORD, issue
1620 if (token.type != LSTOKEN_KEYWORD && token.type != LSTOKEN_EOI)
1621 unexpected_linespec_error (parser);
1624 if (token.type == LSTOKEN_KEYWORD || token.type == LSTOKEN_EOI)
1627 /* Next token must be LSTOKEN_STRING. */
1628 if (token.type != LSTOKEN_STRING)
1629 unexpected_linespec_error (parser);
1631 /* The current token will contain the name of a function, method,
1633 name = copy_token_string (token);
1634 cleanup = make_cleanup (xfree, name);
1636 /* Try looking it up as a function/method. */
1637 find_linespec_symbols (PARSER_STATE (parser),
1638 PARSER_RESULT (parser)->file_symtabs, name,
1639 &symbols, &minimal_symbols);
1641 if (symbols != NULL || minimal_symbols != NULL)
1643 PARSER_RESULT (parser)->function_symbols = symbols;
1644 PARSER_RESULT (parser)->minimal_symbols = minimal_symbols;
1645 PARSER_RESULT (parser)->function_name = name;
1647 discard_cleanups (cleanup);
1651 /* NAME was not a function or a method. So it must be a label
1653 labels = find_label_symbols (PARSER_STATE (parser), NULL,
1657 PARSER_RESULT (parser)->labels.label_symbols = labels;
1658 PARSER_RESULT (parser)->labels.function_symbols = symbols;
1659 PARSER_RESULT (parser)->label_name = name;
1661 discard_cleanups (cleanup);
1665 /* The name is also not a label. Abort parsing. Do not throw
1666 an error here. parse_linespec will do it for us. */
1668 /* Save a copy of the name we were trying to lookup. */
1669 PARSER_RESULT (parser)->function_name = name;
1670 discard_cleanups (cleanup);
1675 /* Get the next token. */
1676 token = linespec_lexer_consume_token (parser);
1678 if (token.type == LSTOKEN_COLON)
1680 /* User specified a label or a lineno. */
1681 token = linespec_lexer_consume_token (parser);
1683 if (token.type == LSTOKEN_NUMBER)
1685 /* User specified an offset. Record the line offset and
1686 get the next token. */
1687 name = copy_token_string (token);
1688 cleanup = make_cleanup (xfree, name);
1689 PARSER_RESULT (parser)->line_offset
1690 = linespec_parse_line_offset (name);
1691 do_cleanups (cleanup);
1693 /* Ge the next token. */
1694 token = linespec_lexer_consume_token (parser);
1696 else if (token.type == LSTOKEN_STRING)
1698 /* Grab a copy of the label's name and look it up. */
1699 name = copy_token_string (token);
1700 cleanup = make_cleanup (xfree, name);
1701 labels = find_label_symbols (PARSER_STATE (parser),
1702 PARSER_RESULT (parser)->function_symbols,
1707 PARSER_RESULT (parser)->labels.label_symbols = labels;
1708 PARSER_RESULT (parser)->labels.function_symbols = symbols;
1709 PARSER_RESULT (parser)->label_name = name;
1711 discard_cleanups (cleanup);
1715 /* We don't know what it was, but it isn't a label. */
1716 throw_error (NOT_FOUND_ERROR,
1717 _("No label \"%s\" defined in function \"%s\"."),
1718 name, PARSER_RESULT (parser)->function_name);
1721 /* Check for a line offset. */
1722 token = linespec_lexer_consume_token (parser);
1723 if (token.type == LSTOKEN_COLON)
1725 /* Get the next token. */
1726 token = linespec_lexer_consume_token (parser);
1728 /* It must be a line offset. */
1729 if (token.type != LSTOKEN_NUMBER)
1730 unexpected_linespec_error (parser);
1732 /* Record the lione offset and get the next token. */
1733 name = copy_token_string (token);
1734 cleanup = make_cleanup (xfree, name);
1736 PARSER_RESULT (parser)->line_offset
1737 = linespec_parse_line_offset (name);
1738 do_cleanups (cleanup);
1740 /* Get the next token. */
1741 token = linespec_lexer_consume_token (parser);
1746 /* Trailing ':' in the input. Issue an error. */
1747 unexpected_linespec_error (parser);
1752 /* Canonicalize the linespec contained in LS. The result is saved into
1753 STATE->canonical. */
1756 canonicalize_linespec (struct linespec_state *state, linespec_p ls)
1758 /* If canonicalization was not requested, no need to do anything. */
1759 if (!state->canonical)
1762 /* Shortcut expressions, which can only appear by themselves. */
1763 if (ls->expression != NULL)
1764 state->canonical->addr_string = xstrdup (ls->expression);
1767 struct ui_file *buf;
1770 buf = mem_fileopen ();
1771 if (ls->source_filename)
1773 fputs_unfiltered (ls->source_filename, buf);
1777 if (ls->function_name)
1780 fputc_unfiltered (':', buf);
1781 fputs_unfiltered (ls->function_name, buf);
1788 fputc_unfiltered (':', buf);
1790 if (ls->function_name == NULL)
1794 /* No function was specified, so add the symbol name. */
1795 gdb_assert (ls->labels.function_symbols != NULL
1796 && (VEC_length (symbolp, ls->labels.function_symbols)
1798 s = VEC_index (symbolp, ls->labels.function_symbols, 0);
1799 fputs_unfiltered (SYMBOL_NATURAL_NAME (s), buf);
1800 fputc_unfiltered (':', buf);
1803 fputs_unfiltered (ls->label_name, buf);
1805 state->canonical->special_display = 1;
1808 if (ls->line_offset.sign != LINE_OFFSET_UNKNOWN)
1811 fputc_unfiltered (':', buf);
1812 fprintf_filtered (buf, "%s%d",
1813 (ls->line_offset.sign == LINE_OFFSET_NONE ? ""
1814 : (ls->line_offset.sign
1815 == LINE_OFFSET_PLUS ? "+" : "-")),
1816 ls->line_offset.offset);
1819 state->canonical->addr_string = ui_file_xstrdup (buf, NULL);
1820 ui_file_delete (buf);
1824 /* Given a line offset in LS, construct the relevant SALs. */
1826 static struct symtabs_and_lines
1827 create_sals_line_offset (struct linespec_state *self,
1830 struct symtabs_and_lines values;
1831 struct symtab_and_line val;
1832 int use_default = 0;
1838 /* This is where we need to make sure we have good defaults.
1839 We must guarantee that this section of code is never executed
1840 when we are called with just a function name, since
1841 set_default_source_symtab_and_line uses
1842 select_source_symtab that calls us with such an argument. */
1844 if (VEC_length (symtab_p, ls->file_symtabs) == 1
1845 && VEC_index (symtab_p, ls->file_symtabs, 0) == NULL)
1847 const char *fullname;
1849 set_current_program_space (self->program_space);
1851 /* Make sure we have at least a default source line. */
1852 set_default_source_symtab_and_line ();
1853 initialize_defaults (&self->default_symtab, &self->default_line);
1854 fullname = symtab_to_fullname (self->default_symtab);
1855 VEC_pop (symtab_p, ls->file_symtabs);
1856 VEC_free (symtab_p, ls->file_symtabs);
1857 ls->file_symtabs = collect_symtabs_from_filename (fullname);
1861 val.line = ls->line_offset.offset;
1862 switch (ls->line_offset.sign)
1864 case LINE_OFFSET_PLUS:
1865 if (ls->line_offset.offset == 0)
1868 val.line = self->default_line + val.line;
1871 case LINE_OFFSET_MINUS:
1872 if (ls->line_offset.offset == 0)
1875 val.line = self->default_line - val.line;
1877 val.line = -val.line;
1880 case LINE_OFFSET_NONE:
1881 break; /* No need to adjust val.line. */
1884 if (self->list_mode)
1885 decode_digits_list_mode (self, ls, &values, val);
1888 struct linetable_entry *best_entry = NULL;
1890 struct block **blocks;
1891 struct cleanup *cleanup;
1892 struct symtabs_and_lines intermediate_results;
1895 intermediate_results.sals = NULL;
1896 intermediate_results.nelts = 0;
1898 decode_digits_ordinary (self, ls, val.line, &intermediate_results,
1900 if (intermediate_results.nelts == 0 && best_entry != NULL)
1901 decode_digits_ordinary (self, ls, best_entry->line,
1902 &intermediate_results, &best_entry);
1904 cleanup = make_cleanup (xfree, intermediate_results.sals);
1906 /* For optimized code, the compiler can scatter one source line
1907 across disjoint ranges of PC values, even when no duplicate
1908 functions or inline functions are involved. For example,
1909 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1910 function can result in two PC ranges. In this case, we don't
1911 want to set a breakpoint on the first PC of each range. To filter
1912 such cases, we use containing blocks -- for each PC found
1913 above, we see if there are other PCs that are in the same
1914 block. If yes, the other PCs are filtered out. */
1916 filter = XNEWVEC (int, intermediate_results.nelts);
1917 make_cleanup (xfree, filter);
1918 blocks = XNEWVEC (struct block *, intermediate_results.nelts);
1919 make_cleanup (xfree, blocks);
1921 for (i = 0; i < intermediate_results.nelts; ++i)
1923 set_current_program_space (intermediate_results.sals[i].pspace);
1926 blocks[i] = block_for_pc_sect (intermediate_results.sals[i].pc,
1927 intermediate_results.sals[i].section);
1930 for (i = 0; i < intermediate_results.nelts; ++i)
1932 if (blocks[i] != NULL)
1933 for (j = i + 1; j < intermediate_results.nelts; ++j)
1935 if (blocks[j] == blocks[i])
1943 for (i = 0; i < intermediate_results.nelts; ++i)
1946 struct symbol *sym = (blocks[i]
1947 ? block_containing_function (blocks[i])
1950 if (self->funfirstline)
1951 skip_prologue_sal (&intermediate_results.sals[i]);
1952 /* Make sure the line matches the request, not what was
1954 intermediate_results.sals[i].line = val.line;
1955 add_sal_to_sals (self, &values, &intermediate_results.sals[i],
1956 sym ? SYMBOL_NATURAL_NAME (sym) : NULL, 0);
1959 do_cleanups (cleanup);
1962 if (values.nelts == 0)
1964 if (ls->source_filename)
1965 throw_error (NOT_FOUND_ERROR, _("No line %d in file \"%s\"."),
1966 val.line, ls->source_filename);
1968 throw_error (NOT_FOUND_ERROR, _("No line %d in the current file."),
1975 /* Create and return SALs from the linespec LS. */
1977 static struct symtabs_and_lines
1978 convert_linespec_to_sals (struct linespec_state *state, linespec_p ls)
1980 struct symtabs_and_lines sals = {NULL, 0};
1982 if (ls->expression != NULL)
1984 struct symtab_and_line sal;
1986 /* We have an expression. No other attribute is allowed. */
1987 sal = find_pc_line (ls->expr_pc, 0);
1988 sal.pc = ls->expr_pc;
1989 sal.section = find_pc_overlay (ls->expr_pc);
1990 sal.explicit_pc = 1;
1991 add_sal_to_sals (state, &sals, &sal, ls->expression, 1);
1993 else if (ls->labels.label_symbols != NULL)
1995 /* We have just a bunch of functions/methods or labels. */
1997 struct symtab_and_line sal;
2000 for (i = 0; VEC_iterate (symbolp, ls->labels.label_symbols, i, sym); ++i)
2002 if (symbol_to_sal (&sal, state->funfirstline, sym))
2003 add_sal_to_sals (state, &sals, &sal,
2004 SYMBOL_NATURAL_NAME (sym), 0);
2007 else if (ls->function_symbols != NULL || ls->minimal_symbols != NULL)
2009 /* We have just a bunch of functions and/or methods. */
2011 struct symtab_and_line sal;
2013 minsym_and_objfile_d *elem;
2014 struct program_space *pspace;
2016 if (ls->function_symbols != NULL)
2018 /* Sort symbols so that symbols with the same program space are next
2020 qsort (VEC_address (symbolp, ls->function_symbols),
2021 VEC_length (symbolp, ls->function_symbols),
2022 sizeof (symbolp), compare_symbols);
2024 for (i = 0; VEC_iterate (symbolp, ls->function_symbols, i, sym); ++i)
2026 pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
2027 set_current_program_space (pspace);
2028 if (symbol_to_sal (&sal, state->funfirstline, sym)
2029 && maybe_add_address (state->addr_set, pspace, sal.pc))
2030 add_sal_to_sals (state, &sals, &sal,
2031 SYMBOL_NATURAL_NAME (sym), 0);
2035 if (ls->minimal_symbols != NULL)
2037 /* Sort minimal symbols by program space, too. */
2038 qsort (VEC_address (minsym_and_objfile_d, ls->minimal_symbols),
2039 VEC_length (minsym_and_objfile_d, ls->minimal_symbols),
2040 sizeof (minsym_and_objfile_d), compare_msymbols);
2043 VEC_iterate (minsym_and_objfile_d, ls->minimal_symbols, i, elem);
2046 pspace = elem->objfile->pspace;
2047 set_current_program_space (pspace);
2048 minsym_found (state, elem->objfile, elem->minsym, &sals);
2052 else if (ls->line_offset.sign != LINE_OFFSET_UNKNOWN)
2054 /* Only an offset was specified. */
2055 sals = create_sals_line_offset (state, ls);
2057 /* Make sure we have a filename for canonicalization. */
2058 if (ls->source_filename == NULL)
2060 const char *fullname = symtab_to_fullname (state->default_symtab);
2062 ls->source_filename = xstrdup (fullname);
2067 /* We haven't found any results... */
2071 canonicalize_linespec (state, ls);
2073 if (sals.nelts > 0 && state->canonical != NULL)
2074 state->canonical->pre_expanded = 1;
2079 /* Parse a string that specifies a linespec.
2080 Pass the address of a char * variable; that variable will be
2081 advanced over the characters actually parsed.
2083 The basic grammar of linespecs:
2085 linespec -> expr_spec | var_spec | basic_spec
2086 expr_spec -> '*' STRING
2087 var_spec -> '$' (STRING | NUMBER)
2089 basic_spec -> file_offset_spec | function_spec | label_spec
2090 file_offset_spec -> opt_file_spec offset_spec
2091 function_spec -> opt_file_spec function_name_spec opt_label_spec
2092 label_spec -> label_name_spec
2094 opt_file_spec -> "" | file_name_spec ':'
2095 opt_label_spec -> "" | ':' label_name_spec
2097 file_name_spec -> STRING
2098 function_name_spec -> STRING
2099 label_name_spec -> STRING
2100 function_name_spec -> STRING
2101 offset_spec -> NUMBER
2105 This may all be followed by several keywords such as "if EXPR",
2108 A comma will terminate parsing.
2110 The function may be an undebuggable function found in minimal symbol table.
2112 If the argument FUNFIRSTLINE is nonzero, we want the first line
2113 of real code inside a function when a function is specified, and it is
2114 not OK to specify a variable or type to get its line number.
2116 DEFAULT_SYMTAB specifies the file to use if none is specified.
2117 It defaults to current_source_symtab.
2118 DEFAULT_LINE specifies the line number to use for relative
2119 line numbers (that start with signs). Defaults to current_source_line.
2120 If CANONICAL is non-NULL, store an array of strings containing the canonical
2121 line specs there if necessary. Currently overloaded member functions and
2122 line numbers or static functions without a filename yield a canonical
2123 line spec. The array and the line spec strings are allocated on the heap,
2124 it is the callers responsibility to free them.
2126 Note that it is possible to return zero for the symtab
2127 if no file is validly specified. Callers must check that.
2128 Also, the line number returned may be invalid. */
2130 /* Parse the linespec in ARGPTR. */
2132 static struct symtabs_and_lines
2133 parse_linespec (linespec_parser *parser, char **argptr)
2135 linespec_token token;
2136 struct symtabs_and_lines values;
2137 volatile struct gdb_exception file_exception;
2138 struct cleanup *cleanup;
2140 /* A special case to start. It has become quite popular for
2141 IDEs to work around bugs in the previous parser by quoting
2142 the entire linespec, so we attempt to deal with this nicely. */
2143 parser->is_quote_enclosed = 0;
2144 if (!is_ada_operator (*argptr)
2145 && strchr (linespec_quote_characters, **argptr) != NULL)
2149 end = skip_quote_char (*argptr + 1, **argptr);
2150 if (end != NULL && is_closing_quote_enclosed (end))
2152 /* Here's the special case. Skip ARGPTR past the initial
2155 parser->is_quote_enclosed = 1;
2159 /* A keyword at the start cannot be interpreted as such.
2160 Consider "b thread thread 42". */
2161 parser->keyword_ok = 0;
2163 parser->lexer.saved_arg = *argptr;
2164 parser->lexer.stream = argptr;
2165 file_exception.reason = 0;
2167 /* Initialize the default symtab and line offset. */
2168 initialize_defaults (&PARSER_STATE (parser)->default_symtab,
2169 &PARSER_STATE (parser)->default_line);
2171 /* Objective-C shortcut. */
2172 values = decode_objc (PARSER_STATE (parser), PARSER_RESULT (parser), argptr);
2173 if (values.sals != NULL)
2176 /* Start parsing. */
2178 /* Get the first token. */
2179 token = linespec_lexer_lex_one (parser);
2181 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2182 if (token.type == LSTOKEN_STRING && *LS_TOKEN_STOKEN (token).ptr == '*')
2186 /* User specified an expression, *EXPR. */
2187 copy = expr = copy_token_string (token);
2188 cleanup = make_cleanup (xfree, expr);
2189 PARSER_RESULT (parser)->expr_pc = linespec_expression_to_pc (©);
2190 discard_cleanups (cleanup);
2191 PARSER_RESULT (parser)->expression = expr;
2193 /* This is a little hacky/tricky. If linespec_expression_to_pc
2194 did not evaluate the entire token, then we must find the
2195 string COPY inside the original token buffer. */
2198 PARSER_STREAM (parser) = strstr (parser->lexer.saved_arg, copy);
2199 gdb_assert (PARSER_STREAM (parser) != NULL);
2202 /* Consume the token. */
2203 linespec_lexer_consume_token (parser);
2205 goto convert_to_sals;
2207 else if (token.type == LSTOKEN_STRING && *LS_TOKEN_STOKEN (token).ptr == '$')
2211 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2212 VEC_safe_push (symtab_p, PARSER_RESULT (parser)->file_symtabs, NULL);
2214 /* User specified a convenience variable or history value. */
2215 var = copy_token_string (token);
2216 cleanup = make_cleanup (xfree, var);
2217 PARSER_RESULT (parser)->line_offset
2218 = linespec_parse_variable (PARSER_STATE (parser), var);
2219 do_cleanups (cleanup);
2221 /* If a line_offset wasn't found (VAR is the name of a user
2222 variable/function), then skip to normal symbol processing. */
2223 if (PARSER_RESULT (parser)->line_offset.sign != LINE_OFFSET_UNKNOWN)
2225 /* Consume this token. */
2226 linespec_lexer_consume_token (parser);
2228 goto convert_to_sals;
2231 else if (token.type != LSTOKEN_STRING && token.type != LSTOKEN_NUMBER)
2232 unexpected_linespec_error (parser);
2234 /* Now we can recognize keywords. */
2235 parser->keyword_ok = 1;
2237 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2238 this token cannot represent a filename. */
2239 token = linespec_lexer_peek_token (parser);
2241 if (token.type == LSTOKEN_COLON)
2243 char *user_filename;
2245 /* Get the current token again and extract the filename. */
2246 token = linespec_lexer_lex_one (parser);
2247 user_filename = copy_token_string (token);
2249 /* Check if the input is a filename. */
2250 TRY_CATCH (file_exception, RETURN_MASK_ERROR)
2252 PARSER_RESULT (parser)->file_symtabs
2253 = symtabs_from_filename (user_filename);
2256 if (file_exception.reason >= 0)
2258 /* Symtabs were found for the file. Record the filename. */
2259 PARSER_RESULT (parser)->source_filename = user_filename;
2261 /* Get the next token. */
2262 token = linespec_lexer_consume_token (parser);
2264 /* This is LSTOKEN_COLON; consume it. */
2265 linespec_lexer_consume_token (parser);
2269 /* No symtabs found -- discard user_filename. */
2270 xfree (user_filename);
2272 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2273 VEC_safe_push (symtab_p, PARSER_RESULT (parser)->file_symtabs, NULL);
2276 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2277 else if (token.type != LSTOKEN_EOI && token.type != LSTOKEN_KEYWORD
2278 && token.type != LSTOKEN_COMMA)
2280 /* TOKEN is the _next_ token, not the one currently in the parser.
2281 Consuming the token will give the correct error message. */
2282 linespec_lexer_consume_token (parser);
2283 unexpected_linespec_error (parser);
2287 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2288 VEC_safe_push (symtab_p, PARSER_RESULT (parser)->file_symtabs, NULL);
2291 /* Parse the rest of the linespec. */
2292 linespec_parse_basic (parser);
2294 if (PARSER_RESULT (parser)->function_symbols == NULL
2295 && PARSER_RESULT (parser)->labels.label_symbols == NULL
2296 && PARSER_RESULT (parser)->line_offset.sign == LINE_OFFSET_UNKNOWN
2297 && PARSER_RESULT (parser)->minimal_symbols == NULL)
2299 /* The linespec didn't parse. Re-throw the file exception if
2301 if (file_exception.reason < 0)
2302 throw_exception (file_exception);
2304 /* Otherwise, the symbol is not found. */
2305 symbol_not_found_error (PARSER_RESULT (parser)->function_name,
2306 PARSER_RESULT (parser)->source_filename);
2311 /* Get the last token and record how much of the input was parsed,
2313 token = linespec_lexer_lex_one (parser);
2314 if (token.type != LSTOKEN_EOI && token.type != LSTOKEN_KEYWORD)
2315 PARSER_STREAM (parser) = LS_TOKEN_STOKEN (token).ptr;
2317 /* Convert the data in PARSER_RESULT to SALs. */
2318 values = convert_linespec_to_sals (PARSER_STATE (parser),
2319 PARSER_RESULT (parser));
2325 /* A constructor for linespec_state. */
2328 linespec_state_constructor (struct linespec_state *self,
2329 int flags, const struct language_defn *language,
2330 struct symtab *default_symtab,
2332 struct linespec_result *canonical)
2334 memset (self, 0, sizeof (*self));
2335 self->language = language;
2336 self->funfirstline = (flags & DECODE_LINE_FUNFIRSTLINE) ? 1 : 0;
2337 self->list_mode = (flags & DECODE_LINE_LIST_MODE) ? 1 : 0;
2338 self->default_symtab = default_symtab;
2339 self->default_line = default_line;
2340 self->canonical = canonical;
2341 self->program_space = current_program_space;
2342 self->addr_set = htab_create_alloc (10, hash_address_entry, eq_address_entry,
2343 xfree, xcalloc, xfree);
2346 /* Initialize a new linespec parser. */
2349 linespec_parser_new (linespec_parser *parser,
2350 int flags, const struct language_defn *language,
2351 struct symtab *default_symtab,
2353 struct linespec_result *canonical)
2355 parser->lexer.current.type = LSTOKEN_CONSUMED;
2356 memset (PARSER_RESULT (parser), 0, sizeof (struct linespec));
2357 PARSER_RESULT (parser)->line_offset.sign = LINE_OFFSET_UNKNOWN;
2358 linespec_state_constructor (PARSER_STATE (parser), flags, language,
2359 default_symtab, default_line, canonical);
2362 /* A destructor for linespec_state. */
2365 linespec_state_destructor (struct linespec_state *self)
2367 htab_delete (self->addr_set);
2370 /* Delete a linespec parser. */
2373 linespec_parser_delete (void *arg)
2375 linespec_parser *parser = (linespec_parser *) arg;
2377 xfree ((char *) PARSER_RESULT (parser)->expression);
2378 xfree ((char *) PARSER_RESULT (parser)->source_filename);
2379 xfree ((char *) PARSER_RESULT (parser)->label_name);
2380 xfree ((char *) PARSER_RESULT (parser)->function_name);
2382 if (PARSER_RESULT (parser)->file_symtabs != NULL)
2383 VEC_free (symtab_p, PARSER_RESULT (parser)->file_symtabs);
2385 if (PARSER_RESULT (parser)->function_symbols != NULL)
2386 VEC_free (symbolp, PARSER_RESULT (parser)->function_symbols);
2388 if (PARSER_RESULT (parser)->minimal_symbols != NULL)
2389 VEC_free (minsym_and_objfile_d, PARSER_RESULT (parser)->minimal_symbols);
2391 if (PARSER_RESULT (parser)->labels.label_symbols != NULL)
2392 VEC_free (symbolp, PARSER_RESULT (parser)->labels.label_symbols);
2394 if (PARSER_RESULT (parser)->labels.function_symbols != NULL)
2395 VEC_free (symbolp, PARSER_RESULT (parser)->labels.function_symbols);
2397 linespec_state_destructor (PARSER_STATE (parser));
2400 /* See linespec.h. */
2403 decode_line_full (char **argptr, int flags,
2404 struct symtab *default_symtab,
2405 int default_line, struct linespec_result *canonical,
2406 const char *select_mode,
2409 struct symtabs_and_lines result;
2410 struct cleanup *cleanups;
2411 VEC (const_char_ptr) *filters = NULL;
2412 linespec_parser parser;
2413 struct linespec_state *state;
2415 gdb_assert (canonical != NULL);
2416 /* The filter only makes sense for 'all'. */
2417 gdb_assert (filter == NULL || select_mode == multiple_symbols_all);
2418 gdb_assert (select_mode == NULL
2419 || select_mode == multiple_symbols_all
2420 || select_mode == multiple_symbols_ask
2421 || select_mode == multiple_symbols_cancel);
2422 gdb_assert ((flags & DECODE_LINE_LIST_MODE) == 0);
2424 linespec_parser_new (&parser, flags, current_language, default_symtab,
2425 default_line, canonical);
2426 cleanups = make_cleanup (linespec_parser_delete, &parser);
2427 save_current_program_space ();
2429 result = parse_linespec (&parser, argptr);
2430 state = PARSER_STATE (&parser);
2432 gdb_assert (result.nelts == 1 || canonical->pre_expanded);
2433 gdb_assert (canonical->addr_string != NULL);
2434 canonical->pre_expanded = 1;
2436 /* Arrange for allocated canonical names to be freed. */
2437 if (result.nelts > 0)
2441 make_cleanup (xfree, state->canonical_names);
2442 for (i = 0; i < result.nelts; ++i)
2444 gdb_assert (state->canonical_names[i].suffix != NULL);
2445 make_cleanup (xfree, state->canonical_names[i].suffix);
2449 if (select_mode == NULL)
2451 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2452 select_mode = multiple_symbols_all;
2454 select_mode = multiple_symbols_select_mode ();
2457 if (select_mode == multiple_symbols_all)
2461 make_cleanup (VEC_cleanup (const_char_ptr), &filters);
2462 VEC_safe_push (const_char_ptr, filters, filter);
2463 filter_results (state, &result, filters);
2466 convert_results_to_lsals (state, &result);
2469 decode_line_2 (state, &result, select_mode);
2471 do_cleanups (cleanups);
2474 /* See linespec.h. */
2476 struct symtabs_and_lines
2477 decode_line_1 (char **argptr, int flags,
2478 struct symtab *default_symtab,
2481 struct symtabs_and_lines result;
2482 linespec_parser parser;
2483 struct cleanup *cleanups;
2485 linespec_parser_new (&parser, flags, current_language, default_symtab,
2486 default_line, NULL);
2487 cleanups = make_cleanup (linespec_parser_delete, &parser);
2488 save_current_program_space ();
2490 result = parse_linespec (&parser, argptr);
2492 do_cleanups (cleanups);
2496 /* See linespec.h. */
2498 struct symtabs_and_lines
2499 decode_line_with_current_source (char *string, int flags)
2501 struct symtabs_and_lines sals;
2502 struct symtab_and_line cursal;
2505 error (_("Empty line specification."));
2507 /* We use whatever is set as the current source line. We do not try
2508 and get a default source symtab+line or it will recursively call us! */
2509 cursal = get_current_source_symtab_and_line ();
2511 sals = decode_line_1 (&string, flags,
2512 cursal.symtab, cursal.line);
2515 error (_("Junk at end of line specification: %s"), string);
2519 /* See linespec.h. */
2521 struct symtabs_and_lines
2522 decode_line_with_last_displayed (char *string, int flags)
2524 struct symtabs_and_lines sals;
2527 error (_("Empty line specification."));
2529 if (last_displayed_sal_is_valid ())
2530 sals = decode_line_1 (&string, flags,
2531 get_last_displayed_symtab (),
2532 get_last_displayed_line ());
2534 sals = decode_line_1 (&string, flags, (struct symtab *) NULL, 0);
2537 error (_("Junk at end of line specification: %s"), string);
2543 /* First, some functions to initialize stuff at the beggining of the
2547 initialize_defaults (struct symtab **default_symtab, int *default_line)
2549 if (*default_symtab == 0)
2551 /* Use whatever we have for the default source line. We don't use
2552 get_current_or_default_symtab_and_line as it can recurse and call
2554 struct symtab_and_line cursal =
2555 get_current_source_symtab_and_line ();
2557 *default_symtab = cursal.symtab;
2558 *default_line = cursal.line;
2564 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2565 advancing EXP_PTR past any parsed text. */
2568 linespec_expression_to_pc (char **exp_ptr)
2570 if (current_program_space->executing_startup)
2571 /* The error message doesn't really matter, because this case
2572 should only hit during breakpoint reset. */
2573 throw_error (NOT_FOUND_ERROR, _("cannot evaluate expressions while "
2574 "program space is in startup"));
2577 return value_as_address (parse_to_comma_and_eval (exp_ptr));
2582 /* Here's where we recognise an Objective-C Selector. An Objective C
2583 selector may be implemented by more than one class, therefore it
2584 may represent more than one method/function. This gives us a
2585 situation somewhat analogous to C++ overloading. If there's more
2586 than one method that could represent the selector, then use some of
2587 the existing C++ code to let the user choose one. */
2589 static struct symtabs_and_lines
2590 decode_objc (struct linespec_state *self, linespec_p ls, char **argptr)
2592 struct collect_info info;
2593 VEC (const_char_ptr) *symbol_names = NULL;
2594 struct symtabs_and_lines values;
2596 struct cleanup *cleanup = make_cleanup (VEC_cleanup (const_char_ptr),
2600 info.file_symtabs = NULL;
2601 VEC_safe_push (symtab_p, info.file_symtabs, NULL);
2602 make_cleanup (VEC_cleanup (symtab_p), &info.file_symtabs);
2603 info.result.symbols = NULL;
2604 info.result.minimal_symbols = NULL;
2608 new_argptr = find_imps (*argptr, &symbol_names);
2609 if (VEC_empty (const_char_ptr, symbol_names))
2611 do_cleanups (cleanup);
2615 add_all_symbol_names_from_pspace (&info, NULL, symbol_names);
2617 if (!VEC_empty (symbolp, info.result.symbols)
2618 || !VEC_empty (minsym_and_objfile_d, info.result.minimal_symbols))
2622 saved_arg = alloca (new_argptr - *argptr + 1);
2623 memcpy (saved_arg, *argptr, new_argptr - *argptr);
2624 saved_arg[new_argptr - *argptr] = '\0';
2626 ls->function_name = xstrdup (saved_arg);
2627 ls->function_symbols = info.result.symbols;
2628 ls->minimal_symbols = info.result.minimal_symbols;
2629 values = convert_linespec_to_sals (self, ls);
2631 if (self->canonical)
2633 self->canonical->pre_expanded = 1;
2634 if (ls->source_filename)
2635 self->canonical->addr_string
2636 = xstrprintf ("%s:%s", ls->source_filename, saved_arg);
2638 self->canonical->addr_string = xstrdup (saved_arg);
2642 *argptr = new_argptr;
2644 do_cleanups (cleanup);
2649 /* An instance of this type is used when collecting prefix symbols for
2652 struct decode_compound_collector
2654 /* The result vector. */
2655 VEC (symbolp) *symbols;
2657 /* A hash table of all symbols we found. We use this to avoid
2658 adding any symbol more than once. */
2662 /* A callback for iterate_over_symbols that is used by
2663 lookup_prefix_sym to collect type symbols. */
2666 collect_one_symbol (struct symbol *sym, void *d)
2668 struct decode_compound_collector *collector = d;
2672 if (SYMBOL_CLASS (sym) != LOC_TYPEDEF)
2673 return 1; /* Continue iterating. */
2675 t = SYMBOL_TYPE (sym);
2677 if (TYPE_CODE (t) != TYPE_CODE_STRUCT
2678 && TYPE_CODE (t) != TYPE_CODE_UNION
2679 && TYPE_CODE (t) != TYPE_CODE_NAMESPACE)
2680 return 1; /* Continue iterating. */
2682 slot = htab_find_slot (collector->unique_syms, sym, INSERT);
2686 VEC_safe_push (symbolp, collector->symbols, sym);
2689 return 1; /* Continue iterating. */
2692 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2694 static VEC (symbolp) *
2695 lookup_prefix_sym (struct linespec_state *state, VEC (symtab_p) *file_symtabs,
2696 const char *class_name)
2700 struct decode_compound_collector collector;
2701 struct cleanup *outer;
2702 struct cleanup *cleanup;
2704 collector.symbols = NULL;
2705 outer = make_cleanup (VEC_cleanup (symbolp), &collector.symbols);
2707 collector.unique_syms = htab_create_alloc (1, htab_hash_pointer,
2708 htab_eq_pointer, NULL,
2710 cleanup = make_cleanup_htab_delete (collector.unique_syms);
2712 for (ix = 0; VEC_iterate (symtab_p, file_symtabs, ix, elt); ++ix)
2716 iterate_over_all_matching_symtabs (state, class_name, STRUCT_DOMAIN,
2717 collect_one_symbol, &collector,
2719 iterate_over_all_matching_symtabs (state, class_name, VAR_DOMAIN,
2720 collect_one_symbol, &collector,
2725 /* Program spaces that are executing startup should have
2726 been filtered out earlier. */
2727 gdb_assert (!SYMTAB_PSPACE (elt)->executing_startup);
2728 set_current_program_space (SYMTAB_PSPACE (elt));
2729 iterate_over_file_blocks (elt, class_name, STRUCT_DOMAIN,
2730 collect_one_symbol, &collector);
2731 iterate_over_file_blocks (elt, class_name, VAR_DOMAIN,
2732 collect_one_symbol, &collector);
2736 do_cleanups (cleanup);
2737 discard_cleanups (outer);
2738 return collector.symbols;
2741 /* A qsort comparison function for symbols. The resulting order does
2742 not actually matter; we just need to be able to sort them so that
2743 symbols with the same program space end up next to each other. */
2746 compare_symbols (const void *a, const void *b)
2748 struct symbol * const *sa = a;
2749 struct symbol * const *sb = b;
2752 uia = (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sa));
2753 uib = (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sb));
2760 uia = (uintptr_t) *sa;
2761 uib = (uintptr_t) *sb;
2771 /* Like compare_symbols but for minimal symbols. */
2774 compare_msymbols (const void *a, const void *b)
2776 const struct minsym_and_objfile *sa = a;
2777 const struct minsym_and_objfile *sb = b;
2780 uia = (uintptr_t) sa->objfile->pspace;
2781 uib = (uintptr_t) sa->objfile->pspace;
2788 uia = (uintptr_t) sa->minsym;
2789 uib = (uintptr_t) sb->minsym;
2799 /* Look for all the matching instances of each symbol in NAMES. Only
2800 instances from PSPACE are considered; other program spaces are
2801 handled by our caller. If PSPACE is NULL, then all program spaces
2802 are considered. Results are stored into INFO. */
2805 add_all_symbol_names_from_pspace (struct collect_info *info,
2806 struct program_space *pspace,
2807 VEC (const_char_ptr) *names)
2812 for (ix = 0; VEC_iterate (const_char_ptr, names, ix, iter); ++ix)
2813 add_matching_symbols_to_info (iter, info, pspace);
2817 find_superclass_methods (VEC (typep) *superclasses,
2819 VEC (const_char_ptr) **result_names)
2821 int old_len = VEC_length (const_char_ptr, *result_names);
2822 VEC (typep) *iter_classes;
2823 struct cleanup *cleanup = make_cleanup (null_cleanup, NULL);
2825 iter_classes = superclasses;
2828 VEC (typep) *new_supers = NULL;
2832 make_cleanup (VEC_cleanup (typep), &new_supers);
2833 for (ix = 0; VEC_iterate (typep, iter_classes, ix, t); ++ix)
2834 find_methods (t, name, result_names, &new_supers);
2836 if (VEC_length (const_char_ptr, *result_names) != old_len
2837 || VEC_empty (typep, new_supers))
2840 iter_classes = new_supers;
2843 do_cleanups (cleanup);
2846 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2847 given by one of the symbols in SYM_CLASSES. Matches are returned
2848 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2851 find_method (struct linespec_state *self, VEC (symtab_p) *file_symtabs,
2852 const char *class_name, const char *method_name,
2853 VEC (symbolp) *sym_classes, VEC (symbolp) **symbols,
2854 VEC (minsym_and_objfile_d) **minsyms)
2857 struct cleanup *cleanup = make_cleanup (null_cleanup, NULL);
2859 int last_result_len;
2860 VEC (typep) *superclass_vec;
2861 VEC (const_char_ptr) *result_names;
2862 struct collect_info info;
2864 /* Sort symbols so that symbols with the same program space are next
2866 qsort (VEC_address (symbolp, sym_classes),
2867 VEC_length (symbolp, sym_classes),
2872 info.file_symtabs = file_symtabs;
2873 info.result.symbols = NULL;
2874 info.result.minimal_symbols = NULL;
2876 /* Iterate over all the types, looking for the names of existing
2877 methods matching METHOD_NAME. If we cannot find a direct method in a
2878 given program space, then we consider inherited methods; this is
2879 not ideal (ideal would be to respect C++ hiding rules), but it
2880 seems good enough and is what GDB has historically done. We only
2881 need to collect the names because later we find all symbols with
2882 those names. This loop is written in a somewhat funny way
2883 because we collect data across the program space before deciding
2885 superclass_vec = NULL;
2886 make_cleanup (VEC_cleanup (typep), &superclass_vec);
2887 result_names = NULL;
2888 make_cleanup (VEC_cleanup (const_char_ptr), &result_names);
2889 last_result_len = 0;
2890 for (ix = 0; VEC_iterate (symbolp, sym_classes, ix, sym); ++ix)
2893 struct program_space *pspace;
2895 /* Program spaces that are executing startup should have
2896 been filtered out earlier. */
2897 gdb_assert (!SYMTAB_PSPACE (SYMBOL_SYMTAB (sym))->executing_startup);
2898 pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
2899 set_current_program_space (pspace);
2900 t = check_typedef (SYMBOL_TYPE (sym));
2901 find_methods (t, method_name, &result_names, &superclass_vec);
2903 /* Handle all items from a single program space at once; and be
2904 sure not to miss the last batch. */
2905 if (ix == VEC_length (symbolp, sym_classes) - 1
2907 != SYMTAB_PSPACE (SYMBOL_SYMTAB (VEC_index (symbolp, sym_classes,
2910 /* If we did not find a direct implementation anywhere in
2911 this program space, consider superclasses. */
2912 if (VEC_length (const_char_ptr, result_names) == last_result_len)
2913 find_superclass_methods (superclass_vec, method_name,
2916 /* We have a list of candidate symbol names, so now we
2917 iterate over the symbol tables looking for all
2918 matches in this pspace. */
2919 add_all_symbol_names_from_pspace (&info, pspace, result_names);
2921 VEC_truncate (typep, superclass_vec, 0);
2922 last_result_len = VEC_length (const_char_ptr, result_names);
2926 if (!VEC_empty (symbolp, info.result.symbols)
2927 || !VEC_empty (minsym_and_objfile_d, info.result.minimal_symbols))
2929 *symbols = info.result.symbols;
2930 *minsyms = info.result.minimal_symbols;
2931 do_cleanups (cleanup);
2935 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
2936 and other attempts to locate the symbol will be made. */
2937 throw_error (NOT_FOUND_ERROR, _("see caller, this text doesn't matter"));
2942 /* This object is used when collecting all matching symtabs. */
2944 struct symtab_collector
2946 /* The result vector of symtabs. */
2947 VEC (symtab_p) *symtabs;
2949 /* This is used to ensure the symtabs are unique. */
2950 htab_t symtab_table;
2953 /* Callback for iterate_over_symtabs. */
2956 add_symtabs_to_list (struct symtab *symtab, void *d)
2958 struct symtab_collector *data = d;
2961 slot = htab_find_slot (data->symtab_table, symtab, INSERT);
2965 VEC_safe_push (symtab_p, data->symtabs, symtab);
2971 /* Given a file name, return a VEC of all matching symtabs. */
2973 static VEC (symtab_p) *
2974 collect_symtabs_from_filename (const char *file)
2976 struct symtab_collector collector;
2977 struct cleanup *cleanups;
2978 struct program_space *pspace;
2980 collector.symtabs = NULL;
2981 collector.symtab_table = htab_create (1, htab_hash_pointer, htab_eq_pointer,
2983 cleanups = make_cleanup_htab_delete (collector.symtab_table);
2985 /* Find that file's data. */
2986 ALL_PSPACES (pspace)
2988 if (pspace->executing_startup)
2991 set_current_program_space (pspace);
2992 iterate_over_symtabs (file, add_symtabs_to_list, &collector);
2995 do_cleanups (cleanups);
2996 return collector.symtabs;
2999 /* Return all the symtabs associated to the FILENAME. */
3001 static VEC (symtab_p) *
3002 symtabs_from_filename (const char *filename)
3004 VEC (symtab_p) *result;
3006 result = collect_symtabs_from_filename (filename);
3008 if (VEC_empty (symtab_p, result))
3010 if (!have_full_symbols () && !have_partial_symbols ())
3011 throw_error (NOT_FOUND_ERROR,
3012 _("No symbol table is loaded. "
3013 "Use the \"file\" command."));
3014 throw_error (NOT_FOUND_ERROR, _("No source file named %s."), filename);
3020 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3021 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3022 returned in MINSYMS. */
3025 find_function_symbols (struct linespec_state *state,
3026 VEC (symtab_p) *file_symtabs, const char *name,
3027 VEC (symbolp) **symbols,
3028 VEC (minsym_and_objfile_d) **minsyms)
3030 struct collect_info info;
3031 VEC (const_char_ptr) *symbol_names = NULL;
3032 struct cleanup *cleanup = make_cleanup (VEC_cleanup (const_char_ptr),
3036 info.result.symbols = NULL;
3037 info.result.minimal_symbols = NULL;
3038 info.file_symtabs = file_symtabs;
3040 /* Try NAME as an Objective-C selector. */
3041 find_imps ((char *) name, &symbol_names);
3042 if (!VEC_empty (const_char_ptr, symbol_names))
3043 add_all_symbol_names_from_pspace (&info, NULL, symbol_names);
3045 add_matching_symbols_to_info (name, &info, NULL);
3047 do_cleanups (cleanup);
3049 if (VEC_empty (symbolp, info.result.symbols))
3051 VEC_free (symbolp, info.result.symbols);
3055 *symbols = info.result.symbols;
3057 if (VEC_empty (minsym_and_objfile_d, info.result.minimal_symbols))
3059 VEC_free (minsym_and_objfile_d, info.result.minimal_symbols);
3063 *minsyms = info.result.minimal_symbols;
3066 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3067 in SYMBOLS and minimal symbols in MINSYMS. */
3070 find_linespec_symbols (struct linespec_state *state,
3071 VEC (symtab_p) *file_symtabs,
3073 VEC (symbolp) **symbols,
3074 VEC (minsym_and_objfile_d) **minsyms)
3076 char *klass, *method, *canon;
3077 const char *lookup_name, *last, *p, *scope_op;
3078 struct cleanup *cleanup;
3079 VEC (symbolp) *classes;
3080 volatile struct gdb_exception except;
3082 cleanup = demangle_for_lookup (name, state->language->la_language,
3084 if (state->language->la_language == language_ada)
3086 /* In Ada, the symbol lookups are performed using the encoded
3087 name rather than the demangled name. */
3088 lookup_name = ada_name_for_lookup (name);
3089 make_cleanup (xfree, (void *) lookup_name);
3092 canon = cp_canonicalize_string_no_typedefs (lookup_name);
3095 lookup_name = canon;
3096 cleanup = make_cleanup (xfree, canon);
3099 /* See if we can find a scope operator and break this symbol
3100 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3102 p = find_toplevel_string (lookup_name, scope_op);
3105 /* No C++ scope operator. Try Java. */
3107 p = find_toplevel_string (lookup_name, scope_op);
3114 p = find_toplevel_string (p + strlen (scope_op), scope_op);
3117 /* If no scope operator was found, lookup the name as a symbol. */
3120 find_function_symbols (state, file_symtabs, lookup_name,
3122 do_cleanups (cleanup);
3126 /* NAME points to the class name.
3127 LAST points to the method name. */
3128 klass = xmalloc ((last - lookup_name + 1) * sizeof (char));
3129 make_cleanup (xfree, klass);
3130 strncpy (klass, lookup_name, last - lookup_name);
3131 klass[last - lookup_name] = '\0';
3133 /* Skip past the scope operator. */
3134 last += strlen (scope_op);
3135 method = xmalloc ((strlen (last) + 1) * sizeof (char));
3136 make_cleanup (xfree, method);
3137 strcpy (method, last);
3139 /* Find a list of classes named KLASS. */
3140 classes = lookup_prefix_sym (state, file_symtabs, klass);
3141 make_cleanup (VEC_cleanup (symbolp), &classes);
3142 if (!VEC_empty (symbolp, classes))
3144 /* Now locate a list of suitable methods named METHOD. */
3145 TRY_CATCH (except, RETURN_MASK_ERROR)
3147 find_method (state, file_symtabs, klass, method, classes,
3151 /* If successful, we're done. If NOT_FOUND_ERROR
3152 was not thrown, rethrow the exception that we did get.
3153 Otherwise, fall back to looking up the entire name as a symbol.
3154 This can happen with namespace::function. */
3155 if (except.reason >= 0)
3157 do_cleanups (cleanup);
3160 else if (except.error != NOT_FOUND_ERROR)
3161 throw_exception (except);
3164 /* We couldn't find a class, so we check the entire name as a symbol
3166 find_function_symbols (state, file_symtabs, lookup_name, symbols, minsyms);
3167 do_cleanups (cleanup);
3170 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3171 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3173 static VEC (symbolp) *
3174 find_label_symbols (struct linespec_state *self,
3175 VEC (symbolp) *function_symbols,
3176 VEC (symbolp) **label_funcs_ret, const char *name)
3179 struct block *block;
3181 struct symbol *fn_sym;
3182 VEC (symbolp) *result = NULL;
3184 if (function_symbols == NULL)
3186 set_current_program_space (self->program_space);
3187 block = get_current_search_block ();
3190 block && !BLOCK_FUNCTION (block);
3191 block = BLOCK_SUPERBLOCK (block))
3195 fn_sym = BLOCK_FUNCTION (block);
3197 sym = lookup_symbol (name, block, LABEL_DOMAIN, 0);
3201 VEC_safe_push (symbolp, result, sym);
3202 VEC_safe_push (symbolp, *label_funcs_ret, fn_sym);
3208 VEC_iterate (symbolp, function_symbols, ix, fn_sym); ++ix)
3210 set_current_program_space (SYMTAB_PSPACE (SYMBOL_SYMTAB (fn_sym)));
3211 block = SYMBOL_BLOCK_VALUE (fn_sym);
3212 sym = lookup_symbol (name, block, LABEL_DOMAIN, 0);
3216 VEC_safe_push (symbolp, result, sym);
3217 VEC_safe_push (symbolp, *label_funcs_ret, fn_sym);
3227 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3230 decode_digits_list_mode (struct linespec_state *self,
3232 struct symtabs_and_lines *values,
3233 struct symtab_and_line val)
3238 gdb_assert (self->list_mode);
3240 for (ix = 0; VEC_iterate (symtab_p, ls->file_symtabs, ix, elt);
3243 /* The logic above should ensure this. */
3244 gdb_assert (elt != NULL);
3246 set_current_program_space (SYMTAB_PSPACE (elt));
3248 /* Simplistic search just for the list command. */
3249 val.symtab = find_line_symtab (elt, val.line, NULL, NULL);
3250 if (val.symtab == NULL)
3252 val.pspace = SYMTAB_PSPACE (elt);
3254 val.explicit_line = 1;
3256 add_sal_to_sals (self, values, &val, NULL, 0);
3260 /* A helper for create_sals_line_offset that iterates over the symtabs,
3261 adding lines to the VEC. */
3264 decode_digits_ordinary (struct linespec_state *self,
3267 struct symtabs_and_lines *sals,
3268 struct linetable_entry **best_entry)
3273 for (ix = 0; VEC_iterate (symtab_p, ls->file_symtabs, ix, elt); ++ix)
3276 VEC (CORE_ADDR) *pcs;
3279 /* The logic above should ensure this. */
3280 gdb_assert (elt != NULL);
3282 set_current_program_space (SYMTAB_PSPACE (elt));
3284 pcs = find_pcs_for_symtab_line (elt, line, best_entry);
3285 for (i = 0; VEC_iterate (CORE_ADDR, pcs, i, pc); ++i)
3287 struct symtab_and_line sal;
3290 sal.pspace = SYMTAB_PSPACE (elt);
3294 add_sal_to_sals_basic (sals, &sal);
3297 VEC_free (CORE_ADDR, pcs);
3303 /* Return the line offset represented by VARIABLE. */
3305 static struct line_offset
3306 linespec_parse_variable (struct linespec_state *self, const char *variable)
3310 struct line_offset offset = {0, LINE_OFFSET_NONE};
3312 p = (variable[1] == '$') ? variable + 2 : variable + 1;
3315 while (*p >= '0' && *p <= '9')
3317 if (!*p) /* Reached end of token without hitting non-digit. */
3319 /* We have a value history reference. */
3320 struct value *val_history;
3322 sscanf ((variable[1] == '$') ? variable + 2 : variable + 1, "%d", &index);
3324 = access_value_history ((variable[1] == '$') ? -index : index);
3325 if (TYPE_CODE (value_type (val_history)) != TYPE_CODE_INT)
3326 error (_("History values used in line "
3327 "specs must have integer values."));
3328 offset.offset = value_as_long (val_history);
3332 /* Not all digits -- may be user variable/function or a
3333 convenience variable. */
3335 struct internalvar *ivar;
3337 /* Try it as a convenience variable. If it is not a convenience
3338 variable, return and allow normal symbol lookup to occur. */
3339 ivar = lookup_only_internalvar (variable + 1);
3341 /* No internal variable with that name. Mark the offset
3342 as unknown to allow the name to be looked up as a symbol. */
3343 offset.sign = LINE_OFFSET_UNKNOWN;
3346 /* We found a valid variable name. If it is not an integer,
3348 if (!get_internalvar_integer (ivar, &valx))
3349 error (_("Convenience variables used in line "
3350 "specs must have integer values."));
3352 offset.offset = valx;
3360 /* A callback used to possibly add a symbol to the results. */
3363 collect_symbols (struct symbol *sym, void *data)
3365 struct collect_info *info = data;
3367 /* In list mode, add all matching symbols, regardless of class.
3368 This allows the user to type "list a_global_variable". */
3369 if (SYMBOL_CLASS (sym) == LOC_BLOCK || info->state->list_mode)
3370 VEC_safe_push (symbolp, info->result.symbols, sym);
3371 return 1; /* Continue iterating. */
3374 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3375 linespec; return the SAL in RESULT. */
3378 minsym_found (struct linespec_state *self, struct objfile *objfile,
3379 struct minimal_symbol *msymbol,
3380 struct symtabs_and_lines *result)
3382 struct gdbarch *gdbarch = get_objfile_arch (objfile);
3384 struct symtab_and_line sal;
3386 sal = find_pc_sect_line (SYMBOL_VALUE_ADDRESS (msymbol),
3387 (struct obj_section *) 0, 0);
3388 sal.section = SYMBOL_OBJ_SECTION (msymbol);
3390 /* The minimal symbol might point to a function descriptor;
3391 resolve it to the actual code address instead. */
3392 pc = gdbarch_convert_from_func_ptr_addr (gdbarch, sal.pc, ¤t_target);
3394 sal = find_pc_sect_line (pc, NULL, 0);
3396 if (self->funfirstline)
3397 skip_prologue_sal (&sal);
3399 if (maybe_add_address (self->addr_set, objfile->pspace, sal.pc))
3400 add_sal_to_sals (self, result, &sal, SYMBOL_NATURAL_NAME (msymbol), 0);
3403 /* A helper struct to pass some data through
3404 iterate_over_minimal_symbols. */
3406 struct collect_minsyms
3408 /* The objfile we're examining. */
3409 struct objfile *objfile;
3411 /* The funfirstline setting from the initial call. */
3414 /* The list_mode setting from the initial call. */
3417 /* The resulting symbols. */
3418 VEC (minsym_and_objfile_d) *msyms;
3421 /* A helper function to classify a minimal_symbol_type according to
3425 classify_mtype (enum minimal_symbol_type t)
3432 /* Intermediate priority. */
3435 case mst_solib_trampoline:
3436 /* Lowest priority. */
3440 /* Highest priority. */
3445 /* Callback for qsort that sorts symbols by priority. */
3448 compare_msyms (const void *a, const void *b)
3450 const minsym_and_objfile_d *moa = a;
3451 const minsym_and_objfile_d *mob = b;
3452 enum minimal_symbol_type ta = MSYMBOL_TYPE (moa->minsym);
3453 enum minimal_symbol_type tb = MSYMBOL_TYPE (mob->minsym);
3455 return classify_mtype (ta) - classify_mtype (tb);
3458 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3462 add_minsym (struct minimal_symbol *minsym, void *d)
3464 struct collect_minsyms *info = d;
3465 minsym_and_objfile_d mo;
3467 /* Exclude data symbols when looking for breakpoint locations. */
3468 if (!info->list_mode)
3469 switch (minsym->type)
3471 case mst_slot_got_plt:
3478 /* Make sure this minsym is not a function descriptor
3479 before we decide to discard it. */
3480 struct gdbarch *gdbarch = info->objfile->gdbarch;
3481 CORE_ADDR addr = gdbarch_convert_from_func_ptr_addr
3482 (gdbarch, SYMBOL_VALUE_ADDRESS (minsym),
3485 if (addr == SYMBOL_VALUE_ADDRESS (minsym))
3491 mo.objfile = info->objfile;
3492 VEC_safe_push (minsym_and_objfile_d, info->msyms, &mo);
3495 /* Search minimal symbols in all objfiles for NAME. If SEARCH_PSPACE
3496 is not NULL, the search is restricted to just that program
3500 search_minsyms_for_name (struct collect_info *info, const char *name,
3501 struct program_space *search_pspace)
3503 struct objfile *objfile;
3504 struct program_space *pspace;
3506 ALL_PSPACES (pspace)
3508 struct collect_minsyms local;
3509 struct cleanup *cleanup;
3511 if (search_pspace != NULL && search_pspace != pspace)
3513 if (pspace->executing_startup)
3516 set_current_program_space (pspace);
3518 memset (&local, 0, sizeof (local));
3519 local.funfirstline = info->state->funfirstline;
3520 local.list_mode = info->state->list_mode;
3522 cleanup = make_cleanup (VEC_cleanup (minsym_and_objfile_d),
3525 ALL_OBJFILES (objfile)
3527 local.objfile = objfile;
3528 iterate_over_minimal_symbols (objfile, name, add_minsym, &local);
3531 if (!VEC_empty (minsym_and_objfile_d, local.msyms))
3535 minsym_and_objfile_d *item;
3537 qsort (VEC_address (minsym_and_objfile_d, local.msyms),
3538 VEC_length (minsym_and_objfile_d, local.msyms),
3539 sizeof (minsym_and_objfile_d),
3542 /* Now the minsyms are in classification order. So, we walk
3543 over them and process just the minsyms with the same
3544 classification as the very first minsym in the list. */
3545 item = VEC_index (minsym_and_objfile_d, local.msyms, 0);
3546 classification = classify_mtype (MSYMBOL_TYPE (item->minsym));
3549 VEC_iterate (minsym_and_objfile_d, local.msyms, ix, item);
3552 if (classify_mtype (MSYMBOL_TYPE (item->minsym)) != classification)
3555 VEC_safe_push (minsym_and_objfile_d,
3556 info->result.minimal_symbols, item);
3560 do_cleanups (cleanup);
3564 /* A helper function to add all symbols matching NAME to INFO. If
3565 PSPACE is not NULL, the search is restricted to just that program
3569 add_matching_symbols_to_info (const char *name,
3570 struct collect_info *info,
3571 struct program_space *pspace)
3576 for (ix = 0; VEC_iterate (symtab_p, info->file_symtabs, ix, elt); ++ix)
3580 iterate_over_all_matching_symtabs (info->state, name, VAR_DOMAIN,
3581 collect_symbols, info,
3583 search_minsyms_for_name (info, name, pspace);
3585 else if (pspace == NULL || pspace == SYMTAB_PSPACE (elt))
3587 /* Program spaces that are executing startup should have
3588 been filtered out earlier. */
3589 gdb_assert (!SYMTAB_PSPACE (elt)->executing_startup);
3590 set_current_program_space (SYMTAB_PSPACE (elt));
3591 iterate_over_file_blocks (elt, name, VAR_DOMAIN,
3592 collect_symbols, info);
3599 /* Now come some functions that are called from multiple places within
3603 symbol_to_sal (struct symtab_and_line *result,
3604 int funfirstline, struct symbol *sym)
3606 if (SYMBOL_CLASS (sym) == LOC_BLOCK)
3608 *result = find_function_start_sal (sym, funfirstline);
3613 if (SYMBOL_CLASS (sym) == LOC_LABEL && SYMBOL_VALUE_ADDRESS (sym) != 0)
3616 result->symtab = SYMBOL_SYMTAB (sym);
3617 result->line = SYMBOL_LINE (sym);
3618 result->pc = SYMBOL_VALUE_ADDRESS (sym);
3619 result->pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
3620 result->explicit_pc = 1;
3623 else if (funfirstline)
3627 else if (SYMBOL_LINE (sym) != 0)
3629 /* We know its line number. */
3631 result->symtab = SYMBOL_SYMTAB (sym);
3632 result->line = SYMBOL_LINE (sym);
3633 result->pspace = SYMTAB_PSPACE (SYMBOL_SYMTAB (sym));
3641 /* See the comment in linespec.h. */
3644 init_linespec_result (struct linespec_result *lr)
3646 memset (lr, 0, sizeof (*lr));
3649 /* See the comment in linespec.h. */
3652 destroy_linespec_result (struct linespec_result *ls)
3655 struct linespec_sals *lsal;
3657 xfree (ls->addr_string);
3658 for (i = 0; VEC_iterate (linespec_sals, ls->sals, i, lsal); ++i)
3660 xfree (lsal->canonical);
3661 xfree (lsal->sals.sals);
3663 VEC_free (linespec_sals, ls->sals);
3666 /* Cleanup function for a linespec_result. */
3669 cleanup_linespec_result (void *a)
3671 destroy_linespec_result (a);
3674 /* See the comment in linespec.h. */
3677 make_cleanup_destroy_linespec_result (struct linespec_result *ls)
3679 return make_cleanup (cleanup_linespec_result, ls);