1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2018 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"
47 #include "common/function-view.h"
48 #include "common/def-vector.h"
51 /* An enumeration of the various things a user might attempt to
52 complete for a linespec location. */
54 enum class linespec_complete_what
56 /* Nothing, no possible completion. */
59 /* A function/method name. Due to ambiguity between
65 this can also indicate a source filename, iff we haven't seen a
66 separate source filename component, as in "b source.c:function". */
69 /* A label symbol. E.g., break file.c:function:LABEL. */
72 /* An expression. E.g., "break foo if EXPR", or "break *EXPR". */
75 /* A linespec keyword ("if"/"thread"/"task").
76 E.g., "break func threa<tab>". */
80 typedef struct symbol
*symbolp
;
83 typedef struct type
*typep
;
86 /* An address entry is used to ensure that any given location is only
87 added to the result a single time. It holds an address and the
88 program space from which the address came. */
92 struct program_space
*pspace
;
96 typedef struct bound_minimal_symbol bound_minimal_symbol_d
;
98 DEF_VEC_O (bound_minimal_symbol_d
);
100 /* A linespec. Elements of this structure are filled in by a parser
101 (either parse_linespec or some other function). The structure is
102 then converted into SALs by convert_linespec_to_sals. */
106 /* An explicit location describing the SaLs. */
107 struct explicit_location explicit_loc
;
109 /* The list of symtabs to search to which to limit the search. May not
110 be NULL. If explicit.SOURCE_FILENAME is NULL (no user-specified
111 filename), FILE_SYMTABS should contain one single NULL member. This
112 will cause the code to use the default symtab. */
113 VEC (symtab_ptr
) *file_symtabs
;
115 /* A list of matching function symbols and minimal symbols. Both lists
116 may be NULL if no matching symbols were found. */
117 VEC (symbolp
) *function_symbols
;
118 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
120 /* A structure of matching label symbols and the corresponding
121 function symbol in which the label was found. Both may be NULL
122 or both must be non-NULL. */
125 VEC (symbolp
) *label_symbols
;
126 VEC (symbolp
) *function_symbols
;
129 typedef struct linespec
*linespec_p
;
131 /* A canonical linespec represented as a symtab-related string.
133 Each entry represents the "SYMTAB:SUFFIX" linespec string.
134 SYMTAB can be converted for example by symtab_to_fullname or
135 symtab_to_filename_for_display as needed. */
137 struct linespec_canonical_name
139 /* Remaining text part of the linespec string. */
142 /* If NULL then SUFFIX is the whole linespec string. */
143 struct symtab
*symtab
;
146 /* An instance of this is used to keep all state while linespec
147 operates. This instance is passed around as a 'this' pointer to
148 the various implementation methods. */
150 struct linespec_state
152 /* The language in use during linespec processing. */
153 const struct language_defn
*language
;
155 /* The program space as seen when the module was entered. */
156 struct program_space
*program_space
;
158 /* If not NULL, the search is restricted to just this program
160 struct program_space
*search_pspace
;
162 /* The default symtab to use, if no other symtab is specified. */
163 struct symtab
*default_symtab
;
165 /* The default line to use. */
168 /* The 'funfirstline' value that was passed in to decode_line_1 or
172 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
175 /* The 'canonical' value passed to decode_line_full, or NULL. */
176 struct linespec_result
*canonical
;
178 /* Canonical strings that mirror the std::vector<symtab_and_line> result. */
179 struct linespec_canonical_name
*canonical_names
;
181 /* This is a set of address_entry objects which is used to prevent
182 duplicate symbols from being entered into the result. */
185 /* Are we building a linespec? */
189 /* This is a helper object that is used when collecting symbols into a
194 /* The linespec object in use. */
195 struct linespec_state
*state
;
197 /* A list of symtabs to which to restrict matches. */
198 VEC (symtab_ptr
) *file_symtabs
;
200 /* The result being accumulated. */
203 VEC (symbolp
) *symbols
;
204 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
207 /* Possibly add a symbol to the results. */
208 bool add_symbol (symbol
*sym
);
212 collect_info::add_symbol (symbol
*sym
)
214 /* In list mode, add all matching symbols, regardless of class.
215 This allows the user to type "list a_global_variable". */
216 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| this->state
->list_mode
)
217 VEC_safe_push (symbolp
, this->result
.symbols
, sym
);
219 /* Continue iterating. */
230 /* A colon "separator" */
242 /* EOI (end of input) */
248 typedef enum ls_token_type linespec_token_type
;
250 /* List of keywords. This is NULL-terminated so that it can be used
251 as enum completer. */
252 const char * const linespec_keywords
[] = { "if", "thread", "task", NULL
};
253 #define IF_KEYWORD_INDEX 0
255 /* A token of the linespec lexer */
259 /* The type of the token */
260 linespec_token_type type
;
262 /* Data for the token */
265 /* A string, given as a stoken */
266 struct stoken string
;
272 typedef struct ls_token linespec_token
;
274 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
275 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
277 /* An instance of the linespec parser. */
281 /* Lexer internal data */
284 /* Save head of input stream. */
285 const char *saved_arg
;
287 /* Head of the input stream. */
289 #define PARSER_STREAM(P) ((P)->lexer.stream)
291 /* The current token. */
292 linespec_token current
;
295 /* Is the entire linespec quote-enclosed? */
296 int is_quote_enclosed
;
298 /* The state of the parse. */
299 struct linespec_state state
;
300 #define PARSER_STATE(PPTR) (&(PPTR)->state)
302 /* The result of the parse. */
303 struct linespec result
;
304 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
306 /* What the parser believes the current word point should complete
308 linespec_complete_what complete_what
;
310 /* The completion word point. The parser advances this as it skips
311 tokens. At some point the input string will end or parsing will
312 fail, and then we attempt completion at the captured completion
313 word point, interpreting the string at completion_word as
315 const char *completion_word
;
317 /* If the current token was a quoted string, then this is the
318 quoting character (either " or '). */
319 int completion_quote_char
;
321 /* If the current token was a quoted string, then this points at the
322 end of the quoted string. */
323 const char *completion_quote_end
;
325 /* If parsing for completion, then this points at the completion
326 tracker. Otherwise, this is NULL. */
327 struct completion_tracker
*completion_tracker
;
329 typedef struct ls_parser linespec_parser
;
331 /* A convenience macro for accessing the explicit location result of
333 #define PARSER_EXPLICIT(PPTR) (&PARSER_RESULT ((PPTR))->explicit_loc)
335 /* Prototypes for local functions. */
337 static void iterate_over_file_blocks
338 (struct symtab
*symtab
, const lookup_name_info
&name
,
340 gdb::function_view
<symbol_found_callback_ftype
> callback
);
342 static void initialize_defaults (struct symtab
**default_symtab
,
345 CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
347 static std::vector
<symtab_and_line
> decode_objc (struct linespec_state
*self
,
351 static VEC (symtab_ptr
) *symtabs_from_filename (const char *,
352 struct program_space
*pspace
);
354 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
355 VEC (symbolp
) *function_symbols
,
356 VEC (symbolp
) **label_funcs_ret
,
358 bool completion_mode
= false);
360 static void find_linespec_symbols (struct linespec_state
*self
,
361 VEC (symtab_ptr
) *file_symtabs
,
363 symbol_name_match_type name_match_type
,
364 VEC (symbolp
) **symbols
,
365 VEC (bound_minimal_symbol_d
) **minsyms
);
367 static struct line_offset
368 linespec_parse_variable (struct linespec_state
*self
,
369 const char *variable
);
371 static int symbol_to_sal (struct symtab_and_line
*result
,
372 int funfirstline
, struct symbol
*sym
);
374 static void add_matching_symbols_to_info (const char *name
,
375 symbol_name_match_type name_match_type
,
376 enum search_domain search_domain
,
377 struct collect_info
*info
,
378 struct program_space
*pspace
);
380 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
381 struct program_space
*pspace
,
382 VEC (const_char_ptr
) *names
,
383 enum search_domain search_domain
);
385 static VEC (symtab_ptr
) *
386 collect_symtabs_from_filename (const char *file
,
387 struct program_space
*pspace
);
389 static std::vector
<symtab_and_line
> decode_digits_ordinary
390 (struct linespec_state
*self
,
393 linetable_entry
**best_entry
);
395 static std::vector
<symtab_and_line
> decode_digits_list_mode
396 (struct linespec_state
*self
,
398 struct symtab_and_line val
);
400 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
401 struct minimal_symbol
*msymbol
,
402 std::vector
<symtab_and_line
> *result
);
404 static int compare_symbols (const void *a
, const void *b
);
406 static int compare_msymbols (const void *a
, const void *b
);
408 /* Permitted quote characters for the parser. This is different from the
409 completer's quote characters to allow backward compatibility with the
411 static const char *const linespec_quote_characters
= "\"\'";
413 /* Lexer functions. */
415 /* Lex a number from the input in PARSER. This only supports
418 Return true if input is decimal numbers. Return false if not. */
421 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
423 tokenp
->type
= LSTOKEN_NUMBER
;
424 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
425 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
427 /* Keep any sign at the start of the stream. */
428 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
430 ++LS_TOKEN_STOKEN (*tokenp
).length
;
431 ++(PARSER_STREAM (parser
));
434 while (isdigit (*PARSER_STREAM (parser
)))
436 ++LS_TOKEN_STOKEN (*tokenp
).length
;
437 ++(PARSER_STREAM (parser
));
440 /* If the next character in the input buffer is not a space, comma,
441 quote, or colon, this input does not represent a number. */
442 if (*PARSER_STREAM (parser
) != '\0'
443 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
444 && *PARSER_STREAM (parser
) != ':'
445 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
447 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
454 /* See linespec.h. */
457 linespec_lexer_lex_keyword (const char *p
)
463 for (i
= 0; linespec_keywords
[i
] != NULL
; ++i
)
465 int len
= strlen (linespec_keywords
[i
]);
467 /* If P begins with one of the keywords and the next
468 character is whitespace, we may have found a keyword.
469 It is only a keyword if it is not followed by another
471 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
476 /* Special case: "if" ALWAYS stops the lexer, since it
477 is not possible to predict what is going to appear in
478 the condition, which can only be parsed after SaLs have
480 if (i
!= IF_KEYWORD_INDEX
)
484 for (j
= 0; linespec_keywords
[j
] != NULL
; ++j
)
486 int nextlen
= strlen (linespec_keywords
[j
]);
488 if (strncmp (p
, linespec_keywords
[j
], nextlen
) == 0
489 && isspace (p
[nextlen
]))
494 return linespec_keywords
[i
];
502 /* See description in linespec.h. */
505 is_ada_operator (const char *string
)
507 const struct ada_opname_map
*mapping
;
509 for (mapping
= ada_opname_table
;
510 mapping
->encoded
!= NULL
511 && !startswith (string
, mapping
->decoded
); ++mapping
)
514 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
517 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
518 the location of QUOTE_CHAR, or NULL if not found. */
521 skip_quote_char (const char *string
, char quote_char
)
523 const char *p
, *last
;
525 p
= last
= find_toplevel_char (string
, quote_char
);
526 while (p
&& *p
!= '\0' && *p
!= ':')
528 p
= find_toplevel_char (p
, quote_char
);
536 /* Make a writable copy of the string given in TOKEN, trimming
537 any trailing whitespace. */
539 static gdb::unique_xmalloc_ptr
<char>
540 copy_token_string (linespec_token token
)
544 if (token
.type
== LSTOKEN_KEYWORD
)
545 return gdb::unique_xmalloc_ptr
<char> (xstrdup (LS_TOKEN_KEYWORD (token
)));
547 str
= LS_TOKEN_STOKEN (token
).ptr
;
548 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
550 return gdb::unique_xmalloc_ptr
<char> (savestring (str
, s
- str
));
553 /* Does P represent the end of a quote-enclosed linespec? */
556 is_closing_quote_enclosed (const char *p
)
558 if (strchr (linespec_quote_characters
, *p
))
560 p
= skip_spaces ((char *) p
);
561 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
564 /* Find the end of the parameter list that starts with *INPUT.
565 This helper function assists with lexing string segments
566 which might contain valid (non-terminating) commas. */
569 find_parameter_list_end (const char *input
)
571 char end_char
, start_char
;
576 if (start_char
== '(')
578 else if (start_char
== '<')
587 if (*p
== start_char
)
589 else if (*p
== end_char
)
603 /* If the [STRING, STRING_LEN) string ends with what looks like a
604 keyword, return the keyword start offset in STRING. Return -1
608 string_find_incomplete_keyword_at_end (const char * const *keywords
,
609 const char *string
, size_t string_len
)
611 const char *end
= string
+ string_len
;
614 while (p
> string
&& *p
!= ' ')
619 size_t len
= end
- p
;
620 for (size_t i
= 0; keywords
[i
] != NULL
; ++i
)
621 if (strncmp (keywords
[i
], p
, len
) == 0)
628 /* Lex a string from the input in PARSER. */
630 static linespec_token
631 linespec_lexer_lex_string (linespec_parser
*parser
)
633 linespec_token token
;
634 const char *start
= PARSER_STREAM (parser
);
636 token
.type
= LSTOKEN_STRING
;
638 /* If the input stream starts with a quote character, skip to the next
639 quote character, regardless of the content. */
640 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
643 char quote_char
= *PARSER_STREAM (parser
);
645 /* Special case: Ada operators. */
646 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
647 && quote_char
== '\"')
649 int len
= is_ada_operator (PARSER_STREAM (parser
));
653 /* The input is an Ada operator. Return the quoted string
655 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
656 LS_TOKEN_STOKEN (token
).length
= len
;
657 PARSER_STREAM (parser
) += len
;
661 /* The input does not represent an Ada operator -- fall through
662 to normal quoted string handling. */
665 /* Skip past the beginning quote. */
666 ++(PARSER_STREAM (parser
));
668 /* Mark the start of the string. */
669 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
671 /* Skip to the ending quote. */
672 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
674 /* This helps the completer mode decide whether we have a
676 parser
->completion_quote_char
= quote_char
;
677 parser
->completion_quote_end
= end
;
679 /* Error if the input did not terminate properly, unless in
683 if (parser
->completion_tracker
== NULL
)
684 error (_("unmatched quote"));
686 /* In completion mode, we'll try to complete the incomplete
688 token
.type
= LSTOKEN_STRING
;
689 while (*PARSER_STREAM (parser
) != '\0')
690 PARSER_STREAM (parser
)++;
691 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 1 - start
;
695 /* Skip over the ending quote and mark the length of the string. */
696 PARSER_STREAM (parser
) = (char *) ++end
;
697 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
704 /* Otherwise, only identifier characters are permitted.
705 Spaces are the exception. In general, we keep spaces,
706 but only if the next characters in the input do not resolve
707 to one of the keywords.
709 This allows users to forgo quoting CV-qualifiers, template arguments,
710 and similar common language constructs. */
714 if (isspace (*PARSER_STREAM (parser
)))
716 p
= skip_spaces (PARSER_STREAM (parser
));
717 /* When we get here we know we've found something followed by
718 a space (we skip over parens and templates below).
719 So if we find a keyword now, we know it is a keyword and not,
720 say, a function name. */
721 if (linespec_lexer_lex_keyword (p
) != NULL
)
723 LS_TOKEN_STOKEN (token
).ptr
= start
;
724 LS_TOKEN_STOKEN (token
).length
725 = PARSER_STREAM (parser
) - start
;
729 /* Advance past the whitespace. */
730 PARSER_STREAM (parser
) = p
;
733 /* If the next character is EOI or (single) ':', the
734 string is complete; return the token. */
735 if (*PARSER_STREAM (parser
) == 0)
737 LS_TOKEN_STOKEN (token
).ptr
= start
;
738 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
741 else if (PARSER_STREAM (parser
)[0] == ':')
743 /* Do not tokenize the C++ scope operator. */
744 if (PARSER_STREAM (parser
)[1] == ':')
745 ++(PARSER_STREAM (parser
));
747 /* Do not tokenize ABI tags such as "[abi:cxx11]". */
748 else if (PARSER_STREAM (parser
) - start
> 4
749 && startswith (PARSER_STREAM (parser
) - 4, "[abi"))
750 ++(PARSER_STREAM (parser
));
752 /* Do not tokenify if the input length so far is one
753 (i.e, a single-letter drive name) and the next character
754 is a directory separator. This allows Windows-style
755 paths to be recognized as filenames without quoting it. */
756 else if ((PARSER_STREAM (parser
) - start
) != 1
757 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
759 LS_TOKEN_STOKEN (token
).ptr
= start
;
760 LS_TOKEN_STOKEN (token
).length
761 = PARSER_STREAM (parser
) - start
;
765 /* Special case: permit quote-enclosed linespecs. */
766 else if (parser
->is_quote_enclosed
767 && strchr (linespec_quote_characters
,
768 *PARSER_STREAM (parser
))
769 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
771 LS_TOKEN_STOKEN (token
).ptr
= start
;
772 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
775 /* Because commas may terminate a linespec and appear in
776 the middle of valid string input, special cases for
777 '<' and '(' are necessary. */
778 else if (*PARSER_STREAM (parser
) == '<'
779 || *PARSER_STREAM (parser
) == '(')
781 /* Don't interpret 'operator<' / 'operator<<' as a
782 template parameter list though. */
783 if (*PARSER_STREAM (parser
) == '<'
784 && (PARSER_STATE (parser
)->language
->la_language
786 && (PARSER_STREAM (parser
) - start
) >= CP_OPERATOR_LEN
)
788 const char *p
= PARSER_STREAM (parser
);
790 while (p
> start
&& isspace (p
[-1]))
792 if (p
- start
>= CP_OPERATOR_LEN
)
794 p
-= CP_OPERATOR_LEN
;
795 if (strncmp (p
, CP_OPERATOR_STR
, CP_OPERATOR_LEN
) == 0
797 || !(isalnum (p
[-1]) || p
[-1] == '_')))
799 /* This is an operator name. Keep going. */
800 ++(PARSER_STREAM (parser
));
801 if (*PARSER_STREAM (parser
) == '<')
802 ++(PARSER_STREAM (parser
));
808 const char *p
= find_parameter_list_end (PARSER_STREAM (parser
));
809 PARSER_STREAM (parser
) = p
;
811 /* Don't loop around to the normal \0 case above because
812 we don't want to misinterpret a potential keyword at
813 the end of the token when the string isn't
814 "()<>"-balanced. This handles "b
815 function(thread<tab>" in completion mode. */
818 LS_TOKEN_STOKEN (token
).ptr
= start
;
819 LS_TOKEN_STOKEN (token
).length
820 = PARSER_STREAM (parser
) - start
;
826 /* Commas are terminators, but not if they are part of an
828 else if (*PARSER_STREAM (parser
) == ',')
830 if ((PARSER_STATE (parser
)->language
->la_language
832 && (PARSER_STREAM (parser
) - start
) > CP_OPERATOR_LEN
)
834 const char *p
= strstr (start
, CP_OPERATOR_STR
);
836 if (p
!= NULL
&& is_operator_name (p
))
838 /* This is an operator name. Keep going. */
839 ++(PARSER_STREAM (parser
));
844 /* Comma terminates the string. */
845 LS_TOKEN_STOKEN (token
).ptr
= start
;
846 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
850 /* Advance the stream. */
851 ++(PARSER_STREAM (parser
));
858 /* Lex a single linespec token from PARSER. */
860 static linespec_token
861 linespec_lexer_lex_one (linespec_parser
*parser
)
865 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
867 /* Skip any whitespace. */
868 PARSER_STREAM (parser
) = skip_spaces (PARSER_STREAM (parser
));
870 /* Check for a keyword, they end the linespec. */
871 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
874 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
875 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
876 /* We do not advance the stream here intentionally:
877 we would like lexing to stop when a keyword is seen.
879 PARSER_STREAM (parser) += strlen (keyword); */
881 return parser
->lexer
.current
;
884 /* Handle other tokens. */
885 switch (*PARSER_STREAM (parser
))
888 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
892 case '0': case '1': case '2': case '3': case '4':
893 case '5': case '6': case '7': case '8': case '9':
894 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
895 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
899 /* If we have a scope operator, lex the input as a string.
900 Otherwise, return LSTOKEN_COLON. */
901 if (PARSER_STREAM (parser
)[1] == ':')
902 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
905 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
906 ++(PARSER_STREAM (parser
));
910 case '\'': case '\"':
911 /* Special case: permit quote-enclosed linespecs. */
912 if (parser
->is_quote_enclosed
913 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
915 ++(PARSER_STREAM (parser
));
916 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
919 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
923 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
924 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
925 = PARSER_STREAM (parser
);
926 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
927 ++(PARSER_STREAM (parser
));
931 /* If the input is not a number, it must be a string.
932 [Keywords were already considered above.] */
933 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
938 return parser
->lexer
.current
;
941 /* Consume the current token and return the next token in PARSER's
942 input stream. Also advance the completion word for completion
945 static linespec_token
946 linespec_lexer_consume_token (linespec_parser
*parser
)
948 gdb_assert (parser
->lexer
.current
.type
!= LSTOKEN_EOI
);
950 bool advance_word
= (parser
->lexer
.current
.type
!= LSTOKEN_STRING
951 || *PARSER_STREAM (parser
) != '\0');
953 /* If we're moving past a string to some other token, it must be the
954 quote was terminated. */
955 if (parser
->completion_quote_char
)
957 gdb_assert (parser
->lexer
.current
.type
== LSTOKEN_STRING
);
959 /* If the string was the last (non-EOI) token, we're past the
960 quote, but remember that for later. */
961 if (*PARSER_STREAM (parser
) != '\0')
963 parser
->completion_quote_char
= '\0';
964 parser
->completion_quote_end
= NULL
;;
968 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
969 linespec_lexer_lex_one (parser
);
971 if (parser
->lexer
.current
.type
== LSTOKEN_STRING
)
973 /* Advance the completion word past a potential initial
975 parser
->completion_word
= LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
;
977 else if (advance_word
)
979 /* Advance the completion word past any whitespace. */
980 parser
->completion_word
= PARSER_STREAM (parser
);
983 return parser
->lexer
.current
;
986 /* Return the next token without consuming the current token. */
988 static linespec_token
989 linespec_lexer_peek_token (linespec_parser
*parser
)
992 const char *saved_stream
= PARSER_STREAM (parser
);
993 linespec_token saved_token
= parser
->lexer
.current
;
994 int saved_completion_quote_char
= parser
->completion_quote_char
;
995 const char *saved_completion_quote_end
= parser
->completion_quote_end
;
996 const char *saved_completion_word
= parser
->completion_word
;
998 next
= linespec_lexer_consume_token (parser
);
999 PARSER_STREAM (parser
) = saved_stream
;
1000 parser
->lexer
.current
= saved_token
;
1001 parser
->completion_quote_char
= saved_completion_quote_char
;
1002 parser
->completion_quote_end
= saved_completion_quote_end
;
1003 parser
->completion_word
= saved_completion_word
;
1007 /* Helper functions. */
1009 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
1010 the new sal, if needed. If not NULL, SYMNAME is the name of the
1011 symbol to use when constructing the new canonical name.
1013 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
1014 canonical name for the SAL. */
1017 add_sal_to_sals (struct linespec_state
*self
,
1018 std::vector
<symtab_and_line
> *sals
,
1019 struct symtab_and_line
*sal
,
1020 const char *symname
, int literal_canonical
)
1022 sals
->push_back (*sal
);
1024 if (self
->canonical
)
1026 struct linespec_canonical_name
*canonical
;
1028 self
->canonical_names
= XRESIZEVEC (struct linespec_canonical_name
,
1029 self
->canonical_names
,
1031 canonical
= &self
->canonical_names
[sals
->size () - 1];
1032 if (!literal_canonical
&& sal
->symtab
)
1034 symtab_to_fullname (sal
->symtab
);
1036 /* Note that the filter doesn't have to be a valid linespec
1037 input. We only apply the ":LINE" treatment to Ada for
1039 if (symname
!= NULL
&& sal
->line
!= 0
1040 && self
->language
->la_language
== language_ada
)
1041 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
1042 else if (symname
!= NULL
)
1043 canonical
->suffix
= xstrdup (symname
);
1045 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
1046 canonical
->symtab
= sal
->symtab
;
1050 if (symname
!= NULL
)
1051 canonical
->suffix
= xstrdup (symname
);
1053 canonical
->suffix
= xstrdup ("<unknown>");
1054 canonical
->symtab
= NULL
;
1059 /* A hash function for address_entry. */
1062 hash_address_entry (const void *p
)
1064 const struct address_entry
*aep
= (const struct address_entry
*) p
;
1067 hash
= iterative_hash_object (aep
->pspace
, 0);
1068 return iterative_hash_object (aep
->addr
, hash
);
1071 /* An equality function for address_entry. */
1074 eq_address_entry (const void *a
, const void *b
)
1076 const struct address_entry
*aea
= (const struct address_entry
*) a
;
1077 const struct address_entry
*aeb
= (const struct address_entry
*) b
;
1079 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
1082 /* Check whether the address, represented by PSPACE and ADDR, is
1083 already in the set. If so, return 0. Otherwise, add it and return
1087 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
1089 struct address_entry e
, *p
;
1094 slot
= htab_find_slot (set
, &e
, INSERT
);
1098 p
= XNEW (struct address_entry
);
1099 memcpy (p
, &e
, sizeof (struct address_entry
));
1105 /* A helper that walks over all matching symtabs in all objfiles and
1106 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
1107 not NULL, then the search is restricted to just that program
1108 space. If INCLUDE_INLINE is true then symbols representing
1109 inlined instances of functions will be included in the result. */
1112 iterate_over_all_matching_symtabs
1113 (struct linespec_state
*state
,
1114 const lookup_name_info
&lookup_name
,
1115 const domain_enum name_domain
,
1116 enum search_domain search_domain
,
1117 struct program_space
*search_pspace
, bool include_inline
,
1118 gdb::function_view
<symbol_found_callback_ftype
> callback
)
1120 struct objfile
*objfile
;
1121 struct program_space
*pspace
;
1123 ALL_PSPACES (pspace
)
1125 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
1127 if (pspace
->executing_startup
)
1130 set_current_program_space (pspace
);
1132 ALL_OBJFILES (objfile
)
1134 struct compunit_symtab
*cu
;
1137 objfile
->sf
->qf
->expand_symtabs_matching (objfile
,
1143 ALL_OBJFILE_COMPUNITS (objfile
, cu
)
1145 struct symtab
*symtab
= COMPUNIT_FILETABS (cu
);
1147 iterate_over_file_blocks (symtab
, lookup_name
, name_domain
, callback
);
1151 struct block
*block
;
1154 for (i
= FIRST_LOCAL_BLOCK
;
1155 i
< BLOCKVECTOR_NBLOCKS (SYMTAB_BLOCKVECTOR (symtab
));
1158 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), i
);
1159 state
->language
->la_iterate_over_symbols
1160 (block
, lookup_name
, name_domain
, [&] (symbol
*sym
)
1162 /* Restrict calls to CALLBACK to symbols
1163 representing inline symbols only. */
1164 if (SYMBOL_INLINED (sym
))
1165 return callback (sym
);
1175 /* Returns the block to be used for symbol searches from
1176 the current location. */
1178 static const struct block
*
1179 get_current_search_block (void)
1181 const struct block
*block
;
1182 enum language save_language
;
1184 /* get_selected_block can change the current language when there is
1185 no selected frame yet. */
1186 save_language
= current_language
->la_language
;
1187 block
= get_selected_block (0);
1188 set_language (save_language
);
1193 /* Iterate over static and global blocks. */
1196 iterate_over_file_blocks
1197 (struct symtab
*symtab
, const lookup_name_info
&name
,
1198 domain_enum domain
, gdb::function_view
<symbol_found_callback_ftype
> callback
)
1200 struct block
*block
;
1202 for (block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1204 block
= BLOCK_SUPERBLOCK (block
))
1205 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
);
1208 /* A helper for find_method. This finds all methods in type T of
1209 language T_LANG which match NAME. It adds matching symbol names to
1210 RESULT_NAMES, and adds T's direct superclasses to SUPERCLASSES. */
1213 find_methods (struct type
*t
, enum language t_lang
, const char *name
,
1214 VEC (const_char_ptr
) **result_names
,
1215 VEC (typep
) **superclasses
)
1218 const char *class_name
= type_name_no_tag (t
);
1220 /* Ignore this class if it doesn't have a name. This is ugly, but
1221 unless we figure out how to get the physname without the name of
1222 the class, then the loop can't do any good. */
1226 lookup_name_info
lookup_name (name
, symbol_name_match_type::FULL
);
1227 symbol_name_matcher_ftype
*symbol_name_compare
1228 = get_symbol_name_matcher (language_def (t_lang
), lookup_name
);
1230 t
= check_typedef (t
);
1232 /* Loop over each method name. At this level, all overloads of a name
1233 are counted as a single name. There is an inner loop which loops over
1236 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1237 method_counter
>= 0;
1240 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1241 char dem_opname
[64];
1243 if (startswith (method_name
, "__") ||
1244 startswith (method_name
, "op") ||
1245 startswith (method_name
, "type"))
1247 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1248 method_name
= dem_opname
;
1249 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1250 method_name
= dem_opname
;
1253 if (symbol_name_compare (method_name
, lookup_name
, NULL
))
1257 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1263 const char *phys_name
;
1265 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1266 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1268 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1269 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1275 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1276 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1279 /* Find an instance of the character C in the string S that is outside
1280 of all parenthesis pairs, single-quoted strings, and double-quoted
1281 strings. Also, ignore the char within a template name, like a ','
1282 within foo<int, int>, while considering C++ operator</operator<<. */
1285 find_toplevel_char (const char *s
, char c
)
1287 int quoted
= 0; /* zero if we're not in quotes;
1288 '"' if we're in a double-quoted string;
1289 '\'' if we're in a single-quoted string. */
1290 int depth
= 0; /* Number of unclosed parens we've seen. */
1293 for (scan
= s
; *scan
; scan
++)
1297 if (*scan
== quoted
)
1299 else if (*scan
== '\\' && *(scan
+ 1))
1302 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1304 else if (*scan
== '"' || *scan
== '\'')
1306 else if (*scan
== '(' || *scan
== '<')
1308 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1310 else if (*scan
== 'o' && !quoted
&& depth
== 0)
1312 /* Handle C++ operator names. */
1313 if (strncmp (scan
, CP_OPERATOR_STR
, CP_OPERATOR_LEN
) == 0)
1315 scan
+= CP_OPERATOR_LEN
;
1318 while (isspace (*scan
))
1329 /* Skip over one less than the appropriate number of
1330 characters: the for loop will skip over the last
1356 /* The string equivalent of find_toplevel_char. Returns a pointer
1357 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1358 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1361 find_toplevel_string (const char *haystack
, const char *needle
)
1363 const char *s
= haystack
;
1367 s
= find_toplevel_char (s
, *needle
);
1371 /* Found first char in HAYSTACK; check rest of string. */
1372 if (startswith (s
, needle
))
1375 /* Didn't find it; loop over HAYSTACK, looking for the next
1376 instance of the first character of NEEDLE. */
1380 while (s
!= NULL
&& *s
!= '\0');
1382 /* NEEDLE was not found in HAYSTACK. */
1386 /* Convert CANONICAL to its string representation using
1387 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1390 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1392 if (canonical
->symtab
== NULL
)
1393 return xstrdup (canonical
->suffix
);
1395 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1399 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1400 and store the result in SELF->CANONICAL. */
1403 filter_results (struct linespec_state
*self
,
1404 std::vector
<symtab_and_line
> *result
,
1405 VEC (const_char_ptr
) *filters
)
1410 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1414 for (size_t j
= 0; j
< result
->size (); ++j
)
1416 const struct linespec_canonical_name
*canonical
;
1418 struct cleanup
*cleanup
;
1420 canonical
= &self
->canonical_names
[j
];
1421 fullform
= canonical_to_fullform (canonical
);
1422 cleanup
= make_cleanup (xfree
, fullform
);
1424 if (strcmp (name
, fullform
) == 0)
1425 lsal
.sals
.push_back ((*result
)[j
]);
1427 do_cleanups (cleanup
);
1430 if (!lsal
.sals
.empty ())
1432 lsal
.canonical
= xstrdup (name
);
1433 self
->canonical
->lsals
.push_back (std::move (lsal
));
1437 self
->canonical
->pre_expanded
= 0;
1440 /* Store RESULT into SELF->CANONICAL. */
1443 convert_results_to_lsals (struct linespec_state
*self
,
1444 std::vector
<symtab_and_line
> *result
)
1446 struct linespec_sals lsal
;
1448 lsal
.canonical
= NULL
;
1449 lsal
.sals
= std::move (*result
);
1450 self
->canonical
->lsals
.push_back (std::move (lsal
));
1453 /* A structure that contains two string representations of a struct
1454 linespec_canonical_name:
1455 - one where the the symtab's fullname is used;
1456 - one where the filename followed the "set filename-display"
1459 struct decode_line_2_item
1461 /* The form using symtab_to_fullname.
1462 It must be xfree'ed after use. */
1465 /* The form using symtab_to_filename_for_display.
1466 It must be xfree'ed after use. */
1469 /* Field is initialized to zero and it is set to one if the user
1470 requested breakpoint for this entry. */
1471 unsigned int selected
: 1;
1474 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1475 secondarily by FULLFORM. */
1478 decode_line_2_compare_items (const void *ap
, const void *bp
)
1480 const struct decode_line_2_item
*a
= (const struct decode_line_2_item
*) ap
;
1481 const struct decode_line_2_item
*b
= (const struct decode_line_2_item
*) bp
;
1484 retval
= strcmp (a
->displayform
, b
->displayform
);
1488 return strcmp (a
->fullform
, b
->fullform
);
1491 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1492 will either return normally, throw an exception on multiple
1493 results, or present a menu to the user. On return, the SALS vector
1494 in SELF->CANONICAL is set up properly. */
1497 decode_line_2 (struct linespec_state
*self
,
1498 std::vector
<symtab_and_line
> *result
,
1499 const char *select_mode
)
1504 struct cleanup
*old_chain
;
1505 VEC (const_char_ptr
) *filters
= NULL
;
1506 struct decode_line_2_item
*items
;
1509 gdb_assert (select_mode
!= multiple_symbols_all
);
1510 gdb_assert (self
->canonical
!= NULL
);
1511 gdb_assert (!result
->empty ());
1513 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1515 /* Prepare ITEMS array. */
1516 items_count
= result
->size ();
1517 items
= XNEWVEC (struct decode_line_2_item
, items_count
);
1518 make_cleanup (xfree
, items
);
1519 for (i
= 0; i
< items_count
; ++i
)
1521 const struct linespec_canonical_name
*canonical
;
1522 struct decode_line_2_item
*item
;
1524 canonical
= &self
->canonical_names
[i
];
1525 gdb_assert (canonical
->suffix
!= NULL
);
1528 item
->fullform
= canonical_to_fullform (canonical
);
1529 make_cleanup (xfree
, item
->fullform
);
1531 if (canonical
->symtab
== NULL
)
1532 item
->displayform
= canonical
->suffix
;
1535 const char *fn_for_display
;
1537 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1538 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1540 make_cleanup (xfree
, item
->displayform
);
1546 /* Sort the list of method names. */
1547 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1549 /* Remove entries with the same FULLFORM. */
1550 if (items_count
>= 2)
1552 struct decode_line_2_item
*dst
, *src
;
1555 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1556 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1558 items_count
= dst
+ 1 - items
;
1561 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1562 error (_("canceled because the command is ambiguous\n"
1563 "See set/show multiple-symbol."));
1565 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1567 do_cleanups (old_chain
);
1568 convert_results_to_lsals (self
, result
);
1572 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1573 for (i
= 0; i
< items_count
; i
++)
1574 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1576 prompt
= getenv ("PS2");
1581 args
= command_line_input (prompt
, 0, "overload-choice");
1583 if (args
== 0 || *args
== 0)
1584 error_no_arg (_("one or more choice numbers"));
1586 number_or_range_parser
parser (args
);
1587 while (!parser
.finished ())
1589 int num
= parser
.get_number ();
1592 error (_("canceled"));
1595 /* We intentionally make this result in a single breakpoint,
1596 contrary to what older versions of gdb did. The
1597 rationale is that this lets a user get the
1598 multiple_symbols_all behavior even with the 'ask'
1599 setting; and he can get separate breakpoints by entering
1600 "2-57" at the query. */
1601 do_cleanups (old_chain
);
1602 convert_results_to_lsals (self
, result
);
1607 if (num
>= items_count
)
1608 printf_unfiltered (_("No choice number %d.\n"), num
);
1611 struct decode_line_2_item
*item
= &items
[num
];
1613 if (!item
->selected
)
1615 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1620 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1626 filter_results (self
, result
, filters
);
1627 do_cleanups (old_chain
);
1632 /* The parser of linespec itself. */
1634 /* Throw an appropriate error when SYMBOL is not found (optionally in
1637 static void ATTRIBUTE_NORETURN
1638 symbol_not_found_error (const char *symbol
, const char *filename
)
1643 if (!have_full_symbols ()
1644 && !have_partial_symbols ()
1645 && !have_minimal_symbols ())
1646 throw_error (NOT_FOUND_ERROR
,
1647 _("No symbol table is loaded. Use the \"file\" command."));
1649 /* If SYMBOL starts with '$', the user attempted to either lookup
1650 a function/variable in his code starting with '$' or an internal
1651 variable of that name. Since we do not know which, be concise and
1652 explain both possibilities. */
1656 throw_error (NOT_FOUND_ERROR
,
1657 _("Undefined convenience variable or function \"%s\" "
1658 "not defined in \"%s\"."), symbol
, filename
);
1660 throw_error (NOT_FOUND_ERROR
,
1661 _("Undefined convenience variable or function \"%s\" "
1662 "not defined."), symbol
);
1667 throw_error (NOT_FOUND_ERROR
,
1668 _("Function \"%s\" not defined in \"%s\"."),
1671 throw_error (NOT_FOUND_ERROR
,
1672 _("Function \"%s\" not defined."), symbol
);
1676 /* Throw an appropriate error when an unexpected token is encountered
1679 static void ATTRIBUTE_NORETURN
1680 unexpected_linespec_error (linespec_parser
*parser
)
1682 linespec_token token
;
1683 static const char * token_type_strings
[]
1684 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1686 /* Get the token that generated the error. */
1687 token
= linespec_lexer_lex_one (parser
);
1689 /* Finally, throw the error. */
1690 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1691 || token
.type
== LSTOKEN_KEYWORD
)
1693 gdb::unique_xmalloc_ptr
<char> string
= copy_token_string (token
);
1694 throw_error (GENERIC_ERROR
,
1695 _("malformed linespec error: unexpected %s, \"%s\""),
1696 token_type_strings
[token
.type
], string
.get ());
1699 throw_error (GENERIC_ERROR
,
1700 _("malformed linespec error: unexpected %s"),
1701 token_type_strings
[token
.type
]);
1704 /* Throw an undefined label error. */
1706 static void ATTRIBUTE_NORETURN
1707 undefined_label_error (const char *function
, const char *label
)
1709 if (function
!= NULL
)
1710 throw_error (NOT_FOUND_ERROR
,
1711 _("No label \"%s\" defined in function \"%s\"."),
1714 throw_error (NOT_FOUND_ERROR
,
1715 _("No label \"%s\" defined in current function."),
1719 /* Throw a source file not found error. */
1721 static void ATTRIBUTE_NORETURN
1722 source_file_not_found_error (const char *name
)
1724 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), name
);
1727 /* Unless at EIO, save the current stream position as completion word
1728 point, and consume the next token. */
1730 static linespec_token
1731 save_stream_and_consume_token (linespec_parser
*parser
)
1733 if (linespec_lexer_peek_token (parser
).type
!= LSTOKEN_EOI
)
1734 parser
->completion_word
= PARSER_STREAM (parser
);
1735 return linespec_lexer_consume_token (parser
);
1738 /* See description in linespec.h. */
1741 linespec_parse_line_offset (const char *string
)
1743 const char *start
= string
;
1744 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1748 line_offset
.sign
= LINE_OFFSET_PLUS
;
1751 else if (*string
== '-')
1753 line_offset
.sign
= LINE_OFFSET_MINUS
;
1757 if (*string
!= '\0' && !isdigit (*string
))
1758 error (_("malformed line offset: \"%s\""), start
);
1760 /* Right now, we only allow base 10 for offsets. */
1761 line_offset
.offset
= atoi (string
);
1765 /* In completion mode, if the user is still typing the number, there's
1766 no possible completion to offer. But if there's already input past
1767 the number, setup to expect NEXT. */
1770 set_completion_after_number (linespec_parser
*parser
,
1771 linespec_complete_what next
)
1773 if (*PARSER_STREAM (parser
) == ' ')
1775 parser
->completion_word
= skip_spaces (PARSER_STREAM (parser
) + 1);
1776 parser
->complete_what
= next
;
1780 parser
->completion_word
= PARSER_STREAM (parser
);
1781 parser
->complete_what
= linespec_complete_what::NOTHING
;
1785 /* Parse the basic_spec in PARSER's input. */
1788 linespec_parse_basic (linespec_parser
*parser
)
1790 gdb::unique_xmalloc_ptr
<char> name
;
1791 linespec_token token
;
1792 VEC (symbolp
) *symbols
, *labels
;
1793 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1795 /* Get the next token. */
1796 token
= linespec_lexer_lex_one (parser
);
1798 /* If it is EOI or KEYWORD, issue an error. */
1799 if (token
.type
== LSTOKEN_KEYWORD
)
1801 parser
->complete_what
= linespec_complete_what::NOTHING
;
1802 unexpected_linespec_error (parser
);
1804 else if (token
.type
== LSTOKEN_EOI
)
1806 unexpected_linespec_error (parser
);
1808 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1809 else if (token
.type
== LSTOKEN_NUMBER
)
1811 set_completion_after_number (parser
, linespec_complete_what::KEYWORD
);
1813 /* Record the line offset and get the next token. */
1814 name
= copy_token_string (token
);
1815 PARSER_EXPLICIT (parser
)->line_offset
1816 = linespec_parse_line_offset (name
.get ());
1818 /* Get the next token. */
1819 token
= linespec_lexer_consume_token (parser
);
1821 /* If the next token is a comma, stop parsing and return. */
1822 if (token
.type
== LSTOKEN_COMMA
)
1824 parser
->complete_what
= linespec_complete_what::NOTHING
;
1828 /* If the next token is anything but EOI or KEYWORD, issue
1830 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1831 unexpected_linespec_error (parser
);
1834 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1837 /* Next token must be LSTOKEN_STRING. */
1838 if (token
.type
!= LSTOKEN_STRING
)
1840 parser
->complete_what
= linespec_complete_what::NOTHING
;
1841 unexpected_linespec_error (parser
);
1844 /* The current token will contain the name of a function, method,
1846 name
= copy_token_string (token
);
1848 if (parser
->completion_tracker
!= NULL
)
1850 /* If the function name ends with a ":", then this may be an
1851 incomplete "::" scope operator instead of a label separator.
1854 which should expand to:
1857 Do a tentative completion assuming the later. If we find
1858 completions, advance the stream past the colon token and make
1859 it part of the function name/token. */
1861 if (!parser
->completion_quote_char
1862 && strcmp (PARSER_STREAM (parser
), ":") == 0)
1864 completion_tracker tmp_tracker
;
1865 const char *source_filename
1866 = PARSER_EXPLICIT (parser
)->source_filename
;
1867 symbol_name_match_type match_type
1868 = PARSER_EXPLICIT (parser
)->func_name_match_type
;
1870 linespec_complete_function (tmp_tracker
,
1871 parser
->completion_word
,
1875 if (tmp_tracker
.have_completions ())
1877 PARSER_STREAM (parser
)++;
1878 LS_TOKEN_STOKEN (token
).length
++;
1880 name
.reset (savestring (parser
->completion_word
,
1881 (PARSER_STREAM (parser
)
1882 - parser
->completion_word
)));
1886 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1890 /* Try looking it up as a function/method. */
1891 find_linespec_symbols (PARSER_STATE (parser
),
1892 PARSER_RESULT (parser
)->file_symtabs
, name
.get (),
1893 PARSER_EXPLICIT (parser
)->func_name_match_type
,
1894 &symbols
, &minimal_symbols
);
1896 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1898 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1899 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1900 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1905 /* NAME was not a function or a method. So it must be a label
1906 name or user specified variable like "break foo.c:$zippo". */
1907 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1908 &symbols
, name
.get ());
1911 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1912 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1913 PARSER_EXPLICIT (parser
)->label_name
= name
.release ();
1916 else if (token
.type
== LSTOKEN_STRING
1917 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1919 /* User specified a convenience variable or history value. */
1920 PARSER_EXPLICIT (parser
)->line_offset
1921 = linespec_parse_variable (PARSER_STATE (parser
), name
.get ());
1923 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1925 /* The user-specified variable was not valid. Do not
1926 throw an error here. parse_linespec will do it for us. */
1927 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1933 /* The name is also not a label. Abort parsing. Do not throw
1934 an error here. parse_linespec will do it for us. */
1936 /* Save a copy of the name we were trying to lookup. */
1937 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1943 int previous_qc
= parser
->completion_quote_char
;
1945 /* Get the next token. */
1946 token
= linespec_lexer_consume_token (parser
);
1948 if (token
.type
== LSTOKEN_EOI
)
1950 if (previous_qc
&& !parser
->completion_quote_char
)
1951 parser
->complete_what
= linespec_complete_what::KEYWORD
;
1953 else if (token
.type
== LSTOKEN_COLON
)
1955 /* User specified a label or a lineno. */
1956 token
= linespec_lexer_consume_token (parser
);
1958 if (token
.type
== LSTOKEN_NUMBER
)
1960 /* User specified an offset. Record the line offset and
1961 get the next token. */
1962 set_completion_after_number (parser
, linespec_complete_what::KEYWORD
);
1964 name
= copy_token_string (token
);
1965 PARSER_EXPLICIT (parser
)->line_offset
1966 = linespec_parse_line_offset (name
.get ());
1968 /* Get the next token. */
1969 token
= linespec_lexer_consume_token (parser
);
1971 else if (token
.type
== LSTOKEN_EOI
&& parser
->completion_tracker
!= NULL
)
1973 parser
->complete_what
= linespec_complete_what::LABEL
;
1975 else if (token
.type
== LSTOKEN_STRING
)
1977 parser
->complete_what
= linespec_complete_what::LABEL
;
1979 /* If we have text after the label separated by whitespace
1980 (e.g., "b func():lab i<tab>"), don't consider it part of
1981 the label. In completion mode that should complete to
1982 "if", in normal mode, the 'i' should be treated as
1984 if (parser
->completion_quote_char
== '\0')
1986 const char *ptr
= LS_TOKEN_STOKEN (token
).ptr
;
1987 for (size_t i
= 0; i
< LS_TOKEN_STOKEN (token
).length
; i
++)
1991 LS_TOKEN_STOKEN (token
).length
= i
;
1992 PARSER_STREAM (parser
) = skip_spaces (ptr
+ i
+ 1);
1998 if (parser
->completion_tracker
!= NULL
)
2000 if (PARSER_STREAM (parser
)[-1] == ' ')
2002 parser
->completion_word
= PARSER_STREAM (parser
);
2003 parser
->complete_what
= linespec_complete_what::KEYWORD
;
2008 /* Grab a copy of the label's name and look it up. */
2009 name
= copy_token_string (token
);
2011 = find_label_symbols (PARSER_STATE (parser
),
2012 PARSER_RESULT (parser
)->function_symbols
,
2013 &symbols
, name
.get ());
2017 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
2018 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
2019 PARSER_EXPLICIT (parser
)->label_name
= name
.release ();
2024 /* We don't know what it was, but it isn't a label. */
2025 undefined_label_error
2026 (PARSER_EXPLICIT (parser
)->function_name
, name
.get ());
2031 /* Check for a line offset. */
2032 token
= save_stream_and_consume_token (parser
);
2033 if (token
.type
== LSTOKEN_COLON
)
2035 /* Get the next token. */
2036 token
= linespec_lexer_consume_token (parser
);
2038 /* It must be a line offset. */
2039 if (token
.type
!= LSTOKEN_NUMBER
)
2040 unexpected_linespec_error (parser
);
2042 /* Record the line offset and get the next token. */
2043 name
= copy_token_string (token
);
2045 PARSER_EXPLICIT (parser
)->line_offset
2046 = linespec_parse_line_offset (name
.get ());
2048 /* Get the next token. */
2049 token
= linespec_lexer_consume_token (parser
);
2054 /* Trailing ':' in the input. Issue an error. */
2055 unexpected_linespec_error (parser
);
2060 /* Canonicalize the linespec contained in LS. The result is saved into
2061 STATE->canonical. This function handles both linespec and explicit
2065 canonicalize_linespec (struct linespec_state
*state
, const linespec_p ls
)
2067 struct event_location
*canon
;
2068 struct explicit_location
*explicit_loc
;
2070 /* If canonicalization was not requested, no need to do anything. */
2071 if (!state
->canonical
)
2074 /* Save everything as an explicit location. */
2075 state
->canonical
->location
2076 = new_explicit_location (&ls
->explicit_loc
);
2077 canon
= state
->canonical
->location
.get ();
2078 explicit_loc
= get_explicit_location (canon
);
2080 if (explicit_loc
->label_name
!= NULL
)
2082 state
->canonical
->special_display
= 1;
2084 if (explicit_loc
->function_name
== NULL
)
2088 /* No function was specified, so add the symbol name. */
2089 gdb_assert (ls
->labels
.function_symbols
!= NULL
2090 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
2092 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
2093 explicit_loc
->function_name
= xstrdup (SYMBOL_NATURAL_NAME (s
));
2097 /* If this location originally came from a linespec, save a string
2098 representation of it for display and saving to file. */
2099 if (state
->is_linespec
)
2101 char *linespec
= explicit_location_to_linespec (explicit_loc
);
2103 set_event_location_string (canon
, linespec
);
2108 /* Given a line offset in LS, construct the relevant SALs. */
2110 static std::vector
<symtab_and_line
>
2111 create_sals_line_offset (struct linespec_state
*self
,
2114 int use_default
= 0;
2116 /* This is where we need to make sure we have good defaults.
2117 We must guarantee that this section of code is never executed
2118 when we are called with just a function name, since
2119 set_default_source_symtab_and_line uses
2120 select_source_symtab that calls us with such an argument. */
2122 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
2123 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
2125 const char *fullname
;
2127 set_current_program_space (self
->program_space
);
2129 /* Make sure we have at least a default source line. */
2130 set_default_source_symtab_and_line ();
2131 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
2132 fullname
= symtab_to_fullname (self
->default_symtab
);
2133 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
2134 VEC_free (symtab_ptr
, ls
->file_symtabs
);
2135 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
,
2136 self
->search_pspace
);
2140 symtab_and_line val
;
2141 val
.line
= ls
->explicit_loc
.line_offset
.offset
;
2142 switch (ls
->explicit_loc
.line_offset
.sign
)
2144 case LINE_OFFSET_PLUS
:
2145 if (ls
->explicit_loc
.line_offset
.offset
== 0)
2148 val
.line
= self
->default_line
+ val
.line
;
2151 case LINE_OFFSET_MINUS
:
2152 if (ls
->explicit_loc
.line_offset
.offset
== 0)
2155 val
.line
= self
->default_line
- val
.line
;
2157 val
.line
= -val
.line
;
2160 case LINE_OFFSET_NONE
:
2161 break; /* No need to adjust val.line. */
2164 std::vector
<symtab_and_line
> values
;
2165 if (self
->list_mode
)
2166 values
= decode_digits_list_mode (self
, ls
, val
);
2169 struct linetable_entry
*best_entry
= NULL
;
2172 std::vector
<symtab_and_line
> intermediate_results
2173 = decode_digits_ordinary (self
, ls
, val
.line
, &best_entry
);
2174 if (intermediate_results
.empty () && best_entry
!= NULL
)
2175 intermediate_results
= decode_digits_ordinary (self
, ls
,
2179 /* For optimized code, the compiler can scatter one source line
2180 across disjoint ranges of PC values, even when no duplicate
2181 functions or inline functions are involved. For example,
2182 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
2183 function can result in two PC ranges. In this case, we don't
2184 want to set a breakpoint on the first PC of each range. To filter
2185 such cases, we use containing blocks -- for each PC found
2186 above, we see if there are other PCs that are in the same
2187 block. If yes, the other PCs are filtered out. */
2189 gdb::def_vector
<int> filter (intermediate_results
.size ());
2190 gdb::def_vector
<const block
*> blocks (intermediate_results
.size ());
2192 for (i
= 0; i
< intermediate_results
.size (); ++i
)
2194 set_current_program_space (intermediate_results
[i
].pspace
);
2197 blocks
[i
] = block_for_pc_sect (intermediate_results
[i
].pc
,
2198 intermediate_results
[i
].section
);
2201 for (i
= 0; i
< intermediate_results
.size (); ++i
)
2203 if (blocks
[i
] != NULL
)
2204 for (j
= i
+ 1; j
< intermediate_results
.size (); ++j
)
2206 if (blocks
[j
] == blocks
[i
])
2214 for (i
= 0; i
< intermediate_results
.size (); ++i
)
2217 struct symbol
*sym
= (blocks
[i
]
2218 ? block_containing_function (blocks
[i
])
2221 if (self
->funfirstline
)
2222 skip_prologue_sal (&intermediate_results
[i
]);
2223 add_sal_to_sals (self
, &values
, &intermediate_results
[i
],
2224 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
2228 if (values
.empty ())
2230 if (ls
->explicit_loc
.source_filename
)
2231 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
2232 val
.line
, ls
->explicit_loc
.source_filename
);
2234 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
2241 /* Convert the given ADDRESS into SaLs. */
2243 static std::vector
<symtab_and_line
>
2244 convert_address_location_to_sals (struct linespec_state
*self
,
2247 symtab_and_line sal
= find_pc_line (address
, 0);
2249 sal
.section
= find_pc_overlay (address
);
2250 sal
.explicit_pc
= 1;
2252 std::vector
<symtab_and_line
> sals
;
2253 add_sal_to_sals (self
, &sals
, &sal
, core_addr_to_string (address
), 1);
2258 /* Create and return SALs from the linespec LS. */
2260 static std::vector
<symtab_and_line
>
2261 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
2263 std::vector
<symtab_and_line
> sals
;
2265 if (ls
->labels
.label_symbols
!= NULL
)
2267 /* We have just a bunch of functions/methods or labels. */
2269 struct symtab_and_line sal
;
2272 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
2274 struct program_space
*pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2276 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2277 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2278 add_sal_to_sals (state
, &sals
, &sal
,
2279 SYMBOL_NATURAL_NAME (sym
), 0);
2282 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2284 /* We have just a bunch of functions and/or methods. */
2286 struct symtab_and_line sal
;
2288 bound_minimal_symbol_d
*elem
;
2289 struct program_space
*pspace
;
2291 if (ls
->function_symbols
!= NULL
)
2293 /* Sort symbols so that symbols with the same program space are next
2295 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2296 VEC_length (symbolp
, ls
->function_symbols
),
2297 sizeof (symbolp
), compare_symbols
);
2299 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2301 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2302 set_current_program_space (pspace
);
2303 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2304 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2305 add_sal_to_sals (state
, &sals
, &sal
,
2306 SYMBOL_NATURAL_NAME (sym
), 0);
2310 if (ls
->minimal_symbols
!= NULL
)
2312 /* Sort minimal symbols by program space, too. */
2313 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2314 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2315 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2318 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2322 pspace
= elem
->objfile
->pspace
;
2323 set_current_program_space (pspace
);
2324 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2328 else if (ls
->explicit_loc
.line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2330 /* Only an offset was specified. */
2331 sals
= create_sals_line_offset (state
, ls
);
2333 /* Make sure we have a filename for canonicalization. */
2334 if (ls
->explicit_loc
.source_filename
== NULL
)
2336 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2338 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2339 form so that displaying SOURCE_FILENAME can follow the current
2340 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2341 it has been kept for code simplicity only in absolute form. */
2342 ls
->explicit_loc
.source_filename
= xstrdup (fullname
);
2347 /* We haven't found any results... */
2351 canonicalize_linespec (state
, ls
);
2353 if (!sals
.empty () && state
->canonical
!= NULL
)
2354 state
->canonical
->pre_expanded
= 1;
2359 /* Build RESULT from the explicit location components SOURCE_FILENAME,
2360 FUNCTION_NAME, LABEL_NAME and LINE_OFFSET. */
2363 convert_explicit_location_to_linespec (struct linespec_state
*self
,
2365 const char *source_filename
,
2366 const char *function_name
,
2367 symbol_name_match_type fname_match_type
,
2368 const char *label_name
,
2369 struct line_offset line_offset
)
2371 VEC (symbolp
) *symbols
, *labels
;
2372 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
2374 result
->explicit_loc
.func_name_match_type
= fname_match_type
;
2376 if (source_filename
!= NULL
)
2380 result
->file_symtabs
2381 = symtabs_from_filename (source_filename
, self
->search_pspace
);
2383 CATCH (except
, RETURN_MASK_ERROR
)
2385 source_file_not_found_error (source_filename
);
2388 result
->explicit_loc
.source_filename
= xstrdup (source_filename
);
2392 /* A NULL entry means to use the default symtab. */
2393 VEC_safe_push (symtab_ptr
, result
->file_symtabs
, NULL
);
2396 if (function_name
!= NULL
)
2398 find_linespec_symbols (self
, result
->file_symtabs
,
2399 function_name
, fname_match_type
,
2400 &symbols
, &minimal_symbols
);
2402 if (symbols
== NULL
&& minimal_symbols
== NULL
)
2403 symbol_not_found_error (function_name
,
2404 result
->explicit_loc
.source_filename
);
2406 result
->explicit_loc
.function_name
= xstrdup (function_name
);
2407 result
->function_symbols
= symbols
;
2408 result
->minimal_symbols
= minimal_symbols
;
2411 if (label_name
!= NULL
)
2414 labels
= find_label_symbols (self
, result
->function_symbols
,
2415 &symbols
, label_name
);
2418 undefined_label_error (result
->explicit_loc
.function_name
,
2421 result
->explicit_loc
.label_name
= xstrdup (label_name
);
2422 result
->labels
.label_symbols
= labels
;
2423 result
->labels
.function_symbols
= symbols
;
2426 if (line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2427 result
->explicit_loc
.line_offset
= line_offset
;
2430 /* Convert the explicit location EXPLICIT_LOC into SaLs. */
2432 static std::vector
<symtab_and_line
>
2433 convert_explicit_location_to_sals (struct linespec_state
*self
,
2435 const struct explicit_location
*explicit_loc
)
2437 convert_explicit_location_to_linespec (self
, result
,
2438 explicit_loc
->source_filename
,
2439 explicit_loc
->function_name
,
2440 explicit_loc
->func_name_match_type
,
2441 explicit_loc
->label_name
,
2442 explicit_loc
->line_offset
);
2443 return convert_linespec_to_sals (self
, result
);
2446 /* Parse a string that specifies a linespec.
2448 The basic grammar of linespecs:
2450 linespec -> var_spec | basic_spec
2451 var_spec -> '$' (STRING | NUMBER)
2453 basic_spec -> file_offset_spec | function_spec | label_spec
2454 file_offset_spec -> opt_file_spec offset_spec
2455 function_spec -> opt_file_spec function_name_spec opt_label_spec
2456 label_spec -> label_name_spec
2458 opt_file_spec -> "" | file_name_spec ':'
2459 opt_label_spec -> "" | ':' label_name_spec
2461 file_name_spec -> STRING
2462 function_name_spec -> STRING
2463 label_name_spec -> STRING
2464 function_name_spec -> STRING
2465 offset_spec -> NUMBER
2469 This may all be followed by several keywords such as "if EXPR",
2472 A comma will terminate parsing.
2474 The function may be an undebuggable function found in minimal symbol table.
2476 If the argument FUNFIRSTLINE is nonzero, we want the first line
2477 of real code inside a function when a function is specified, and it is
2478 not OK to specify a variable or type to get its line number.
2480 DEFAULT_SYMTAB specifies the file to use if none is specified.
2481 It defaults to current_source_symtab.
2482 DEFAULT_LINE specifies the line number to use for relative
2483 line numbers (that start with signs). Defaults to current_source_line.
2484 If CANONICAL is non-NULL, store an array of strings containing the canonical
2485 line specs there if necessary. Currently overloaded member functions and
2486 line numbers or static functions without a filename yield a canonical
2487 line spec. The array and the line spec strings are allocated on the heap,
2488 it is the callers responsibility to free them.
2490 Note that it is possible to return zero for the symtab
2491 if no file is validly specified. Callers must check that.
2492 Also, the line number returned may be invalid. */
2494 /* Parse the linespec in ARG. MATCH_TYPE indicates how function names
2495 should be matched. */
2497 static std::vector
<symtab_and_line
>
2498 parse_linespec (linespec_parser
*parser
, const char *arg
,
2499 symbol_name_match_type match_type
)
2501 linespec_token token
;
2502 struct gdb_exception file_exception
= exception_none
;
2504 /* A special case to start. It has become quite popular for
2505 IDEs to work around bugs in the previous parser by quoting
2506 the entire linespec, so we attempt to deal with this nicely. */
2507 parser
->is_quote_enclosed
= 0;
2508 if (parser
->completion_tracker
== NULL
2509 && !is_ada_operator (arg
)
2510 && strchr (linespec_quote_characters
, *arg
) != NULL
)
2514 end
= skip_quote_char (arg
+ 1, *arg
);
2515 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2517 /* Here's the special case. Skip ARG past the initial
2520 parser
->is_quote_enclosed
= 1;
2524 parser
->lexer
.saved_arg
= arg
;
2525 parser
->lexer
.stream
= arg
;
2526 parser
->completion_word
= arg
;
2527 parser
->complete_what
= linespec_complete_what::FUNCTION
;
2528 PARSER_EXPLICIT (parser
)->func_name_match_type
= match_type
;
2530 /* Initialize the default symtab and line offset. */
2531 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2532 &PARSER_STATE (parser
)->default_line
);
2534 /* Objective-C shortcut. */
2535 if (parser
->completion_tracker
== NULL
)
2537 std::vector
<symtab_and_line
> values
2538 = decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), arg
);
2539 if (!values
.empty ())
2544 /* "-"/"+" is either an objc selector, or a number. There's
2545 nothing to complete the latter to, so just let the caller
2546 complete on functions, which finds objc selectors, if there's
2548 if ((arg
[0] == '-' || arg
[0] == '+') && arg
[1] == '\0')
2552 /* Start parsing. */
2554 /* Get the first token. */
2555 token
= linespec_lexer_consume_token (parser
);
2557 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2558 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2560 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2561 if (parser
->completion_tracker
== NULL
)
2562 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2564 /* User specified a convenience variable or history value. */
2565 gdb::unique_xmalloc_ptr
<char> var
= copy_token_string (token
);
2566 PARSER_EXPLICIT (parser
)->line_offset
2567 = linespec_parse_variable (PARSER_STATE (parser
), var
.get ());
2569 /* If a line_offset wasn't found (VAR is the name of a user
2570 variable/function), then skip to normal symbol processing. */
2571 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2573 /* Consume this token. */
2574 linespec_lexer_consume_token (parser
);
2576 goto convert_to_sals
;
2579 else if (token
.type
== LSTOKEN_EOI
&& parser
->completion_tracker
!= NULL
)
2581 /* Let the default linespec_complete_what::FUNCTION kick in. */
2582 unexpected_linespec_error (parser
);
2584 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2586 parser
->complete_what
= linespec_complete_what::NOTHING
;
2587 unexpected_linespec_error (parser
);
2590 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2591 this token cannot represent a filename. */
2592 token
= linespec_lexer_peek_token (parser
);
2594 if (token
.type
== LSTOKEN_COLON
)
2596 /* Get the current token again and extract the filename. */
2597 token
= linespec_lexer_lex_one (parser
);
2598 gdb::unique_xmalloc_ptr
<char> user_filename
= copy_token_string (token
);
2600 /* Check if the input is a filename. */
2603 PARSER_RESULT (parser
)->file_symtabs
2604 = symtabs_from_filename (user_filename
.get (),
2605 PARSER_STATE (parser
)->search_pspace
);
2607 CATCH (ex
, RETURN_MASK_ERROR
)
2609 file_exception
= ex
;
2613 if (file_exception
.reason
>= 0)
2615 /* Symtabs were found for the file. Record the filename. */
2616 PARSER_EXPLICIT (parser
)->source_filename
= user_filename
.release ();
2618 /* Get the next token. */
2619 token
= linespec_lexer_consume_token (parser
);
2621 /* This is LSTOKEN_COLON; consume it. */
2622 linespec_lexer_consume_token (parser
);
2626 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2627 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2630 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2631 else if (parser
->completion_tracker
== NULL
2632 && (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2633 && token
.type
!= LSTOKEN_COMMA
))
2635 /* TOKEN is the _next_ token, not the one currently in the parser.
2636 Consuming the token will give the correct error message. */
2637 linespec_lexer_consume_token (parser
);
2638 unexpected_linespec_error (parser
);
2642 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2643 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2646 /* Parse the rest of the linespec. */
2647 linespec_parse_basic (parser
);
2649 if (parser
->completion_tracker
== NULL
2650 && PARSER_RESULT (parser
)->function_symbols
== NULL
2651 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2652 && PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2653 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2655 /* The linespec didn't parse. Re-throw the file exception if
2657 if (file_exception
.reason
< 0)
2658 throw_exception (file_exception
);
2660 /* Otherwise, the symbol is not found. */
2661 symbol_not_found_error (PARSER_EXPLICIT (parser
)->function_name
,
2662 PARSER_EXPLICIT (parser
)->source_filename
);
2667 /* Get the last token and record how much of the input was parsed,
2669 token
= linespec_lexer_lex_one (parser
);
2670 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2671 unexpected_linespec_error (parser
);
2672 else if (token
.type
== LSTOKEN_KEYWORD
)
2674 /* Setup the completion word past the keyword. Lexing never
2675 advances past a keyword automatically, so skip it
2677 parser
->completion_word
2678 = skip_spaces (skip_to_space (PARSER_STREAM (parser
)));
2679 parser
->complete_what
= linespec_complete_what::EXPRESSION
;
2682 /* Convert the data in PARSER_RESULT to SALs. */
2683 if (parser
->completion_tracker
== NULL
)
2684 return convert_linespec_to_sals (PARSER_STATE (parser
),
2685 PARSER_RESULT (parser
));
2691 /* A constructor for linespec_state. */
2694 linespec_state_constructor (struct linespec_state
*self
,
2695 int flags
, const struct language_defn
*language
,
2696 struct program_space
*search_pspace
,
2697 struct symtab
*default_symtab
,
2699 struct linespec_result
*canonical
)
2701 memset (self
, 0, sizeof (*self
));
2702 self
->language
= language
;
2703 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2704 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2705 self
->search_pspace
= search_pspace
;
2706 self
->default_symtab
= default_symtab
;
2707 self
->default_line
= default_line
;
2708 self
->canonical
= canonical
;
2709 self
->program_space
= current_program_space
;
2710 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2711 xfree
, xcalloc
, xfree
);
2712 self
->is_linespec
= 0;
2715 /* Initialize a new linespec parser. */
2718 linespec_parser_new (linespec_parser
*parser
,
2719 int flags
, const struct language_defn
*language
,
2720 struct program_space
*search_pspace
,
2721 struct symtab
*default_symtab
,
2723 struct linespec_result
*canonical
)
2725 memset (parser
, 0, sizeof (linespec_parser
));
2726 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2727 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2728 PARSER_EXPLICIT (parser
)->func_name_match_type
2729 = symbol_name_match_type::WILD
;
2730 PARSER_EXPLICIT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2731 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2733 default_symtab
, default_line
, canonical
);
2736 /* A destructor for linespec_state. */
2739 linespec_state_destructor (struct linespec_state
*self
)
2741 htab_delete (self
->addr_set
);
2744 /* Delete a linespec parser. */
2747 linespec_parser_delete (void *arg
)
2749 linespec_parser
*parser
= (linespec_parser
*) arg
;
2751 xfree (PARSER_EXPLICIT (parser
)->source_filename
);
2752 xfree (PARSER_EXPLICIT (parser
)->label_name
);
2753 xfree (PARSER_EXPLICIT (parser
)->function_name
);
2755 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2756 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2758 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2759 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2761 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2762 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2764 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2765 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2767 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2768 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2770 linespec_state_destructor (PARSER_STATE (parser
));
2773 /* See description in linespec.h. */
2776 linespec_lex_to_end (const char **stringp
)
2778 linespec_parser parser
;
2779 struct cleanup
*cleanup
;
2780 linespec_token token
;
2783 if (stringp
== NULL
|| *stringp
== NULL
)
2786 linespec_parser_new (&parser
, 0, current_language
, NULL
, NULL
, 0, NULL
);
2787 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2788 parser
.lexer
.saved_arg
= *stringp
;
2789 PARSER_STREAM (&parser
) = orig
= *stringp
;
2793 /* Stop before any comma tokens; we need it to keep it
2794 as the next token in the string. */
2795 token
= linespec_lexer_peek_token (&parser
);
2796 if (token
.type
== LSTOKEN_COMMA
)
2798 token
= linespec_lexer_consume_token (&parser
);
2800 while (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
);
2802 *stringp
+= PARSER_STREAM (&parser
) - orig
;
2803 do_cleanups (cleanup
);
2806 /* See linespec.h. */
2809 linespec_complete_function (completion_tracker
&tracker
,
2810 const char *function
,
2811 symbol_name_match_type func_match_type
,
2812 const char *source_filename
)
2814 complete_symbol_mode mode
= complete_symbol_mode::LINESPEC
;
2816 if (source_filename
!= NULL
)
2818 collect_file_symbol_completion_matches (tracker
, mode
, func_match_type
,
2819 function
, function
, source_filename
);
2823 collect_symbol_completion_matches (tracker
, mode
, func_match_type
,
2824 function
, function
);
2829 /* Helper for complete_linespec to simplify it. SOURCE_FILENAME is
2830 only meaningful if COMPONENT is FUNCTION. */
2833 complete_linespec_component (linespec_parser
*parser
,
2834 completion_tracker
&tracker
,
2836 linespec_complete_what component
,
2837 const char *source_filename
)
2839 if (component
== linespec_complete_what::KEYWORD
)
2841 complete_on_enum (tracker
, linespec_keywords
, text
, text
);
2843 else if (component
== linespec_complete_what::EXPRESSION
)
2846 = advance_to_expression_complete_word_point (tracker
, text
);
2847 complete_expression (tracker
, text
, word
);
2849 else if (component
== linespec_complete_what::FUNCTION
)
2851 completion_list fn_list
;
2853 symbol_name_match_type match_type
2854 = PARSER_EXPLICIT (parser
)->func_name_match_type
;
2855 linespec_complete_function (tracker
, text
, match_type
, source_filename
);
2856 if (source_filename
== NULL
)
2858 /* Haven't seen a source component, like in "b
2859 file.c:function[TAB]". Maybe this wasn't a function, but
2860 a filename instead, like "b file.[TAB]". */
2861 fn_list
= complete_source_filenames (text
);
2864 /* If we only have a single filename completion, append a ':' for
2865 the user, since that's the only thing that can usefully follow
2867 if (fn_list
.size () == 1 && !tracker
.have_completions ())
2869 char *fn
= fn_list
[0].release ();
2871 /* If we also need to append a quote char, it needs to be
2872 appended before the ':'. Append it now, and make ':' the
2873 new "quote" char. */
2874 if (tracker
.quote_char ())
2876 char quote_char_str
[2] = { tracker
.quote_char () };
2878 fn
= reconcat (fn
, fn
, quote_char_str
, (char *) NULL
);
2879 tracker
.set_quote_char (':');
2882 fn
= reconcat (fn
, fn
, ":", (char *) NULL
);
2883 fn_list
[0].reset (fn
);
2885 /* Tell readline to skip appending a space. */
2886 tracker
.set_suppress_append_ws (true);
2888 tracker
.add_completions (std::move (fn_list
));
2892 /* Helper for linespec_complete_label. Find labels that match
2893 LABEL_NAME in the function symbols listed in the PARSER, and add
2894 them to the tracker. */
2897 complete_label (completion_tracker
&tracker
,
2898 linespec_parser
*parser
,
2899 const char *label_name
)
2901 VEC (symbolp
) *label_function_symbols
= NULL
;
2902 VEC (symbolp
) *labels
2903 = find_label_symbols (PARSER_STATE (parser
),
2904 PARSER_RESULT (parser
)->function_symbols
,
2905 &label_function_symbols
,
2910 VEC_iterate (symbolp
, labels
, ix
, label
); ++ix
)
2912 char *match
= xstrdup (SYMBOL_SEARCH_NAME (label
));
2913 tracker
.add_completion (gdb::unique_xmalloc_ptr
<char> (match
));
2915 VEC_free (symbolp
, labels
);
2918 /* See linespec.h. */
2921 linespec_complete_label (completion_tracker
&tracker
,
2922 const struct language_defn
*language
,
2923 const char *source_filename
,
2924 const char *function_name
,
2925 symbol_name_match_type func_name_match_type
,
2926 const char *label_name
)
2928 linespec_parser parser
;
2929 struct cleanup
*cleanup
;
2931 linespec_parser_new (&parser
, 0, language
, NULL
, NULL
, 0, NULL
);
2932 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2934 line_offset unknown_offset
= { 0, LINE_OFFSET_UNKNOWN
};
2938 convert_explicit_location_to_linespec (PARSER_STATE (&parser
),
2939 PARSER_RESULT (&parser
),
2942 func_name_match_type
,
2943 NULL
, unknown_offset
);
2945 CATCH (ex
, RETURN_MASK_ERROR
)
2947 do_cleanups (cleanup
);
2952 complete_label (tracker
, &parser
, label_name
);
2954 do_cleanups (cleanup
);
2957 /* See description in linespec.h. */
2960 linespec_complete (completion_tracker
&tracker
, const char *text
,
2961 symbol_name_match_type match_type
)
2963 linespec_parser parser
;
2964 struct cleanup
*cleanup
;
2965 const char *orig
= text
;
2967 linespec_parser_new (&parser
, 0, current_language
, NULL
, NULL
, 0, NULL
);
2968 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2969 parser
.lexer
.saved_arg
= text
;
2970 PARSER_EXPLICIT (&parser
)->func_name_match_type
= match_type
;
2971 PARSER_STREAM (&parser
) = text
;
2973 parser
.completion_tracker
= &tracker
;
2974 PARSER_STATE (&parser
)->is_linespec
= 1;
2976 /* Parse as much as possible. parser.completion_word will hold
2977 furthest completion point we managed to parse to. */
2980 parse_linespec (&parser
, text
, match_type
);
2982 CATCH (except
, RETURN_MASK_ERROR
)
2987 if (parser
.completion_quote_char
!= '\0'
2988 && parser
.completion_quote_end
!= NULL
2989 && parser
.completion_quote_end
[1] == '\0')
2991 /* If completing a quoted string with the cursor right at
2992 terminating quote char, complete the completion word without
2993 interpretation, so that readline advances the cursor one
2994 whitespace past the quote, even if there's no match. This
2995 makes these cases behave the same:
2997 before: "b function()"
2998 after: "b function() "
3000 before: "b 'function()'"
3001 after: "b 'function()' "
3003 and trusts the user in this case:
3005 before: "b 'not_loaded_function_yet()'"
3006 after: "b 'not_loaded_function_yet()' "
3008 parser
.complete_what
= linespec_complete_what::NOTHING
;
3009 parser
.completion_quote_char
= '\0';
3011 gdb::unique_xmalloc_ptr
<char> text_copy
3012 (xstrdup (parser
.completion_word
));
3013 tracker
.add_completion (std::move (text_copy
));
3016 tracker
.set_quote_char (parser
.completion_quote_char
);
3018 if (parser
.complete_what
== linespec_complete_what::LABEL
)
3020 parser
.complete_what
= linespec_complete_what::NOTHING
;
3022 const char *func_name
= PARSER_EXPLICIT (&parser
)->function_name
;
3024 VEC (symbolp
) *function_symbols
;
3025 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
3026 find_linespec_symbols (PARSER_STATE (&parser
),
3027 PARSER_RESULT (&parser
)->file_symtabs
,
3028 func_name
, match_type
,
3029 &function_symbols
, &minimal_symbols
);
3031 PARSER_RESULT (&parser
)->function_symbols
= function_symbols
;
3032 PARSER_RESULT (&parser
)->minimal_symbols
= minimal_symbols
;
3034 complete_label (tracker
, &parser
, parser
.completion_word
);
3036 else if (parser
.complete_what
== linespec_complete_what::FUNCTION
)
3038 /* While parsing/lexing, we didn't know whether the completion
3039 word completes to a unique function/source name already or
3043 "b function() <tab>"
3044 may need to complete either to:
3045 "b function() const"
3047 "b function() if/thread/task"
3051 may need to complete either to:
3052 "b foo template_fun<T>()"
3053 with "foo" being the template function's return type, or to:
3058 may need to complete either to a source file name:
3060 or this, also a filename, but a unique completion:
3062 or to a function name:
3065 Address that by completing assuming source or function, and
3066 seeing if we find a completion that matches exactly the
3067 completion word. If so, then it must be a function (see note
3068 below) and we advance the completion word to the end of input
3069 and switch to KEYWORD completion mode.
3071 Note: if we find a unique completion for a source filename,
3072 then it won't match the completion word, because the LCD will
3073 contain a trailing ':'. And if we're completing at or after
3074 the ':', then complete_linespec_component won't try to
3075 complete on source filenames. */
3077 const char *word
= parser
.completion_word
;
3079 complete_linespec_component (&parser
, tracker
,
3080 parser
.completion_word
,
3081 linespec_complete_what::FUNCTION
,
3082 PARSER_EXPLICIT (&parser
)->source_filename
);
3084 parser
.complete_what
= linespec_complete_what::NOTHING
;
3086 if (tracker
.quote_char ())
3088 /* The function/file name was not close-quoted, so this
3089 can't be a keyword. Note: complete_linespec_component
3090 may have swapped the original quote char for ':' when we
3091 get here, but that still indicates the same. */
3093 else if (!tracker
.have_completions ())
3096 size_t wordlen
= strlen (parser
.completion_word
);
3099 = string_find_incomplete_keyword_at_end (linespec_keywords
,
3100 parser
.completion_word
,
3105 && parser
.completion_word
[wordlen
- 1] == ' '))
3107 parser
.completion_word
+= key_start
;
3108 parser
.complete_what
= linespec_complete_what::KEYWORD
;
3111 else if (tracker
.completes_to_completion_word (word
))
3113 /* Skip the function and complete on keywords. */
3114 parser
.completion_word
+= strlen (word
);
3115 parser
.complete_what
= linespec_complete_what::KEYWORD
;
3116 tracker
.discard_completions ();
3120 tracker
.advance_custom_word_point_by (parser
.completion_word
- orig
);
3122 complete_linespec_component (&parser
, tracker
,
3123 parser
.completion_word
,
3124 parser
.complete_what
,
3125 PARSER_EXPLICIT (&parser
)->source_filename
);
3127 /* If we're past the "filename:function:label:offset" linespec, and
3128 didn't find any match, then assume the user might want to create
3129 a pending breakpoint anyway and offer the keyword
3131 if (!parser
.completion_quote_char
3132 && (parser
.complete_what
== linespec_complete_what::FUNCTION
3133 || parser
.complete_what
== linespec_complete_what::LABEL
3134 || parser
.complete_what
== linespec_complete_what::NOTHING
)
3135 && !tracker
.have_completions ())
3138 = parser
.completion_word
+ strlen (parser
.completion_word
);
3140 if (end
> orig
&& end
[-1] == ' ')
3142 tracker
.advance_custom_word_point_by (end
- parser
.completion_word
);
3144 complete_linespec_component (&parser
, tracker
, end
,
3145 linespec_complete_what::KEYWORD
,
3150 do_cleanups (cleanup
);
3153 /* A helper function for decode_line_full and decode_line_1 to
3154 turn LOCATION into std::vector<symtab_and_line>. */
3156 static std::vector
<symtab_and_line
>
3157 event_location_to_sals (linespec_parser
*parser
,
3158 const struct event_location
*location
)
3160 std::vector
<symtab_and_line
> result
;
3162 switch (event_location_type (location
))
3164 case LINESPEC_LOCATION
:
3166 PARSER_STATE (parser
)->is_linespec
= 1;
3169 const linespec_location
*ls
= get_linespec_location (location
);
3170 result
= parse_linespec (parser
,
3171 ls
->spec_string
, ls
->match_type
);
3173 CATCH (except
, RETURN_MASK_ERROR
)
3175 throw_exception (except
);
3181 case ADDRESS_LOCATION
:
3183 const char *addr_string
= get_address_string_location (location
);
3184 CORE_ADDR addr
= get_address_location (location
);
3186 if (addr_string
!= NULL
)
3188 char *expr
= xstrdup (addr_string
);
3189 const char *const_expr
= expr
;
3190 struct cleanup
*cleanup
= make_cleanup (xfree
, expr
);
3192 addr
= linespec_expression_to_pc (&const_expr
);
3193 if (PARSER_STATE (parser
)->canonical
!= NULL
)
3194 PARSER_STATE (parser
)->canonical
->location
3195 = copy_event_location (location
);
3197 do_cleanups (cleanup
);
3200 result
= convert_address_location_to_sals (PARSER_STATE (parser
),
3205 case EXPLICIT_LOCATION
:
3207 const struct explicit_location
*explicit_loc
;
3209 explicit_loc
= get_explicit_location_const (location
);
3210 result
= convert_explicit_location_to_sals (PARSER_STATE (parser
),
3211 PARSER_RESULT (parser
),
3216 case PROBE_LOCATION
:
3217 /* Probes are handled by their own decoders. */
3218 gdb_assert_not_reached ("attempt to decode probe location");
3222 gdb_assert_not_reached ("unhandled event location type");
3228 /* See linespec.h. */
3231 decode_line_full (const struct event_location
*location
, int flags
,
3232 struct program_space
*search_pspace
,
3233 struct symtab
*default_symtab
,
3234 int default_line
, struct linespec_result
*canonical
,
3235 const char *select_mode
,
3238 struct cleanup
*cleanups
;
3239 VEC (const_char_ptr
) *filters
= NULL
;
3240 linespec_parser parser
;
3241 struct linespec_state
*state
;
3243 gdb_assert (canonical
!= NULL
);
3244 /* The filter only makes sense for 'all'. */
3245 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
3246 gdb_assert (select_mode
== NULL
3247 || select_mode
== multiple_symbols_all
3248 || select_mode
== multiple_symbols_ask
3249 || select_mode
== multiple_symbols_cancel
);
3250 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
3252 linespec_parser_new (&parser
, flags
, current_language
,
3253 search_pspace
, default_symtab
,
3254 default_line
, canonical
);
3255 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
3257 scoped_restore_current_program_space restore_pspace
;
3259 std::vector
<symtab_and_line
> result
= event_location_to_sals (&parser
,
3261 state
= PARSER_STATE (&parser
);
3263 gdb_assert (result
.size () == 1 || canonical
->pre_expanded
);
3264 canonical
->pre_expanded
= 1;
3266 /* Arrange for allocated canonical names to be freed. */
3267 if (!result
.empty ())
3271 make_cleanup (xfree
, state
->canonical_names
);
3272 for (i
= 0; i
< result
.size (); ++i
)
3274 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
3275 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
3279 if (select_mode
== NULL
)
3281 if (interp_ui_out (top_level_interpreter ())->is_mi_like_p ())
3282 select_mode
= multiple_symbols_all
;
3284 select_mode
= multiple_symbols_select_mode ();
3287 if (select_mode
== multiple_symbols_all
)
3291 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
3292 VEC_safe_push (const_char_ptr
, filters
, filter
);
3293 filter_results (state
, &result
, filters
);
3296 convert_results_to_lsals (state
, &result
);
3299 decode_line_2 (state
, &result
, select_mode
);
3301 do_cleanups (cleanups
);
3304 /* See linespec.h. */
3306 std::vector
<symtab_and_line
>
3307 decode_line_1 (const struct event_location
*location
, int flags
,
3308 struct program_space
*search_pspace
,
3309 struct symtab
*default_symtab
,
3312 linespec_parser parser
;
3313 struct cleanup
*cleanups
;
3315 linespec_parser_new (&parser
, flags
, current_language
,
3316 search_pspace
, default_symtab
,
3317 default_line
, NULL
);
3318 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
3320 scoped_restore_current_program_space restore_pspace
;
3322 std::vector
<symtab_and_line
> result
= event_location_to_sals (&parser
,
3325 do_cleanups (cleanups
);
3329 /* See linespec.h. */
3331 std::vector
<symtab_and_line
>
3332 decode_line_with_current_source (const char *string
, int flags
)
3335 error (_("Empty line specification."));
3337 /* We use whatever is set as the current source line. We do not try
3338 and get a default source symtab+line or it will recursively call us! */
3339 symtab_and_line cursal
= get_current_source_symtab_and_line ();
3341 event_location_up location
= string_to_event_location (&string
,
3343 std::vector
<symtab_and_line
> sals
3344 = decode_line_1 (location
.get (), flags
, NULL
, cursal
.symtab
, cursal
.line
);
3347 error (_("Junk at end of line specification: %s"), string
);
3352 /* See linespec.h. */
3354 std::vector
<symtab_and_line
>
3355 decode_line_with_last_displayed (const char *string
, int flags
)
3358 error (_("Empty line specification."));
3360 event_location_up location
= string_to_event_location (&string
,
3362 std::vector
<symtab_and_line
> sals
3363 = (last_displayed_sal_is_valid ()
3364 ? decode_line_1 (location
.get (), flags
, NULL
,
3365 get_last_displayed_symtab (),
3366 get_last_displayed_line ())
3367 : decode_line_1 (location
.get (), flags
, NULL
,
3368 (struct symtab
*) NULL
, 0));
3371 error (_("Junk at end of line specification: %s"), string
);
3378 /* First, some functions to initialize stuff at the beggining of the
3382 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
3384 if (*default_symtab
== 0)
3386 /* Use whatever we have for the default source line. We don't use
3387 get_current_or_default_symtab_and_line as it can recurse and call
3389 struct symtab_and_line cursal
=
3390 get_current_source_symtab_and_line ();
3392 *default_symtab
= cursal
.symtab
;
3393 *default_line
= cursal
.line
;
3399 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
3400 advancing EXP_PTR past any parsed text. */
3403 linespec_expression_to_pc (const char **exp_ptr
)
3405 if (current_program_space
->executing_startup
)
3406 /* The error message doesn't really matter, because this case
3407 should only hit during breakpoint reset. */
3408 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
3409 "program space is in startup"));
3412 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
3417 /* Here's where we recognise an Objective-C Selector. An Objective C
3418 selector may be implemented by more than one class, therefore it
3419 may represent more than one method/function. This gives us a
3420 situation somewhat analogous to C++ overloading. If there's more
3421 than one method that could represent the selector, then use some of
3422 the existing C++ code to let the user choose one. */
3424 static std::vector
<symtab_and_line
>
3425 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char *arg
)
3427 struct collect_info info
;
3428 VEC (const_char_ptr
) *symbol_names
= NULL
;
3429 const char *new_argptr
;
3430 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3434 info
.file_symtabs
= NULL
;
3435 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
3436 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
3437 info
.result
.symbols
= NULL
;
3438 info
.result
.minimal_symbols
= NULL
;
3440 new_argptr
= find_imps (arg
, &symbol_names
);
3441 if (VEC_empty (const_char_ptr
, symbol_names
))
3443 do_cleanups (cleanup
);
3447 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
,
3450 std::vector
<symtab_and_line
> values
;
3451 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3452 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3456 saved_arg
= (char *) alloca (new_argptr
- arg
+ 1);
3457 memcpy (saved_arg
, arg
, new_argptr
- arg
);
3458 saved_arg
[new_argptr
- arg
] = '\0';
3460 ls
->explicit_loc
.function_name
= xstrdup (saved_arg
);
3461 ls
->function_symbols
= info
.result
.symbols
;
3462 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
3463 values
= convert_linespec_to_sals (self
, ls
);
3465 if (self
->canonical
)
3470 self
->canonical
->pre_expanded
= 1;
3472 if (ls
->explicit_loc
.source_filename
)
3474 holder
= string_printf ("%s:%s",
3475 ls
->explicit_loc
.source_filename
,
3477 str
= holder
.c_str ();
3482 self
->canonical
->location
3483 = new_linespec_location (&str
, symbol_name_match_type::FULL
);
3487 do_cleanups (cleanup
);
3494 /* A function object that serves as symbol_found_callback_ftype
3495 callback for iterate_over_symbols. This is used by
3496 lookup_prefix_sym to collect type symbols. */
3497 class decode_compound_collector
3500 decode_compound_collector ()
3503 m_unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
3504 htab_eq_pointer
, NULL
,
3508 ~decode_compound_collector ()
3510 if (m_unique_syms
!= NULL
)
3511 htab_delete (m_unique_syms
);
3514 /* Releases ownership of the collected symbols and returns them. */
3515 VEC (symbolp
) *release_symbols ()
3517 VEC (symbolp
) *res
= m_symbols
;
3522 /* Callable as a symbol_found_callback_ftype callback. */
3523 bool operator () (symbol
*sym
);
3526 /* A hash table of all symbols we found. We use this to avoid
3527 adding any symbol more than once. */
3528 htab_t m_unique_syms
;
3530 /* The result vector. */
3531 VEC (symbolp
) *m_symbols
;
3535 decode_compound_collector::operator () (symbol
*sym
)
3540 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
3541 return true; /* Continue iterating. */
3543 t
= SYMBOL_TYPE (sym
);
3544 t
= check_typedef (t
);
3545 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
3546 && TYPE_CODE (t
) != TYPE_CODE_UNION
3547 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
3548 return true; /* Continue iterating. */
3550 slot
= htab_find_slot (m_unique_syms
, sym
, INSERT
);
3554 VEC_safe_push (symbolp
, m_symbols
, sym
);
3557 return true; /* Continue iterating. */
3562 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
3564 static VEC (symbolp
) *
3565 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
3566 const char *class_name
)
3570 decode_compound_collector collector
;
3572 lookup_name_info
lookup_name (class_name
, symbol_name_match_type::FULL
);
3574 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
3578 iterate_over_all_matching_symtabs (state
, lookup_name
,
3579 STRUCT_DOMAIN
, ALL_DOMAIN
,
3580 NULL
, false, collector
);
3581 iterate_over_all_matching_symtabs (state
, lookup_name
,
3582 VAR_DOMAIN
, ALL_DOMAIN
,
3583 NULL
, false, collector
);
3587 /* Program spaces that are executing startup should have
3588 been filtered out earlier. */
3589 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3590 set_current_program_space (SYMTAB_PSPACE (elt
));
3591 iterate_over_file_blocks (elt
, lookup_name
, STRUCT_DOMAIN
, collector
);
3592 iterate_over_file_blocks (elt
, lookup_name
, VAR_DOMAIN
, collector
);
3596 return collector
.release_symbols ();
3599 /* A qsort comparison function for symbols. The resulting order does
3600 not actually matter; we just need to be able to sort them so that
3601 symbols with the same program space end up next to each other. */
3604 compare_symbols (const void *a
, const void *b
)
3606 struct symbol
* const *sa
= (struct symbol
* const*) a
;
3607 struct symbol
* const *sb
= (struct symbol
* const*) b
;
3610 uia
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sa
));
3611 uib
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sb
));
3618 uia
= (uintptr_t) *sa
;
3619 uib
= (uintptr_t) *sb
;
3629 /* Like compare_symbols but for minimal symbols. */
3632 compare_msymbols (const void *a
, const void *b
)
3634 const struct bound_minimal_symbol
*sa
3635 = (const struct bound_minimal_symbol
*) a
;
3636 const struct bound_minimal_symbol
*sb
3637 = (const struct bound_minimal_symbol
*) b
;
3640 uia
= (uintptr_t) sa
->objfile
->pspace
;
3641 uib
= (uintptr_t) sa
->objfile
->pspace
;
3648 uia
= (uintptr_t) sa
->minsym
;
3649 uib
= (uintptr_t) sb
->minsym
;
3659 /* Look for all the matching instances of each symbol in NAMES. Only
3660 instances from PSPACE are considered; other program spaces are
3661 handled by our caller. If PSPACE is NULL, then all program spaces
3662 are considered. Results are stored into INFO. */
3665 add_all_symbol_names_from_pspace (struct collect_info
*info
,
3666 struct program_space
*pspace
,
3667 VEC (const_char_ptr
) *names
,
3668 enum search_domain search_domain
)
3673 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
3674 add_matching_symbols_to_info (iter
,
3675 symbol_name_match_type::FULL
,
3676 search_domain
, info
, pspace
);
3680 find_superclass_methods (VEC (typep
) *superclasses
,
3681 const char *name
, enum language name_lang
,
3682 VEC (const_char_ptr
) **result_names
)
3684 int old_len
= VEC_length (const_char_ptr
, *result_names
);
3685 VEC (typep
) *iter_classes
;
3686 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
3688 iter_classes
= superclasses
;
3691 VEC (typep
) *new_supers
= NULL
;
3695 make_cleanup (VEC_cleanup (typep
), &new_supers
);
3696 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
3697 find_methods (t
, name_lang
, name
, result_names
, &new_supers
);
3699 if (VEC_length (const_char_ptr
, *result_names
) != old_len
3700 || VEC_empty (typep
, new_supers
))
3703 iter_classes
= new_supers
;
3706 do_cleanups (cleanup
);
3709 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
3710 given by one of the symbols in SYM_CLASSES. Matches are returned
3711 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
3714 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
3715 const char *class_name
, const char *method_name
,
3716 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
3717 VEC (bound_minimal_symbol_d
) **minsyms
)
3720 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
3722 int last_result_len
;
3723 VEC (typep
) *superclass_vec
;
3724 VEC (const_char_ptr
) *result_names
;
3725 struct collect_info info
;
3727 /* Sort symbols so that symbols with the same program space are next
3729 qsort (VEC_address (symbolp
, sym_classes
),
3730 VEC_length (symbolp
, sym_classes
),
3735 info
.file_symtabs
= file_symtabs
;
3736 info
.result
.symbols
= NULL
;
3737 info
.result
.minimal_symbols
= NULL
;
3739 /* Iterate over all the types, looking for the names of existing
3740 methods matching METHOD_NAME. If we cannot find a direct method in a
3741 given program space, then we consider inherited methods; this is
3742 not ideal (ideal would be to respect C++ hiding rules), but it
3743 seems good enough and is what GDB has historically done. We only
3744 need to collect the names because later we find all symbols with
3745 those names. This loop is written in a somewhat funny way
3746 because we collect data across the program space before deciding
3748 superclass_vec
= NULL
;
3749 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
3750 result_names
= NULL
;
3751 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
3752 last_result_len
= 0;
3753 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
3756 struct program_space
*pspace
;
3758 /* Program spaces that are executing startup should have
3759 been filtered out earlier. */
3760 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
3761 gdb_assert (!pspace
->executing_startup
);
3762 set_current_program_space (pspace
);
3763 t
= check_typedef (SYMBOL_TYPE (sym
));
3764 find_methods (t
, SYMBOL_LANGUAGE (sym
),
3765 method_name
, &result_names
, &superclass_vec
);
3767 /* Handle all items from a single program space at once; and be
3768 sure not to miss the last batch. */
3769 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
3771 != SYMTAB_PSPACE (symbol_symtab (VEC_index (symbolp
, sym_classes
,
3774 /* If we did not find a direct implementation anywhere in
3775 this program space, consider superclasses. */
3776 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
3777 find_superclass_methods (superclass_vec
, method_name
,
3778 SYMBOL_LANGUAGE (sym
), &result_names
);
3780 /* We have a list of candidate symbol names, so now we
3781 iterate over the symbol tables looking for all
3782 matches in this pspace. */
3783 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
,
3786 VEC_truncate (typep
, superclass_vec
, 0);
3787 last_result_len
= VEC_length (const_char_ptr
, result_names
);
3791 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3792 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3794 *symbols
= info
.result
.symbols
;
3795 *minsyms
= info
.result
.minimal_symbols
;
3796 do_cleanups (cleanup
);
3800 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
3801 and other attempts to locate the symbol will be made. */
3802 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
3809 /* This function object is a callback for iterate_over_symtabs, used
3810 when collecting all matching symtabs. */
3812 class symtab_collector
3818 m_symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3822 ~symtab_collector ()
3824 if (m_symtab_table
!= NULL
)
3825 htab_delete (m_symtab_table
);
3828 /* Callable as a symbol_found_callback_ftype callback. */
3829 bool operator () (symtab
*sym
);
3831 /* Releases ownership of the collected symtabs and returns them. */
3832 VEC (symtab_ptr
) *release_symtabs ()
3834 VEC (symtab_ptr
) *res
= m_symtabs
;
3840 /* The result vector of symtabs. */
3841 VEC (symtab_ptr
) *m_symtabs
;
3843 /* This is used to ensure the symtabs are unique. */
3844 htab_t m_symtab_table
;
3848 symtab_collector::operator () (struct symtab
*symtab
)
3852 slot
= htab_find_slot (m_symtab_table
, symtab
, INSERT
);
3856 VEC_safe_push (symtab_ptr
, m_symtabs
, symtab
);
3864 /* Given a file name, return a VEC of all matching symtabs. If
3865 SEARCH_PSPACE is not NULL, the search is restricted to just that
3868 static VEC (symtab_ptr
) *
3869 collect_symtabs_from_filename (const char *file
,
3870 struct program_space
*search_pspace
)
3872 symtab_collector collector
;
3874 /* Find that file's data. */
3875 if (search_pspace
== NULL
)
3877 struct program_space
*pspace
;
3879 ALL_PSPACES (pspace
)
3881 if (pspace
->executing_startup
)
3884 set_current_program_space (pspace
);
3885 iterate_over_symtabs (file
, collector
);
3890 set_current_program_space (search_pspace
);
3891 iterate_over_symtabs (file
, collector
);
3894 return collector
.release_symtabs ();
3897 /* Return all the symtabs associated to the FILENAME. If SEARCH_PSPACE is
3898 not NULL, the search is restricted to just that program space. */
3900 static VEC (symtab_ptr
) *
3901 symtabs_from_filename (const char *filename
,
3902 struct program_space
*search_pspace
)
3904 VEC (symtab_ptr
) *result
;
3906 result
= collect_symtabs_from_filename (filename
, search_pspace
);
3908 if (VEC_empty (symtab_ptr
, result
))
3910 if (!have_full_symbols () && !have_partial_symbols ())
3911 throw_error (NOT_FOUND_ERROR
,
3912 _("No symbol table is loaded. "
3913 "Use the \"file\" command."));
3914 source_file_not_found_error (filename
);
3920 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3921 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3922 returned in MINSYMS. */
3925 find_function_symbols (struct linespec_state
*state
,
3926 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3927 symbol_name_match_type name_match_type
,
3928 VEC (symbolp
) **symbols
,
3929 VEC (bound_minimal_symbol_d
) **minsyms
)
3931 struct collect_info info
;
3932 VEC (const_char_ptr
) *symbol_names
= NULL
;
3933 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3937 info
.result
.symbols
= NULL
;
3938 info
.result
.minimal_symbols
= NULL
;
3939 info
.file_symtabs
= file_symtabs
;
3941 /* Try NAME as an Objective-C selector. */
3942 find_imps (name
, &symbol_names
);
3943 if (!VEC_empty (const_char_ptr
, symbol_names
))
3944 add_all_symbol_names_from_pspace (&info
, state
->search_pspace
,
3945 symbol_names
, FUNCTIONS_DOMAIN
);
3947 add_matching_symbols_to_info (name
, name_match_type
, FUNCTIONS_DOMAIN
,
3948 &info
, state
->search_pspace
);
3950 do_cleanups (cleanup
);
3952 if (VEC_empty (symbolp
, info
.result
.symbols
))
3954 VEC_free (symbolp
, info
.result
.symbols
);
3958 *symbols
= info
.result
.symbols
;
3960 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3962 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3966 *minsyms
= info
.result
.minimal_symbols
;
3969 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3970 in SYMBOLS and minimal symbols in MINSYMS. */
3973 find_linespec_symbols (struct linespec_state
*state
,
3974 VEC (symtab_ptr
) *file_symtabs
,
3975 const char *lookup_name
,
3976 symbol_name_match_type name_match_type
,
3977 VEC (symbolp
) **symbols
,
3978 VEC (bound_minimal_symbol_d
) **minsyms
)
3980 std::string canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3981 if (!canon
.empty ())
3982 lookup_name
= canon
.c_str ();
3984 /* It's important to not call expand_symtabs_matching unnecessarily
3985 as it can really slow things down (by unnecessarily expanding
3986 potentially 1000s of symtabs, which when debugging some apps can
3987 cost 100s of seconds). Avoid this to some extent by *first* calling
3988 find_function_symbols, and only if that doesn't find anything
3989 *then* call find_method. This handles two important cases:
3990 1) break (anonymous namespace)::foo
3991 2) break class::method where method is in class (and not a baseclass) */
3993 find_function_symbols (state
, file_symtabs
, lookup_name
,
3997 /* If we were unable to locate a symbol of the same name, try dividing
3998 the name into class and method names and searching the class and its
4000 if (VEC_empty (symbolp
, *symbols
)
4001 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
4003 std::string klass
, method
;
4004 const char *last
, *p
, *scope_op
;
4005 VEC (symbolp
) *classes
;
4007 /* See if we can find a scope operator and break this symbol
4008 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
4010 p
= find_toplevel_string (lookup_name
, scope_op
);
4016 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
4019 /* If no scope operator was found, there is nothing more we can do;
4020 we already attempted to lookup the entire name as a symbol
4025 /* LOOKUP_NAME points to the class name.
4026 LAST points to the method name. */
4027 klass
= std::string (lookup_name
, last
- lookup_name
);
4029 /* Skip past the scope operator. */
4030 last
+= strlen (scope_op
);
4033 /* Find a list of classes named KLASS. */
4034 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
.c_str ());
4035 struct cleanup
*old_chain
4036 = make_cleanup (VEC_cleanup (symbolp
), &classes
);
4038 if (!VEC_empty (symbolp
, classes
))
4040 /* Now locate a list of suitable methods named METHOD. */
4043 find_method (state
, file_symtabs
,
4044 klass
.c_str (), method
.c_str (),
4045 classes
, symbols
, minsyms
);
4048 /* If successful, we're done. If NOT_FOUND_ERROR
4049 was not thrown, rethrow the exception that we did get. */
4050 CATCH (except
, RETURN_MASK_ERROR
)
4052 if (except
.error
!= NOT_FOUND_ERROR
)
4053 throw_exception (except
);
4058 do_cleanups (old_chain
);
4062 /* Helper for find_label_symbols. Find all labels that match name
4063 NAME in BLOCK. Return all labels that match in FUNCTION_SYMBOLS.
4064 Return the actual function symbol in which the label was found in
4065 LABEL_FUNC_RET. If COMPLETION_MODE is true, then NAME is
4066 interpreted as a label name prefix. Otherwise, only a label named
4067 exactly NAME match. */
4070 find_label_symbols_in_block (const struct block
*block
,
4071 const char *name
, struct symbol
*fn_sym
,
4072 bool completion_mode
,
4073 VEC (symbolp
) **result
,
4074 VEC (symbolp
) **label_funcs_ret
)
4076 if (completion_mode
)
4078 struct block_iterator iter
;
4080 size_t name_len
= strlen (name
);
4082 int (*cmp
) (const char *, const char *, size_t);
4083 cmp
= case_sensitivity
== case_sensitive_on
? strncmp
: strncasecmp
;
4085 ALL_BLOCK_SYMBOLS (block
, iter
, sym
)
4087 if (symbol_matches_domain (SYMBOL_LANGUAGE (sym
),
4088 SYMBOL_DOMAIN (sym
), LABEL_DOMAIN
)
4089 && cmp (SYMBOL_SEARCH_NAME (sym
), name
, name_len
) == 0)
4091 VEC_safe_push (symbolp
, *result
, sym
);
4092 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
4098 struct symbol
*sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
4102 VEC_safe_push (symbolp
, *result
, sym
);
4103 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
4108 /* Return all labels that match name NAME in FUNCTION_SYMBOLS. Return
4109 the actual function symbol in which the label was found in
4110 LABEL_FUNC_RET. If COMPLETION_MODE is true, then NAME is
4111 interpreted as a label name prefix. Otherwise, only labels named
4112 exactly NAME match. */
4114 static VEC (symbolp
) *
4115 find_label_symbols (struct linespec_state
*self
,
4116 VEC (symbolp
) *function_symbols
,
4117 VEC (symbolp
) **label_funcs_ret
, const char *name
,
4118 bool completion_mode
)
4121 const struct block
*block
;
4122 struct symbol
*fn_sym
;
4123 VEC (symbolp
) *result
= NULL
;
4125 if (function_symbols
== NULL
)
4127 set_current_program_space (self
->program_space
);
4128 block
= get_current_search_block ();
4131 block
&& !BLOCK_FUNCTION (block
);
4132 block
= BLOCK_SUPERBLOCK (block
))
4136 fn_sym
= BLOCK_FUNCTION (block
);
4138 find_label_symbols_in_block (block
, name
, fn_sym
, completion_mode
,
4139 &result
, label_funcs_ret
);
4144 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
4146 set_current_program_space (SYMTAB_PSPACE (symbol_symtab (fn_sym
)));
4147 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
4149 find_label_symbols_in_block (block
, name
, fn_sym
, completion_mode
,
4150 &result
, label_funcs_ret
);
4159 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
4161 static std::vector
<symtab_and_line
>
4162 decode_digits_list_mode (struct linespec_state
*self
,
4164 struct symtab_and_line val
)
4169 gdb_assert (self
->list_mode
);
4171 std::vector
<symtab_and_line
> values
;
4173 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
4176 /* The logic above should ensure this. */
4177 gdb_assert (elt
!= NULL
);
4179 set_current_program_space (SYMTAB_PSPACE (elt
));
4181 /* Simplistic search just for the list command. */
4182 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
4183 if (val
.symtab
== NULL
)
4185 val
.pspace
= SYMTAB_PSPACE (elt
);
4187 val
.explicit_line
= 1;
4189 add_sal_to_sals (self
, &values
, &val
, NULL
, 0);
4195 /* A helper for create_sals_line_offset that iterates over the symtabs,
4196 adding lines to the VEC. */
4198 static std::vector
<symtab_and_line
>
4199 decode_digits_ordinary (struct linespec_state
*self
,
4202 struct linetable_entry
**best_entry
)
4207 std::vector
<symtab_and_line
> sals
;
4208 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
4210 std::vector
<CORE_ADDR
> pcs
;
4212 /* The logic above should ensure this. */
4213 gdb_assert (elt
!= NULL
);
4215 set_current_program_space (SYMTAB_PSPACE (elt
));
4217 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
4218 for (CORE_ADDR pc
: pcs
)
4220 symtab_and_line sal
;
4221 sal
.pspace
= SYMTAB_PSPACE (elt
);
4225 sals
.push_back (std::move (sal
));
4234 /* Return the line offset represented by VARIABLE. */
4236 static struct line_offset
4237 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
4241 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
4243 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
4246 while (*p
>= '0' && *p
<= '9')
4248 if (!*p
) /* Reached end of token without hitting non-digit. */
4250 /* We have a value history reference. */
4251 struct value
*val_history
;
4253 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
4255 = access_value_history ((variable
[1] == '$') ? -index
: index
);
4256 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
4257 error (_("History values used in line "
4258 "specs must have integer values."));
4259 offset
.offset
= value_as_long (val_history
);
4263 /* Not all digits -- may be user variable/function or a
4264 convenience variable. */
4266 struct internalvar
*ivar
;
4268 /* Try it as a convenience variable. If it is not a convenience
4269 variable, return and allow normal symbol lookup to occur. */
4270 ivar
= lookup_only_internalvar (variable
+ 1);
4272 /* No internal variable with that name. Mark the offset
4273 as unknown to allow the name to be looked up as a symbol. */
4274 offset
.sign
= LINE_OFFSET_UNKNOWN
;
4277 /* We found a valid variable name. If it is not an integer,
4279 if (!get_internalvar_integer (ivar
, &valx
))
4280 error (_("Convenience variables used in line "
4281 "specs must have integer values."));
4283 offset
.offset
= valx
;
4291 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
4292 linespec; return the SAL in RESULT. This function should return SALs
4293 matching those from find_function_start_sal, otherwise false
4294 multiple-locations breakpoints could be placed. */
4297 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
4298 struct minimal_symbol
*msymbol
,
4299 std::vector
<symtab_and_line
> *result
)
4301 struct symtab_and_line sal
;
4303 CORE_ADDR func_addr
;
4304 if (msymbol_is_function (objfile
, msymbol
, &func_addr
))
4306 sal
= find_pc_sect_line (func_addr
, NULL
, 0);
4308 if (self
->funfirstline
)
4310 if (sal
.symtab
!= NULL
4311 && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal
.symtab
))
4312 || SYMTAB_LANGUAGE (sal
.symtab
) == language_asm
))
4314 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
4317 if (gdbarch_skip_entrypoint_p (gdbarch
))
4318 sal
.pc
= gdbarch_skip_entrypoint (gdbarch
, sal
.pc
);
4321 skip_prologue_sal (&sal
);
4326 sal
.objfile
= objfile
;
4327 sal
.pc
= MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
);
4328 sal
.pspace
= current_program_space
;
4331 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
4333 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
4334 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
4337 /* A helper function to classify a minimal_symbol_type according to
4341 classify_mtype (enum minimal_symbol_type t
)
4348 /* Intermediate priority. */
4351 case mst_solib_trampoline
:
4352 /* Lowest priority. */
4356 /* Highest priority. */
4361 /* Callback for std::sort that sorts symbols by priority. */
4364 compare_msyms (const bound_minimal_symbol
&a
, const bound_minimal_symbol
&b
)
4366 enum minimal_symbol_type ta
= MSYMBOL_TYPE (a
.minsym
);
4367 enum minimal_symbol_type tb
= MSYMBOL_TYPE (b
.minsym
);
4369 return classify_mtype (ta
) < classify_mtype (tb
);
4372 /* Helper for search_minsyms_for_name that adds the symbol to the
4376 add_minsym (struct minimal_symbol
*minsym
, struct objfile
*objfile
,
4377 struct symtab
*symtab
, int list_mode
,
4378 std::vector
<struct bound_minimal_symbol
> *msyms
)
4382 /* We're looking for a label for which we don't have debug
4384 CORE_ADDR func_addr
;
4385 if (msymbol_is_function (objfile
, minsym
, &func_addr
))
4387 symtab_and_line sal
= find_pc_sect_line (func_addr
, NULL
, 0);
4389 if (symtab
!= sal
.symtab
)
4394 /* Exclude data symbols when looking for breakpoint locations. */
4395 if (!list_mode
&& !msymbol_is_function (objfile
, minsym
))
4398 struct bound_minimal_symbol mo
= {minsym
, objfile
};
4399 msyms
->push_back (mo
);
4402 /* Search for minimal symbols called NAME. If SEARCH_PSPACE
4403 is not NULL, the search is restricted to just that program
4406 If SYMTAB is NULL, search all objfiles, otherwise
4407 restrict results to the given SYMTAB. */
4410 search_minsyms_for_name (struct collect_info
*info
,
4411 const lookup_name_info
&name
,
4412 struct program_space
*search_pspace
,
4413 struct symtab
*symtab
)
4415 std::vector
<struct bound_minimal_symbol
> minsyms
;
4419 struct program_space
*pspace
;
4421 ALL_PSPACES (pspace
)
4423 struct objfile
*objfile
;
4425 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
4427 if (pspace
->executing_startup
)
4430 set_current_program_space (pspace
);
4432 ALL_OBJFILES (objfile
)
4434 iterate_over_minimal_symbols (objfile
, name
,
4435 [&] (struct minimal_symbol
*msym
)
4437 add_minsym (msym
, objfile
, nullptr,
4438 info
->state
->list_mode
,
4446 if (search_pspace
== NULL
|| SYMTAB_PSPACE (symtab
) == search_pspace
)
4448 set_current_program_space (SYMTAB_PSPACE (symtab
));
4449 iterate_over_minimal_symbols
4450 (SYMTAB_OBJFILE (symtab
), name
,
4451 [&] (struct minimal_symbol
*msym
)
4453 add_minsym (msym
, SYMTAB_OBJFILE (symtab
), symtab
,
4454 info
->state
->list_mode
, &minsyms
);
4459 if (!minsyms
.empty ())
4463 std::sort (minsyms
.begin (), minsyms
.end (), compare_msyms
);
4465 /* Now the minsyms are in classification order. So, we walk
4466 over them and process just the minsyms with the same
4467 classification as the very first minsym in the list. */
4468 classification
= classify_mtype (MSYMBOL_TYPE (minsyms
[0].minsym
));
4470 for (const struct bound_minimal_symbol
&item
: minsyms
)
4472 if (classify_mtype (MSYMBOL_TYPE (item
.minsym
)) != classification
)
4475 VEC_safe_push (bound_minimal_symbol_d
,
4476 info
->result
.minimal_symbols
, &item
);
4481 /* A helper function to add all symbols matching NAME to INFO. If
4482 PSPACE is not NULL, the search is restricted to just that program
4486 add_matching_symbols_to_info (const char *name
,
4487 symbol_name_match_type name_match_type
,
4488 enum search_domain search_domain
,
4489 struct collect_info
*info
,
4490 struct program_space
*pspace
)
4495 lookup_name_info
lookup_name (name
, name_match_type
);
4497 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
4501 iterate_over_all_matching_symtabs (info
->state
, lookup_name
,
4502 VAR_DOMAIN
, search_domain
,
4503 pspace
, true, [&] (symbol
*sym
)
4504 { return info
->add_symbol (sym
); });
4505 search_minsyms_for_name (info
, lookup_name
, pspace
, NULL
);
4507 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
4509 int prev_len
= VEC_length (symbolp
, info
->result
.symbols
);
4511 /* Program spaces that are executing startup should have
4512 been filtered out earlier. */
4513 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
4514 set_current_program_space (SYMTAB_PSPACE (elt
));
4515 iterate_over_file_blocks (elt
, lookup_name
, VAR_DOMAIN
,
4517 { return info
->add_symbol (sym
); });
4519 /* If no new symbols were found in this iteration and this symtab
4520 is in assembler, we might actually be looking for a label for
4521 which we don't have debug info. Check for a minimal symbol in
4523 if (prev_len
== VEC_length (symbolp
, info
->result
.symbols
)
4524 && elt
->language
== language_asm
)
4525 search_minsyms_for_name (info
, lookup_name
, pspace
, elt
);
4532 /* Now come some functions that are called from multiple places within
4536 symbol_to_sal (struct symtab_and_line
*result
,
4537 int funfirstline
, struct symbol
*sym
)
4539 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
4541 *result
= find_function_start_sal (sym
, funfirstline
);
4546 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
4549 result
->symtab
= symbol_symtab (sym
);
4550 result
->symbol
= sym
;
4551 result
->line
= SYMBOL_LINE (sym
);
4552 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
4553 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
4554 result
->explicit_pc
= 1;
4557 else if (funfirstline
)
4561 else if (SYMBOL_LINE (sym
) != 0)
4563 /* We know its line number. */
4565 result
->symtab
= symbol_symtab (sym
);
4566 result
->symbol
= sym
;
4567 result
->line
= SYMBOL_LINE (sym
);
4568 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
4569 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
4577 linespec_result::~linespec_result ()
4579 for (linespec_sals
&lsal
: lsals
)
4580 xfree (lsal
.canonical
);
4583 /* Return the quote characters permitted by the linespec parser. */
4586 get_gdb_linespec_parser_quote_characters (void)
4588 return linespec_quote_characters
;