1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2015 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"
38 #include "mi/mi-cmds.h"
40 #include "arch-utils.h"
42 #include "cli/cli-utils.h"
43 #include "filenames.h"
48 typedef struct symbol
*symbolp
;
51 typedef struct type
*typep
;
54 /* An address entry is used to ensure that any given location is only
55 added to the result a single time. It holds an address and the
56 program space from which the address came. */
60 struct program_space
*pspace
;
64 typedef struct bound_minimal_symbol bound_minimal_symbol_d
;
66 DEF_VEC_O (bound_minimal_symbol_d
);
68 /* A linespec. Elements of this structure are filled in by a parser
69 (either parse_linespec or some other function). The structure is
70 then converted into SALs by convert_linespec_to_sals. */
74 /* An explicit location describing the SaLs. */
75 struct explicit_location explicit_loc
;
77 /* The list of symtabs to search to which to limit the search. May not
78 be NULL. If explicit.SOURCE_FILENAME is NULL (no user-specified
79 filename), FILE_SYMTABS should contain one single NULL member. This
80 will cause the code to use the default symtab. */
81 VEC (symtab_ptr
) *file_symtabs
;
83 /* A list of matching function symbols and minimal symbols. Both lists
84 may be NULL if no matching symbols were found. */
85 VEC (symbolp
) *function_symbols
;
86 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
88 /* A structure of matching label symbols and the corresponding
89 function symbol in which the label was found. Both may be NULL
90 or both must be non-NULL. */
93 VEC (symbolp
) *label_symbols
;
94 VEC (symbolp
) *function_symbols
;
97 typedef struct linespec
*linespec_p
;
99 /* A canonical linespec represented as a symtab-related string.
101 Each entry represents the "SYMTAB:SUFFIX" linespec string.
102 SYMTAB can be converted for example by symtab_to_fullname or
103 symtab_to_filename_for_display as needed. */
105 struct linespec_canonical_name
107 /* Remaining text part of the linespec string. */
110 /* If NULL then SUFFIX is the whole linespec string. */
111 struct symtab
*symtab
;
114 /* An instance of this is used to keep all state while linespec
115 operates. This instance is passed around as a 'this' pointer to
116 the various implementation methods. */
118 struct linespec_state
120 /* The language in use during linespec processing. */
121 const struct language_defn
*language
;
123 /* The program space as seen when the module was entered. */
124 struct program_space
*program_space
;
126 /* The default symtab to use, if no other symtab is specified. */
127 struct symtab
*default_symtab
;
129 /* The default line to use. */
132 /* The 'funfirstline' value that was passed in to decode_line_1 or
136 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
139 /* The 'canonical' value passed to decode_line_full, or NULL. */
140 struct linespec_result
*canonical
;
142 /* Canonical strings that mirror the symtabs_and_lines result. */
143 struct linespec_canonical_name
*canonical_names
;
145 /* This is a set of address_entry objects which is used to prevent
146 duplicate symbols from being entered into the result. */
149 /* Are we building a linespec? */
153 /* This is a helper object that is used when collecting symbols into a
158 /* The linespec object in use. */
159 struct linespec_state
*state
;
161 /* A list of symtabs to which to restrict matches. */
162 VEC (symtab_ptr
) *file_symtabs
;
164 /* The result being accumulated. */
167 VEC (symbolp
) *symbols
;
168 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
179 /* A colon "separator" */
191 /* EOI (end of input) */
197 typedef enum ls_token_type linespec_token_type
;
199 /* List of keywords */
201 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
202 #define IF_KEYWORD_INDEX 0
204 /* A token of the linespec lexer */
208 /* The type of the token */
209 linespec_token_type type
;
211 /* Data for the token */
214 /* A string, given as a stoken */
215 struct stoken string
;
221 typedef struct ls_token linespec_token
;
223 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
224 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
226 /* An instance of the linespec parser. */
230 /* Lexer internal data */
233 /* Save head of input stream. */
234 const char *saved_arg
;
236 /* Head of the input stream. */
238 #define PARSER_STREAM(P) ((P)->lexer.stream)
240 /* The current token. */
241 linespec_token current
;
244 /* Is the entire linespec quote-enclosed? */
245 int is_quote_enclosed
;
247 /* The state of the parse. */
248 struct linespec_state state
;
249 #define PARSER_STATE(PPTR) (&(PPTR)->state)
251 /* The result of the parse. */
252 struct linespec result
;
253 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
255 typedef struct ls_parser linespec_parser
;
257 /* A convenience macro for accessing the explicit location result of
259 #define PARSER_EXPLICIT(PPTR) (&PARSER_RESULT ((PPTR))->explicit_loc)
261 /* Prototypes for local functions. */
263 static void iterate_over_file_blocks (struct symtab
*symtab
,
264 const char *name
, domain_enum domain
,
265 symbol_found_callback_ftype
*callback
,
268 static void initialize_defaults (struct symtab
**default_symtab
,
271 CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
273 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
277 static VEC (symtab_ptr
) *symtabs_from_filename (const char *);
279 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
280 VEC (symbolp
) *function_symbols
,
281 VEC (symbolp
) **label_funcs_ret
,
284 static void find_linespec_symbols (struct linespec_state
*self
,
285 VEC (symtab_ptr
) *file_symtabs
,
287 VEC (symbolp
) **symbols
,
288 VEC (bound_minimal_symbol_d
) **minsyms
);
290 static struct line_offset
291 linespec_parse_variable (struct linespec_state
*self
,
292 const char *variable
);
294 static int symbol_to_sal (struct symtab_and_line
*result
,
295 int funfirstline
, struct symbol
*sym
);
297 static void add_matching_symbols_to_info (const char *name
,
298 struct collect_info
*info
,
299 struct program_space
*pspace
);
301 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
302 struct program_space
*pspace
,
303 VEC (const_char_ptr
) *names
);
305 static VEC (symtab_ptr
) *collect_symtabs_from_filename (const char *file
);
307 static void decode_digits_ordinary (struct linespec_state
*self
,
310 struct symtabs_and_lines
*sals
,
311 struct linetable_entry
**best_entry
);
313 static void decode_digits_list_mode (struct linespec_state
*self
,
315 struct symtabs_and_lines
*values
,
316 struct symtab_and_line val
);
318 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
319 struct minimal_symbol
*msymbol
,
320 struct symtabs_and_lines
*result
);
322 static int compare_symbols (const void *a
, const void *b
);
324 static int compare_msymbols (const void *a
, const void *b
);
326 /* Permitted quote characters for the parser. This is different from the
327 completer's quote characters to allow backward compatibility with the
329 static const char *const linespec_quote_characters
= "\"\'";
331 /* Lexer functions. */
333 /* Lex a number from the input in PARSER. This only supports
336 Return true if input is decimal numbers. Return false if not. */
339 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
341 tokenp
->type
= LSTOKEN_NUMBER
;
342 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
343 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
345 /* Keep any sign at the start of the stream. */
346 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
348 ++LS_TOKEN_STOKEN (*tokenp
).length
;
349 ++(PARSER_STREAM (parser
));
352 while (isdigit (*PARSER_STREAM (parser
)))
354 ++LS_TOKEN_STOKEN (*tokenp
).length
;
355 ++(PARSER_STREAM (parser
));
358 /* If the next character in the input buffer is not a space, comma,
359 quote, or colon, this input does not represent a number. */
360 if (*PARSER_STREAM (parser
) != '\0'
361 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
362 && *PARSER_STREAM (parser
) != ':'
363 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
365 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
372 /* See linespec.h. */
375 linespec_lexer_lex_keyword (const char *p
)
381 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
383 int len
= strlen (linespec_keywords
[i
]);
385 /* If P begins with one of the keywords and the next
386 character is whitespace, we may have found a keyword.
387 It is only a keyword if it is not followed by another
389 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
394 /* Special case: "if" ALWAYS stops the lexer, since it
395 is not possible to predict what is going to appear in
396 the condition, which can only be parsed after SaLs have
398 if (i
!= IF_KEYWORD_INDEX
)
401 p
= skip_spaces_const (p
);
402 for (j
= 0; j
< ARRAY_SIZE (linespec_keywords
); ++j
)
404 int nextlen
= strlen (linespec_keywords
[j
]);
406 if (strncmp (p
, linespec_keywords
[j
], nextlen
) == 0
407 && isspace (p
[nextlen
]))
412 return linespec_keywords
[i
];
420 /* See description in linespec.h. */
423 is_ada_operator (const char *string
)
425 const struct ada_opname_map
*mapping
;
427 for (mapping
= ada_opname_table
;
428 mapping
->encoded
!= NULL
429 && !startswith (string
, mapping
->decoded
); ++mapping
)
432 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
435 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
436 the location of QUOTE_CHAR, or NULL if not found. */
439 skip_quote_char (const char *string
, char quote_char
)
441 const char *p
, *last
;
443 p
= last
= find_toplevel_char (string
, quote_char
);
444 while (p
&& *p
!= '\0' && *p
!= ':')
446 p
= find_toplevel_char (p
, quote_char
);
454 /* Make a writable copy of the string given in TOKEN, trimming
455 any trailing whitespace. */
458 copy_token_string (linespec_token token
)
462 if (token
.type
== LSTOKEN_KEYWORD
)
463 return xstrdup (LS_TOKEN_KEYWORD (token
));
465 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
466 LS_TOKEN_STOKEN (token
).length
);
467 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
473 /* Does P represent the end of a quote-enclosed linespec? */
476 is_closing_quote_enclosed (const char *p
)
478 if (strchr (linespec_quote_characters
, *p
))
480 p
= skip_spaces ((char *) p
);
481 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
484 /* Find the end of the parameter list that starts with *INPUT.
485 This helper function assists with lexing string segments
486 which might contain valid (non-terminating) commas. */
489 find_parameter_list_end (const char *input
)
491 char end_char
, start_char
;
496 if (start_char
== '(')
498 else if (start_char
== '<')
507 if (*p
== start_char
)
509 else if (*p
== end_char
)
524 /* Lex a string from the input in PARSER. */
526 static linespec_token
527 linespec_lexer_lex_string (linespec_parser
*parser
)
529 linespec_token token
;
530 const char *start
= PARSER_STREAM (parser
);
532 token
.type
= LSTOKEN_STRING
;
534 /* If the input stream starts with a quote character, skip to the next
535 quote character, regardless of the content. */
536 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
539 char quote_char
= *PARSER_STREAM (parser
);
541 /* Special case: Ada operators. */
542 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
543 && quote_char
== '\"')
545 int len
= is_ada_operator (PARSER_STREAM (parser
));
549 /* The input is an Ada operator. Return the quoted string
551 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
552 LS_TOKEN_STOKEN (token
).length
= len
;
553 PARSER_STREAM (parser
) += len
;
557 /* The input does not represent an Ada operator -- fall through
558 to normal quoted string handling. */
561 /* Skip past the beginning quote. */
562 ++(PARSER_STREAM (parser
));
564 /* Mark the start of the string. */
565 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
567 /* Skip to the ending quote. */
568 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
570 /* Error if the input did not terminate properly. */
572 error (_("unmatched quote"));
574 /* Skip over the ending quote and mark the length of the string. */
575 PARSER_STREAM (parser
) = (char *) ++end
;
576 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
582 /* Otherwise, only identifier characters are permitted.
583 Spaces are the exception. In general, we keep spaces,
584 but only if the next characters in the input do not resolve
585 to one of the keywords.
587 This allows users to forgo quoting CV-qualifiers, template arguments,
588 and similar common language constructs. */
592 if (isspace (*PARSER_STREAM (parser
)))
594 p
= skip_spaces_const (PARSER_STREAM (parser
));
595 /* When we get here we know we've found something followed by
596 a space (we skip over parens and templates below).
597 So if we find a keyword now, we know it is a keyword and not,
598 say, a function name. */
599 if (linespec_lexer_lex_keyword (p
) != NULL
)
601 LS_TOKEN_STOKEN (token
).ptr
= start
;
602 LS_TOKEN_STOKEN (token
).length
603 = PARSER_STREAM (parser
) - start
;
607 /* Advance past the whitespace. */
608 PARSER_STREAM (parser
) = p
;
611 /* If the next character is EOI or (single) ':', the
612 string is complete; return the token. */
613 if (*PARSER_STREAM (parser
) == 0)
615 LS_TOKEN_STOKEN (token
).ptr
= start
;
616 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
619 else if (PARSER_STREAM (parser
)[0] == ':')
621 /* Do not tokenize the C++ scope operator. */
622 if (PARSER_STREAM (parser
)[1] == ':')
623 ++(PARSER_STREAM (parser
));
625 /* Do not tokenify if the input length so far is one
626 (i.e, a single-letter drive name) and the next character
627 is a directory separator. This allows Windows-style
628 paths to be recognized as filenames without quoting it. */
629 else if ((PARSER_STREAM (parser
) - start
) != 1
630 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
632 LS_TOKEN_STOKEN (token
).ptr
= start
;
633 LS_TOKEN_STOKEN (token
).length
634 = PARSER_STREAM (parser
) - start
;
638 /* Special case: permit quote-enclosed linespecs. */
639 else if (parser
->is_quote_enclosed
640 && strchr (linespec_quote_characters
,
641 *PARSER_STREAM (parser
))
642 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
644 LS_TOKEN_STOKEN (token
).ptr
= start
;
645 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
648 /* Because commas may terminate a linespec and appear in
649 the middle of valid string input, special cases for
650 '<' and '(' are necessary. */
651 else if (*PARSER_STREAM (parser
) == '<'
652 || *PARSER_STREAM (parser
) == '(')
656 p
= find_parameter_list_end (PARSER_STREAM (parser
));
659 PARSER_STREAM (parser
) = p
;
663 /* Commas are terminators, but not if they are part of an
665 else if (*PARSER_STREAM (parser
) == ',')
667 if ((PARSER_STATE (parser
)->language
->la_language
669 && (PARSER_STREAM (parser
) - start
) > 8
670 /* strlen ("operator") */)
672 char *p
= strstr (start
, "operator");
674 if (p
!= NULL
&& is_operator_name (p
))
676 /* This is an operator name. Keep going. */
677 ++(PARSER_STREAM (parser
));
682 /* Comma terminates the string. */
683 LS_TOKEN_STOKEN (token
).ptr
= start
;
684 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
688 /* Advance the stream. */
689 ++(PARSER_STREAM (parser
));
696 /* Lex a single linespec token from PARSER. */
698 static linespec_token
699 linespec_lexer_lex_one (linespec_parser
*parser
)
703 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
705 /* Skip any whitespace. */
706 PARSER_STREAM (parser
) = skip_spaces_const (PARSER_STREAM (parser
));
708 /* Check for a keyword, they end the linespec. */
709 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
712 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
713 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
714 /* We do not advance the stream here intentionally:
715 we would like lexing to stop when a keyword is seen.
717 PARSER_STREAM (parser) += strlen (keyword); */
719 return parser
->lexer
.current
;
722 /* Handle other tokens. */
723 switch (*PARSER_STREAM (parser
))
726 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
730 case '0': case '1': case '2': case '3': case '4':
731 case '5': case '6': case '7': case '8': case '9':
732 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
733 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
737 /* If we have a scope operator, lex the input as a string.
738 Otherwise, return LSTOKEN_COLON. */
739 if (PARSER_STREAM (parser
)[1] == ':')
740 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
743 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
744 ++(PARSER_STREAM (parser
));
748 case '\'': case '\"':
749 /* Special case: permit quote-enclosed linespecs. */
750 if (parser
->is_quote_enclosed
751 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
753 ++(PARSER_STREAM (parser
));
754 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
757 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
761 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
762 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
763 = PARSER_STREAM (parser
);
764 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
765 ++(PARSER_STREAM (parser
));
769 /* If the input is not a number, it must be a string.
770 [Keywords were already considered above.] */
771 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
776 return parser
->lexer
.current
;
779 /* Consume the current token and return the next token in PARSER's
782 static linespec_token
783 linespec_lexer_consume_token (linespec_parser
*parser
)
785 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
786 return linespec_lexer_lex_one (parser
);
789 /* Return the next token without consuming the current token. */
791 static linespec_token
792 linespec_lexer_peek_token (linespec_parser
*parser
)
795 const char *saved_stream
= PARSER_STREAM (parser
);
796 linespec_token saved_token
= parser
->lexer
.current
;
798 next
= linespec_lexer_consume_token (parser
);
799 PARSER_STREAM (parser
) = saved_stream
;
800 parser
->lexer
.current
= saved_token
;
804 /* Helper functions. */
806 /* Add SAL to SALS. */
809 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
810 struct symtab_and_line
*sal
)
813 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
814 sals
->sals
[sals
->nelts
- 1] = *sal
;
817 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
818 the new sal, if needed. If not NULL, SYMNAME is the name of the
819 symbol to use when constructing the new canonical name.
821 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
822 canonical name for the SAL. */
825 add_sal_to_sals (struct linespec_state
*self
,
826 struct symtabs_and_lines
*sals
,
827 struct symtab_and_line
*sal
,
828 const char *symname
, int literal_canonical
)
830 add_sal_to_sals_basic (sals
, sal
);
834 struct linespec_canonical_name
*canonical
;
836 self
->canonical_names
= xrealloc (self
->canonical_names
,
838 * sizeof (*self
->canonical_names
)));
839 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
840 if (!literal_canonical
&& sal
->symtab
)
842 const char *fullname
= symtab_to_fullname (sal
->symtab
);
844 /* Note that the filter doesn't have to be a valid linespec
845 input. We only apply the ":LINE" treatment to Ada for
847 if (symname
!= NULL
&& sal
->line
!= 0
848 && self
->language
->la_language
== language_ada
)
849 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
850 else if (symname
!= NULL
)
851 canonical
->suffix
= xstrdup (symname
);
853 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
854 canonical
->symtab
= sal
->symtab
;
859 canonical
->suffix
= xstrdup (symname
);
861 canonical
->suffix
= xstrdup ("<unknown>");
862 canonical
->symtab
= NULL
;
867 /* A hash function for address_entry. */
870 hash_address_entry (const void *p
)
872 const struct address_entry
*aep
= p
;
875 hash
= iterative_hash_object (aep
->pspace
, 0);
876 return iterative_hash_object (aep
->addr
, hash
);
879 /* An equality function for address_entry. */
882 eq_address_entry (const void *a
, const void *b
)
884 const struct address_entry
*aea
= a
;
885 const struct address_entry
*aeb
= b
;
887 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
890 /* Check whether the address, represented by PSPACE and ADDR, is
891 already in the set. If so, return 0. Otherwise, add it and return
895 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
897 struct address_entry e
, *p
;
902 slot
= htab_find_slot (set
, &e
, INSERT
);
906 p
= XNEW (struct address_entry
);
907 memcpy (p
, &e
, sizeof (struct address_entry
));
913 /* A callback function and the additional data to call it with. */
915 struct symbol_and_data_callback
917 /* The callback to use. */
918 symbol_found_callback_ftype
*callback
;
920 /* Data to be passed to the callback. */
924 /* A helper for iterate_over_all_matching_symtabs that is used to
925 restrict calls to another callback to symbols representing inline
929 iterate_inline_only (struct symbol
*sym
, void *d
)
931 if (SYMBOL_INLINED (sym
))
933 struct symbol_and_data_callback
*cad
= d
;
935 return cad
->callback (sym
, cad
->data
);
937 return 1; /* Continue iterating. */
940 /* Some data for the expand_symtabs_matching callback. */
942 struct symbol_matcher_data
944 /* The lookup name against which symbol name should be compared. */
945 const char *lookup_name
;
947 /* The routine to be used for comparison. */
948 symbol_name_cmp_ftype symbol_name_cmp
;
951 /* A helper for iterate_over_all_matching_symtabs that is passed as a
952 callback to the expand_symtabs_matching method. */
955 iterate_name_matcher (const char *name
, void *d
)
957 const struct symbol_matcher_data
*data
= d
;
959 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
960 return 1; /* Expand this symbol's symbol table. */
961 return 0; /* Skip this symbol. */
964 /* A helper that walks over all matching symtabs in all objfiles and
965 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
966 not NULL, then the search is restricted to just that program
967 space. If INCLUDE_INLINE is nonzero then symbols representing
968 inlined instances of functions will be included in the result. */
971 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
973 const domain_enum domain
,
974 symbol_found_callback_ftype
*callback
,
976 struct program_space
*search_pspace
,
979 struct objfile
*objfile
;
980 struct program_space
*pspace
;
981 struct symbol_matcher_data matcher_data
;
983 matcher_data
.lookup_name
= name
;
984 matcher_data
.symbol_name_cmp
=
985 state
->language
->la_get_symbol_name_cmp
!= NULL
986 ? state
->language
->la_get_symbol_name_cmp (name
)
991 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
993 if (pspace
->executing_startup
)
996 set_current_program_space (pspace
);
998 ALL_OBJFILES (objfile
)
1000 struct compunit_symtab
*cu
;
1003 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1004 iterate_name_matcher
,
1008 ALL_OBJFILE_COMPUNITS (objfile
, cu
)
1010 struct symtab
*symtab
= COMPUNIT_FILETABS (cu
);
1012 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1016 struct symbol_and_data_callback cad
= { callback
, data
};
1017 struct block
*block
;
1020 for (i
= FIRST_LOCAL_BLOCK
;
1021 i
< BLOCKVECTOR_NBLOCKS (SYMTAB_BLOCKVECTOR (symtab
));
1024 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), i
);
1025 state
->language
->la_iterate_over_symbols
1026 (block
, name
, domain
, iterate_inline_only
, &cad
);
1034 /* Returns the block to be used for symbol searches from
1035 the current location. */
1037 static const struct block
*
1038 get_current_search_block (void)
1040 const struct block
*block
;
1041 enum language save_language
;
1043 /* get_selected_block can change the current language when there is
1044 no selected frame yet. */
1045 save_language
= current_language
->la_language
;
1046 block
= get_selected_block (0);
1047 set_language (save_language
);
1052 /* Iterate over static and global blocks. */
1055 iterate_over_file_blocks (struct symtab
*symtab
,
1056 const char *name
, domain_enum domain
,
1057 symbol_found_callback_ftype
*callback
, void *data
)
1059 struct block
*block
;
1061 for (block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1063 block
= BLOCK_SUPERBLOCK (block
))
1064 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1067 /* A helper for find_method. This finds all methods in type T which
1068 match NAME. It adds matching symbol names to RESULT_NAMES, and
1069 adds T's direct superclasses to SUPERCLASSES. */
1072 find_methods (struct type
*t
, const char *name
,
1073 VEC (const_char_ptr
) **result_names
,
1074 VEC (typep
) **superclasses
)
1077 const char *class_name
= type_name_no_tag (t
);
1079 /* Ignore this class if it doesn't have a name. This is ugly, but
1080 unless we figure out how to get the physname without the name of
1081 the class, then the loop can't do any good. */
1086 t
= check_typedef (t
);
1088 /* Loop over each method name. At this level, all overloads of a name
1089 are counted as a single name. There is an inner loop which loops over
1092 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1093 method_counter
>= 0;
1096 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1097 char dem_opname
[64];
1099 if (startswith (method_name
, "__") ||
1100 startswith (method_name
, "op") ||
1101 startswith (method_name
, "type"))
1103 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1104 method_name
= dem_opname
;
1105 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1106 method_name
= dem_opname
;
1109 if (strcmp_iw (method_name
, name
) == 0)
1113 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1119 const char *phys_name
;
1121 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1122 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1124 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1125 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1131 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1132 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1135 /* Find an instance of the character C in the string S that is outside
1136 of all parenthesis pairs, single-quoted strings, and double-quoted
1137 strings. Also, ignore the char within a template name, like a ','
1138 within foo<int, int>. */
1141 find_toplevel_char (const char *s
, char c
)
1143 int quoted
= 0; /* zero if we're not in quotes;
1144 '"' if we're in a double-quoted string;
1145 '\'' if we're in a single-quoted string. */
1146 int depth
= 0; /* Number of unclosed parens we've seen. */
1149 for (scan
= s
; *scan
; scan
++)
1153 if (*scan
== quoted
)
1155 else if (*scan
== '\\' && *(scan
+ 1))
1158 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1160 else if (*scan
== '"' || *scan
== '\'')
1162 else if (*scan
== '(' || *scan
== '<')
1164 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1171 /* The string equivalent of find_toplevel_char. Returns a pointer
1172 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1173 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1176 find_toplevel_string (const char *haystack
, const char *needle
)
1178 const char *s
= haystack
;
1182 s
= find_toplevel_char (s
, *needle
);
1186 /* Found first char in HAYSTACK; check rest of string. */
1187 if (startswith (s
, needle
))
1190 /* Didn't find it; loop over HAYSTACK, looking for the next
1191 instance of the first character of NEEDLE. */
1195 while (s
!= NULL
&& *s
!= '\0');
1197 /* NEEDLE was not found in HAYSTACK. */
1201 /* Convert CANONICAL to its string representation using
1202 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1205 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1207 if (canonical
->symtab
== NULL
)
1208 return xstrdup (canonical
->suffix
);
1210 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1214 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1215 and store the result in SELF->CANONICAL. */
1218 filter_results (struct linespec_state
*self
,
1219 struct symtabs_and_lines
*result
,
1220 VEC (const_char_ptr
) *filters
)
1225 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1227 struct linespec_sals lsal
;
1230 memset (&lsal
, 0, sizeof (lsal
));
1232 for (j
= 0; j
< result
->nelts
; ++j
)
1234 const struct linespec_canonical_name
*canonical
;
1236 struct cleanup
*cleanup
;
1238 canonical
= &self
->canonical_names
[j
];
1239 fullform
= canonical_to_fullform (canonical
);
1240 cleanup
= make_cleanup (xfree
, fullform
);
1242 if (strcmp (name
, fullform
) == 0)
1243 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1245 do_cleanups (cleanup
);
1248 if (lsal
.sals
.nelts
> 0)
1250 lsal
.canonical
= xstrdup (name
);
1251 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1255 self
->canonical
->pre_expanded
= 0;
1258 /* Store RESULT into SELF->CANONICAL. */
1261 convert_results_to_lsals (struct linespec_state
*self
,
1262 struct symtabs_and_lines
*result
)
1264 struct linespec_sals lsal
;
1266 lsal
.canonical
= NULL
;
1267 lsal
.sals
= *result
;
1268 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1271 /* A structure that contains two string representations of a struct
1272 linespec_canonical_name:
1273 - one where the the symtab's fullname is used;
1274 - one where the filename followed the "set filename-display"
1277 struct decode_line_2_item
1279 /* The form using symtab_to_fullname.
1280 It must be xfree'ed after use. */
1283 /* The form using symtab_to_filename_for_display.
1284 It must be xfree'ed after use. */
1287 /* Field is initialized to zero and it is set to one if the user
1288 requested breakpoint for this entry. */
1289 unsigned int selected
: 1;
1292 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1293 secondarily by FULLFORM. */
1296 decode_line_2_compare_items (const void *ap
, const void *bp
)
1298 const struct decode_line_2_item
*a
= ap
;
1299 const struct decode_line_2_item
*b
= bp
;
1302 retval
= strcmp (a
->displayform
, b
->displayform
);
1306 return strcmp (a
->fullform
, b
->fullform
);
1309 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1310 will either return normally, throw an exception on multiple
1311 results, or present a menu to the user. On return, the SALS vector
1312 in SELF->CANONICAL is set up properly. */
1315 decode_line_2 (struct linespec_state
*self
,
1316 struct symtabs_and_lines
*result
,
1317 const char *select_mode
)
1319 char *args
, *prompt
;
1321 struct cleanup
*old_chain
;
1322 VEC (const_char_ptr
) *filters
= NULL
;
1323 struct get_number_or_range_state state
;
1324 struct decode_line_2_item
*items
;
1327 gdb_assert (select_mode
!= multiple_symbols_all
);
1328 gdb_assert (self
->canonical
!= NULL
);
1329 gdb_assert (result
->nelts
>= 1);
1331 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1333 /* Prepare ITEMS array. */
1334 items_count
= result
->nelts
;
1335 items
= XNEWVEC (struct decode_line_2_item
, items_count
);
1336 make_cleanup (xfree
, items
);
1337 for (i
= 0; i
< items_count
; ++i
)
1339 const struct linespec_canonical_name
*canonical
;
1340 struct decode_line_2_item
*item
;
1342 canonical
= &self
->canonical_names
[i
];
1343 gdb_assert (canonical
->suffix
!= NULL
);
1346 item
->fullform
= canonical_to_fullform (canonical
);
1347 make_cleanup (xfree
, item
->fullform
);
1349 if (canonical
->symtab
== NULL
)
1350 item
->displayform
= canonical
->suffix
;
1353 const char *fn_for_display
;
1355 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1356 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1358 make_cleanup (xfree
, item
->displayform
);
1364 /* Sort the list of method names. */
1365 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1367 /* Remove entries with the same FULLFORM. */
1368 if (items_count
>= 2)
1370 struct decode_line_2_item
*dst
, *src
;
1373 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1374 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1376 items_count
= dst
+ 1 - items
;
1379 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1380 error (_("canceled because the command is ambiguous\n"
1381 "See set/show multiple-symbol."));
1383 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1385 do_cleanups (old_chain
);
1386 convert_results_to_lsals (self
, result
);
1390 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1391 for (i
= 0; i
< items_count
; i
++)
1392 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1394 prompt
= getenv ("PS2");
1399 args
= command_line_input (prompt
, 0, "overload-choice");
1401 if (args
== 0 || *args
== 0)
1402 error_no_arg (_("one or more choice numbers"));
1404 init_number_or_range (&state
, args
);
1405 while (!state
.finished
)
1409 num
= get_number_or_range (&state
);
1412 error (_("canceled"));
1415 /* We intentionally make this result in a single breakpoint,
1416 contrary to what older versions of gdb did. The
1417 rationale is that this lets a user get the
1418 multiple_symbols_all behavior even with the 'ask'
1419 setting; and he can get separate breakpoints by entering
1420 "2-57" at the query. */
1421 do_cleanups (old_chain
);
1422 convert_results_to_lsals (self
, result
);
1427 if (num
>= items_count
)
1428 printf_unfiltered (_("No choice number %d.\n"), num
);
1431 struct decode_line_2_item
*item
= &items
[num
];
1433 if (!item
->selected
)
1435 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1440 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1446 filter_results (self
, result
, filters
);
1447 do_cleanups (old_chain
);
1452 /* The parser of linespec itself. */
1454 /* Throw an appropriate error when SYMBOL is not found (optionally in
1457 static void ATTRIBUTE_NORETURN
1458 symbol_not_found_error (const char *symbol
, const char *filename
)
1463 if (!have_full_symbols ()
1464 && !have_partial_symbols ()
1465 && !have_minimal_symbols ())
1466 throw_error (NOT_FOUND_ERROR
,
1467 _("No symbol table is loaded. Use the \"file\" command."));
1469 /* If SYMBOL starts with '$', the user attempted to either lookup
1470 a function/variable in his code starting with '$' or an internal
1471 variable of that name. Since we do not know which, be concise and
1472 explain both possibilities. */
1476 throw_error (NOT_FOUND_ERROR
,
1477 _("Undefined convenience variable or function \"%s\" "
1478 "not defined in \"%s\"."), symbol
, filename
);
1480 throw_error (NOT_FOUND_ERROR
,
1481 _("Undefined convenience variable or function \"%s\" "
1482 "not defined."), symbol
);
1487 throw_error (NOT_FOUND_ERROR
,
1488 _("Function \"%s\" not defined in \"%s\"."),
1491 throw_error (NOT_FOUND_ERROR
,
1492 _("Function \"%s\" not defined."), symbol
);
1496 /* Throw an appropriate error when an unexpected token is encountered
1499 static void ATTRIBUTE_NORETURN
1500 unexpected_linespec_error (linespec_parser
*parser
)
1502 linespec_token token
;
1503 static const char * token_type_strings
[]
1504 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1506 /* Get the token that generated the error. */
1507 token
= linespec_lexer_lex_one (parser
);
1509 /* Finally, throw the error. */
1510 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1511 || token
.type
== LSTOKEN_KEYWORD
)
1514 struct cleanup
*cleanup
;
1516 string
= copy_token_string (token
);
1517 cleanup
= make_cleanup (xfree
, string
);
1518 throw_error (GENERIC_ERROR
,
1519 _("malformed linespec error: unexpected %s, \"%s\""),
1520 token_type_strings
[token
.type
], string
);
1523 throw_error (GENERIC_ERROR
,
1524 _("malformed linespec error: unexpected %s"),
1525 token_type_strings
[token
.type
]);
1528 /* Throw an undefined label error. */
1530 static void ATTRIBUTE_NORETURN
1531 undefined_label_error (const char *function
, const char *label
)
1533 if (function
!= NULL
)
1534 throw_error (NOT_FOUND_ERROR
,
1535 _("No label \"%s\" defined in function \"%s\"."),
1538 throw_error (NOT_FOUND_ERROR
,
1539 _("No label \"%s\" defined in current function."),
1543 /* Throw a source file not found error. */
1545 static void ATTRIBUTE_NORETURN
1546 source_file_not_found_error (const char *name
)
1548 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), name
);
1551 /* See description in linespec.h. */
1554 linespec_parse_line_offset (const char *string
)
1556 const char *start
= string
;
1557 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1561 line_offset
.sign
= LINE_OFFSET_PLUS
;
1564 else if (*string
== '-')
1566 line_offset
.sign
= LINE_OFFSET_MINUS
;
1570 if (*string
!= '\0' && !isdigit (*string
))
1571 error (_("malformed line offset: \"%s\""), start
);
1573 /* Right now, we only allow base 10 for offsets. */
1574 line_offset
.offset
= atoi (string
);
1578 /* Parse the basic_spec in PARSER's input. */
1581 linespec_parse_basic (linespec_parser
*parser
)
1584 linespec_token token
;
1585 VEC (symbolp
) *symbols
, *labels
;
1586 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1587 struct cleanup
*cleanup
;
1589 /* Get the next token. */
1590 token
= linespec_lexer_lex_one (parser
);
1592 /* If it is EOI or KEYWORD, issue an error. */
1593 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1594 unexpected_linespec_error (parser
);
1595 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1596 else if (token
.type
== LSTOKEN_NUMBER
)
1598 /* Record the line offset and get the next token. */
1599 name
= copy_token_string (token
);
1600 cleanup
= make_cleanup (xfree
, name
);
1601 PARSER_EXPLICIT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1602 do_cleanups (cleanup
);
1604 /* Get the next token. */
1605 token
= linespec_lexer_consume_token (parser
);
1607 /* If the next token is a comma, stop parsing and return. */
1608 if (token
.type
== LSTOKEN_COMMA
)
1611 /* If the next token is anything but EOI or KEYWORD, issue
1613 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1614 unexpected_linespec_error (parser
);
1617 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1620 /* Next token must be LSTOKEN_STRING. */
1621 if (token
.type
!= LSTOKEN_STRING
)
1622 unexpected_linespec_error (parser
);
1624 /* The current token will contain the name of a function, method,
1626 name
= copy_token_string (token
);
1627 cleanup
= make_cleanup (xfree
, name
);
1629 /* Try looking it up as a function/method. */
1630 find_linespec_symbols (PARSER_STATE (parser
),
1631 PARSER_RESULT (parser
)->file_symtabs
, name
,
1632 &symbols
, &minimal_symbols
);
1634 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1636 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1637 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1638 PARSER_EXPLICIT (parser
)->function_name
= name
;
1640 discard_cleanups (cleanup
);
1644 /* NAME was not a function or a method. So it must be a label
1645 name or user specified variable like "break foo.c:$zippo". */
1646 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1650 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1651 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1652 PARSER_EXPLICIT (parser
)->label_name
= name
;
1654 discard_cleanups (cleanup
);
1656 else if (token
.type
== LSTOKEN_STRING
1657 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1659 /* User specified a convenience variable or history value. */
1660 PARSER_EXPLICIT (parser
)->line_offset
1661 = linespec_parse_variable (PARSER_STATE (parser
), name
);
1663 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1665 /* The user-specified variable was not valid. Do not
1666 throw an error here. parse_linespec will do it for us. */
1667 PARSER_EXPLICIT (parser
)->function_name
= name
;
1668 discard_cleanups (cleanup
);
1672 /* The convenience variable/history value parsed correctly.
1673 NAME is no longer needed. */
1674 do_cleanups (cleanup
);
1678 /* The name is also not a label. Abort parsing. Do not throw
1679 an error here. parse_linespec will do it for us. */
1681 /* Save a copy of the name we were trying to lookup. */
1682 PARSER_EXPLICIT (parser
)->function_name
= name
;
1683 discard_cleanups (cleanup
);
1688 /* Get the next token. */
1689 token
= linespec_lexer_consume_token (parser
);
1691 if (token
.type
== LSTOKEN_COLON
)
1693 /* User specified a label or a lineno. */
1694 token
= linespec_lexer_consume_token (parser
);
1696 if (token
.type
== LSTOKEN_NUMBER
)
1698 /* User specified an offset. Record the line offset and
1699 get the next token. */
1700 name
= copy_token_string (token
);
1701 cleanup
= make_cleanup (xfree
, name
);
1702 PARSER_EXPLICIT (parser
)->line_offset
1703 = linespec_parse_line_offset (name
);
1704 do_cleanups (cleanup
);
1706 /* Ge the next token. */
1707 token
= linespec_lexer_consume_token (parser
);
1709 else if (token
.type
== LSTOKEN_STRING
)
1711 /* Grab a copy of the label's name and look it up. */
1712 name
= copy_token_string (token
);
1713 cleanup
= make_cleanup (xfree
, name
);
1714 labels
= find_label_symbols (PARSER_STATE (parser
),
1715 PARSER_RESULT (parser
)->function_symbols
,
1720 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1721 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1722 PARSER_EXPLICIT (parser
)->label_name
= name
;
1724 discard_cleanups (cleanup
);
1728 /* We don't know what it was, but it isn't a label. */
1729 undefined_label_error (PARSER_EXPLICIT (parser
)->function_name
,
1733 /* Check for a line offset. */
1734 token
= linespec_lexer_consume_token (parser
);
1735 if (token
.type
== LSTOKEN_COLON
)
1737 /* Get the next token. */
1738 token
= linespec_lexer_consume_token (parser
);
1740 /* It must be a line offset. */
1741 if (token
.type
!= LSTOKEN_NUMBER
)
1742 unexpected_linespec_error (parser
);
1744 /* Record the lione offset and get the next token. */
1745 name
= copy_token_string (token
);
1746 cleanup
= make_cleanup (xfree
, name
);
1748 PARSER_EXPLICIT (parser
)->line_offset
1749 = linespec_parse_line_offset (name
);
1750 do_cleanups (cleanup
);
1752 /* Get the next token. */
1753 token
= linespec_lexer_consume_token (parser
);
1758 /* Trailing ':' in the input. Issue an error. */
1759 unexpected_linespec_error (parser
);
1764 /* Canonicalize the linespec contained in LS. The result is saved into
1765 STATE->canonical. This function handles both linespec and explicit
1769 canonicalize_linespec (struct linespec_state
*state
, const linespec_p ls
)
1771 struct event_location
*canon
;
1772 struct explicit_location
*explicit_loc
;
1774 /* If canonicalization was not requested, no need to do anything. */
1775 if (!state
->canonical
)
1778 /* Save everything as an explicit location. */
1779 canon
= state
->canonical
->location
1780 = new_explicit_location (&ls
->explicit_loc
);
1781 explicit_loc
= get_explicit_location (canon
);
1783 if (explicit_loc
->label_name
!= NULL
)
1785 state
->canonical
->special_display
= 1;
1787 if (explicit_loc
->function_name
== NULL
)
1791 /* No function was specified, so add the symbol name. */
1792 gdb_assert (ls
->labels
.function_symbols
!= NULL
1793 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1795 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1796 explicit_loc
->function_name
= xstrdup (SYMBOL_NATURAL_NAME (s
));
1800 /* If this location originally came from a linespec, save a string
1801 representation of it for display and saving to file. */
1802 if (state
->is_linespec
)
1804 char *linespec
= explicit_location_to_linespec (explicit_loc
);
1806 set_event_location_string (canon
, linespec
);
1811 /* Given a line offset in LS, construct the relevant SALs. */
1813 static struct symtabs_and_lines
1814 create_sals_line_offset (struct linespec_state
*self
,
1817 struct symtabs_and_lines values
;
1818 struct symtab_and_line val
;
1819 int use_default
= 0;
1825 /* This is where we need to make sure we have good defaults.
1826 We must guarantee that this section of code is never executed
1827 when we are called with just a function name, since
1828 set_default_source_symtab_and_line uses
1829 select_source_symtab that calls us with such an argument. */
1831 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1832 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1834 const char *fullname
;
1836 set_current_program_space (self
->program_space
);
1838 /* Make sure we have at least a default source line. */
1839 set_default_source_symtab_and_line ();
1840 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1841 fullname
= symtab_to_fullname (self
->default_symtab
);
1842 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1843 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1844 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1848 val
.line
= ls
->explicit_loc
.line_offset
.offset
;
1849 switch (ls
->explicit_loc
.line_offset
.sign
)
1851 case LINE_OFFSET_PLUS
:
1852 if (ls
->explicit_loc
.line_offset
.offset
== 0)
1855 val
.line
= self
->default_line
+ val
.line
;
1858 case LINE_OFFSET_MINUS
:
1859 if (ls
->explicit_loc
.line_offset
.offset
== 0)
1862 val
.line
= self
->default_line
- val
.line
;
1864 val
.line
= -val
.line
;
1867 case LINE_OFFSET_NONE
:
1868 break; /* No need to adjust val.line. */
1871 if (self
->list_mode
)
1872 decode_digits_list_mode (self
, ls
, &values
, val
);
1875 struct linetable_entry
*best_entry
= NULL
;
1877 const struct block
**blocks
;
1878 struct cleanup
*cleanup
;
1879 struct symtabs_and_lines intermediate_results
;
1882 intermediate_results
.sals
= NULL
;
1883 intermediate_results
.nelts
= 0;
1885 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1887 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1888 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1889 &intermediate_results
, &best_entry
);
1891 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1893 /* For optimized code, the compiler can scatter one source line
1894 across disjoint ranges of PC values, even when no duplicate
1895 functions or inline functions are involved. For example,
1896 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1897 function can result in two PC ranges. In this case, we don't
1898 want to set a breakpoint on the first PC of each range. To filter
1899 such cases, we use containing blocks -- for each PC found
1900 above, we see if there are other PCs that are in the same
1901 block. If yes, the other PCs are filtered out. */
1903 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1904 make_cleanup (xfree
, filter
);
1905 blocks
= XNEWVEC (const struct block
*, intermediate_results
.nelts
);
1906 make_cleanup (xfree
, blocks
);
1908 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1910 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1913 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1914 intermediate_results
.sals
[i
].section
);
1917 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1919 if (blocks
[i
] != NULL
)
1920 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1922 if (blocks
[j
] == blocks
[i
])
1930 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1933 struct symbol
*sym
= (blocks
[i
]
1934 ? block_containing_function (blocks
[i
])
1937 if (self
->funfirstline
)
1938 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1939 /* Make sure the line matches the request, not what was
1941 intermediate_results
.sals
[i
].line
= val
.line
;
1942 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1943 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1946 do_cleanups (cleanup
);
1949 if (values
.nelts
== 0)
1951 if (ls
->explicit_loc
.source_filename
)
1952 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1953 val
.line
, ls
->explicit_loc
.source_filename
);
1955 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
1962 /* Convert the given ADDRESS into SaLs. */
1964 static struct symtabs_and_lines
1965 convert_address_location_to_sals (struct linespec_state
*self
,
1968 struct symtab_and_line sal
;
1969 struct symtabs_and_lines sals
= {NULL
, 0};
1971 sal
= find_pc_line (address
, 0);
1973 sal
.section
= find_pc_overlay (address
);
1974 sal
.explicit_pc
= 1;
1975 add_sal_to_sals (self
, &sals
, &sal
, core_addr_to_string (address
), 1);
1980 /* Create and return SALs from the linespec LS. */
1982 static struct symtabs_and_lines
1983 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
1985 struct symtabs_and_lines sals
= {NULL
, 0};
1987 if (ls
->labels
.label_symbols
!= NULL
)
1989 /* We have just a bunch of functions/methods or labels. */
1991 struct symtab_and_line sal
;
1994 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
1996 struct program_space
*pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
1998 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
1999 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2000 add_sal_to_sals (state
, &sals
, &sal
,
2001 SYMBOL_NATURAL_NAME (sym
), 0);
2004 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2006 /* We have just a bunch of functions and/or methods. */
2008 struct symtab_and_line sal
;
2010 bound_minimal_symbol_d
*elem
;
2011 struct program_space
*pspace
;
2013 if (ls
->function_symbols
!= NULL
)
2015 /* Sort symbols so that symbols with the same program space are next
2017 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2018 VEC_length (symbolp
, ls
->function_symbols
),
2019 sizeof (symbolp
), compare_symbols
);
2021 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2023 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2024 set_current_program_space (pspace
);
2025 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2026 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2027 add_sal_to_sals (state
, &sals
, &sal
,
2028 SYMBOL_NATURAL_NAME (sym
), 0);
2032 if (ls
->minimal_symbols
!= NULL
)
2034 /* Sort minimal symbols by program space, too. */
2035 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2036 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2037 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2040 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2044 pspace
= elem
->objfile
->pspace
;
2045 set_current_program_space (pspace
);
2046 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2050 else if (ls
->explicit_loc
.line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2052 /* Only an offset was specified. */
2053 sals
= create_sals_line_offset (state
, ls
);
2055 /* Make sure we have a filename for canonicalization. */
2056 if (ls
->explicit_loc
.source_filename
== NULL
)
2058 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2060 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2061 form so that displaying SOURCE_FILENAME can follow the current
2062 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2063 it has been kept for code simplicity only in absolute form. */
2064 ls
->explicit_loc
.source_filename
= xstrdup (fullname
);
2069 /* We haven't found any results... */
2073 canonicalize_linespec (state
, ls
);
2075 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2076 state
->canonical
->pre_expanded
= 1;
2081 /* Convert the explicit location EXPLICIT_LOC into SaLs. */
2083 static struct symtabs_and_lines
2084 convert_explicit_location_to_sals (struct linespec_state
*self
,
2086 const struct explicit_location
*explicit_loc
)
2088 VEC (symbolp
) *symbols
, *labels
;
2089 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
2091 if (explicit_loc
->source_filename
!= NULL
)
2095 result
->file_symtabs
2096 = symtabs_from_filename (explicit_loc
->source_filename
);
2098 CATCH (except
, RETURN_MASK_ERROR
)
2100 source_file_not_found_error (explicit_loc
->source_filename
);
2103 result
->explicit_loc
.source_filename
2104 = xstrdup (explicit_loc
->source_filename
);
2108 /* A NULL entry means to use the default symtab. */
2109 VEC_safe_push (symtab_ptr
, result
->file_symtabs
, NULL
);
2112 if (explicit_loc
->function_name
!= NULL
)
2114 find_linespec_symbols (self
, result
->file_symtabs
,
2115 explicit_loc
->function_name
, &symbols
,
2118 if (symbols
== NULL
&& minimal_symbols
== NULL
)
2119 symbol_not_found_error (explicit_loc
->function_name
,
2120 result
->explicit_loc
.source_filename
);
2122 result
->explicit_loc
.function_name
2123 = xstrdup (explicit_loc
->function_name
);
2124 result
->function_symbols
= symbols
;
2125 result
->minimal_symbols
= minimal_symbols
;
2128 if (explicit_loc
->label_name
!= NULL
)
2131 labels
= find_label_symbols (self
, result
->function_symbols
,
2132 &symbols
, explicit_loc
->label_name
);
2135 undefined_label_error (result
->explicit_loc
.function_name
,
2136 explicit_loc
->label_name
);
2138 result
->explicit_loc
.label_name
= xstrdup (explicit_loc
->label_name
);
2139 result
->labels
.label_symbols
= labels
;
2140 result
->labels
.function_symbols
= symbols
;
2143 if (explicit_loc
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2144 result
->explicit_loc
.line_offset
= explicit_loc
->line_offset
;
2146 return convert_linespec_to_sals (self
, result
);
2149 /* Parse a string that specifies a linespec.
2151 The basic grammar of linespecs:
2153 linespec -> var_spec | basic_spec
2154 var_spec -> '$' (STRING | NUMBER)
2156 basic_spec -> file_offset_spec | function_spec | label_spec
2157 file_offset_spec -> opt_file_spec offset_spec
2158 function_spec -> opt_file_spec function_name_spec opt_label_spec
2159 label_spec -> label_name_spec
2161 opt_file_spec -> "" | file_name_spec ':'
2162 opt_label_spec -> "" | ':' label_name_spec
2164 file_name_spec -> STRING
2165 function_name_spec -> STRING
2166 label_name_spec -> STRING
2167 function_name_spec -> STRING
2168 offset_spec -> NUMBER
2172 This may all be followed by several keywords such as "if EXPR",
2175 A comma will terminate parsing.
2177 The function may be an undebuggable function found in minimal symbol table.
2179 If the argument FUNFIRSTLINE is nonzero, we want the first line
2180 of real code inside a function when a function is specified, and it is
2181 not OK to specify a variable or type to get its line number.
2183 DEFAULT_SYMTAB specifies the file to use if none is specified.
2184 It defaults to current_source_symtab.
2185 DEFAULT_LINE specifies the line number to use for relative
2186 line numbers (that start with signs). Defaults to current_source_line.
2187 If CANONICAL is non-NULL, store an array of strings containing the canonical
2188 line specs there if necessary. Currently overloaded member functions and
2189 line numbers or static functions without a filename yield a canonical
2190 line spec. The array and the line spec strings are allocated on the heap,
2191 it is the callers responsibility to free them.
2193 Note that it is possible to return zero for the symtab
2194 if no file is validly specified. Callers must check that.
2195 Also, the line number returned may be invalid. */
2197 /* Parse the linespec in ARG. */
2199 static struct symtabs_and_lines
2200 parse_linespec (linespec_parser
*parser
, const char *arg
)
2202 linespec_token token
;
2203 struct symtabs_and_lines values
;
2204 struct gdb_exception file_exception
= exception_none
;
2205 struct cleanup
*cleanup
;
2207 /* A special case to start. It has become quite popular for
2208 IDEs to work around bugs in the previous parser by quoting
2209 the entire linespec, so we attempt to deal with this nicely. */
2210 parser
->is_quote_enclosed
= 0;
2211 if (!is_ada_operator (arg
)
2212 && strchr (linespec_quote_characters
, *arg
) != NULL
)
2216 end
= skip_quote_char (arg
+ 1, *arg
);
2217 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2219 /* Here's the special case. Skip ARG past the initial
2222 parser
->is_quote_enclosed
= 1;
2226 parser
->lexer
.saved_arg
= arg
;
2227 parser
->lexer
.stream
= arg
;
2229 /* Initialize the default symtab and line offset. */
2230 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2231 &PARSER_STATE (parser
)->default_line
);
2233 /* Objective-C shortcut. */
2234 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), arg
);
2235 if (values
.sals
!= NULL
)
2238 /* Start parsing. */
2240 /* Get the first token. */
2241 token
= linespec_lexer_lex_one (parser
);
2243 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2244 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2248 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2249 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2251 /* User specified a convenience variable or history value. */
2252 var
= copy_token_string (token
);
2253 cleanup
= make_cleanup (xfree
, var
);
2254 PARSER_EXPLICIT (parser
)->line_offset
2255 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2256 do_cleanups (cleanup
);
2258 /* If a line_offset wasn't found (VAR is the name of a user
2259 variable/function), then skip to normal symbol processing. */
2260 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2262 /* Consume this token. */
2263 linespec_lexer_consume_token (parser
);
2265 goto convert_to_sals
;
2268 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2269 unexpected_linespec_error (parser
);
2271 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2272 this token cannot represent a filename. */
2273 token
= linespec_lexer_peek_token (parser
);
2275 if (token
.type
== LSTOKEN_COLON
)
2277 char *user_filename
;
2279 /* Get the current token again and extract the filename. */
2280 token
= linespec_lexer_lex_one (parser
);
2281 user_filename
= copy_token_string (token
);
2283 /* Check if the input is a filename. */
2286 PARSER_RESULT (parser
)->file_symtabs
2287 = symtabs_from_filename (user_filename
);
2289 CATCH (ex
, RETURN_MASK_ERROR
)
2291 file_exception
= ex
;
2295 if (file_exception
.reason
>= 0)
2297 /* Symtabs were found for the file. Record the filename. */
2298 PARSER_EXPLICIT (parser
)->source_filename
= user_filename
;
2300 /* Get the next token. */
2301 token
= linespec_lexer_consume_token (parser
);
2303 /* This is LSTOKEN_COLON; consume it. */
2304 linespec_lexer_consume_token (parser
);
2308 /* No symtabs found -- discard user_filename. */
2309 xfree (user_filename
);
2311 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2312 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2315 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2316 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2317 && token
.type
!= LSTOKEN_COMMA
)
2319 /* TOKEN is the _next_ token, not the one currently in the parser.
2320 Consuming the token will give the correct error message. */
2321 linespec_lexer_consume_token (parser
);
2322 unexpected_linespec_error (parser
);
2326 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2327 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2330 /* Parse the rest of the linespec. */
2331 linespec_parse_basic (parser
);
2333 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2334 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2335 && PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2336 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2338 /* The linespec didn't parse. Re-throw the file exception if
2340 if (file_exception
.reason
< 0)
2341 throw_exception (file_exception
);
2343 /* Otherwise, the symbol is not found. */
2344 symbol_not_found_error (PARSER_EXPLICIT (parser
)->function_name
,
2345 PARSER_EXPLICIT (parser
)->source_filename
);
2350 /* Get the last token and record how much of the input was parsed,
2352 token
= linespec_lexer_lex_one (parser
);
2353 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2354 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2356 /* Convert the data in PARSER_RESULT to SALs. */
2357 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2358 PARSER_RESULT (parser
));
2364 /* A constructor for linespec_state. */
2367 linespec_state_constructor (struct linespec_state
*self
,
2368 int flags
, const struct language_defn
*language
,
2369 struct symtab
*default_symtab
,
2371 struct linespec_result
*canonical
)
2373 memset (self
, 0, sizeof (*self
));
2374 self
->language
= language
;
2375 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2376 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2377 self
->default_symtab
= default_symtab
;
2378 self
->default_line
= default_line
;
2379 self
->canonical
= canonical
;
2380 self
->program_space
= current_program_space
;
2381 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2382 xfree
, xcalloc
, xfree
);
2383 self
->is_linespec
= 0;
2386 /* Initialize a new linespec parser. */
2389 linespec_parser_new (linespec_parser
*parser
,
2390 int flags
, const struct language_defn
*language
,
2391 struct symtab
*default_symtab
,
2393 struct linespec_result
*canonical
)
2395 memset (parser
, 0, sizeof (linespec_parser
));
2396 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2397 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2398 PARSER_EXPLICIT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2399 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2400 default_symtab
, default_line
, canonical
);
2403 /* A destructor for linespec_state. */
2406 linespec_state_destructor (struct linespec_state
*self
)
2408 htab_delete (self
->addr_set
);
2411 /* Delete a linespec parser. */
2414 linespec_parser_delete (void *arg
)
2416 linespec_parser
*parser
= (linespec_parser
*) arg
;
2418 xfree (PARSER_EXPLICIT (parser
)->source_filename
);
2419 xfree (PARSER_EXPLICIT (parser
)->label_name
);
2420 xfree (PARSER_EXPLICIT (parser
)->function_name
);
2422 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2423 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2425 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2426 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2428 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2429 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2431 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2432 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2434 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2435 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2437 linespec_state_destructor (PARSER_STATE (parser
));
2440 /* See description in linespec.h. */
2443 linespec_lex_to_end (char **stringp
)
2445 linespec_parser parser
;
2446 struct cleanup
*cleanup
;
2447 linespec_token token
;
2450 if (stringp
== NULL
|| *stringp
== NULL
)
2453 linespec_parser_new (&parser
, 0, current_language
, NULL
, 0, NULL
);
2454 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2455 parser
.lexer
.saved_arg
= *stringp
;
2456 PARSER_STREAM (&parser
) = orig
= *stringp
;
2460 /* Stop before any comma tokens; we need it to keep it
2461 as the next token in the string. */
2462 token
= linespec_lexer_peek_token (&parser
);
2463 if (token
.type
== LSTOKEN_COMMA
)
2465 token
= linespec_lexer_consume_token (&parser
);
2467 while (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
);
2469 *stringp
+= PARSER_STREAM (&parser
) - orig
;
2470 do_cleanups (cleanup
);
2473 /* A helper function for decode_line_full and decode_line_1 to
2474 turn LOCATION into symtabs_and_lines. */
2476 static struct symtabs_and_lines
2477 event_location_to_sals (linespec_parser
*parser
,
2478 const struct event_location
*location
)
2480 struct symtabs_and_lines result
= {NULL
, 0};
2482 switch (event_location_type (location
))
2484 case LINESPEC_LOCATION
:
2486 PARSER_STATE (parser
)->is_linespec
= 1;
2489 result
= parse_linespec (parser
, get_linespec_location (location
));
2491 CATCH (except
, RETURN_MASK_ERROR
)
2493 throw_exception (except
);
2499 case ADDRESS_LOCATION
:
2501 = convert_address_location_to_sals (PARSER_STATE (parser
),
2502 get_address_location (location
));
2505 case EXPLICIT_LOCATION
:
2507 const struct explicit_location
*explicit_loc
;
2509 explicit_loc
= get_explicit_location_const (location
);
2510 result
= convert_explicit_location_to_sals (PARSER_STATE (parser
),
2511 PARSER_RESULT (parser
),
2516 case PROBE_LOCATION
:
2517 /* Probes are handled by their own decoders. */
2518 gdb_assert_not_reached ("attempt to decode probe location");
2522 gdb_assert_not_reached ("unhandled event location type");
2528 /* See linespec.h. */
2531 decode_line_full (const struct event_location
*location
, int flags
,
2532 struct symtab
*default_symtab
,
2533 int default_line
, struct linespec_result
*canonical
,
2534 const char *select_mode
,
2537 struct symtabs_and_lines result
;
2538 struct cleanup
*cleanups
;
2539 VEC (const_char_ptr
) *filters
= NULL
;
2540 linespec_parser parser
;
2541 struct linespec_state
*state
;
2543 gdb_assert (canonical
!= NULL
);
2544 /* The filter only makes sense for 'all'. */
2545 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2546 gdb_assert (select_mode
== NULL
2547 || select_mode
== multiple_symbols_all
2548 || select_mode
== multiple_symbols_ask
2549 || select_mode
== multiple_symbols_cancel
);
2550 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2552 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2553 default_line
, canonical
);
2554 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2555 save_current_program_space ();
2557 result
= event_location_to_sals (&parser
, location
);
2558 state
= PARSER_STATE (&parser
);
2560 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2561 canonical
->pre_expanded
= 1;
2563 /* Arrange for allocated canonical names to be freed. */
2564 if (result
.nelts
> 0)
2568 make_cleanup (xfree
, state
->canonical_names
);
2569 for (i
= 0; i
< result
.nelts
; ++i
)
2571 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2572 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2576 if (select_mode
== NULL
)
2578 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2579 select_mode
= multiple_symbols_all
;
2581 select_mode
= multiple_symbols_select_mode ();
2584 if (select_mode
== multiple_symbols_all
)
2588 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2589 VEC_safe_push (const_char_ptr
, filters
, filter
);
2590 filter_results (state
, &result
, filters
);
2593 convert_results_to_lsals (state
, &result
);
2596 decode_line_2 (state
, &result
, select_mode
);
2598 do_cleanups (cleanups
);
2601 /* See linespec.h. */
2603 struct symtabs_and_lines
2604 decode_line_1 (const struct event_location
*location
, int flags
,
2605 struct symtab
*default_symtab
,
2608 struct symtabs_and_lines result
;
2609 linespec_parser parser
;
2610 struct cleanup
*cleanups
;
2612 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2613 default_line
, NULL
);
2614 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2615 save_current_program_space ();
2617 result
= event_location_to_sals (&parser
, location
);
2619 do_cleanups (cleanups
);
2623 /* See linespec.h. */
2625 struct symtabs_and_lines
2626 decode_line_with_current_source (char *string
, int flags
)
2628 struct symtabs_and_lines sals
;
2629 struct symtab_and_line cursal
;
2630 struct event_location
*location
;
2631 struct cleanup
*cleanup
;
2634 error (_("Empty line specification."));
2636 /* We use whatever is set as the current source line. We do not try
2637 and get a default source symtab+line or it will recursively call us! */
2638 cursal
= get_current_source_symtab_and_line ();
2640 location
= string_to_event_location (&string
, current_language
);
2641 cleanup
= make_cleanup_delete_event_location (location
);
2642 sals
= decode_line_1 (location
, flags
,
2643 cursal
.symtab
, cursal
.line
);
2646 error (_("Junk at end of line specification: %s"), string
);
2648 do_cleanups (cleanup
);
2652 /* See linespec.h. */
2654 struct symtabs_and_lines
2655 decode_line_with_last_displayed (char *string
, int flags
)
2657 struct symtabs_and_lines sals
;
2658 struct event_location
*location
;
2659 struct cleanup
*cleanup
;
2662 error (_("Empty line specification."));
2664 location
= string_to_event_location (&string
, current_language
);
2665 cleanup
= make_cleanup_delete_event_location (location
);
2666 if (last_displayed_sal_is_valid ())
2667 sals
= decode_line_1 (location
, flags
,
2668 get_last_displayed_symtab (),
2669 get_last_displayed_line ());
2671 sals
= decode_line_1 (location
, flags
, (struct symtab
*) NULL
, 0);
2674 error (_("Junk at end of line specification: %s"), string
);
2676 do_cleanups (cleanup
);
2682 /* First, some functions to initialize stuff at the beggining of the
2686 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2688 if (*default_symtab
== 0)
2690 /* Use whatever we have for the default source line. We don't use
2691 get_current_or_default_symtab_and_line as it can recurse and call
2693 struct symtab_and_line cursal
=
2694 get_current_source_symtab_and_line ();
2696 *default_symtab
= cursal
.symtab
;
2697 *default_line
= cursal
.line
;
2703 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2704 advancing EXP_PTR past any parsed text. */
2707 linespec_expression_to_pc (const char **exp_ptr
)
2709 if (current_program_space
->executing_startup
)
2710 /* The error message doesn't really matter, because this case
2711 should only hit during breakpoint reset. */
2712 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2713 "program space is in startup"));
2716 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2721 /* Here's where we recognise an Objective-C Selector. An Objective C
2722 selector may be implemented by more than one class, therefore it
2723 may represent more than one method/function. This gives us a
2724 situation somewhat analogous to C++ overloading. If there's more
2725 than one method that could represent the selector, then use some of
2726 the existing C++ code to let the user choose one. */
2728 static struct symtabs_and_lines
2729 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char *arg
)
2731 struct collect_info info
;
2732 VEC (const_char_ptr
) *symbol_names
= NULL
;
2733 struct symtabs_and_lines values
;
2734 const char *new_argptr
;
2735 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2739 info
.file_symtabs
= NULL
;
2740 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2741 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2742 info
.result
.symbols
= NULL
;
2743 info
.result
.minimal_symbols
= NULL
;
2747 new_argptr
= find_imps (arg
, &symbol_names
);
2748 if (VEC_empty (const_char_ptr
, symbol_names
))
2750 do_cleanups (cleanup
);
2754 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2756 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2757 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2761 saved_arg
= alloca (new_argptr
- arg
+ 1);
2762 memcpy (saved_arg
, arg
, new_argptr
- arg
);
2763 saved_arg
[new_argptr
- arg
] = '\0';
2765 ls
->explicit_loc
.function_name
= xstrdup (saved_arg
);
2766 ls
->function_symbols
= info
.result
.symbols
;
2767 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2768 values
= convert_linespec_to_sals (self
, ls
);
2770 if (self
->canonical
)
2774 self
->canonical
->pre_expanded
= 1;
2776 if (ls
->explicit_loc
.source_filename
)
2778 str
= xstrprintf ("%s:%s",
2779 ls
->explicit_loc
.source_filename
, saved_arg
);
2782 str
= xstrdup (saved_arg
);
2784 make_cleanup (xfree
, str
);
2785 self
->canonical
->location
= new_linespec_location (&str
);
2789 do_cleanups (cleanup
);
2794 /* An instance of this type is used when collecting prefix symbols for
2797 struct decode_compound_collector
2799 /* The result vector. */
2800 VEC (symbolp
) *symbols
;
2802 /* A hash table of all symbols we found. We use this to avoid
2803 adding any symbol more than once. */
2807 /* A callback for iterate_over_symbols that is used by
2808 lookup_prefix_sym to collect type symbols. */
2811 collect_one_symbol (struct symbol
*sym
, void *d
)
2813 struct decode_compound_collector
*collector
= d
;
2817 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2818 return 1; /* Continue iterating. */
2820 t
= SYMBOL_TYPE (sym
);
2821 t
= check_typedef (t
);
2822 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2823 && TYPE_CODE (t
) != TYPE_CODE_UNION
2824 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2825 return 1; /* Continue iterating. */
2827 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2831 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2834 return 1; /* Continue iterating. */
2837 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2839 static VEC (symbolp
) *
2840 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2841 const char *class_name
)
2845 struct decode_compound_collector collector
;
2846 struct cleanup
*outer
;
2847 struct cleanup
*cleanup
;
2849 collector
.symbols
= NULL
;
2850 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2852 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2853 htab_eq_pointer
, NULL
,
2855 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2857 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2861 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2862 collect_one_symbol
, &collector
,
2864 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2865 collect_one_symbol
, &collector
,
2870 /* Program spaces that are executing startup should have
2871 been filtered out earlier. */
2872 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2873 set_current_program_space (SYMTAB_PSPACE (elt
));
2874 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2875 collect_one_symbol
, &collector
);
2876 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2877 collect_one_symbol
, &collector
);
2881 do_cleanups (cleanup
);
2882 discard_cleanups (outer
);
2883 return collector
.symbols
;
2886 /* A qsort comparison function for symbols. The resulting order does
2887 not actually matter; we just need to be able to sort them so that
2888 symbols with the same program space end up next to each other. */
2891 compare_symbols (const void *a
, const void *b
)
2893 struct symbol
* const *sa
= a
;
2894 struct symbol
* const *sb
= b
;
2897 uia
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sa
));
2898 uib
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sb
));
2905 uia
= (uintptr_t) *sa
;
2906 uib
= (uintptr_t) *sb
;
2916 /* Like compare_symbols but for minimal symbols. */
2919 compare_msymbols (const void *a
, const void *b
)
2921 const struct bound_minimal_symbol
*sa
= a
;
2922 const struct bound_minimal_symbol
*sb
= b
;
2925 uia
= (uintptr_t) sa
->objfile
->pspace
;
2926 uib
= (uintptr_t) sa
->objfile
->pspace
;
2933 uia
= (uintptr_t) sa
->minsym
;
2934 uib
= (uintptr_t) sb
->minsym
;
2944 /* Look for all the matching instances of each symbol in NAMES. Only
2945 instances from PSPACE are considered; other program spaces are
2946 handled by our caller. If PSPACE is NULL, then all program spaces
2947 are considered. Results are stored into INFO. */
2950 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2951 struct program_space
*pspace
,
2952 VEC (const_char_ptr
) *names
)
2957 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2958 add_matching_symbols_to_info (iter
, info
, pspace
);
2962 find_superclass_methods (VEC (typep
) *superclasses
,
2964 VEC (const_char_ptr
) **result_names
)
2966 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2967 VEC (typep
) *iter_classes
;
2968 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2970 iter_classes
= superclasses
;
2973 VEC (typep
) *new_supers
= NULL
;
2977 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2978 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2979 find_methods (t
, name
, result_names
, &new_supers
);
2981 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2982 || VEC_empty (typep
, new_supers
))
2985 iter_classes
= new_supers
;
2988 do_cleanups (cleanup
);
2991 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2992 given by one of the symbols in SYM_CLASSES. Matches are returned
2993 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2996 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2997 const char *class_name
, const char *method_name
,
2998 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2999 VEC (bound_minimal_symbol_d
) **minsyms
)
3002 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
3004 int last_result_len
;
3005 VEC (typep
) *superclass_vec
;
3006 VEC (const_char_ptr
) *result_names
;
3007 struct collect_info info
;
3009 /* Sort symbols so that symbols with the same program space are next
3011 qsort (VEC_address (symbolp
, sym_classes
),
3012 VEC_length (symbolp
, sym_classes
),
3017 info
.file_symtabs
= file_symtabs
;
3018 info
.result
.symbols
= NULL
;
3019 info
.result
.minimal_symbols
= NULL
;
3021 /* Iterate over all the types, looking for the names of existing
3022 methods matching METHOD_NAME. If we cannot find a direct method in a
3023 given program space, then we consider inherited methods; this is
3024 not ideal (ideal would be to respect C++ hiding rules), but it
3025 seems good enough and is what GDB has historically done. We only
3026 need to collect the names because later we find all symbols with
3027 those names. This loop is written in a somewhat funny way
3028 because we collect data across the program space before deciding
3030 superclass_vec
= NULL
;
3031 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
3032 result_names
= NULL
;
3033 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
3034 last_result_len
= 0;
3035 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
3038 struct program_space
*pspace
;
3040 /* Program spaces that are executing startup should have
3041 been filtered out earlier. */
3042 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
3043 gdb_assert (!pspace
->executing_startup
);
3044 set_current_program_space (pspace
);
3045 t
= check_typedef (SYMBOL_TYPE (sym
));
3046 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
3048 /* Handle all items from a single program space at once; and be
3049 sure not to miss the last batch. */
3050 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
3052 != SYMTAB_PSPACE (symbol_symtab (VEC_index (symbolp
, sym_classes
,
3055 /* If we did not find a direct implementation anywhere in
3056 this program space, consider superclasses. */
3057 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
3058 find_superclass_methods (superclass_vec
, method_name
,
3061 /* We have a list of candidate symbol names, so now we
3062 iterate over the symbol tables looking for all
3063 matches in this pspace. */
3064 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
3066 VEC_truncate (typep
, superclass_vec
, 0);
3067 last_result_len
= VEC_length (const_char_ptr
, result_names
);
3071 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3072 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3074 *symbols
= info
.result
.symbols
;
3075 *minsyms
= info
.result
.minimal_symbols
;
3076 do_cleanups (cleanup
);
3080 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
3081 and other attempts to locate the symbol will be made. */
3082 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
3087 /* This object is used when collecting all matching symtabs. */
3089 struct symtab_collector
3091 /* The result vector of symtabs. */
3092 VEC (symtab_ptr
) *symtabs
;
3094 /* This is used to ensure the symtabs are unique. */
3095 htab_t symtab_table
;
3098 /* Callback for iterate_over_symtabs. */
3101 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
3103 struct symtab_collector
*data
= d
;
3106 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
3110 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
3116 /* Given a file name, return a VEC of all matching symtabs. */
3118 static VEC (symtab_ptr
) *
3119 collect_symtabs_from_filename (const char *file
)
3121 struct symtab_collector collector
;
3122 struct cleanup
*cleanups
;
3123 struct program_space
*pspace
;
3125 collector
.symtabs
= NULL
;
3126 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3128 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
3130 /* Find that file's data. */
3131 ALL_PSPACES (pspace
)
3133 if (pspace
->executing_startup
)
3136 set_current_program_space (pspace
);
3137 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3140 do_cleanups (cleanups
);
3141 return collector
.symtabs
;
3144 /* Return all the symtabs associated to the FILENAME. */
3146 static VEC (symtab_ptr
) *
3147 symtabs_from_filename (const char *filename
)
3149 VEC (symtab_ptr
) *result
;
3151 result
= collect_symtabs_from_filename (filename
);
3153 if (VEC_empty (symtab_ptr
, result
))
3155 if (!have_full_symbols () && !have_partial_symbols ())
3156 throw_error (NOT_FOUND_ERROR
,
3157 _("No symbol table is loaded. "
3158 "Use the \"file\" command."));
3159 source_file_not_found_error (filename
);
3165 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3166 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3167 returned in MINSYMS. */
3170 find_function_symbols (struct linespec_state
*state
,
3171 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3172 VEC (symbolp
) **symbols
,
3173 VEC (bound_minimal_symbol_d
) **minsyms
)
3175 struct collect_info info
;
3176 VEC (const_char_ptr
) *symbol_names
= NULL
;
3177 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3181 info
.result
.symbols
= NULL
;
3182 info
.result
.minimal_symbols
= NULL
;
3183 info
.file_symtabs
= file_symtabs
;
3185 /* Try NAME as an Objective-C selector. */
3186 find_imps (name
, &symbol_names
);
3187 if (!VEC_empty (const_char_ptr
, symbol_names
))
3188 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3190 add_matching_symbols_to_info (name
, &info
, NULL
);
3192 do_cleanups (cleanup
);
3194 if (VEC_empty (symbolp
, info
.result
.symbols
))
3196 VEC_free (symbolp
, info
.result
.symbols
);
3200 *symbols
= info
.result
.symbols
;
3202 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3204 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3208 *minsyms
= info
.result
.minimal_symbols
;
3211 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3212 in SYMBOLS and minimal symbols in MINSYMS. */
3215 find_linespec_symbols (struct linespec_state
*state
,
3216 VEC (symtab_ptr
) *file_symtabs
,
3218 VEC (symbolp
) **symbols
,
3219 VEC (bound_minimal_symbol_d
) **minsyms
)
3221 struct cleanup
*cleanup
;
3223 const char *lookup_name
;
3225 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3227 if (state
->language
->la_language
== language_ada
)
3229 /* In Ada, the symbol lookups are performed using the encoded
3230 name rather than the demangled name. */
3231 lookup_name
= ada_name_for_lookup (name
);
3232 make_cleanup (xfree
, (void *) lookup_name
);
3235 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3238 lookup_name
= canon
;
3239 make_cleanup (xfree
, canon
);
3242 /* It's important to not call expand_symtabs_matching unnecessarily
3243 as it can really slow things down (by unnecessarily expanding
3244 potentially 1000s of symtabs, which when debugging some apps can
3245 cost 100s of seconds). Avoid this to some extent by *first* calling
3246 find_function_symbols, and only if that doesn't find anything
3247 *then* call find_method. This handles two important cases:
3248 1) break (anonymous namespace)::foo
3249 2) break class::method where method is in class (and not a baseclass) */
3251 find_function_symbols (state
, file_symtabs
, lookup_name
,
3254 /* If we were unable to locate a symbol of the same name, try dividing
3255 the name into class and method names and searching the class and its
3257 if (VEC_empty (symbolp
, *symbols
)
3258 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3260 char *klass
, *method
;
3261 const char *last
, *p
, *scope_op
;
3262 VEC (symbolp
) *classes
;
3264 /* See if we can find a scope operator and break this symbol
3265 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3267 p
= find_toplevel_string (lookup_name
, scope_op
);
3270 /* No C++ scope operator. Try Java. */
3272 p
= find_toplevel_string (lookup_name
, scope_op
);
3279 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3282 /* If no scope operator was found, there is nothing more we can do;
3283 we already attempted to lookup the entire name as a symbol
3287 do_cleanups (cleanup
);
3291 /* LOOKUP_NAME points to the class name.
3292 LAST points to the method name. */
3293 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
3294 make_cleanup (xfree
, klass
);
3295 strncpy (klass
, lookup_name
, last
- lookup_name
);
3296 klass
[last
- lookup_name
] = '\0';
3298 /* Skip past the scope operator. */
3299 last
+= strlen (scope_op
);
3300 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3301 make_cleanup (xfree
, method
);
3302 strcpy (method
, last
);
3304 /* Find a list of classes named KLASS. */
3305 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3306 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3308 if (!VEC_empty (symbolp
, classes
))
3310 /* Now locate a list of suitable methods named METHOD. */
3313 find_method (state
, file_symtabs
, klass
, method
, classes
,
3317 /* If successful, we're done. If NOT_FOUND_ERROR
3318 was not thrown, rethrow the exception that we did get. */
3319 CATCH (except
, RETURN_MASK_ERROR
)
3321 if (except
.error
!= NOT_FOUND_ERROR
)
3322 throw_exception (except
);
3328 do_cleanups (cleanup
);
3331 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3332 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3334 static VEC (symbolp
) *
3335 find_label_symbols (struct linespec_state
*self
,
3336 VEC (symbolp
) *function_symbols
,
3337 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3340 const struct block
*block
;
3342 struct symbol
*fn_sym
;
3343 VEC (symbolp
) *result
= NULL
;
3345 if (function_symbols
== NULL
)
3347 set_current_program_space (self
->program_space
);
3348 block
= get_current_search_block ();
3351 block
&& !BLOCK_FUNCTION (block
);
3352 block
= BLOCK_SUPERBLOCK (block
))
3356 fn_sym
= BLOCK_FUNCTION (block
);
3358 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3362 VEC_safe_push (symbolp
, result
, sym
);
3363 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3369 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3371 set_current_program_space (SYMTAB_PSPACE (symbol_symtab (fn_sym
)));
3372 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3373 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3377 VEC_safe_push (symbolp
, result
, sym
);
3378 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3388 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3391 decode_digits_list_mode (struct linespec_state
*self
,
3393 struct symtabs_and_lines
*values
,
3394 struct symtab_and_line val
)
3399 gdb_assert (self
->list_mode
);
3401 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3404 /* The logic above should ensure this. */
3405 gdb_assert (elt
!= NULL
);
3407 set_current_program_space (SYMTAB_PSPACE (elt
));
3409 /* Simplistic search just for the list command. */
3410 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3411 if (val
.symtab
== NULL
)
3413 val
.pspace
= SYMTAB_PSPACE (elt
);
3415 val
.explicit_line
= 1;
3417 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3421 /* A helper for create_sals_line_offset that iterates over the symtabs,
3422 adding lines to the VEC. */
3425 decode_digits_ordinary (struct linespec_state
*self
,
3428 struct symtabs_and_lines
*sals
,
3429 struct linetable_entry
**best_entry
)
3434 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3437 VEC (CORE_ADDR
) *pcs
;
3440 /* The logic above should ensure this. */
3441 gdb_assert (elt
!= NULL
);
3443 set_current_program_space (SYMTAB_PSPACE (elt
));
3445 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3446 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3448 struct symtab_and_line sal
;
3451 sal
.pspace
= SYMTAB_PSPACE (elt
);
3455 add_sal_to_sals_basic (sals
, &sal
);
3458 VEC_free (CORE_ADDR
, pcs
);
3464 /* Return the line offset represented by VARIABLE. */
3466 static struct line_offset
3467 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3471 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3473 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3476 while (*p
>= '0' && *p
<= '9')
3478 if (!*p
) /* Reached end of token without hitting non-digit. */
3480 /* We have a value history reference. */
3481 struct value
*val_history
;
3483 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3485 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3486 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3487 error (_("History values used in line "
3488 "specs must have integer values."));
3489 offset
.offset
= value_as_long (val_history
);
3493 /* Not all digits -- may be user variable/function or a
3494 convenience variable. */
3496 struct internalvar
*ivar
;
3498 /* Try it as a convenience variable. If it is not a convenience
3499 variable, return and allow normal symbol lookup to occur. */
3500 ivar
= lookup_only_internalvar (variable
+ 1);
3502 /* No internal variable with that name. Mark the offset
3503 as unknown to allow the name to be looked up as a symbol. */
3504 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3507 /* We found a valid variable name. If it is not an integer,
3509 if (!get_internalvar_integer (ivar
, &valx
))
3510 error (_("Convenience variables used in line "
3511 "specs must have integer values."));
3513 offset
.offset
= valx
;
3521 /* A callback used to possibly add a symbol to the results. */
3524 collect_symbols (struct symbol
*sym
, void *data
)
3526 struct collect_info
*info
= data
;
3528 /* In list mode, add all matching symbols, regardless of class.
3529 This allows the user to type "list a_global_variable". */
3530 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3531 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3532 return 1; /* Continue iterating. */
3535 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3536 linespec; return the SAL in RESULT. This function should return SALs
3537 matching those from find_function_start_sal, otherwise false
3538 multiple-locations breakpoints could be placed. */
3541 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3542 struct minimal_symbol
*msymbol
,
3543 struct symtabs_and_lines
*result
)
3545 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3547 struct symtab_and_line sal
;
3549 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
),
3550 (struct obj_section
*) 0, 0);
3551 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
3553 /* The minimal symbol might point to a function descriptor;
3554 resolve it to the actual code address instead. */
3555 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3557 sal
= find_pc_sect_line (pc
, NULL
, 0);
3559 if (self
->funfirstline
)
3561 if (sal
.symtab
!= NULL
3562 && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal
.symtab
))
3563 || SYMTAB_LANGUAGE (sal
.symtab
) == language_asm
))
3565 /* If gdbarch_convert_from_func_ptr_addr does not apply then
3566 sal.SECTION, sal.LINE&co. will stay correct from above.
3567 If gdbarch_convert_from_func_ptr_addr applies then
3568 sal.SECTION is cleared from above and sal.LINE&co. will
3569 stay correct from the last find_pc_sect_line above. */
3570 sal
.pc
= MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
);
3571 sal
.pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
,
3575 skip_prologue_sal (&sal
);
3578 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3579 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
3582 /* A helper struct to pass some data through
3583 iterate_over_minimal_symbols. */
3585 struct collect_minsyms
3587 /* The objfile we're examining. */
3588 struct objfile
*objfile
;
3590 /* Only search the given symtab, or NULL to search for all symbols. */
3591 struct symtab
*symtab
;
3593 /* The funfirstline setting from the initial call. */
3596 /* The list_mode setting from the initial call. */
3599 /* The resulting symbols. */
3600 VEC (bound_minimal_symbol_d
) *msyms
;
3603 /* A helper function to classify a minimal_symbol_type according to
3607 classify_mtype (enum minimal_symbol_type t
)
3614 /* Intermediate priority. */
3617 case mst_solib_trampoline
:
3618 /* Lowest priority. */
3622 /* Highest priority. */
3627 /* Callback for qsort that sorts symbols by priority. */
3630 compare_msyms (const void *a
, const void *b
)
3632 const bound_minimal_symbol_d
*moa
= a
;
3633 const bound_minimal_symbol_d
*mob
= b
;
3634 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3635 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3637 return classify_mtype (ta
) - classify_mtype (tb
);
3640 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3644 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3646 struct collect_minsyms
*info
= d
;
3647 bound_minimal_symbol_d mo
;
3650 mo
.objfile
= info
->objfile
;
3652 if (info
->symtab
!= NULL
)
3655 struct symtab_and_line sal
;
3656 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3658 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (info
->objfile
, minsym
),
3660 sal
.section
= MSYMBOL_OBJ_SECTION (info
->objfile
, minsym
);
3662 = gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3664 sal
= find_pc_sect_line (pc
, NULL
, 0);
3666 if (info
->symtab
!= sal
.symtab
)
3670 /* Exclude data symbols when looking for breakpoint locations. */
3671 if (!info
->list_mode
)
3672 switch (minsym
->type
)
3674 case mst_slot_got_plt
:
3681 /* Make sure this minsym is not a function descriptor
3682 before we decide to discard it. */
3683 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3684 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3685 (gdbarch
, BMSYMBOL_VALUE_ADDRESS (mo
),
3688 if (addr
== BMSYMBOL_VALUE_ADDRESS (mo
))
3693 VEC_safe_push (bound_minimal_symbol_d
, info
->msyms
, &mo
);
3696 /* Search for minimal symbols called NAME. If SEARCH_PSPACE
3697 is not NULL, the search is restricted to just that program
3700 If SYMTAB is NULL, search all objfiles, otherwise
3701 restrict results to the given SYMTAB. */
3704 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3705 struct program_space
*search_pspace
,
3706 struct symtab
*symtab
)
3708 struct collect_minsyms local
;
3709 struct cleanup
*cleanup
;
3711 memset (&local
, 0, sizeof (local
));
3712 local
.funfirstline
= info
->state
->funfirstline
;
3713 local
.list_mode
= info
->state
->list_mode
;
3714 local
.symtab
= symtab
;
3716 cleanup
= make_cleanup (VEC_cleanup (bound_minimal_symbol_d
), &local
.msyms
);
3720 struct program_space
*pspace
;
3722 ALL_PSPACES (pspace
)
3724 struct objfile
*objfile
;
3726 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3728 if (pspace
->executing_startup
)
3731 set_current_program_space (pspace
);
3733 ALL_OBJFILES (objfile
)
3735 local
.objfile
= objfile
;
3736 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3742 if (search_pspace
== NULL
|| SYMTAB_PSPACE (symtab
) == search_pspace
)
3744 set_current_program_space (SYMTAB_PSPACE (symtab
));
3745 local
.objfile
= SYMTAB_OBJFILE(symtab
);
3746 iterate_over_minimal_symbols (local
.objfile
, name
, add_minsym
,
3751 if (!VEC_empty (bound_minimal_symbol_d
, local
.msyms
))
3755 bound_minimal_symbol_d
*item
;
3757 qsort (VEC_address (bound_minimal_symbol_d
, local
.msyms
),
3758 VEC_length (bound_minimal_symbol_d
, local
.msyms
),
3759 sizeof (bound_minimal_symbol_d
),
3762 /* Now the minsyms are in classification order. So, we walk
3763 over them and process just the minsyms with the same
3764 classification as the very first minsym in the list. */
3765 item
= VEC_index (bound_minimal_symbol_d
, local
.msyms
, 0);
3766 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3769 VEC_iterate (bound_minimal_symbol_d
, local
.msyms
, ix
, item
);
3772 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3775 VEC_safe_push (bound_minimal_symbol_d
,
3776 info
->result
.minimal_symbols
, item
);
3780 do_cleanups (cleanup
);
3783 /* A helper function to add all symbols matching NAME to INFO. If
3784 PSPACE is not NULL, the search is restricted to just that program
3788 add_matching_symbols_to_info (const char *name
,
3789 struct collect_info
*info
,
3790 struct program_space
*pspace
)
3795 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3799 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3800 collect_symbols
, info
,
3802 search_minsyms_for_name (info
, name
, pspace
, NULL
);
3804 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3806 int prev_len
= VEC_length (symbolp
, info
->result
.symbols
);
3808 /* Program spaces that are executing startup should have
3809 been filtered out earlier. */
3810 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3811 set_current_program_space (SYMTAB_PSPACE (elt
));
3812 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3813 collect_symbols
, info
);
3815 /* If no new symbols were found in this iteration and this symtab
3816 is in assembler, we might actually be looking for a label for
3817 which we don't have debug info. Check for a minimal symbol in
3819 if (prev_len
== VEC_length (symbolp
, info
->result
.symbols
)
3820 && elt
->language
== language_asm
)
3821 search_minsyms_for_name (info
, name
, pspace
, elt
);
3828 /* Now come some functions that are called from multiple places within
3832 symbol_to_sal (struct symtab_and_line
*result
,
3833 int funfirstline
, struct symbol
*sym
)
3835 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3837 *result
= find_function_start_sal (sym
, funfirstline
);
3842 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3845 result
->symtab
= symbol_symtab (sym
);
3846 result
->line
= SYMBOL_LINE (sym
);
3847 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3848 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3849 result
->explicit_pc
= 1;
3852 else if (funfirstline
)
3856 else if (SYMBOL_LINE (sym
) != 0)
3858 /* We know its line number. */
3860 result
->symtab
= symbol_symtab (sym
);
3861 result
->line
= SYMBOL_LINE (sym
);
3862 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3870 /* See the comment in linespec.h. */
3873 init_linespec_result (struct linespec_result
*lr
)
3875 memset (lr
, 0, sizeof (*lr
));
3878 /* See the comment in linespec.h. */
3881 destroy_linespec_result (struct linespec_result
*ls
)
3884 struct linespec_sals
*lsal
;
3886 delete_event_location (ls
->location
);
3887 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3889 xfree (lsal
->canonical
);
3890 xfree (lsal
->sals
.sals
);
3892 VEC_free (linespec_sals
, ls
->sals
);
3895 /* Cleanup function for a linespec_result. */
3898 cleanup_linespec_result (void *a
)
3900 destroy_linespec_result (a
);
3903 /* See the comment in linespec.h. */
3906 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3908 return make_cleanup (cleanup_linespec_result
, ls
);
3911 /* Return the quote characters permitted by the linespec parser. */
3914 get_gdb_linespec_parser_quote_characters (void)
3916 return linespec_quote_characters
;