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 const 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
= XRESIZEVEC (struct symtab_and_line
, sals
->sals
, sals
->nelts
);
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
= XRESIZEVEC (struct linespec_canonical_name
,
837 self
->canonical_names
, sals
->nelts
);
838 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
839 if (!literal_canonical
&& sal
->symtab
)
841 const char *fullname
= symtab_to_fullname (sal
->symtab
);
843 /* Note that the filter doesn't have to be a valid linespec
844 input. We only apply the ":LINE" treatment to Ada for
846 if (symname
!= NULL
&& sal
->line
!= 0
847 && self
->language
->la_language
== language_ada
)
848 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
849 else if (symname
!= NULL
)
850 canonical
->suffix
= xstrdup (symname
);
852 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
853 canonical
->symtab
= sal
->symtab
;
858 canonical
->suffix
= xstrdup (symname
);
860 canonical
->suffix
= xstrdup ("<unknown>");
861 canonical
->symtab
= NULL
;
866 /* A hash function for address_entry. */
869 hash_address_entry (const void *p
)
871 const struct address_entry
*aep
= p
;
874 hash
= iterative_hash_object (aep
->pspace
, 0);
875 return iterative_hash_object (aep
->addr
, hash
);
878 /* An equality function for address_entry. */
881 eq_address_entry (const void *a
, const void *b
)
883 const struct address_entry
*aea
= a
;
884 const struct address_entry
*aeb
= b
;
886 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
889 /* Check whether the address, represented by PSPACE and ADDR, is
890 already in the set. If so, return 0. Otherwise, add it and return
894 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
896 struct address_entry e
, *p
;
901 slot
= htab_find_slot (set
, &e
, INSERT
);
905 p
= XNEW (struct address_entry
);
906 memcpy (p
, &e
, sizeof (struct address_entry
));
912 /* A callback function and the additional data to call it with. */
914 struct symbol_and_data_callback
916 /* The callback to use. */
917 symbol_found_callback_ftype
*callback
;
919 /* Data to be passed to the callback. */
923 /* A helper for iterate_over_all_matching_symtabs that is used to
924 restrict calls to another callback to symbols representing inline
928 iterate_inline_only (struct symbol
*sym
, void *d
)
930 if (SYMBOL_INLINED (sym
))
932 struct symbol_and_data_callback
*cad
= d
;
934 return cad
->callback (sym
, cad
->data
);
936 return 1; /* Continue iterating. */
939 /* Some data for the expand_symtabs_matching callback. */
941 struct symbol_matcher_data
943 /* The lookup name against which symbol name should be compared. */
944 const char *lookup_name
;
946 /* The routine to be used for comparison. */
947 symbol_name_cmp_ftype symbol_name_cmp
;
950 /* A helper for iterate_over_all_matching_symtabs that is passed as a
951 callback to the expand_symtabs_matching method. */
954 iterate_name_matcher (const char *name
, void *d
)
956 const struct symbol_matcher_data
*data
= d
;
958 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
959 return 1; /* Expand this symbol's symbol table. */
960 return 0; /* Skip this symbol. */
963 /* A helper that walks over all matching symtabs in all objfiles and
964 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
965 not NULL, then the search is restricted to just that program
966 space. If INCLUDE_INLINE is nonzero then symbols representing
967 inlined instances of functions will be included in the result. */
970 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
972 const domain_enum domain
,
973 symbol_found_callback_ftype
*callback
,
975 struct program_space
*search_pspace
,
978 struct objfile
*objfile
;
979 struct program_space
*pspace
;
980 struct symbol_matcher_data matcher_data
;
982 matcher_data
.lookup_name
= name
;
983 matcher_data
.symbol_name_cmp
=
984 state
->language
->la_get_symbol_name_cmp
!= NULL
985 ? state
->language
->la_get_symbol_name_cmp (name
)
990 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
992 if (pspace
->executing_startup
)
995 set_current_program_space (pspace
);
997 ALL_OBJFILES (objfile
)
999 struct compunit_symtab
*cu
;
1002 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1003 iterate_name_matcher
,
1007 ALL_OBJFILE_COMPUNITS (objfile
, cu
)
1009 struct symtab
*symtab
= COMPUNIT_FILETABS (cu
);
1011 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1015 struct symbol_and_data_callback cad
= { callback
, data
};
1016 struct block
*block
;
1019 for (i
= FIRST_LOCAL_BLOCK
;
1020 i
< BLOCKVECTOR_NBLOCKS (SYMTAB_BLOCKVECTOR (symtab
));
1023 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), i
);
1024 state
->language
->la_iterate_over_symbols
1025 (block
, name
, domain
, iterate_inline_only
, &cad
);
1033 /* Returns the block to be used for symbol searches from
1034 the current location. */
1036 static const struct block
*
1037 get_current_search_block (void)
1039 const struct block
*block
;
1040 enum language save_language
;
1042 /* get_selected_block can change the current language when there is
1043 no selected frame yet. */
1044 save_language
= current_language
->la_language
;
1045 block
= get_selected_block (0);
1046 set_language (save_language
);
1051 /* Iterate over static and global blocks. */
1054 iterate_over_file_blocks (struct symtab
*symtab
,
1055 const char *name
, domain_enum domain
,
1056 symbol_found_callback_ftype
*callback
, void *data
)
1058 struct block
*block
;
1060 for (block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1062 block
= BLOCK_SUPERBLOCK (block
))
1063 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1066 /* A helper for find_method. This finds all methods in type T which
1067 match NAME. It adds matching symbol names to RESULT_NAMES, and
1068 adds T's direct superclasses to SUPERCLASSES. */
1071 find_methods (struct type
*t
, const char *name
,
1072 VEC (const_char_ptr
) **result_names
,
1073 VEC (typep
) **superclasses
)
1076 const char *class_name
= type_name_no_tag (t
);
1078 /* Ignore this class if it doesn't have a name. This is ugly, but
1079 unless we figure out how to get the physname without the name of
1080 the class, then the loop can't do any good. */
1085 t
= check_typedef (t
);
1087 /* Loop over each method name. At this level, all overloads of a name
1088 are counted as a single name. There is an inner loop which loops over
1091 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1092 method_counter
>= 0;
1095 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1096 char dem_opname
[64];
1098 if (startswith (method_name
, "__") ||
1099 startswith (method_name
, "op") ||
1100 startswith (method_name
, "type"))
1102 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1103 method_name
= dem_opname
;
1104 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1105 method_name
= dem_opname
;
1108 if (strcmp_iw (method_name
, name
) == 0)
1112 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1118 const char *phys_name
;
1120 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1121 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1123 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1124 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1130 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1131 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1134 /* Find an instance of the character C in the string S that is outside
1135 of all parenthesis pairs, single-quoted strings, and double-quoted
1136 strings. Also, ignore the char within a template name, like a ','
1137 within foo<int, int>. */
1140 find_toplevel_char (const char *s
, char c
)
1142 int quoted
= 0; /* zero if we're not in quotes;
1143 '"' if we're in a double-quoted string;
1144 '\'' if we're in a single-quoted string. */
1145 int depth
= 0; /* Number of unclosed parens we've seen. */
1148 for (scan
= s
; *scan
; scan
++)
1152 if (*scan
== quoted
)
1154 else if (*scan
== '\\' && *(scan
+ 1))
1157 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1159 else if (*scan
== '"' || *scan
== '\'')
1161 else if (*scan
== '(' || *scan
== '<')
1163 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1170 /* The string equivalent of find_toplevel_char. Returns a pointer
1171 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1172 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1175 find_toplevel_string (const char *haystack
, const char *needle
)
1177 const char *s
= haystack
;
1181 s
= find_toplevel_char (s
, *needle
);
1185 /* Found first char in HAYSTACK; check rest of string. */
1186 if (startswith (s
, needle
))
1189 /* Didn't find it; loop over HAYSTACK, looking for the next
1190 instance of the first character of NEEDLE. */
1194 while (s
!= NULL
&& *s
!= '\0');
1196 /* NEEDLE was not found in HAYSTACK. */
1200 /* Convert CANONICAL to its string representation using
1201 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1204 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1206 if (canonical
->symtab
== NULL
)
1207 return xstrdup (canonical
->suffix
);
1209 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1213 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1214 and store the result in SELF->CANONICAL. */
1217 filter_results (struct linespec_state
*self
,
1218 struct symtabs_and_lines
*result
,
1219 VEC (const_char_ptr
) *filters
)
1224 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1226 struct linespec_sals lsal
;
1229 memset (&lsal
, 0, sizeof (lsal
));
1231 for (j
= 0; j
< result
->nelts
; ++j
)
1233 const struct linespec_canonical_name
*canonical
;
1235 struct cleanup
*cleanup
;
1237 canonical
= &self
->canonical_names
[j
];
1238 fullform
= canonical_to_fullform (canonical
);
1239 cleanup
= make_cleanup (xfree
, fullform
);
1241 if (strcmp (name
, fullform
) == 0)
1242 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1244 do_cleanups (cleanup
);
1247 if (lsal
.sals
.nelts
> 0)
1249 lsal
.canonical
= xstrdup (name
);
1250 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1254 self
->canonical
->pre_expanded
= 0;
1257 /* Store RESULT into SELF->CANONICAL. */
1260 convert_results_to_lsals (struct linespec_state
*self
,
1261 struct symtabs_and_lines
*result
)
1263 struct linespec_sals lsal
;
1265 lsal
.canonical
= NULL
;
1266 lsal
.sals
= *result
;
1267 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1270 /* A structure that contains two string representations of a struct
1271 linespec_canonical_name:
1272 - one where the the symtab's fullname is used;
1273 - one where the filename followed the "set filename-display"
1276 struct decode_line_2_item
1278 /* The form using symtab_to_fullname.
1279 It must be xfree'ed after use. */
1282 /* The form using symtab_to_filename_for_display.
1283 It must be xfree'ed after use. */
1286 /* Field is initialized to zero and it is set to one if the user
1287 requested breakpoint for this entry. */
1288 unsigned int selected
: 1;
1291 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1292 secondarily by FULLFORM. */
1295 decode_line_2_compare_items (const void *ap
, const void *bp
)
1297 const struct decode_line_2_item
*a
= ap
;
1298 const struct decode_line_2_item
*b
= bp
;
1301 retval
= strcmp (a
->displayform
, b
->displayform
);
1305 return strcmp (a
->fullform
, b
->fullform
);
1308 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1309 will either return normally, throw an exception on multiple
1310 results, or present a menu to the user. On return, the SALS vector
1311 in SELF->CANONICAL is set up properly. */
1314 decode_line_2 (struct linespec_state
*self
,
1315 struct symtabs_and_lines
*result
,
1316 const char *select_mode
)
1318 char *args
, *prompt
;
1320 struct cleanup
*old_chain
;
1321 VEC (const_char_ptr
) *filters
= NULL
;
1322 struct get_number_or_range_state state
;
1323 struct decode_line_2_item
*items
;
1326 gdb_assert (select_mode
!= multiple_symbols_all
);
1327 gdb_assert (self
->canonical
!= NULL
);
1328 gdb_assert (result
->nelts
>= 1);
1330 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1332 /* Prepare ITEMS array. */
1333 items_count
= result
->nelts
;
1334 items
= XNEWVEC (struct decode_line_2_item
, items_count
);
1335 make_cleanup (xfree
, items
);
1336 for (i
= 0; i
< items_count
; ++i
)
1338 const struct linespec_canonical_name
*canonical
;
1339 struct decode_line_2_item
*item
;
1341 canonical
= &self
->canonical_names
[i
];
1342 gdb_assert (canonical
->suffix
!= NULL
);
1345 item
->fullform
= canonical_to_fullform (canonical
);
1346 make_cleanup (xfree
, item
->fullform
);
1348 if (canonical
->symtab
== NULL
)
1349 item
->displayform
= canonical
->suffix
;
1352 const char *fn_for_display
;
1354 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1355 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1357 make_cleanup (xfree
, item
->displayform
);
1363 /* Sort the list of method names. */
1364 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1366 /* Remove entries with the same FULLFORM. */
1367 if (items_count
>= 2)
1369 struct decode_line_2_item
*dst
, *src
;
1372 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1373 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1375 items_count
= dst
+ 1 - items
;
1378 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1379 error (_("canceled because the command is ambiguous\n"
1380 "See set/show multiple-symbol."));
1382 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1384 do_cleanups (old_chain
);
1385 convert_results_to_lsals (self
, result
);
1389 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1390 for (i
= 0; i
< items_count
; i
++)
1391 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1393 prompt
= getenv ("PS2");
1398 args
= command_line_input (prompt
, 0, "overload-choice");
1400 if (args
== 0 || *args
== 0)
1401 error_no_arg (_("one or more choice numbers"));
1403 init_number_or_range (&state
, args
);
1404 while (!state
.finished
)
1408 num
= get_number_or_range (&state
);
1411 error (_("canceled"));
1414 /* We intentionally make this result in a single breakpoint,
1415 contrary to what older versions of gdb did. The
1416 rationale is that this lets a user get the
1417 multiple_symbols_all behavior even with the 'ask'
1418 setting; and he can get separate breakpoints by entering
1419 "2-57" at the query. */
1420 do_cleanups (old_chain
);
1421 convert_results_to_lsals (self
, result
);
1426 if (num
>= items_count
)
1427 printf_unfiltered (_("No choice number %d.\n"), num
);
1430 struct decode_line_2_item
*item
= &items
[num
];
1432 if (!item
->selected
)
1434 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1439 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1445 filter_results (self
, result
, filters
);
1446 do_cleanups (old_chain
);
1451 /* The parser of linespec itself. */
1453 /* Throw an appropriate error when SYMBOL is not found (optionally in
1456 static void ATTRIBUTE_NORETURN
1457 symbol_not_found_error (const char *symbol
, const char *filename
)
1462 if (!have_full_symbols ()
1463 && !have_partial_symbols ()
1464 && !have_minimal_symbols ())
1465 throw_error (NOT_FOUND_ERROR
,
1466 _("No symbol table is loaded. Use the \"file\" command."));
1468 /* If SYMBOL starts with '$', the user attempted to either lookup
1469 a function/variable in his code starting with '$' or an internal
1470 variable of that name. Since we do not know which, be concise and
1471 explain both possibilities. */
1475 throw_error (NOT_FOUND_ERROR
,
1476 _("Undefined convenience variable or function \"%s\" "
1477 "not defined in \"%s\"."), symbol
, filename
);
1479 throw_error (NOT_FOUND_ERROR
,
1480 _("Undefined convenience variable or function \"%s\" "
1481 "not defined."), symbol
);
1486 throw_error (NOT_FOUND_ERROR
,
1487 _("Function \"%s\" not defined in \"%s\"."),
1490 throw_error (NOT_FOUND_ERROR
,
1491 _("Function \"%s\" not defined."), symbol
);
1495 /* Throw an appropriate error when an unexpected token is encountered
1498 static void ATTRIBUTE_NORETURN
1499 unexpected_linespec_error (linespec_parser
*parser
)
1501 linespec_token token
;
1502 static const char * token_type_strings
[]
1503 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1505 /* Get the token that generated the error. */
1506 token
= linespec_lexer_lex_one (parser
);
1508 /* Finally, throw the error. */
1509 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1510 || token
.type
== LSTOKEN_KEYWORD
)
1513 struct cleanup
*cleanup
;
1515 string
= copy_token_string (token
);
1516 cleanup
= make_cleanup (xfree
, string
);
1517 throw_error (GENERIC_ERROR
,
1518 _("malformed linespec error: unexpected %s, \"%s\""),
1519 token_type_strings
[token
.type
], string
);
1522 throw_error (GENERIC_ERROR
,
1523 _("malformed linespec error: unexpected %s"),
1524 token_type_strings
[token
.type
]);
1527 /* Throw an undefined label error. */
1529 static void ATTRIBUTE_NORETURN
1530 undefined_label_error (const char *function
, const char *label
)
1532 if (function
!= NULL
)
1533 throw_error (NOT_FOUND_ERROR
,
1534 _("No label \"%s\" defined in function \"%s\"."),
1537 throw_error (NOT_FOUND_ERROR
,
1538 _("No label \"%s\" defined in current function."),
1542 /* Throw a source file not found error. */
1544 static void ATTRIBUTE_NORETURN
1545 source_file_not_found_error (const char *name
)
1547 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), name
);
1550 /* See description in linespec.h. */
1553 linespec_parse_line_offset (const char *string
)
1555 const char *start
= string
;
1556 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1560 line_offset
.sign
= LINE_OFFSET_PLUS
;
1563 else if (*string
== '-')
1565 line_offset
.sign
= LINE_OFFSET_MINUS
;
1569 if (*string
!= '\0' && !isdigit (*string
))
1570 error (_("malformed line offset: \"%s\""), start
);
1572 /* Right now, we only allow base 10 for offsets. */
1573 line_offset
.offset
= atoi (string
);
1577 /* Parse the basic_spec in PARSER's input. */
1580 linespec_parse_basic (linespec_parser
*parser
)
1583 linespec_token token
;
1584 VEC (symbolp
) *symbols
, *labels
;
1585 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1586 struct cleanup
*cleanup
;
1588 /* Get the next token. */
1589 token
= linespec_lexer_lex_one (parser
);
1591 /* If it is EOI or KEYWORD, issue an error. */
1592 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1593 unexpected_linespec_error (parser
);
1594 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1595 else if (token
.type
== LSTOKEN_NUMBER
)
1597 /* Record the line offset and get the next token. */
1598 name
= copy_token_string (token
);
1599 cleanup
= make_cleanup (xfree
, name
);
1600 PARSER_EXPLICIT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1601 do_cleanups (cleanup
);
1603 /* Get the next token. */
1604 token
= linespec_lexer_consume_token (parser
);
1606 /* If the next token is a comma, stop parsing and return. */
1607 if (token
.type
== LSTOKEN_COMMA
)
1610 /* If the next token is anything but EOI or KEYWORD, issue
1612 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1613 unexpected_linespec_error (parser
);
1616 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1619 /* Next token must be LSTOKEN_STRING. */
1620 if (token
.type
!= LSTOKEN_STRING
)
1621 unexpected_linespec_error (parser
);
1623 /* The current token will contain the name of a function, method,
1625 name
= copy_token_string (token
);
1626 cleanup
= make_cleanup (xfree
, name
);
1628 /* Try looking it up as a function/method. */
1629 find_linespec_symbols (PARSER_STATE (parser
),
1630 PARSER_RESULT (parser
)->file_symtabs
, name
,
1631 &symbols
, &minimal_symbols
);
1633 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1635 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1636 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1637 PARSER_EXPLICIT (parser
)->function_name
= name
;
1639 discard_cleanups (cleanup
);
1643 /* NAME was not a function or a method. So it must be a label
1644 name or user specified variable like "break foo.c:$zippo". */
1645 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1649 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1650 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1651 PARSER_EXPLICIT (parser
)->label_name
= name
;
1653 discard_cleanups (cleanup
);
1655 else if (token
.type
== LSTOKEN_STRING
1656 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1658 /* User specified a convenience variable or history value. */
1659 PARSER_EXPLICIT (parser
)->line_offset
1660 = linespec_parse_variable (PARSER_STATE (parser
), name
);
1662 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1664 /* The user-specified variable was not valid. Do not
1665 throw an error here. parse_linespec will do it for us. */
1666 PARSER_EXPLICIT (parser
)->function_name
= name
;
1667 discard_cleanups (cleanup
);
1671 /* The convenience variable/history value parsed correctly.
1672 NAME is no longer needed. */
1673 do_cleanups (cleanup
);
1677 /* The name is also not a label. Abort parsing. Do not throw
1678 an error here. parse_linespec will do it for us. */
1680 /* Save a copy of the name we were trying to lookup. */
1681 PARSER_EXPLICIT (parser
)->function_name
= name
;
1682 discard_cleanups (cleanup
);
1687 /* Get the next token. */
1688 token
= linespec_lexer_consume_token (parser
);
1690 if (token
.type
== LSTOKEN_COLON
)
1692 /* User specified a label or a lineno. */
1693 token
= linespec_lexer_consume_token (parser
);
1695 if (token
.type
== LSTOKEN_NUMBER
)
1697 /* User specified an offset. Record the line offset and
1698 get the next token. */
1699 name
= copy_token_string (token
);
1700 cleanup
= make_cleanup (xfree
, name
);
1701 PARSER_EXPLICIT (parser
)->line_offset
1702 = linespec_parse_line_offset (name
);
1703 do_cleanups (cleanup
);
1705 /* Ge the next token. */
1706 token
= linespec_lexer_consume_token (parser
);
1708 else if (token
.type
== LSTOKEN_STRING
)
1710 /* Grab a copy of the label's name and look it up. */
1711 name
= copy_token_string (token
);
1712 cleanup
= make_cleanup (xfree
, name
);
1713 labels
= find_label_symbols (PARSER_STATE (parser
),
1714 PARSER_RESULT (parser
)->function_symbols
,
1719 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1720 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1721 PARSER_EXPLICIT (parser
)->label_name
= name
;
1723 discard_cleanups (cleanup
);
1727 /* We don't know what it was, but it isn't a label. */
1728 undefined_label_error (PARSER_EXPLICIT (parser
)->function_name
,
1732 /* Check for a line offset. */
1733 token
= linespec_lexer_consume_token (parser
);
1734 if (token
.type
== LSTOKEN_COLON
)
1736 /* Get the next token. */
1737 token
= linespec_lexer_consume_token (parser
);
1739 /* It must be a line offset. */
1740 if (token
.type
!= LSTOKEN_NUMBER
)
1741 unexpected_linespec_error (parser
);
1743 /* Record the lione offset and get the next token. */
1744 name
= copy_token_string (token
);
1745 cleanup
= make_cleanup (xfree
, name
);
1747 PARSER_EXPLICIT (parser
)->line_offset
1748 = linespec_parse_line_offset (name
);
1749 do_cleanups (cleanup
);
1751 /* Get the next token. */
1752 token
= linespec_lexer_consume_token (parser
);
1757 /* Trailing ':' in the input. Issue an error. */
1758 unexpected_linespec_error (parser
);
1763 /* Canonicalize the linespec contained in LS. The result is saved into
1764 STATE->canonical. This function handles both linespec and explicit
1768 canonicalize_linespec (struct linespec_state
*state
, const linespec_p ls
)
1770 struct event_location
*canon
;
1771 struct explicit_location
*explicit_loc
;
1773 /* If canonicalization was not requested, no need to do anything. */
1774 if (!state
->canonical
)
1777 /* Save everything as an explicit location. */
1778 canon
= state
->canonical
->location
1779 = new_explicit_location (&ls
->explicit_loc
);
1780 explicit_loc
= get_explicit_location (canon
);
1782 if (explicit_loc
->label_name
!= NULL
)
1784 state
->canonical
->special_display
= 1;
1786 if (explicit_loc
->function_name
== NULL
)
1790 /* No function was specified, so add the symbol name. */
1791 gdb_assert (ls
->labels
.function_symbols
!= NULL
1792 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1794 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1795 explicit_loc
->function_name
= xstrdup (SYMBOL_NATURAL_NAME (s
));
1799 /* If this location originally came from a linespec, save a string
1800 representation of it for display and saving to file. */
1801 if (state
->is_linespec
)
1803 char *linespec
= explicit_location_to_linespec (explicit_loc
);
1805 set_event_location_string (canon
, linespec
);
1810 /* Given a line offset in LS, construct the relevant SALs. */
1812 static struct symtabs_and_lines
1813 create_sals_line_offset (struct linespec_state
*self
,
1816 struct symtabs_and_lines values
;
1817 struct symtab_and_line val
;
1818 int use_default
= 0;
1824 /* This is where we need to make sure we have good defaults.
1825 We must guarantee that this section of code is never executed
1826 when we are called with just a function name, since
1827 set_default_source_symtab_and_line uses
1828 select_source_symtab that calls us with such an argument. */
1830 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1831 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1833 const char *fullname
;
1835 set_current_program_space (self
->program_space
);
1837 /* Make sure we have at least a default source line. */
1838 set_default_source_symtab_and_line ();
1839 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1840 fullname
= symtab_to_fullname (self
->default_symtab
);
1841 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1842 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1843 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1847 val
.line
= ls
->explicit_loc
.line_offset
.offset
;
1848 switch (ls
->explicit_loc
.line_offset
.sign
)
1850 case LINE_OFFSET_PLUS
:
1851 if (ls
->explicit_loc
.line_offset
.offset
== 0)
1854 val
.line
= self
->default_line
+ val
.line
;
1857 case LINE_OFFSET_MINUS
:
1858 if (ls
->explicit_loc
.line_offset
.offset
== 0)
1861 val
.line
= self
->default_line
- val
.line
;
1863 val
.line
= -val
.line
;
1866 case LINE_OFFSET_NONE
:
1867 break; /* No need to adjust val.line. */
1870 if (self
->list_mode
)
1871 decode_digits_list_mode (self
, ls
, &values
, val
);
1874 struct linetable_entry
*best_entry
= NULL
;
1876 const struct block
**blocks
;
1877 struct cleanup
*cleanup
;
1878 struct symtabs_and_lines intermediate_results
;
1881 intermediate_results
.sals
= NULL
;
1882 intermediate_results
.nelts
= 0;
1884 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1886 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1887 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1888 &intermediate_results
, &best_entry
);
1890 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1892 /* For optimized code, the compiler can scatter one source line
1893 across disjoint ranges of PC values, even when no duplicate
1894 functions or inline functions are involved. For example,
1895 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1896 function can result in two PC ranges. In this case, we don't
1897 want to set a breakpoint on the first PC of each range. To filter
1898 such cases, we use containing blocks -- for each PC found
1899 above, we see if there are other PCs that are in the same
1900 block. If yes, the other PCs are filtered out. */
1902 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1903 make_cleanup (xfree
, filter
);
1904 blocks
= XNEWVEC (const struct block
*, intermediate_results
.nelts
);
1905 make_cleanup (xfree
, blocks
);
1907 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1909 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1912 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1913 intermediate_results
.sals
[i
].section
);
1916 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1918 if (blocks
[i
] != NULL
)
1919 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1921 if (blocks
[j
] == blocks
[i
])
1929 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1932 struct symbol
*sym
= (blocks
[i
]
1933 ? block_containing_function (blocks
[i
])
1936 if (self
->funfirstline
)
1937 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1938 /* Make sure the line matches the request, not what was
1940 intermediate_results
.sals
[i
].line
= val
.line
;
1941 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1942 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1945 do_cleanups (cleanup
);
1948 if (values
.nelts
== 0)
1950 if (ls
->explicit_loc
.source_filename
)
1951 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1952 val
.line
, ls
->explicit_loc
.source_filename
);
1954 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
1961 /* Convert the given ADDRESS into SaLs. */
1963 static struct symtabs_and_lines
1964 convert_address_location_to_sals (struct linespec_state
*self
,
1967 struct symtab_and_line sal
;
1968 struct symtabs_and_lines sals
= {NULL
, 0};
1970 sal
= find_pc_line (address
, 0);
1972 sal
.section
= find_pc_overlay (address
);
1973 sal
.explicit_pc
= 1;
1974 add_sal_to_sals (self
, &sals
, &sal
, core_addr_to_string (address
), 1);
1979 /* Create and return SALs from the linespec LS. */
1981 static struct symtabs_and_lines
1982 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
1984 struct symtabs_and_lines sals
= {NULL
, 0};
1986 if (ls
->labels
.label_symbols
!= NULL
)
1988 /* We have just a bunch of functions/methods or labels. */
1990 struct symtab_and_line sal
;
1993 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
1995 struct program_space
*pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
1997 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
1998 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
1999 add_sal_to_sals (state
, &sals
, &sal
,
2000 SYMBOL_NATURAL_NAME (sym
), 0);
2003 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2005 /* We have just a bunch of functions and/or methods. */
2007 struct symtab_and_line sal
;
2009 bound_minimal_symbol_d
*elem
;
2010 struct program_space
*pspace
;
2012 if (ls
->function_symbols
!= NULL
)
2014 /* Sort symbols so that symbols with the same program space are next
2016 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2017 VEC_length (symbolp
, ls
->function_symbols
),
2018 sizeof (symbolp
), compare_symbols
);
2020 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2022 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2023 set_current_program_space (pspace
);
2024 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2025 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2026 add_sal_to_sals (state
, &sals
, &sal
,
2027 SYMBOL_NATURAL_NAME (sym
), 0);
2031 if (ls
->minimal_symbols
!= NULL
)
2033 /* Sort minimal symbols by program space, too. */
2034 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2035 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2036 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2039 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2043 pspace
= elem
->objfile
->pspace
;
2044 set_current_program_space (pspace
);
2045 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2049 else if (ls
->explicit_loc
.line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2051 /* Only an offset was specified. */
2052 sals
= create_sals_line_offset (state
, ls
);
2054 /* Make sure we have a filename for canonicalization. */
2055 if (ls
->explicit_loc
.source_filename
== NULL
)
2057 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2059 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2060 form so that displaying SOURCE_FILENAME can follow the current
2061 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2062 it has been kept for code simplicity only in absolute form. */
2063 ls
->explicit_loc
.source_filename
= xstrdup (fullname
);
2068 /* We haven't found any results... */
2072 canonicalize_linespec (state
, ls
);
2074 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2075 state
->canonical
->pre_expanded
= 1;
2080 /* Convert the explicit location EXPLICIT_LOC into SaLs. */
2082 static struct symtabs_and_lines
2083 convert_explicit_location_to_sals (struct linespec_state
*self
,
2085 const struct explicit_location
*explicit_loc
)
2087 VEC (symbolp
) *symbols
, *labels
;
2088 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
2090 if (explicit_loc
->source_filename
!= NULL
)
2094 result
->file_symtabs
2095 = symtabs_from_filename (explicit_loc
->source_filename
);
2097 CATCH (except
, RETURN_MASK_ERROR
)
2099 source_file_not_found_error (explicit_loc
->source_filename
);
2102 result
->explicit_loc
.source_filename
2103 = xstrdup (explicit_loc
->source_filename
);
2107 /* A NULL entry means to use the default symtab. */
2108 VEC_safe_push (symtab_ptr
, result
->file_symtabs
, NULL
);
2111 if (explicit_loc
->function_name
!= NULL
)
2113 find_linespec_symbols (self
, result
->file_symtabs
,
2114 explicit_loc
->function_name
, &symbols
,
2117 if (symbols
== NULL
&& minimal_symbols
== NULL
)
2118 symbol_not_found_error (explicit_loc
->function_name
,
2119 result
->explicit_loc
.source_filename
);
2121 result
->explicit_loc
.function_name
2122 = xstrdup (explicit_loc
->function_name
);
2123 result
->function_symbols
= symbols
;
2124 result
->minimal_symbols
= minimal_symbols
;
2127 if (explicit_loc
->label_name
!= NULL
)
2130 labels
= find_label_symbols (self
, result
->function_symbols
,
2131 &symbols
, explicit_loc
->label_name
);
2134 undefined_label_error (result
->explicit_loc
.function_name
,
2135 explicit_loc
->label_name
);
2137 result
->explicit_loc
.label_name
= xstrdup (explicit_loc
->label_name
);
2138 result
->labels
.label_symbols
= labels
;
2139 result
->labels
.function_symbols
= symbols
;
2142 if (explicit_loc
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2143 result
->explicit_loc
.line_offset
= explicit_loc
->line_offset
;
2145 return convert_linespec_to_sals (self
, result
);
2148 /* Parse a string that specifies a linespec.
2150 The basic grammar of linespecs:
2152 linespec -> var_spec | basic_spec
2153 var_spec -> '$' (STRING | NUMBER)
2155 basic_spec -> file_offset_spec | function_spec | label_spec
2156 file_offset_spec -> opt_file_spec offset_spec
2157 function_spec -> opt_file_spec function_name_spec opt_label_spec
2158 label_spec -> label_name_spec
2160 opt_file_spec -> "" | file_name_spec ':'
2161 opt_label_spec -> "" | ':' label_name_spec
2163 file_name_spec -> STRING
2164 function_name_spec -> STRING
2165 label_name_spec -> STRING
2166 function_name_spec -> STRING
2167 offset_spec -> NUMBER
2171 This may all be followed by several keywords such as "if EXPR",
2174 A comma will terminate parsing.
2176 The function may be an undebuggable function found in minimal symbol table.
2178 If the argument FUNFIRSTLINE is nonzero, we want the first line
2179 of real code inside a function when a function is specified, and it is
2180 not OK to specify a variable or type to get its line number.
2182 DEFAULT_SYMTAB specifies the file to use if none is specified.
2183 It defaults to current_source_symtab.
2184 DEFAULT_LINE specifies the line number to use for relative
2185 line numbers (that start with signs). Defaults to current_source_line.
2186 If CANONICAL is non-NULL, store an array of strings containing the canonical
2187 line specs there if necessary. Currently overloaded member functions and
2188 line numbers or static functions without a filename yield a canonical
2189 line spec. The array and the line spec strings are allocated on the heap,
2190 it is the callers responsibility to free them.
2192 Note that it is possible to return zero for the symtab
2193 if no file is validly specified. Callers must check that.
2194 Also, the line number returned may be invalid. */
2196 /* Parse the linespec in ARG. */
2198 static struct symtabs_and_lines
2199 parse_linespec (linespec_parser
*parser
, const char *arg
)
2201 linespec_token token
;
2202 struct symtabs_and_lines values
;
2203 struct gdb_exception file_exception
= exception_none
;
2204 struct cleanup
*cleanup
;
2206 /* A special case to start. It has become quite popular for
2207 IDEs to work around bugs in the previous parser by quoting
2208 the entire linespec, so we attempt to deal with this nicely. */
2209 parser
->is_quote_enclosed
= 0;
2210 if (!is_ada_operator (arg
)
2211 && strchr (linespec_quote_characters
, *arg
) != NULL
)
2215 end
= skip_quote_char (arg
+ 1, *arg
);
2216 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2218 /* Here's the special case. Skip ARG past the initial
2221 parser
->is_quote_enclosed
= 1;
2225 parser
->lexer
.saved_arg
= arg
;
2226 parser
->lexer
.stream
= arg
;
2228 /* Initialize the default symtab and line offset. */
2229 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2230 &PARSER_STATE (parser
)->default_line
);
2232 /* Objective-C shortcut. */
2233 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), arg
);
2234 if (values
.sals
!= NULL
)
2237 /* Start parsing. */
2239 /* Get the first token. */
2240 token
= linespec_lexer_lex_one (parser
);
2242 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2243 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2247 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2248 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2250 /* User specified a convenience variable or history value. */
2251 var
= copy_token_string (token
);
2252 cleanup
= make_cleanup (xfree
, var
);
2253 PARSER_EXPLICIT (parser
)->line_offset
2254 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2255 do_cleanups (cleanup
);
2257 /* If a line_offset wasn't found (VAR is the name of a user
2258 variable/function), then skip to normal symbol processing. */
2259 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2261 /* Consume this token. */
2262 linespec_lexer_consume_token (parser
);
2264 goto convert_to_sals
;
2267 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2268 unexpected_linespec_error (parser
);
2270 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2271 this token cannot represent a filename. */
2272 token
= linespec_lexer_peek_token (parser
);
2274 if (token
.type
== LSTOKEN_COLON
)
2276 char *user_filename
;
2278 /* Get the current token again and extract the filename. */
2279 token
= linespec_lexer_lex_one (parser
);
2280 user_filename
= copy_token_string (token
);
2282 /* Check if the input is a filename. */
2285 PARSER_RESULT (parser
)->file_symtabs
2286 = symtabs_from_filename (user_filename
);
2288 CATCH (ex
, RETURN_MASK_ERROR
)
2290 file_exception
= ex
;
2294 if (file_exception
.reason
>= 0)
2296 /* Symtabs were found for the file. Record the filename. */
2297 PARSER_EXPLICIT (parser
)->source_filename
= user_filename
;
2299 /* Get the next token. */
2300 token
= linespec_lexer_consume_token (parser
);
2302 /* This is LSTOKEN_COLON; consume it. */
2303 linespec_lexer_consume_token (parser
);
2307 /* No symtabs found -- discard user_filename. */
2308 xfree (user_filename
);
2310 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2311 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2314 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2315 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2316 && token
.type
!= LSTOKEN_COMMA
)
2318 /* TOKEN is the _next_ token, not the one currently in the parser.
2319 Consuming the token will give the correct error message. */
2320 linespec_lexer_consume_token (parser
);
2321 unexpected_linespec_error (parser
);
2325 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2326 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2329 /* Parse the rest of the linespec. */
2330 linespec_parse_basic (parser
);
2332 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2333 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2334 && PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2335 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2337 /* The linespec didn't parse. Re-throw the file exception if
2339 if (file_exception
.reason
< 0)
2340 throw_exception (file_exception
);
2342 /* Otherwise, the symbol is not found. */
2343 symbol_not_found_error (PARSER_EXPLICIT (parser
)->function_name
,
2344 PARSER_EXPLICIT (parser
)->source_filename
);
2349 /* Get the last token and record how much of the input was parsed,
2351 token
= linespec_lexer_lex_one (parser
);
2352 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2353 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2355 /* Convert the data in PARSER_RESULT to SALs. */
2356 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2357 PARSER_RESULT (parser
));
2363 /* A constructor for linespec_state. */
2366 linespec_state_constructor (struct linespec_state
*self
,
2367 int flags
, const struct language_defn
*language
,
2368 struct symtab
*default_symtab
,
2370 struct linespec_result
*canonical
)
2372 memset (self
, 0, sizeof (*self
));
2373 self
->language
= language
;
2374 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2375 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2376 self
->default_symtab
= default_symtab
;
2377 self
->default_line
= default_line
;
2378 self
->canonical
= canonical
;
2379 self
->program_space
= current_program_space
;
2380 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2381 xfree
, xcalloc
, xfree
);
2382 self
->is_linespec
= 0;
2385 /* Initialize a new linespec parser. */
2388 linespec_parser_new (linespec_parser
*parser
,
2389 int flags
, const struct language_defn
*language
,
2390 struct symtab
*default_symtab
,
2392 struct linespec_result
*canonical
)
2394 memset (parser
, 0, sizeof (linespec_parser
));
2395 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2396 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2397 PARSER_EXPLICIT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2398 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2399 default_symtab
, default_line
, canonical
);
2402 /* A destructor for linespec_state. */
2405 linespec_state_destructor (struct linespec_state
*self
)
2407 htab_delete (self
->addr_set
);
2410 /* Delete a linespec parser. */
2413 linespec_parser_delete (void *arg
)
2415 linespec_parser
*parser
= (linespec_parser
*) arg
;
2417 xfree (PARSER_EXPLICIT (parser
)->source_filename
);
2418 xfree (PARSER_EXPLICIT (parser
)->label_name
);
2419 xfree (PARSER_EXPLICIT (parser
)->function_name
);
2421 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2422 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2424 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2425 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2427 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2428 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2430 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2431 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2433 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2434 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2436 linespec_state_destructor (PARSER_STATE (parser
));
2439 /* See description in linespec.h. */
2442 linespec_lex_to_end (char **stringp
)
2444 linespec_parser parser
;
2445 struct cleanup
*cleanup
;
2446 linespec_token token
;
2449 if (stringp
== NULL
|| *stringp
== NULL
)
2452 linespec_parser_new (&parser
, 0, current_language
, NULL
, 0, NULL
);
2453 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2454 parser
.lexer
.saved_arg
= *stringp
;
2455 PARSER_STREAM (&parser
) = orig
= *stringp
;
2459 /* Stop before any comma tokens; we need it to keep it
2460 as the next token in the string. */
2461 token
= linespec_lexer_peek_token (&parser
);
2462 if (token
.type
== LSTOKEN_COMMA
)
2464 token
= linespec_lexer_consume_token (&parser
);
2466 while (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
);
2468 *stringp
+= PARSER_STREAM (&parser
) - orig
;
2469 do_cleanups (cleanup
);
2472 /* A helper function for decode_line_full and decode_line_1 to
2473 turn LOCATION into symtabs_and_lines. */
2475 static struct symtabs_and_lines
2476 event_location_to_sals (linespec_parser
*parser
,
2477 const struct event_location
*location
)
2479 struct symtabs_and_lines result
= {NULL
, 0};
2481 switch (event_location_type (location
))
2483 case LINESPEC_LOCATION
:
2485 PARSER_STATE (parser
)->is_linespec
= 1;
2488 result
= parse_linespec (parser
, get_linespec_location (location
));
2490 CATCH (except
, RETURN_MASK_ERROR
)
2492 throw_exception (except
);
2498 case ADDRESS_LOCATION
:
2500 = convert_address_location_to_sals (PARSER_STATE (parser
),
2501 get_address_location (location
));
2504 case EXPLICIT_LOCATION
:
2506 const struct explicit_location
*explicit_loc
;
2508 explicit_loc
= get_explicit_location_const (location
);
2509 result
= convert_explicit_location_to_sals (PARSER_STATE (parser
),
2510 PARSER_RESULT (parser
),
2515 case PROBE_LOCATION
:
2516 /* Probes are handled by their own decoders. */
2517 gdb_assert_not_reached ("attempt to decode probe location");
2521 gdb_assert_not_reached ("unhandled event location type");
2527 /* See linespec.h. */
2530 decode_line_full (const struct event_location
*location
, int flags
,
2531 struct symtab
*default_symtab
,
2532 int default_line
, struct linespec_result
*canonical
,
2533 const char *select_mode
,
2536 struct symtabs_and_lines result
;
2537 struct cleanup
*cleanups
;
2538 VEC (const_char_ptr
) *filters
= NULL
;
2539 linespec_parser parser
;
2540 struct linespec_state
*state
;
2542 gdb_assert (canonical
!= NULL
);
2543 /* The filter only makes sense for 'all'. */
2544 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2545 gdb_assert (select_mode
== NULL
2546 || select_mode
== multiple_symbols_all
2547 || select_mode
== multiple_symbols_ask
2548 || select_mode
== multiple_symbols_cancel
);
2549 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2551 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2552 default_line
, canonical
);
2553 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2554 save_current_program_space ();
2556 result
= event_location_to_sals (&parser
, location
);
2557 state
= PARSER_STATE (&parser
);
2559 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2560 canonical
->pre_expanded
= 1;
2562 /* Arrange for allocated canonical names to be freed. */
2563 if (result
.nelts
> 0)
2567 make_cleanup (xfree
, state
->canonical_names
);
2568 for (i
= 0; i
< result
.nelts
; ++i
)
2570 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2571 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2575 if (select_mode
== NULL
)
2577 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2578 select_mode
= multiple_symbols_all
;
2580 select_mode
= multiple_symbols_select_mode ();
2583 if (select_mode
== multiple_symbols_all
)
2587 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2588 VEC_safe_push (const_char_ptr
, filters
, filter
);
2589 filter_results (state
, &result
, filters
);
2592 convert_results_to_lsals (state
, &result
);
2595 decode_line_2 (state
, &result
, select_mode
);
2597 do_cleanups (cleanups
);
2600 /* See linespec.h. */
2602 struct symtabs_and_lines
2603 decode_line_1 (const struct event_location
*location
, int flags
,
2604 struct symtab
*default_symtab
,
2607 struct symtabs_and_lines result
;
2608 linespec_parser parser
;
2609 struct cleanup
*cleanups
;
2611 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2612 default_line
, NULL
);
2613 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2614 save_current_program_space ();
2616 result
= event_location_to_sals (&parser
, location
);
2618 do_cleanups (cleanups
);
2622 /* See linespec.h. */
2624 struct symtabs_and_lines
2625 decode_line_with_current_source (char *string
, int flags
)
2627 struct symtabs_and_lines sals
;
2628 struct symtab_and_line cursal
;
2629 struct event_location
*location
;
2630 struct cleanup
*cleanup
;
2633 error (_("Empty line specification."));
2635 /* We use whatever is set as the current source line. We do not try
2636 and get a default source symtab+line or it will recursively call us! */
2637 cursal
= get_current_source_symtab_and_line ();
2639 location
= string_to_event_location (&string
, current_language
);
2640 cleanup
= make_cleanup_delete_event_location (location
);
2641 sals
= decode_line_1 (location
, flags
,
2642 cursal
.symtab
, cursal
.line
);
2645 error (_("Junk at end of line specification: %s"), string
);
2647 do_cleanups (cleanup
);
2651 /* See linespec.h. */
2653 struct symtabs_and_lines
2654 decode_line_with_last_displayed (char *string
, int flags
)
2656 struct symtabs_and_lines sals
;
2657 struct event_location
*location
;
2658 struct cleanup
*cleanup
;
2661 error (_("Empty line specification."));
2663 location
= string_to_event_location (&string
, current_language
);
2664 cleanup
= make_cleanup_delete_event_location (location
);
2665 if (last_displayed_sal_is_valid ())
2666 sals
= decode_line_1 (location
, flags
,
2667 get_last_displayed_symtab (),
2668 get_last_displayed_line ());
2670 sals
= decode_line_1 (location
, flags
, (struct symtab
*) NULL
, 0);
2673 error (_("Junk at end of line specification: %s"), string
);
2675 do_cleanups (cleanup
);
2681 /* First, some functions to initialize stuff at the beggining of the
2685 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2687 if (*default_symtab
== 0)
2689 /* Use whatever we have for the default source line. We don't use
2690 get_current_or_default_symtab_and_line as it can recurse and call
2692 struct symtab_and_line cursal
=
2693 get_current_source_symtab_and_line ();
2695 *default_symtab
= cursal
.symtab
;
2696 *default_line
= cursal
.line
;
2702 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2703 advancing EXP_PTR past any parsed text. */
2706 linespec_expression_to_pc (const char **exp_ptr
)
2708 if (current_program_space
->executing_startup
)
2709 /* The error message doesn't really matter, because this case
2710 should only hit during breakpoint reset. */
2711 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2712 "program space is in startup"));
2715 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2720 /* Here's where we recognise an Objective-C Selector. An Objective C
2721 selector may be implemented by more than one class, therefore it
2722 may represent more than one method/function. This gives us a
2723 situation somewhat analogous to C++ overloading. If there's more
2724 than one method that could represent the selector, then use some of
2725 the existing C++ code to let the user choose one. */
2727 static struct symtabs_and_lines
2728 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char *arg
)
2730 struct collect_info info
;
2731 VEC (const_char_ptr
) *symbol_names
= NULL
;
2732 struct symtabs_and_lines values
;
2733 const char *new_argptr
;
2734 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2738 info
.file_symtabs
= NULL
;
2739 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2740 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2741 info
.result
.symbols
= NULL
;
2742 info
.result
.minimal_symbols
= NULL
;
2746 new_argptr
= find_imps (arg
, &symbol_names
);
2747 if (VEC_empty (const_char_ptr
, symbol_names
))
2749 do_cleanups (cleanup
);
2753 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2755 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2756 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2760 saved_arg
= (char *) alloca (new_argptr
- arg
+ 1);
2761 memcpy (saved_arg
, arg
, new_argptr
- arg
);
2762 saved_arg
[new_argptr
- arg
] = '\0';
2764 ls
->explicit_loc
.function_name
= xstrdup (saved_arg
);
2765 ls
->function_symbols
= info
.result
.symbols
;
2766 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2767 values
= convert_linespec_to_sals (self
, ls
);
2769 if (self
->canonical
)
2773 self
->canonical
->pre_expanded
= 1;
2775 if (ls
->explicit_loc
.source_filename
)
2777 str
= xstrprintf ("%s:%s",
2778 ls
->explicit_loc
.source_filename
, saved_arg
);
2781 str
= xstrdup (saved_arg
);
2783 make_cleanup (xfree
, str
);
2784 self
->canonical
->location
= new_linespec_location (&str
);
2788 do_cleanups (cleanup
);
2793 /* An instance of this type is used when collecting prefix symbols for
2796 struct decode_compound_collector
2798 /* The result vector. */
2799 VEC (symbolp
) *symbols
;
2801 /* A hash table of all symbols we found. We use this to avoid
2802 adding any symbol more than once. */
2806 /* A callback for iterate_over_symbols that is used by
2807 lookup_prefix_sym to collect type symbols. */
2810 collect_one_symbol (struct symbol
*sym
, void *d
)
2812 struct decode_compound_collector
*collector
= d
;
2816 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2817 return 1; /* Continue iterating. */
2819 t
= SYMBOL_TYPE (sym
);
2820 t
= check_typedef (t
);
2821 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2822 && TYPE_CODE (t
) != TYPE_CODE_UNION
2823 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2824 return 1; /* Continue iterating. */
2826 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2830 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2833 return 1; /* Continue iterating. */
2836 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2838 static VEC (symbolp
) *
2839 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2840 const char *class_name
)
2844 struct decode_compound_collector collector
;
2845 struct cleanup
*outer
;
2846 struct cleanup
*cleanup
;
2848 collector
.symbols
= NULL
;
2849 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2851 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2852 htab_eq_pointer
, NULL
,
2854 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2856 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2860 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2861 collect_one_symbol
, &collector
,
2863 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2864 collect_one_symbol
, &collector
,
2869 /* Program spaces that are executing startup should have
2870 been filtered out earlier. */
2871 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2872 set_current_program_space (SYMTAB_PSPACE (elt
));
2873 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2874 collect_one_symbol
, &collector
);
2875 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2876 collect_one_symbol
, &collector
);
2880 do_cleanups (cleanup
);
2881 discard_cleanups (outer
);
2882 return collector
.symbols
;
2885 /* A qsort comparison function for symbols. The resulting order does
2886 not actually matter; we just need to be able to sort them so that
2887 symbols with the same program space end up next to each other. */
2890 compare_symbols (const void *a
, const void *b
)
2892 struct symbol
* const *sa
= a
;
2893 struct symbol
* const *sb
= b
;
2896 uia
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sa
));
2897 uib
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sb
));
2904 uia
= (uintptr_t) *sa
;
2905 uib
= (uintptr_t) *sb
;
2915 /* Like compare_symbols but for minimal symbols. */
2918 compare_msymbols (const void *a
, const void *b
)
2920 const struct bound_minimal_symbol
*sa
= a
;
2921 const struct bound_minimal_symbol
*sb
= b
;
2924 uia
= (uintptr_t) sa
->objfile
->pspace
;
2925 uib
= (uintptr_t) sa
->objfile
->pspace
;
2932 uia
= (uintptr_t) sa
->minsym
;
2933 uib
= (uintptr_t) sb
->minsym
;
2943 /* Look for all the matching instances of each symbol in NAMES. Only
2944 instances from PSPACE are considered; other program spaces are
2945 handled by our caller. If PSPACE is NULL, then all program spaces
2946 are considered. Results are stored into INFO. */
2949 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2950 struct program_space
*pspace
,
2951 VEC (const_char_ptr
) *names
)
2956 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2957 add_matching_symbols_to_info (iter
, info
, pspace
);
2961 find_superclass_methods (VEC (typep
) *superclasses
,
2963 VEC (const_char_ptr
) **result_names
)
2965 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2966 VEC (typep
) *iter_classes
;
2967 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2969 iter_classes
= superclasses
;
2972 VEC (typep
) *new_supers
= NULL
;
2976 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2977 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2978 find_methods (t
, name
, result_names
, &new_supers
);
2980 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2981 || VEC_empty (typep
, new_supers
))
2984 iter_classes
= new_supers
;
2987 do_cleanups (cleanup
);
2990 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2991 given by one of the symbols in SYM_CLASSES. Matches are returned
2992 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2995 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2996 const char *class_name
, const char *method_name
,
2997 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2998 VEC (bound_minimal_symbol_d
) **minsyms
)
3001 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
3003 int last_result_len
;
3004 VEC (typep
) *superclass_vec
;
3005 VEC (const_char_ptr
) *result_names
;
3006 struct collect_info info
;
3008 /* Sort symbols so that symbols with the same program space are next
3010 qsort (VEC_address (symbolp
, sym_classes
),
3011 VEC_length (symbolp
, sym_classes
),
3016 info
.file_symtabs
= file_symtabs
;
3017 info
.result
.symbols
= NULL
;
3018 info
.result
.minimal_symbols
= NULL
;
3020 /* Iterate over all the types, looking for the names of existing
3021 methods matching METHOD_NAME. If we cannot find a direct method in a
3022 given program space, then we consider inherited methods; this is
3023 not ideal (ideal would be to respect C++ hiding rules), but it
3024 seems good enough and is what GDB has historically done. We only
3025 need to collect the names because later we find all symbols with
3026 those names. This loop is written in a somewhat funny way
3027 because we collect data across the program space before deciding
3029 superclass_vec
= NULL
;
3030 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
3031 result_names
= NULL
;
3032 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
3033 last_result_len
= 0;
3034 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
3037 struct program_space
*pspace
;
3039 /* Program spaces that are executing startup should have
3040 been filtered out earlier. */
3041 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
3042 gdb_assert (!pspace
->executing_startup
);
3043 set_current_program_space (pspace
);
3044 t
= check_typedef (SYMBOL_TYPE (sym
));
3045 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
3047 /* Handle all items from a single program space at once; and be
3048 sure not to miss the last batch. */
3049 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
3051 != SYMTAB_PSPACE (symbol_symtab (VEC_index (symbolp
, sym_classes
,
3054 /* If we did not find a direct implementation anywhere in
3055 this program space, consider superclasses. */
3056 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
3057 find_superclass_methods (superclass_vec
, method_name
,
3060 /* We have a list of candidate symbol names, so now we
3061 iterate over the symbol tables looking for all
3062 matches in this pspace. */
3063 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
3065 VEC_truncate (typep
, superclass_vec
, 0);
3066 last_result_len
= VEC_length (const_char_ptr
, result_names
);
3070 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3071 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3073 *symbols
= info
.result
.symbols
;
3074 *minsyms
= info
.result
.minimal_symbols
;
3075 do_cleanups (cleanup
);
3079 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
3080 and other attempts to locate the symbol will be made. */
3081 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
3086 /* This object is used when collecting all matching symtabs. */
3088 struct symtab_collector
3090 /* The result vector of symtabs. */
3091 VEC (symtab_ptr
) *symtabs
;
3093 /* This is used to ensure the symtabs are unique. */
3094 htab_t symtab_table
;
3097 /* Callback for iterate_over_symtabs. */
3100 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
3102 struct symtab_collector
*data
= d
;
3105 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
3109 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
3115 /* Given a file name, return a VEC of all matching symtabs. */
3117 static VEC (symtab_ptr
) *
3118 collect_symtabs_from_filename (const char *file
)
3120 struct symtab_collector collector
;
3121 struct cleanup
*cleanups
;
3122 struct program_space
*pspace
;
3124 collector
.symtabs
= NULL
;
3125 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3127 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
3129 /* Find that file's data. */
3130 ALL_PSPACES (pspace
)
3132 if (pspace
->executing_startup
)
3135 set_current_program_space (pspace
);
3136 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3139 do_cleanups (cleanups
);
3140 return collector
.symtabs
;
3143 /* Return all the symtabs associated to the FILENAME. */
3145 static VEC (symtab_ptr
) *
3146 symtabs_from_filename (const char *filename
)
3148 VEC (symtab_ptr
) *result
;
3150 result
= collect_symtabs_from_filename (filename
);
3152 if (VEC_empty (symtab_ptr
, result
))
3154 if (!have_full_symbols () && !have_partial_symbols ())
3155 throw_error (NOT_FOUND_ERROR
,
3156 _("No symbol table is loaded. "
3157 "Use the \"file\" command."));
3158 source_file_not_found_error (filename
);
3164 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3165 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3166 returned in MINSYMS. */
3169 find_function_symbols (struct linespec_state
*state
,
3170 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3171 VEC (symbolp
) **symbols
,
3172 VEC (bound_minimal_symbol_d
) **minsyms
)
3174 struct collect_info info
;
3175 VEC (const_char_ptr
) *symbol_names
= NULL
;
3176 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3180 info
.result
.symbols
= NULL
;
3181 info
.result
.minimal_symbols
= NULL
;
3182 info
.file_symtabs
= file_symtabs
;
3184 /* Try NAME as an Objective-C selector. */
3185 find_imps (name
, &symbol_names
);
3186 if (!VEC_empty (const_char_ptr
, symbol_names
))
3187 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3189 add_matching_symbols_to_info (name
, &info
, NULL
);
3191 do_cleanups (cleanup
);
3193 if (VEC_empty (symbolp
, info
.result
.symbols
))
3195 VEC_free (symbolp
, info
.result
.symbols
);
3199 *symbols
= info
.result
.symbols
;
3201 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3203 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3207 *minsyms
= info
.result
.minimal_symbols
;
3210 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3211 in SYMBOLS and minimal symbols in MINSYMS. */
3214 find_linespec_symbols (struct linespec_state
*state
,
3215 VEC (symtab_ptr
) *file_symtabs
,
3217 VEC (symbolp
) **symbols
,
3218 VEC (bound_minimal_symbol_d
) **minsyms
)
3220 struct cleanup
*cleanup
;
3222 const char *lookup_name
;
3224 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3226 if (state
->language
->la_language
== language_ada
)
3228 /* In Ada, the symbol lookups are performed using the encoded
3229 name rather than the demangled name. */
3230 lookup_name
= ada_name_for_lookup (name
);
3231 make_cleanup (xfree
, (void *) lookup_name
);
3234 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3237 lookup_name
= canon
;
3238 make_cleanup (xfree
, canon
);
3241 /* It's important to not call expand_symtabs_matching unnecessarily
3242 as it can really slow things down (by unnecessarily expanding
3243 potentially 1000s of symtabs, which when debugging some apps can
3244 cost 100s of seconds). Avoid this to some extent by *first* calling
3245 find_function_symbols, and only if that doesn't find anything
3246 *then* call find_method. This handles two important cases:
3247 1) break (anonymous namespace)::foo
3248 2) break class::method where method is in class (and not a baseclass) */
3250 find_function_symbols (state
, file_symtabs
, lookup_name
,
3253 /* If we were unable to locate a symbol of the same name, try dividing
3254 the name into class and method names and searching the class and its
3256 if (VEC_empty (symbolp
, *symbols
)
3257 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3259 char *klass
, *method
;
3260 const char *last
, *p
, *scope_op
;
3261 VEC (symbolp
) *classes
;
3263 /* See if we can find a scope operator and break this symbol
3264 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3266 p
= find_toplevel_string (lookup_name
, scope_op
);
3269 /* No C++ scope operator. Try Java. */
3271 p
= find_toplevel_string (lookup_name
, scope_op
);
3278 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3281 /* If no scope operator was found, there is nothing more we can do;
3282 we already attempted to lookup the entire name as a symbol
3286 do_cleanups (cleanup
);
3290 /* LOOKUP_NAME points to the class name.
3291 LAST points to the method name. */
3292 klass
= XNEWVEC (char, last
- lookup_name
+ 1);
3293 make_cleanup (xfree
, klass
);
3294 strncpy (klass
, lookup_name
, last
- lookup_name
);
3295 klass
[last
- lookup_name
] = '\0';
3297 /* Skip past the scope operator. */
3298 last
+= strlen (scope_op
);
3299 method
= XNEWVEC (char, strlen (last
) + 1);
3300 make_cleanup (xfree
, method
);
3301 strcpy (method
, last
);
3303 /* Find a list of classes named KLASS. */
3304 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3305 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3307 if (!VEC_empty (symbolp
, classes
))
3309 /* Now locate a list of suitable methods named METHOD. */
3312 find_method (state
, file_symtabs
, klass
, method
, classes
,
3316 /* If successful, we're done. If NOT_FOUND_ERROR
3317 was not thrown, rethrow the exception that we did get. */
3318 CATCH (except
, RETURN_MASK_ERROR
)
3320 if (except
.error
!= NOT_FOUND_ERROR
)
3321 throw_exception (except
);
3327 do_cleanups (cleanup
);
3330 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3331 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3333 static VEC (symbolp
) *
3334 find_label_symbols (struct linespec_state
*self
,
3335 VEC (symbolp
) *function_symbols
,
3336 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3339 const struct block
*block
;
3341 struct symbol
*fn_sym
;
3342 VEC (symbolp
) *result
= NULL
;
3344 if (function_symbols
== NULL
)
3346 set_current_program_space (self
->program_space
);
3347 block
= get_current_search_block ();
3350 block
&& !BLOCK_FUNCTION (block
);
3351 block
= BLOCK_SUPERBLOCK (block
))
3355 fn_sym
= BLOCK_FUNCTION (block
);
3357 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3361 VEC_safe_push (symbolp
, result
, sym
);
3362 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3368 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3370 set_current_program_space (SYMTAB_PSPACE (symbol_symtab (fn_sym
)));
3371 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3372 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3376 VEC_safe_push (symbolp
, result
, sym
);
3377 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3387 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3390 decode_digits_list_mode (struct linespec_state
*self
,
3392 struct symtabs_and_lines
*values
,
3393 struct symtab_and_line val
)
3398 gdb_assert (self
->list_mode
);
3400 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3403 /* The logic above should ensure this. */
3404 gdb_assert (elt
!= NULL
);
3406 set_current_program_space (SYMTAB_PSPACE (elt
));
3408 /* Simplistic search just for the list command. */
3409 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3410 if (val
.symtab
== NULL
)
3412 val
.pspace
= SYMTAB_PSPACE (elt
);
3414 val
.explicit_line
= 1;
3416 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3420 /* A helper for create_sals_line_offset that iterates over the symtabs,
3421 adding lines to the VEC. */
3424 decode_digits_ordinary (struct linespec_state
*self
,
3427 struct symtabs_and_lines
*sals
,
3428 struct linetable_entry
**best_entry
)
3433 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3436 VEC (CORE_ADDR
) *pcs
;
3439 /* The logic above should ensure this. */
3440 gdb_assert (elt
!= NULL
);
3442 set_current_program_space (SYMTAB_PSPACE (elt
));
3444 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3445 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3447 struct symtab_and_line sal
;
3450 sal
.pspace
= SYMTAB_PSPACE (elt
);
3454 add_sal_to_sals_basic (sals
, &sal
);
3457 VEC_free (CORE_ADDR
, pcs
);
3463 /* Return the line offset represented by VARIABLE. */
3465 static struct line_offset
3466 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3470 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3472 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3475 while (*p
>= '0' && *p
<= '9')
3477 if (!*p
) /* Reached end of token without hitting non-digit. */
3479 /* We have a value history reference. */
3480 struct value
*val_history
;
3482 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3484 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3485 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3486 error (_("History values used in line "
3487 "specs must have integer values."));
3488 offset
.offset
= value_as_long (val_history
);
3492 /* Not all digits -- may be user variable/function or a
3493 convenience variable. */
3495 struct internalvar
*ivar
;
3497 /* Try it as a convenience variable. If it is not a convenience
3498 variable, return and allow normal symbol lookup to occur. */
3499 ivar
= lookup_only_internalvar (variable
+ 1);
3501 /* No internal variable with that name. Mark the offset
3502 as unknown to allow the name to be looked up as a symbol. */
3503 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3506 /* We found a valid variable name. If it is not an integer,
3508 if (!get_internalvar_integer (ivar
, &valx
))
3509 error (_("Convenience variables used in line "
3510 "specs must have integer values."));
3512 offset
.offset
= valx
;
3520 /* A callback used to possibly add a symbol to the results. */
3523 collect_symbols (struct symbol
*sym
, void *data
)
3525 struct collect_info
*info
= data
;
3527 /* In list mode, add all matching symbols, regardless of class.
3528 This allows the user to type "list a_global_variable". */
3529 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3530 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3531 return 1; /* Continue iterating. */
3534 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3535 linespec; return the SAL in RESULT. This function should return SALs
3536 matching those from find_function_start_sal, otherwise false
3537 multiple-locations breakpoints could be placed. */
3540 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3541 struct minimal_symbol
*msymbol
,
3542 struct symtabs_and_lines
*result
)
3544 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3546 struct symtab_and_line sal
;
3548 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
),
3549 (struct obj_section
*) 0, 0);
3550 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
3552 /* The minimal symbol might point to a function descriptor;
3553 resolve it to the actual code address instead. */
3554 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3556 sal
= find_pc_sect_line (pc
, NULL
, 0);
3558 if (self
->funfirstline
)
3560 if (sal
.symtab
!= NULL
3561 && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal
.symtab
))
3562 || SYMTAB_LANGUAGE (sal
.symtab
) == language_asm
))
3564 /* If gdbarch_convert_from_func_ptr_addr does not apply then
3565 sal.SECTION, sal.LINE&co. will stay correct from above.
3566 If gdbarch_convert_from_func_ptr_addr applies then
3567 sal.SECTION is cleared from above and sal.LINE&co. will
3568 stay correct from the last find_pc_sect_line above. */
3569 sal
.pc
= MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
);
3570 sal
.pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
,
3572 if (gdbarch_skip_entrypoint_p (gdbarch
))
3573 sal
.pc
= gdbarch_skip_entrypoint (gdbarch
, sal
.pc
);
3576 skip_prologue_sal (&sal
);
3579 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3580 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
3583 /* A helper struct to pass some data through
3584 iterate_over_minimal_symbols. */
3586 struct collect_minsyms
3588 /* The objfile we're examining. */
3589 struct objfile
*objfile
;
3591 /* Only search the given symtab, or NULL to search for all symbols. */
3592 struct symtab
*symtab
;
3594 /* The funfirstline setting from the initial call. */
3597 /* The list_mode setting from the initial call. */
3600 /* The resulting symbols. */
3601 VEC (bound_minimal_symbol_d
) *msyms
;
3604 /* A helper function to classify a minimal_symbol_type according to
3608 classify_mtype (enum minimal_symbol_type t
)
3615 /* Intermediate priority. */
3618 case mst_solib_trampoline
:
3619 /* Lowest priority. */
3623 /* Highest priority. */
3628 /* Callback for qsort that sorts symbols by priority. */
3631 compare_msyms (const void *a
, const void *b
)
3633 const bound_minimal_symbol_d
*moa
= a
;
3634 const bound_minimal_symbol_d
*mob
= b
;
3635 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3636 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3638 return classify_mtype (ta
) - classify_mtype (tb
);
3641 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3645 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3647 struct collect_minsyms
*info
= d
;
3648 bound_minimal_symbol_d mo
;
3651 mo
.objfile
= info
->objfile
;
3653 if (info
->symtab
!= NULL
)
3656 struct symtab_and_line sal
;
3657 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3659 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (info
->objfile
, minsym
),
3661 sal
.section
= MSYMBOL_OBJ_SECTION (info
->objfile
, minsym
);
3663 = gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3665 sal
= find_pc_sect_line (pc
, NULL
, 0);
3667 if (info
->symtab
!= sal
.symtab
)
3671 /* Exclude data symbols when looking for breakpoint locations. */
3672 if (!info
->list_mode
)
3673 switch (minsym
->type
)
3675 case mst_slot_got_plt
:
3682 /* Make sure this minsym is not a function descriptor
3683 before we decide to discard it. */
3684 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3685 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3686 (gdbarch
, BMSYMBOL_VALUE_ADDRESS (mo
),
3689 if (addr
== BMSYMBOL_VALUE_ADDRESS (mo
))
3694 VEC_safe_push (bound_minimal_symbol_d
, info
->msyms
, &mo
);
3697 /* Search for minimal symbols called NAME. If SEARCH_PSPACE
3698 is not NULL, the search is restricted to just that program
3701 If SYMTAB is NULL, search all objfiles, otherwise
3702 restrict results to the given SYMTAB. */
3705 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3706 struct program_space
*search_pspace
,
3707 struct symtab
*symtab
)
3709 struct collect_minsyms local
;
3710 struct cleanup
*cleanup
;
3712 memset (&local
, 0, sizeof (local
));
3713 local
.funfirstline
= info
->state
->funfirstline
;
3714 local
.list_mode
= info
->state
->list_mode
;
3715 local
.symtab
= symtab
;
3717 cleanup
= make_cleanup (VEC_cleanup (bound_minimal_symbol_d
), &local
.msyms
);
3721 struct program_space
*pspace
;
3723 ALL_PSPACES (pspace
)
3725 struct objfile
*objfile
;
3727 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3729 if (pspace
->executing_startup
)
3732 set_current_program_space (pspace
);
3734 ALL_OBJFILES (objfile
)
3736 local
.objfile
= objfile
;
3737 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3743 if (search_pspace
== NULL
|| SYMTAB_PSPACE (symtab
) == search_pspace
)
3745 set_current_program_space (SYMTAB_PSPACE (symtab
));
3746 local
.objfile
= SYMTAB_OBJFILE(symtab
);
3747 iterate_over_minimal_symbols (local
.objfile
, name
, add_minsym
,
3752 if (!VEC_empty (bound_minimal_symbol_d
, local
.msyms
))
3756 bound_minimal_symbol_d
*item
;
3758 qsort (VEC_address (bound_minimal_symbol_d
, local
.msyms
),
3759 VEC_length (bound_minimal_symbol_d
, local
.msyms
),
3760 sizeof (bound_minimal_symbol_d
),
3763 /* Now the minsyms are in classification order. So, we walk
3764 over them and process just the minsyms with the same
3765 classification as the very first minsym in the list. */
3766 item
= VEC_index (bound_minimal_symbol_d
, local
.msyms
, 0);
3767 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3770 VEC_iterate (bound_minimal_symbol_d
, local
.msyms
, ix
, item
);
3773 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3776 VEC_safe_push (bound_minimal_symbol_d
,
3777 info
->result
.minimal_symbols
, item
);
3781 do_cleanups (cleanup
);
3784 /* A helper function to add all symbols matching NAME to INFO. If
3785 PSPACE is not NULL, the search is restricted to just that program
3789 add_matching_symbols_to_info (const char *name
,
3790 struct collect_info
*info
,
3791 struct program_space
*pspace
)
3796 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3800 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3801 collect_symbols
, info
,
3803 search_minsyms_for_name (info
, name
, pspace
, NULL
);
3805 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3807 int prev_len
= VEC_length (symbolp
, info
->result
.symbols
);
3809 /* Program spaces that are executing startup should have
3810 been filtered out earlier. */
3811 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3812 set_current_program_space (SYMTAB_PSPACE (elt
));
3813 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3814 collect_symbols
, info
);
3816 /* If no new symbols were found in this iteration and this symtab
3817 is in assembler, we might actually be looking for a label for
3818 which we don't have debug info. Check for a minimal symbol in
3820 if (prev_len
== VEC_length (symbolp
, info
->result
.symbols
)
3821 && elt
->language
== language_asm
)
3822 search_minsyms_for_name (info
, name
, pspace
, elt
);
3829 /* Now come some functions that are called from multiple places within
3833 symbol_to_sal (struct symtab_and_line
*result
,
3834 int funfirstline
, struct symbol
*sym
)
3836 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3838 *result
= find_function_start_sal (sym
, funfirstline
);
3843 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3846 result
->symtab
= symbol_symtab (sym
);
3847 result
->line
= SYMBOL_LINE (sym
);
3848 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3849 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3850 result
->explicit_pc
= 1;
3853 else if (funfirstline
)
3857 else if (SYMBOL_LINE (sym
) != 0)
3859 /* We know its line number. */
3861 result
->symtab
= symbol_symtab (sym
);
3862 result
->line
= SYMBOL_LINE (sym
);
3863 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3871 /* See the comment in linespec.h. */
3874 init_linespec_result (struct linespec_result
*lr
)
3876 memset (lr
, 0, sizeof (*lr
));
3879 /* See the comment in linespec.h. */
3882 destroy_linespec_result (struct linespec_result
*ls
)
3885 struct linespec_sals
*lsal
;
3887 delete_event_location (ls
->location
);
3888 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3890 xfree (lsal
->canonical
);
3891 xfree (lsal
->sals
.sals
);
3893 VEC_free (linespec_sals
, ls
->sals
);
3896 /* Cleanup function for a linespec_result. */
3899 cleanup_linespec_result (void *a
)
3901 destroy_linespec_result (a
);
3904 /* See the comment in linespec.h. */
3907 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3909 return make_cleanup (cleanup_linespec_result
, ls
);
3912 /* Return the quote characters permitted by the linespec parser. */
3915 get_gdb_linespec_parser_quote_characters (void)
3917 return linespec_quote_characters
;