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. */
1390 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1392 if (canonical
->symtab
== NULL
)
1393 return canonical
->suffix
;
1395 return string_printf ("%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 const std::vector
<const char *> &filters
)
1407 for (const char *name
: filters
)
1411 for (size_t j
= 0; j
< result
->size (); ++j
)
1413 const struct linespec_canonical_name
*canonical
;
1415 canonical
= &self
->canonical_names
[j
];
1416 std::string fullform
= canonical_to_fullform (canonical
);
1418 if (name
== fullform
)
1419 lsal
.sals
.push_back ((*result
)[j
]);
1422 if (!lsal
.sals
.empty ())
1424 lsal
.canonical
= xstrdup (name
);
1425 self
->canonical
->lsals
.push_back (std::move (lsal
));
1429 self
->canonical
->pre_expanded
= 0;
1432 /* Store RESULT into SELF->CANONICAL. */
1435 convert_results_to_lsals (struct linespec_state
*self
,
1436 std::vector
<symtab_and_line
> *result
)
1438 struct linespec_sals lsal
;
1440 lsal
.canonical
= NULL
;
1441 lsal
.sals
= std::move (*result
);
1442 self
->canonical
->lsals
.push_back (std::move (lsal
));
1445 /* A structure that contains two string representations of a struct
1446 linespec_canonical_name:
1447 - one where the the symtab's fullname is used;
1448 - one where the filename followed the "set filename-display"
1451 struct decode_line_2_item
1453 decode_line_2_item (std::string
&&fullform_
, std::string
&&displayform_
,
1455 : fullform (std::move (fullform_
)),
1456 displayform (std::move (displayform_
)),
1457 selected (selected_
)
1461 /* The form using symtab_to_fullname. */
1462 std::string fullform
;
1464 /* The form using symtab_to_filename_for_display. */
1465 std::string displayform
;
1467 /* Field is initialized to zero and it is set to one if the user
1468 requested breakpoint for this entry. */
1469 unsigned int selected
: 1;
1472 /* Helper for std::sort to sort decode_line_2_item entries by
1473 DISPLAYFORM and secondarily by FULLFORM. */
1476 decode_line_2_compare_items (const decode_line_2_item
&a
,
1477 const decode_line_2_item
&b
)
1479 if (a
.displayform
!= b
.displayform
)
1480 return a
.displayform
< b
.displayform
;
1481 return a
.fullform
< b
.fullform
;
1484 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1485 will either return normally, throw an exception on multiple
1486 results, or present a menu to the user. On return, the SALS vector
1487 in SELF->CANONICAL is set up properly. */
1490 decode_line_2 (struct linespec_state
*self
,
1491 std::vector
<symtab_and_line
> *result
,
1492 const char *select_mode
)
1497 std::vector
<const char *> filters
;
1498 std::vector
<struct decode_line_2_item
> items
;
1500 gdb_assert (select_mode
!= multiple_symbols_all
);
1501 gdb_assert (self
->canonical
!= NULL
);
1502 gdb_assert (!result
->empty ());
1504 /* Prepare ITEMS array. */
1505 for (i
= 0; i
< result
->size (); ++i
)
1507 const struct linespec_canonical_name
*canonical
;
1508 struct decode_line_2_item
*item
;
1510 std::string displayform
;
1512 canonical
= &self
->canonical_names
[i
];
1513 gdb_assert (canonical
->suffix
!= NULL
);
1515 std::string fullform
= canonical_to_fullform (canonical
);
1517 if (canonical
->symtab
== NULL
)
1518 displayform
= canonical
->suffix
;
1521 const char *fn_for_display
;
1523 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1524 displayform
= string_printf ("%s:%s", fn_for_display
,
1528 items
.emplace_back (std::move (fullform
), std::move (displayform
),
1532 /* Sort the list of method names. */
1533 std::sort (items
.begin (), items
.end (), decode_line_2_compare_items
);
1535 /* Remove entries with the same FULLFORM. */
1536 items
.erase (std::unique (items
.begin (), items
.end (),
1537 [] (const struct decode_line_2_item
&a
,
1538 const struct decode_line_2_item
&b
)
1540 return a
.fullform
== b
.fullform
;
1544 if (select_mode
== multiple_symbols_cancel
&& items
.size () > 1)
1545 error (_("canceled because the command is ambiguous\n"
1546 "See set/show multiple-symbol."));
1548 if (select_mode
== multiple_symbols_all
|| items
.size () == 1)
1550 convert_results_to_lsals (self
, result
);
1554 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1555 for (i
= 0; i
< items
.size (); i
++)
1556 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
.c_str ());
1558 prompt
= getenv ("PS2");
1563 args
= command_line_input (prompt
, 0, "overload-choice");
1565 if (args
== 0 || *args
== 0)
1566 error_no_arg (_("one or more choice numbers"));
1568 number_or_range_parser
parser (args
);
1569 while (!parser
.finished ())
1571 int num
= parser
.get_number ();
1574 error (_("canceled"));
1577 /* We intentionally make this result in a single breakpoint,
1578 contrary to what older versions of gdb did. The
1579 rationale is that this lets a user get the
1580 multiple_symbols_all behavior even with the 'ask'
1581 setting; and he can get separate breakpoints by entering
1582 "2-57" at the query. */
1583 convert_results_to_lsals (self
, result
);
1588 if (num
>= items
.size ())
1589 printf_unfiltered (_("No choice number %d.\n"), num
);
1592 struct decode_line_2_item
*item
= &items
[num
];
1594 if (!item
->selected
)
1596 filters
.push_back (item
->fullform
.c_str ());
1601 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1607 filter_results (self
, result
, filters
);
1612 /* The parser of linespec itself. */
1614 /* Throw an appropriate error when SYMBOL is not found (optionally in
1617 static void ATTRIBUTE_NORETURN
1618 symbol_not_found_error (const char *symbol
, const char *filename
)
1623 if (!have_full_symbols ()
1624 && !have_partial_symbols ()
1625 && !have_minimal_symbols ())
1626 throw_error (NOT_FOUND_ERROR
,
1627 _("No symbol table is loaded. Use the \"file\" command."));
1629 /* If SYMBOL starts with '$', the user attempted to either lookup
1630 a function/variable in his code starting with '$' or an internal
1631 variable of that name. Since we do not know which, be concise and
1632 explain both possibilities. */
1636 throw_error (NOT_FOUND_ERROR
,
1637 _("Undefined convenience variable or function \"%s\" "
1638 "not defined in \"%s\"."), symbol
, filename
);
1640 throw_error (NOT_FOUND_ERROR
,
1641 _("Undefined convenience variable or function \"%s\" "
1642 "not defined."), symbol
);
1647 throw_error (NOT_FOUND_ERROR
,
1648 _("Function \"%s\" not defined in \"%s\"."),
1651 throw_error (NOT_FOUND_ERROR
,
1652 _("Function \"%s\" not defined."), symbol
);
1656 /* Throw an appropriate error when an unexpected token is encountered
1659 static void ATTRIBUTE_NORETURN
1660 unexpected_linespec_error (linespec_parser
*parser
)
1662 linespec_token token
;
1663 static const char * token_type_strings
[]
1664 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1666 /* Get the token that generated the error. */
1667 token
= linespec_lexer_lex_one (parser
);
1669 /* Finally, throw the error. */
1670 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1671 || token
.type
== LSTOKEN_KEYWORD
)
1673 gdb::unique_xmalloc_ptr
<char> string
= copy_token_string (token
);
1674 throw_error (GENERIC_ERROR
,
1675 _("malformed linespec error: unexpected %s, \"%s\""),
1676 token_type_strings
[token
.type
], string
.get ());
1679 throw_error (GENERIC_ERROR
,
1680 _("malformed linespec error: unexpected %s"),
1681 token_type_strings
[token
.type
]);
1684 /* Throw an undefined label error. */
1686 static void ATTRIBUTE_NORETURN
1687 undefined_label_error (const char *function
, const char *label
)
1689 if (function
!= NULL
)
1690 throw_error (NOT_FOUND_ERROR
,
1691 _("No label \"%s\" defined in function \"%s\"."),
1694 throw_error (NOT_FOUND_ERROR
,
1695 _("No label \"%s\" defined in current function."),
1699 /* Throw a source file not found error. */
1701 static void ATTRIBUTE_NORETURN
1702 source_file_not_found_error (const char *name
)
1704 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), name
);
1707 /* Unless at EIO, save the current stream position as completion word
1708 point, and consume the next token. */
1710 static linespec_token
1711 save_stream_and_consume_token (linespec_parser
*parser
)
1713 if (linespec_lexer_peek_token (parser
).type
!= LSTOKEN_EOI
)
1714 parser
->completion_word
= PARSER_STREAM (parser
);
1715 return linespec_lexer_consume_token (parser
);
1718 /* See description in linespec.h. */
1721 linespec_parse_line_offset (const char *string
)
1723 const char *start
= string
;
1724 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1728 line_offset
.sign
= LINE_OFFSET_PLUS
;
1731 else if (*string
== '-')
1733 line_offset
.sign
= LINE_OFFSET_MINUS
;
1737 if (*string
!= '\0' && !isdigit (*string
))
1738 error (_("malformed line offset: \"%s\""), start
);
1740 /* Right now, we only allow base 10 for offsets. */
1741 line_offset
.offset
= atoi (string
);
1745 /* In completion mode, if the user is still typing the number, there's
1746 no possible completion to offer. But if there's already input past
1747 the number, setup to expect NEXT. */
1750 set_completion_after_number (linespec_parser
*parser
,
1751 linespec_complete_what next
)
1753 if (*PARSER_STREAM (parser
) == ' ')
1755 parser
->completion_word
= skip_spaces (PARSER_STREAM (parser
) + 1);
1756 parser
->complete_what
= next
;
1760 parser
->completion_word
= PARSER_STREAM (parser
);
1761 parser
->complete_what
= linespec_complete_what::NOTHING
;
1765 /* Parse the basic_spec in PARSER's input. */
1768 linespec_parse_basic (linespec_parser
*parser
)
1770 gdb::unique_xmalloc_ptr
<char> name
;
1771 linespec_token token
;
1772 VEC (symbolp
) *symbols
, *labels
;
1773 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1775 /* Get the next token. */
1776 token
= linespec_lexer_lex_one (parser
);
1778 /* If it is EOI or KEYWORD, issue an error. */
1779 if (token
.type
== LSTOKEN_KEYWORD
)
1781 parser
->complete_what
= linespec_complete_what::NOTHING
;
1782 unexpected_linespec_error (parser
);
1784 else if (token
.type
== LSTOKEN_EOI
)
1786 unexpected_linespec_error (parser
);
1788 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1789 else if (token
.type
== LSTOKEN_NUMBER
)
1791 set_completion_after_number (parser
, linespec_complete_what::KEYWORD
);
1793 /* Record the line offset and get the next token. */
1794 name
= copy_token_string (token
);
1795 PARSER_EXPLICIT (parser
)->line_offset
1796 = linespec_parse_line_offset (name
.get ());
1798 /* Get the next token. */
1799 token
= linespec_lexer_consume_token (parser
);
1801 /* If the next token is a comma, stop parsing and return. */
1802 if (token
.type
== LSTOKEN_COMMA
)
1804 parser
->complete_what
= linespec_complete_what::NOTHING
;
1808 /* If the next token is anything but EOI or KEYWORD, issue
1810 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1811 unexpected_linespec_error (parser
);
1814 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1817 /* Next token must be LSTOKEN_STRING. */
1818 if (token
.type
!= LSTOKEN_STRING
)
1820 parser
->complete_what
= linespec_complete_what::NOTHING
;
1821 unexpected_linespec_error (parser
);
1824 /* The current token will contain the name of a function, method,
1826 name
= copy_token_string (token
);
1828 if (parser
->completion_tracker
!= NULL
)
1830 /* If the function name ends with a ":", then this may be an
1831 incomplete "::" scope operator instead of a label separator.
1834 which should expand to:
1837 Do a tentative completion assuming the later. If we find
1838 completions, advance the stream past the colon token and make
1839 it part of the function name/token. */
1841 if (!parser
->completion_quote_char
1842 && strcmp (PARSER_STREAM (parser
), ":") == 0)
1844 completion_tracker tmp_tracker
;
1845 const char *source_filename
1846 = PARSER_EXPLICIT (parser
)->source_filename
;
1847 symbol_name_match_type match_type
1848 = PARSER_EXPLICIT (parser
)->func_name_match_type
;
1850 linespec_complete_function (tmp_tracker
,
1851 parser
->completion_word
,
1855 if (tmp_tracker
.have_completions ())
1857 PARSER_STREAM (parser
)++;
1858 LS_TOKEN_STOKEN (token
).length
++;
1860 name
.reset (savestring (parser
->completion_word
,
1861 (PARSER_STREAM (parser
)
1862 - parser
->completion_word
)));
1866 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1870 /* Try looking it up as a function/method. */
1871 find_linespec_symbols (PARSER_STATE (parser
),
1872 PARSER_RESULT (parser
)->file_symtabs
, name
.get (),
1873 PARSER_EXPLICIT (parser
)->func_name_match_type
,
1874 &symbols
, &minimal_symbols
);
1876 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1878 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1879 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1880 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1885 /* NAME was not a function or a method. So it must be a label
1886 name or user specified variable like "break foo.c:$zippo". */
1887 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1888 &symbols
, name
.get ());
1891 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1892 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1893 PARSER_EXPLICIT (parser
)->label_name
= name
.release ();
1896 else if (token
.type
== LSTOKEN_STRING
1897 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1899 /* User specified a convenience variable or history value. */
1900 PARSER_EXPLICIT (parser
)->line_offset
1901 = linespec_parse_variable (PARSER_STATE (parser
), name
.get ());
1903 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1905 /* The user-specified variable was not valid. Do not
1906 throw an error here. parse_linespec will do it for us. */
1907 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1913 /* The name is also not a label. Abort parsing. Do not throw
1914 an error here. parse_linespec will do it for us. */
1916 /* Save a copy of the name we were trying to lookup. */
1917 PARSER_EXPLICIT (parser
)->function_name
= name
.release ();
1923 int previous_qc
= parser
->completion_quote_char
;
1925 /* Get the next token. */
1926 token
= linespec_lexer_consume_token (parser
);
1928 if (token
.type
== LSTOKEN_EOI
)
1930 if (previous_qc
&& !parser
->completion_quote_char
)
1931 parser
->complete_what
= linespec_complete_what::KEYWORD
;
1933 else if (token
.type
== LSTOKEN_COLON
)
1935 /* User specified a label or a lineno. */
1936 token
= linespec_lexer_consume_token (parser
);
1938 if (token
.type
== LSTOKEN_NUMBER
)
1940 /* User specified an offset. Record the line offset and
1941 get the next token. */
1942 set_completion_after_number (parser
, linespec_complete_what::KEYWORD
);
1944 name
= copy_token_string (token
);
1945 PARSER_EXPLICIT (parser
)->line_offset
1946 = linespec_parse_line_offset (name
.get ());
1948 /* Get the next token. */
1949 token
= linespec_lexer_consume_token (parser
);
1951 else if (token
.type
== LSTOKEN_EOI
&& parser
->completion_tracker
!= NULL
)
1953 parser
->complete_what
= linespec_complete_what::LABEL
;
1955 else if (token
.type
== LSTOKEN_STRING
)
1957 parser
->complete_what
= linespec_complete_what::LABEL
;
1959 /* If we have text after the label separated by whitespace
1960 (e.g., "b func():lab i<tab>"), don't consider it part of
1961 the label. In completion mode that should complete to
1962 "if", in normal mode, the 'i' should be treated as
1964 if (parser
->completion_quote_char
== '\0')
1966 const char *ptr
= LS_TOKEN_STOKEN (token
).ptr
;
1967 for (size_t i
= 0; i
< LS_TOKEN_STOKEN (token
).length
; i
++)
1971 LS_TOKEN_STOKEN (token
).length
= i
;
1972 PARSER_STREAM (parser
) = skip_spaces (ptr
+ i
+ 1);
1978 if (parser
->completion_tracker
!= NULL
)
1980 if (PARSER_STREAM (parser
)[-1] == ' ')
1982 parser
->completion_word
= PARSER_STREAM (parser
);
1983 parser
->complete_what
= linespec_complete_what::KEYWORD
;
1988 /* Grab a copy of the label's name and look it up. */
1989 name
= copy_token_string (token
);
1991 = find_label_symbols (PARSER_STATE (parser
),
1992 PARSER_RESULT (parser
)->function_symbols
,
1993 &symbols
, name
.get ());
1997 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1998 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1999 PARSER_EXPLICIT (parser
)->label_name
= name
.release ();
2004 /* We don't know what it was, but it isn't a label. */
2005 undefined_label_error
2006 (PARSER_EXPLICIT (parser
)->function_name
, name
.get ());
2011 /* Check for a line offset. */
2012 token
= save_stream_and_consume_token (parser
);
2013 if (token
.type
== LSTOKEN_COLON
)
2015 /* Get the next token. */
2016 token
= linespec_lexer_consume_token (parser
);
2018 /* It must be a line offset. */
2019 if (token
.type
!= LSTOKEN_NUMBER
)
2020 unexpected_linespec_error (parser
);
2022 /* Record the line offset and get the next token. */
2023 name
= copy_token_string (token
);
2025 PARSER_EXPLICIT (parser
)->line_offset
2026 = linespec_parse_line_offset (name
.get ());
2028 /* Get the next token. */
2029 token
= linespec_lexer_consume_token (parser
);
2034 /* Trailing ':' in the input. Issue an error. */
2035 unexpected_linespec_error (parser
);
2040 /* Canonicalize the linespec contained in LS. The result is saved into
2041 STATE->canonical. This function handles both linespec and explicit
2045 canonicalize_linespec (struct linespec_state
*state
, const linespec_p ls
)
2047 struct event_location
*canon
;
2048 struct explicit_location
*explicit_loc
;
2050 /* If canonicalization was not requested, no need to do anything. */
2051 if (!state
->canonical
)
2054 /* Save everything as an explicit location. */
2055 state
->canonical
->location
2056 = new_explicit_location (&ls
->explicit_loc
);
2057 canon
= state
->canonical
->location
.get ();
2058 explicit_loc
= get_explicit_location (canon
);
2060 if (explicit_loc
->label_name
!= NULL
)
2062 state
->canonical
->special_display
= 1;
2064 if (explicit_loc
->function_name
== NULL
)
2068 /* No function was specified, so add the symbol name. */
2069 gdb_assert (ls
->labels
.function_symbols
!= NULL
2070 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
2072 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
2073 explicit_loc
->function_name
= xstrdup (SYMBOL_NATURAL_NAME (s
));
2077 /* If this location originally came from a linespec, save a string
2078 representation of it for display and saving to file. */
2079 if (state
->is_linespec
)
2081 char *linespec
= explicit_location_to_linespec (explicit_loc
);
2083 set_event_location_string (canon
, linespec
);
2088 /* Given a line offset in LS, construct the relevant SALs. */
2090 static std::vector
<symtab_and_line
>
2091 create_sals_line_offset (struct linespec_state
*self
,
2094 int use_default
= 0;
2096 /* This is where we need to make sure we have good defaults.
2097 We must guarantee that this section of code is never executed
2098 when we are called with just a function name, since
2099 set_default_source_symtab_and_line uses
2100 select_source_symtab that calls us with such an argument. */
2102 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
2103 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
2105 const char *fullname
;
2107 set_current_program_space (self
->program_space
);
2109 /* Make sure we have at least a default source line. */
2110 set_default_source_symtab_and_line ();
2111 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
2112 fullname
= symtab_to_fullname (self
->default_symtab
);
2113 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
2114 VEC_free (symtab_ptr
, ls
->file_symtabs
);
2115 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
,
2116 self
->search_pspace
);
2120 symtab_and_line val
;
2121 val
.line
= ls
->explicit_loc
.line_offset
.offset
;
2122 switch (ls
->explicit_loc
.line_offset
.sign
)
2124 case LINE_OFFSET_PLUS
:
2125 if (ls
->explicit_loc
.line_offset
.offset
== 0)
2128 val
.line
= self
->default_line
+ val
.line
;
2131 case LINE_OFFSET_MINUS
:
2132 if (ls
->explicit_loc
.line_offset
.offset
== 0)
2135 val
.line
= self
->default_line
- val
.line
;
2137 val
.line
= -val
.line
;
2140 case LINE_OFFSET_NONE
:
2141 break; /* No need to adjust val.line. */
2144 std::vector
<symtab_and_line
> values
;
2145 if (self
->list_mode
)
2146 values
= decode_digits_list_mode (self
, ls
, val
);
2149 struct linetable_entry
*best_entry
= NULL
;
2152 std::vector
<symtab_and_line
> intermediate_results
2153 = decode_digits_ordinary (self
, ls
, val
.line
, &best_entry
);
2154 if (intermediate_results
.empty () && best_entry
!= NULL
)
2155 intermediate_results
= decode_digits_ordinary (self
, ls
,
2159 /* For optimized code, the compiler can scatter one source line
2160 across disjoint ranges of PC values, even when no duplicate
2161 functions or inline functions are involved. For example,
2162 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
2163 function can result in two PC ranges. In this case, we don't
2164 want to set a breakpoint on the first PC of each range. To filter
2165 such cases, we use containing blocks -- for each PC found
2166 above, we see if there are other PCs that are in the same
2167 block. If yes, the other PCs are filtered out. */
2169 gdb::def_vector
<int> filter (intermediate_results
.size ());
2170 gdb::def_vector
<const block
*> blocks (intermediate_results
.size ());
2172 for (i
= 0; i
< intermediate_results
.size (); ++i
)
2174 set_current_program_space (intermediate_results
[i
].pspace
);
2177 blocks
[i
] = block_for_pc_sect (intermediate_results
[i
].pc
,
2178 intermediate_results
[i
].section
);
2181 for (i
= 0; i
< intermediate_results
.size (); ++i
)
2183 if (blocks
[i
] != NULL
)
2184 for (j
= i
+ 1; j
< intermediate_results
.size (); ++j
)
2186 if (blocks
[j
] == blocks
[i
])
2194 for (i
= 0; i
< intermediate_results
.size (); ++i
)
2197 struct symbol
*sym
= (blocks
[i
]
2198 ? block_containing_function (blocks
[i
])
2201 if (self
->funfirstline
)
2202 skip_prologue_sal (&intermediate_results
[i
]);
2203 add_sal_to_sals (self
, &values
, &intermediate_results
[i
],
2204 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
2208 if (values
.empty ())
2210 if (ls
->explicit_loc
.source_filename
)
2211 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
2212 val
.line
, ls
->explicit_loc
.source_filename
);
2214 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
2221 /* Convert the given ADDRESS into SaLs. */
2223 static std::vector
<symtab_and_line
>
2224 convert_address_location_to_sals (struct linespec_state
*self
,
2227 symtab_and_line sal
= find_pc_line (address
, 0);
2229 sal
.section
= find_pc_overlay (address
);
2230 sal
.explicit_pc
= 1;
2232 std::vector
<symtab_and_line
> sals
;
2233 add_sal_to_sals (self
, &sals
, &sal
, core_addr_to_string (address
), 1);
2238 /* Create and return SALs from the linespec LS. */
2240 static std::vector
<symtab_and_line
>
2241 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
2243 std::vector
<symtab_and_line
> sals
;
2245 if (ls
->labels
.label_symbols
!= NULL
)
2247 /* We have just a bunch of functions/methods or labels. */
2249 struct symtab_and_line sal
;
2252 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
2254 struct program_space
*pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2256 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2257 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2258 add_sal_to_sals (state
, &sals
, &sal
,
2259 SYMBOL_NATURAL_NAME (sym
), 0);
2262 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2264 /* We have just a bunch of functions and/or methods. */
2266 struct symtab_and_line sal
;
2268 bound_minimal_symbol_d
*elem
;
2269 struct program_space
*pspace
;
2271 if (ls
->function_symbols
!= NULL
)
2273 /* Sort symbols so that symbols with the same program space are next
2275 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2276 VEC_length (symbolp
, ls
->function_symbols
),
2277 sizeof (symbolp
), compare_symbols
);
2279 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2281 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2282 set_current_program_space (pspace
);
2283 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2284 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2285 add_sal_to_sals (state
, &sals
, &sal
,
2286 SYMBOL_NATURAL_NAME (sym
), 0);
2290 if (ls
->minimal_symbols
!= NULL
)
2292 /* Sort minimal symbols by program space, too. */
2293 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2294 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2295 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2298 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2302 pspace
= elem
->objfile
->pspace
;
2303 set_current_program_space (pspace
);
2304 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2308 else if (ls
->explicit_loc
.line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2310 /* Only an offset was specified. */
2311 sals
= create_sals_line_offset (state
, ls
);
2313 /* Make sure we have a filename for canonicalization. */
2314 if (ls
->explicit_loc
.source_filename
== NULL
)
2316 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2318 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2319 form so that displaying SOURCE_FILENAME can follow the current
2320 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2321 it has been kept for code simplicity only in absolute form. */
2322 ls
->explicit_loc
.source_filename
= xstrdup (fullname
);
2327 /* We haven't found any results... */
2331 canonicalize_linespec (state
, ls
);
2333 if (!sals
.empty () && state
->canonical
!= NULL
)
2334 state
->canonical
->pre_expanded
= 1;
2339 /* Build RESULT from the explicit location components SOURCE_FILENAME,
2340 FUNCTION_NAME, LABEL_NAME and LINE_OFFSET. */
2343 convert_explicit_location_to_linespec (struct linespec_state
*self
,
2345 const char *source_filename
,
2346 const char *function_name
,
2347 symbol_name_match_type fname_match_type
,
2348 const char *label_name
,
2349 struct line_offset line_offset
)
2351 VEC (symbolp
) *symbols
, *labels
;
2352 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
2354 result
->explicit_loc
.func_name_match_type
= fname_match_type
;
2356 if (source_filename
!= NULL
)
2360 result
->file_symtabs
2361 = symtabs_from_filename (source_filename
, self
->search_pspace
);
2363 CATCH (except
, RETURN_MASK_ERROR
)
2365 source_file_not_found_error (source_filename
);
2368 result
->explicit_loc
.source_filename
= xstrdup (source_filename
);
2372 /* A NULL entry means to use the default symtab. */
2373 VEC_safe_push (symtab_ptr
, result
->file_symtabs
, NULL
);
2376 if (function_name
!= NULL
)
2378 find_linespec_symbols (self
, result
->file_symtabs
,
2379 function_name
, fname_match_type
,
2380 &symbols
, &minimal_symbols
);
2382 if (symbols
== NULL
&& minimal_symbols
== NULL
)
2383 symbol_not_found_error (function_name
,
2384 result
->explicit_loc
.source_filename
);
2386 result
->explicit_loc
.function_name
= xstrdup (function_name
);
2387 result
->function_symbols
= symbols
;
2388 result
->minimal_symbols
= minimal_symbols
;
2391 if (label_name
!= NULL
)
2394 labels
= find_label_symbols (self
, result
->function_symbols
,
2395 &symbols
, label_name
);
2398 undefined_label_error (result
->explicit_loc
.function_name
,
2401 result
->explicit_loc
.label_name
= xstrdup (label_name
);
2402 result
->labels
.label_symbols
= labels
;
2403 result
->labels
.function_symbols
= symbols
;
2406 if (line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2407 result
->explicit_loc
.line_offset
= line_offset
;
2410 /* Convert the explicit location EXPLICIT_LOC into SaLs. */
2412 static std::vector
<symtab_and_line
>
2413 convert_explicit_location_to_sals (struct linespec_state
*self
,
2415 const struct explicit_location
*explicit_loc
)
2417 convert_explicit_location_to_linespec (self
, result
,
2418 explicit_loc
->source_filename
,
2419 explicit_loc
->function_name
,
2420 explicit_loc
->func_name_match_type
,
2421 explicit_loc
->label_name
,
2422 explicit_loc
->line_offset
);
2423 return convert_linespec_to_sals (self
, result
);
2426 /* Parse a string that specifies a linespec.
2428 The basic grammar of linespecs:
2430 linespec -> var_spec | basic_spec
2431 var_spec -> '$' (STRING | NUMBER)
2433 basic_spec -> file_offset_spec | function_spec | label_spec
2434 file_offset_spec -> opt_file_spec offset_spec
2435 function_spec -> opt_file_spec function_name_spec opt_label_spec
2436 label_spec -> label_name_spec
2438 opt_file_spec -> "" | file_name_spec ':'
2439 opt_label_spec -> "" | ':' label_name_spec
2441 file_name_spec -> STRING
2442 function_name_spec -> STRING
2443 label_name_spec -> STRING
2444 function_name_spec -> STRING
2445 offset_spec -> NUMBER
2449 This may all be followed by several keywords such as "if EXPR",
2452 A comma will terminate parsing.
2454 The function may be an undebuggable function found in minimal symbol table.
2456 If the argument FUNFIRSTLINE is nonzero, we want the first line
2457 of real code inside a function when a function is specified, and it is
2458 not OK to specify a variable or type to get its line number.
2460 DEFAULT_SYMTAB specifies the file to use if none is specified.
2461 It defaults to current_source_symtab.
2462 DEFAULT_LINE specifies the line number to use for relative
2463 line numbers (that start with signs). Defaults to current_source_line.
2464 If CANONICAL is non-NULL, store an array of strings containing the canonical
2465 line specs there if necessary. Currently overloaded member functions and
2466 line numbers or static functions without a filename yield a canonical
2467 line spec. The array and the line spec strings are allocated on the heap,
2468 it is the callers responsibility to free them.
2470 Note that it is possible to return zero for the symtab
2471 if no file is validly specified. Callers must check that.
2472 Also, the line number returned may be invalid. */
2474 /* Parse the linespec in ARG. MATCH_TYPE indicates how function names
2475 should be matched. */
2477 static std::vector
<symtab_and_line
>
2478 parse_linespec (linespec_parser
*parser
, const char *arg
,
2479 symbol_name_match_type match_type
)
2481 linespec_token token
;
2482 struct gdb_exception file_exception
= exception_none
;
2484 /* A special case to start. It has become quite popular for
2485 IDEs to work around bugs in the previous parser by quoting
2486 the entire linespec, so we attempt to deal with this nicely. */
2487 parser
->is_quote_enclosed
= 0;
2488 if (parser
->completion_tracker
== NULL
2489 && !is_ada_operator (arg
)
2490 && strchr (linespec_quote_characters
, *arg
) != NULL
)
2494 end
= skip_quote_char (arg
+ 1, *arg
);
2495 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2497 /* Here's the special case. Skip ARG past the initial
2500 parser
->is_quote_enclosed
= 1;
2504 parser
->lexer
.saved_arg
= arg
;
2505 parser
->lexer
.stream
= arg
;
2506 parser
->completion_word
= arg
;
2507 parser
->complete_what
= linespec_complete_what::FUNCTION
;
2508 PARSER_EXPLICIT (parser
)->func_name_match_type
= match_type
;
2510 /* Initialize the default symtab and line offset. */
2511 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2512 &PARSER_STATE (parser
)->default_line
);
2514 /* Objective-C shortcut. */
2515 if (parser
->completion_tracker
== NULL
)
2517 std::vector
<symtab_and_line
> values
2518 = decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), arg
);
2519 if (!values
.empty ())
2524 /* "-"/"+" is either an objc selector, or a number. There's
2525 nothing to complete the latter to, so just let the caller
2526 complete on functions, which finds objc selectors, if there's
2528 if ((arg
[0] == '-' || arg
[0] == '+') && arg
[1] == '\0')
2532 /* Start parsing. */
2534 /* Get the first token. */
2535 token
= linespec_lexer_consume_token (parser
);
2537 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2538 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2540 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2541 if (parser
->completion_tracker
== NULL
)
2542 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2544 /* User specified a convenience variable or history value. */
2545 gdb::unique_xmalloc_ptr
<char> var
= copy_token_string (token
);
2546 PARSER_EXPLICIT (parser
)->line_offset
2547 = linespec_parse_variable (PARSER_STATE (parser
), var
.get ());
2549 /* If a line_offset wasn't found (VAR is the name of a user
2550 variable/function), then skip to normal symbol processing. */
2551 if (PARSER_EXPLICIT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2553 /* Consume this token. */
2554 linespec_lexer_consume_token (parser
);
2556 goto convert_to_sals
;
2559 else if (token
.type
== LSTOKEN_EOI
&& parser
->completion_tracker
!= NULL
)
2561 /* Let the default linespec_complete_what::FUNCTION kick in. */
2562 unexpected_linespec_error (parser
);
2564 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2566 parser
->complete_what
= linespec_complete_what::NOTHING
;
2567 unexpected_linespec_error (parser
);
2570 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2571 this token cannot represent a filename. */
2572 token
= linespec_lexer_peek_token (parser
);
2574 if (token
.type
== LSTOKEN_COLON
)
2576 /* Get the current token again and extract the filename. */
2577 token
= linespec_lexer_lex_one (parser
);
2578 gdb::unique_xmalloc_ptr
<char> user_filename
= copy_token_string (token
);
2580 /* Check if the input is a filename. */
2583 PARSER_RESULT (parser
)->file_symtabs
2584 = symtabs_from_filename (user_filename
.get (),
2585 PARSER_STATE (parser
)->search_pspace
);
2587 CATCH (ex
, RETURN_MASK_ERROR
)
2589 file_exception
= ex
;
2593 if (file_exception
.reason
>= 0)
2595 /* Symtabs were found for the file. Record the filename. */
2596 PARSER_EXPLICIT (parser
)->source_filename
= user_filename
.release ();
2598 /* Get the next token. */
2599 token
= linespec_lexer_consume_token (parser
);
2601 /* This is LSTOKEN_COLON; consume it. */
2602 linespec_lexer_consume_token (parser
);
2606 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2607 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2610 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2611 else if (parser
->completion_tracker
== NULL
2612 && (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2613 && token
.type
!= LSTOKEN_COMMA
))
2615 /* TOKEN is the _next_ token, not the one currently in the parser.
2616 Consuming the token will give the correct error message. */
2617 linespec_lexer_consume_token (parser
);
2618 unexpected_linespec_error (parser
);
2622 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2623 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2626 /* Parse the rest of the linespec. */
2627 linespec_parse_basic (parser
);
2629 if (parser
->completion_tracker
== NULL
2630 && PARSER_RESULT (parser
)->function_symbols
== NULL
2631 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2632 && PARSER_EXPLICIT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2633 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2635 /* The linespec didn't parse. Re-throw the file exception if
2637 if (file_exception
.reason
< 0)
2638 throw_exception (file_exception
);
2640 /* Otherwise, the symbol is not found. */
2641 symbol_not_found_error (PARSER_EXPLICIT (parser
)->function_name
,
2642 PARSER_EXPLICIT (parser
)->source_filename
);
2647 /* Get the last token and record how much of the input was parsed,
2649 token
= linespec_lexer_lex_one (parser
);
2650 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2651 unexpected_linespec_error (parser
);
2652 else if (token
.type
== LSTOKEN_KEYWORD
)
2654 /* Setup the completion word past the keyword. Lexing never
2655 advances past a keyword automatically, so skip it
2657 parser
->completion_word
2658 = skip_spaces (skip_to_space (PARSER_STREAM (parser
)));
2659 parser
->complete_what
= linespec_complete_what::EXPRESSION
;
2662 /* Convert the data in PARSER_RESULT to SALs. */
2663 if (parser
->completion_tracker
== NULL
)
2664 return convert_linespec_to_sals (PARSER_STATE (parser
),
2665 PARSER_RESULT (parser
));
2671 /* A constructor for linespec_state. */
2674 linespec_state_constructor (struct linespec_state
*self
,
2675 int flags
, const struct language_defn
*language
,
2676 struct program_space
*search_pspace
,
2677 struct symtab
*default_symtab
,
2679 struct linespec_result
*canonical
)
2681 memset (self
, 0, sizeof (*self
));
2682 self
->language
= language
;
2683 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2684 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2685 self
->search_pspace
= search_pspace
;
2686 self
->default_symtab
= default_symtab
;
2687 self
->default_line
= default_line
;
2688 self
->canonical
= canonical
;
2689 self
->program_space
= current_program_space
;
2690 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2691 xfree
, xcalloc
, xfree
);
2692 self
->is_linespec
= 0;
2695 /* Initialize a new linespec parser. */
2698 linespec_parser_new (linespec_parser
*parser
,
2699 int flags
, const struct language_defn
*language
,
2700 struct program_space
*search_pspace
,
2701 struct symtab
*default_symtab
,
2703 struct linespec_result
*canonical
)
2705 memset (parser
, 0, sizeof (linespec_parser
));
2706 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2707 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2708 PARSER_EXPLICIT (parser
)->func_name_match_type
2709 = symbol_name_match_type::WILD
;
2710 PARSER_EXPLICIT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2711 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2713 default_symtab
, default_line
, canonical
);
2716 /* A destructor for linespec_state. */
2719 linespec_state_destructor (struct linespec_state
*self
)
2721 htab_delete (self
->addr_set
);
2724 /* Delete a linespec parser. */
2727 linespec_parser_delete (void *arg
)
2729 linespec_parser
*parser
= (linespec_parser
*) arg
;
2731 xfree (PARSER_EXPLICIT (parser
)->source_filename
);
2732 xfree (PARSER_EXPLICIT (parser
)->label_name
);
2733 xfree (PARSER_EXPLICIT (parser
)->function_name
);
2735 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2736 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2738 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2739 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2741 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2742 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2744 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2745 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2747 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2748 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2750 linespec_state_destructor (PARSER_STATE (parser
));
2753 /* See description in linespec.h. */
2756 linespec_lex_to_end (const char **stringp
)
2758 linespec_parser parser
;
2759 struct cleanup
*cleanup
;
2760 linespec_token token
;
2763 if (stringp
== NULL
|| *stringp
== NULL
)
2766 linespec_parser_new (&parser
, 0, current_language
, NULL
, NULL
, 0, NULL
);
2767 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2768 parser
.lexer
.saved_arg
= *stringp
;
2769 PARSER_STREAM (&parser
) = orig
= *stringp
;
2773 /* Stop before any comma tokens; we need it to keep it
2774 as the next token in the string. */
2775 token
= linespec_lexer_peek_token (&parser
);
2776 if (token
.type
== LSTOKEN_COMMA
)
2778 token
= linespec_lexer_consume_token (&parser
);
2780 while (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
);
2782 *stringp
+= PARSER_STREAM (&parser
) - orig
;
2783 do_cleanups (cleanup
);
2786 /* See linespec.h. */
2789 linespec_complete_function (completion_tracker
&tracker
,
2790 const char *function
,
2791 symbol_name_match_type func_match_type
,
2792 const char *source_filename
)
2794 complete_symbol_mode mode
= complete_symbol_mode::LINESPEC
;
2796 if (source_filename
!= NULL
)
2798 collect_file_symbol_completion_matches (tracker
, mode
, func_match_type
,
2799 function
, function
, source_filename
);
2803 collect_symbol_completion_matches (tracker
, mode
, func_match_type
,
2804 function
, function
);
2809 /* Helper for complete_linespec to simplify it. SOURCE_FILENAME is
2810 only meaningful if COMPONENT is FUNCTION. */
2813 complete_linespec_component (linespec_parser
*parser
,
2814 completion_tracker
&tracker
,
2816 linespec_complete_what component
,
2817 const char *source_filename
)
2819 if (component
== linespec_complete_what::KEYWORD
)
2821 complete_on_enum (tracker
, linespec_keywords
, text
, text
);
2823 else if (component
== linespec_complete_what::EXPRESSION
)
2826 = advance_to_expression_complete_word_point (tracker
, text
);
2827 complete_expression (tracker
, text
, word
);
2829 else if (component
== linespec_complete_what::FUNCTION
)
2831 completion_list fn_list
;
2833 symbol_name_match_type match_type
2834 = PARSER_EXPLICIT (parser
)->func_name_match_type
;
2835 linespec_complete_function (tracker
, text
, match_type
, source_filename
);
2836 if (source_filename
== NULL
)
2838 /* Haven't seen a source component, like in "b
2839 file.c:function[TAB]". Maybe this wasn't a function, but
2840 a filename instead, like "b file.[TAB]". */
2841 fn_list
= complete_source_filenames (text
);
2844 /* If we only have a single filename completion, append a ':' for
2845 the user, since that's the only thing that can usefully follow
2847 if (fn_list
.size () == 1 && !tracker
.have_completions ())
2849 char *fn
= fn_list
[0].release ();
2851 /* If we also need to append a quote char, it needs to be
2852 appended before the ':'. Append it now, and make ':' the
2853 new "quote" char. */
2854 if (tracker
.quote_char ())
2856 char quote_char_str
[2] = { tracker
.quote_char () };
2858 fn
= reconcat (fn
, fn
, quote_char_str
, (char *) NULL
);
2859 tracker
.set_quote_char (':');
2862 fn
= reconcat (fn
, fn
, ":", (char *) NULL
);
2863 fn_list
[0].reset (fn
);
2865 /* Tell readline to skip appending a space. */
2866 tracker
.set_suppress_append_ws (true);
2868 tracker
.add_completions (std::move (fn_list
));
2872 /* Helper for linespec_complete_label. Find labels that match
2873 LABEL_NAME in the function symbols listed in the PARSER, and add
2874 them to the tracker. */
2877 complete_label (completion_tracker
&tracker
,
2878 linespec_parser
*parser
,
2879 const char *label_name
)
2881 VEC (symbolp
) *label_function_symbols
= NULL
;
2882 VEC (symbolp
) *labels
2883 = find_label_symbols (PARSER_STATE (parser
),
2884 PARSER_RESULT (parser
)->function_symbols
,
2885 &label_function_symbols
,
2890 VEC_iterate (symbolp
, labels
, ix
, label
); ++ix
)
2892 char *match
= xstrdup (SYMBOL_SEARCH_NAME (label
));
2893 tracker
.add_completion (gdb::unique_xmalloc_ptr
<char> (match
));
2895 VEC_free (symbolp
, labels
);
2898 /* See linespec.h. */
2901 linespec_complete_label (completion_tracker
&tracker
,
2902 const struct language_defn
*language
,
2903 const char *source_filename
,
2904 const char *function_name
,
2905 symbol_name_match_type func_name_match_type
,
2906 const char *label_name
)
2908 linespec_parser parser
;
2909 struct cleanup
*cleanup
;
2911 linespec_parser_new (&parser
, 0, language
, NULL
, NULL
, 0, NULL
);
2912 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2914 line_offset unknown_offset
= { 0, LINE_OFFSET_UNKNOWN
};
2918 convert_explicit_location_to_linespec (PARSER_STATE (&parser
),
2919 PARSER_RESULT (&parser
),
2922 func_name_match_type
,
2923 NULL
, unknown_offset
);
2925 CATCH (ex
, RETURN_MASK_ERROR
)
2927 do_cleanups (cleanup
);
2932 complete_label (tracker
, &parser
, label_name
);
2934 do_cleanups (cleanup
);
2937 /* See description in linespec.h. */
2940 linespec_complete (completion_tracker
&tracker
, const char *text
,
2941 symbol_name_match_type match_type
)
2943 linespec_parser parser
;
2944 struct cleanup
*cleanup
;
2945 const char *orig
= text
;
2947 linespec_parser_new (&parser
, 0, current_language
, NULL
, NULL
, 0, NULL
);
2948 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2949 parser
.lexer
.saved_arg
= text
;
2950 PARSER_EXPLICIT (&parser
)->func_name_match_type
= match_type
;
2951 PARSER_STREAM (&parser
) = text
;
2953 parser
.completion_tracker
= &tracker
;
2954 PARSER_STATE (&parser
)->is_linespec
= 1;
2956 /* Parse as much as possible. parser.completion_word will hold
2957 furthest completion point we managed to parse to. */
2960 parse_linespec (&parser
, text
, match_type
);
2962 CATCH (except
, RETURN_MASK_ERROR
)
2967 if (parser
.completion_quote_char
!= '\0'
2968 && parser
.completion_quote_end
!= NULL
2969 && parser
.completion_quote_end
[1] == '\0')
2971 /* If completing a quoted string with the cursor right at
2972 terminating quote char, complete the completion word without
2973 interpretation, so that readline advances the cursor one
2974 whitespace past the quote, even if there's no match. This
2975 makes these cases behave the same:
2977 before: "b function()"
2978 after: "b function() "
2980 before: "b 'function()'"
2981 after: "b 'function()' "
2983 and trusts the user in this case:
2985 before: "b 'not_loaded_function_yet()'"
2986 after: "b 'not_loaded_function_yet()' "
2988 parser
.complete_what
= linespec_complete_what::NOTHING
;
2989 parser
.completion_quote_char
= '\0';
2991 gdb::unique_xmalloc_ptr
<char> text_copy
2992 (xstrdup (parser
.completion_word
));
2993 tracker
.add_completion (std::move (text_copy
));
2996 tracker
.set_quote_char (parser
.completion_quote_char
);
2998 if (parser
.complete_what
== linespec_complete_what::LABEL
)
3000 parser
.complete_what
= linespec_complete_what::NOTHING
;
3002 const char *func_name
= PARSER_EXPLICIT (&parser
)->function_name
;
3004 VEC (symbolp
) *function_symbols
;
3005 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
3006 find_linespec_symbols (PARSER_STATE (&parser
),
3007 PARSER_RESULT (&parser
)->file_symtabs
,
3008 func_name
, match_type
,
3009 &function_symbols
, &minimal_symbols
);
3011 PARSER_RESULT (&parser
)->function_symbols
= function_symbols
;
3012 PARSER_RESULT (&parser
)->minimal_symbols
= minimal_symbols
;
3014 complete_label (tracker
, &parser
, parser
.completion_word
);
3016 else if (parser
.complete_what
== linespec_complete_what::FUNCTION
)
3018 /* While parsing/lexing, we didn't know whether the completion
3019 word completes to a unique function/source name already or
3023 "b function() <tab>"
3024 may need to complete either to:
3025 "b function() const"
3027 "b function() if/thread/task"
3031 may need to complete either to:
3032 "b foo template_fun<T>()"
3033 with "foo" being the template function's return type, or to:
3038 may need to complete either to a source file name:
3040 or this, also a filename, but a unique completion:
3042 or to a function name:
3045 Address that by completing assuming source or function, and
3046 seeing if we find a completion that matches exactly the
3047 completion word. If so, then it must be a function (see note
3048 below) and we advance the completion word to the end of input
3049 and switch to KEYWORD completion mode.
3051 Note: if we find a unique completion for a source filename,
3052 then it won't match the completion word, because the LCD will
3053 contain a trailing ':'. And if we're completing at or after
3054 the ':', then complete_linespec_component won't try to
3055 complete on source filenames. */
3057 const char *word
= parser
.completion_word
;
3059 complete_linespec_component (&parser
, tracker
,
3060 parser
.completion_word
,
3061 linespec_complete_what::FUNCTION
,
3062 PARSER_EXPLICIT (&parser
)->source_filename
);
3064 parser
.complete_what
= linespec_complete_what::NOTHING
;
3066 if (tracker
.quote_char ())
3068 /* The function/file name was not close-quoted, so this
3069 can't be a keyword. Note: complete_linespec_component
3070 may have swapped the original quote char for ':' when we
3071 get here, but that still indicates the same. */
3073 else if (!tracker
.have_completions ())
3076 size_t wordlen
= strlen (parser
.completion_word
);
3079 = string_find_incomplete_keyword_at_end (linespec_keywords
,
3080 parser
.completion_word
,
3085 && parser
.completion_word
[wordlen
- 1] == ' '))
3087 parser
.completion_word
+= key_start
;
3088 parser
.complete_what
= linespec_complete_what::KEYWORD
;
3091 else if (tracker
.completes_to_completion_word (word
))
3093 /* Skip the function and complete on keywords. */
3094 parser
.completion_word
+= strlen (word
);
3095 parser
.complete_what
= linespec_complete_what::KEYWORD
;
3096 tracker
.discard_completions ();
3100 tracker
.advance_custom_word_point_by (parser
.completion_word
- orig
);
3102 complete_linespec_component (&parser
, tracker
,
3103 parser
.completion_word
,
3104 parser
.complete_what
,
3105 PARSER_EXPLICIT (&parser
)->source_filename
);
3107 /* If we're past the "filename:function:label:offset" linespec, and
3108 didn't find any match, then assume the user might want to create
3109 a pending breakpoint anyway and offer the keyword
3111 if (!parser
.completion_quote_char
3112 && (parser
.complete_what
== linespec_complete_what::FUNCTION
3113 || parser
.complete_what
== linespec_complete_what::LABEL
3114 || parser
.complete_what
== linespec_complete_what::NOTHING
)
3115 && !tracker
.have_completions ())
3118 = parser
.completion_word
+ strlen (parser
.completion_word
);
3120 if (end
> orig
&& end
[-1] == ' ')
3122 tracker
.advance_custom_word_point_by (end
- parser
.completion_word
);
3124 complete_linespec_component (&parser
, tracker
, end
,
3125 linespec_complete_what::KEYWORD
,
3130 do_cleanups (cleanup
);
3133 /* A helper function for decode_line_full and decode_line_1 to
3134 turn LOCATION into std::vector<symtab_and_line>. */
3136 static std::vector
<symtab_and_line
>
3137 event_location_to_sals (linespec_parser
*parser
,
3138 const struct event_location
*location
)
3140 std::vector
<symtab_and_line
> result
;
3142 switch (event_location_type (location
))
3144 case LINESPEC_LOCATION
:
3146 PARSER_STATE (parser
)->is_linespec
= 1;
3149 const linespec_location
*ls
= get_linespec_location (location
);
3150 result
= parse_linespec (parser
,
3151 ls
->spec_string
, ls
->match_type
);
3153 CATCH (except
, RETURN_MASK_ERROR
)
3155 throw_exception (except
);
3161 case ADDRESS_LOCATION
:
3163 const char *addr_string
= get_address_string_location (location
);
3164 CORE_ADDR addr
= get_address_location (location
);
3166 if (addr_string
!= NULL
)
3168 char *expr
= xstrdup (addr_string
);
3169 const char *const_expr
= expr
;
3170 struct cleanup
*cleanup
= make_cleanup (xfree
, expr
);
3172 addr
= linespec_expression_to_pc (&const_expr
);
3173 if (PARSER_STATE (parser
)->canonical
!= NULL
)
3174 PARSER_STATE (parser
)->canonical
->location
3175 = copy_event_location (location
);
3177 do_cleanups (cleanup
);
3180 result
= convert_address_location_to_sals (PARSER_STATE (parser
),
3185 case EXPLICIT_LOCATION
:
3187 const struct explicit_location
*explicit_loc
;
3189 explicit_loc
= get_explicit_location_const (location
);
3190 result
= convert_explicit_location_to_sals (PARSER_STATE (parser
),
3191 PARSER_RESULT (parser
),
3196 case PROBE_LOCATION
:
3197 /* Probes are handled by their own decoders. */
3198 gdb_assert_not_reached ("attempt to decode probe location");
3202 gdb_assert_not_reached ("unhandled event location type");
3208 /* See linespec.h. */
3211 decode_line_full (const struct event_location
*location
, int flags
,
3212 struct program_space
*search_pspace
,
3213 struct symtab
*default_symtab
,
3214 int default_line
, struct linespec_result
*canonical
,
3215 const char *select_mode
,
3218 struct cleanup
*cleanups
;
3219 std::vector
<const char *> filters
;
3220 linespec_parser parser
;
3221 struct linespec_state
*state
;
3223 gdb_assert (canonical
!= NULL
);
3224 /* The filter only makes sense for 'all'. */
3225 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
3226 gdb_assert (select_mode
== NULL
3227 || select_mode
== multiple_symbols_all
3228 || select_mode
== multiple_symbols_ask
3229 || select_mode
== multiple_symbols_cancel
);
3230 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
3232 linespec_parser_new (&parser
, flags
, current_language
,
3233 search_pspace
, default_symtab
,
3234 default_line
, canonical
);
3235 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
3237 scoped_restore_current_program_space restore_pspace
;
3239 std::vector
<symtab_and_line
> result
= event_location_to_sals (&parser
,
3241 state
= PARSER_STATE (&parser
);
3243 gdb_assert (result
.size () == 1 || canonical
->pre_expanded
);
3244 canonical
->pre_expanded
= 1;
3246 /* Arrange for allocated canonical names to be freed. */
3247 if (!result
.empty ())
3251 make_cleanup (xfree
, state
->canonical_names
);
3252 for (i
= 0; i
< result
.size (); ++i
)
3254 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
3255 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
3259 if (select_mode
== NULL
)
3261 if (interp_ui_out (top_level_interpreter ())->is_mi_like_p ())
3262 select_mode
= multiple_symbols_all
;
3264 select_mode
= multiple_symbols_select_mode ();
3267 if (select_mode
== multiple_symbols_all
)
3271 filters
.push_back (filter
);
3272 filter_results (state
, &result
, filters
);
3275 convert_results_to_lsals (state
, &result
);
3278 decode_line_2 (state
, &result
, select_mode
);
3280 do_cleanups (cleanups
);
3283 /* See linespec.h. */
3285 std::vector
<symtab_and_line
>
3286 decode_line_1 (const struct event_location
*location
, int flags
,
3287 struct program_space
*search_pspace
,
3288 struct symtab
*default_symtab
,
3291 linespec_parser parser
;
3292 struct cleanup
*cleanups
;
3294 linespec_parser_new (&parser
, flags
, current_language
,
3295 search_pspace
, default_symtab
,
3296 default_line
, NULL
);
3297 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
3299 scoped_restore_current_program_space restore_pspace
;
3301 std::vector
<symtab_and_line
> result
= event_location_to_sals (&parser
,
3304 do_cleanups (cleanups
);
3308 /* See linespec.h. */
3310 std::vector
<symtab_and_line
>
3311 decode_line_with_current_source (const char *string
, int flags
)
3314 error (_("Empty line specification."));
3316 /* We use whatever is set as the current source line. We do not try
3317 and get a default source symtab+line or it will recursively call us! */
3318 symtab_and_line cursal
= get_current_source_symtab_and_line ();
3320 event_location_up location
= string_to_event_location (&string
,
3322 std::vector
<symtab_and_line
> sals
3323 = decode_line_1 (location
.get (), flags
, NULL
, cursal
.symtab
, cursal
.line
);
3326 error (_("Junk at end of line specification: %s"), string
);
3331 /* See linespec.h. */
3333 std::vector
<symtab_and_line
>
3334 decode_line_with_last_displayed (const char *string
, int flags
)
3337 error (_("Empty line specification."));
3339 event_location_up location
= string_to_event_location (&string
,
3341 std::vector
<symtab_and_line
> sals
3342 = (last_displayed_sal_is_valid ()
3343 ? decode_line_1 (location
.get (), flags
, NULL
,
3344 get_last_displayed_symtab (),
3345 get_last_displayed_line ())
3346 : decode_line_1 (location
.get (), flags
, NULL
,
3347 (struct symtab
*) NULL
, 0));
3350 error (_("Junk at end of line specification: %s"), string
);
3357 /* First, some functions to initialize stuff at the beggining of the
3361 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
3363 if (*default_symtab
== 0)
3365 /* Use whatever we have for the default source line. We don't use
3366 get_current_or_default_symtab_and_line as it can recurse and call
3368 struct symtab_and_line cursal
=
3369 get_current_source_symtab_and_line ();
3371 *default_symtab
= cursal
.symtab
;
3372 *default_line
= cursal
.line
;
3378 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
3379 advancing EXP_PTR past any parsed text. */
3382 linespec_expression_to_pc (const char **exp_ptr
)
3384 if (current_program_space
->executing_startup
)
3385 /* The error message doesn't really matter, because this case
3386 should only hit during breakpoint reset. */
3387 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
3388 "program space is in startup"));
3391 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
3396 /* Here's where we recognise an Objective-C Selector. An Objective C
3397 selector may be implemented by more than one class, therefore it
3398 may represent more than one method/function. This gives us a
3399 situation somewhat analogous to C++ overloading. If there's more
3400 than one method that could represent the selector, then use some of
3401 the existing C++ code to let the user choose one. */
3403 static std::vector
<symtab_and_line
>
3404 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char *arg
)
3406 struct collect_info info
;
3407 VEC (const_char_ptr
) *symbol_names
= NULL
;
3408 const char *new_argptr
;
3409 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3413 info
.file_symtabs
= NULL
;
3414 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
3415 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
3416 info
.result
.symbols
= NULL
;
3417 info
.result
.minimal_symbols
= NULL
;
3419 new_argptr
= find_imps (arg
, &symbol_names
);
3420 if (VEC_empty (const_char_ptr
, symbol_names
))
3422 do_cleanups (cleanup
);
3426 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
,
3429 std::vector
<symtab_and_line
> values
;
3430 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3431 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3435 saved_arg
= (char *) alloca (new_argptr
- arg
+ 1);
3436 memcpy (saved_arg
, arg
, new_argptr
- arg
);
3437 saved_arg
[new_argptr
- arg
] = '\0';
3439 ls
->explicit_loc
.function_name
= xstrdup (saved_arg
);
3440 ls
->function_symbols
= info
.result
.symbols
;
3441 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
3442 values
= convert_linespec_to_sals (self
, ls
);
3444 if (self
->canonical
)
3449 self
->canonical
->pre_expanded
= 1;
3451 if (ls
->explicit_loc
.source_filename
)
3453 holder
= string_printf ("%s:%s",
3454 ls
->explicit_loc
.source_filename
,
3456 str
= holder
.c_str ();
3461 self
->canonical
->location
3462 = new_linespec_location (&str
, symbol_name_match_type::FULL
);
3466 do_cleanups (cleanup
);
3473 /* A function object that serves as symbol_found_callback_ftype
3474 callback for iterate_over_symbols. This is used by
3475 lookup_prefix_sym to collect type symbols. */
3476 class decode_compound_collector
3479 decode_compound_collector ()
3482 m_unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
3483 htab_eq_pointer
, NULL
,
3487 ~decode_compound_collector ()
3489 if (m_unique_syms
!= NULL
)
3490 htab_delete (m_unique_syms
);
3493 /* Releases ownership of the collected symbols and returns them. */
3494 VEC (symbolp
) *release_symbols ()
3496 VEC (symbolp
) *res
= m_symbols
;
3501 /* Callable as a symbol_found_callback_ftype callback. */
3502 bool operator () (symbol
*sym
);
3505 /* A hash table of all symbols we found. We use this to avoid
3506 adding any symbol more than once. */
3507 htab_t m_unique_syms
;
3509 /* The result vector. */
3510 VEC (symbolp
) *m_symbols
;
3514 decode_compound_collector::operator () (symbol
*sym
)
3519 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
3520 return true; /* Continue iterating. */
3522 t
= SYMBOL_TYPE (sym
);
3523 t
= check_typedef (t
);
3524 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
3525 && TYPE_CODE (t
) != TYPE_CODE_UNION
3526 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
3527 return true; /* Continue iterating. */
3529 slot
= htab_find_slot (m_unique_syms
, sym
, INSERT
);
3533 VEC_safe_push (symbolp
, m_symbols
, sym
);
3536 return true; /* Continue iterating. */
3541 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
3543 static VEC (symbolp
) *
3544 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
3545 const char *class_name
)
3549 decode_compound_collector collector
;
3551 lookup_name_info
lookup_name (class_name
, symbol_name_match_type::FULL
);
3553 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
3557 iterate_over_all_matching_symtabs (state
, lookup_name
,
3558 STRUCT_DOMAIN
, ALL_DOMAIN
,
3559 NULL
, false, collector
);
3560 iterate_over_all_matching_symtabs (state
, lookup_name
,
3561 VAR_DOMAIN
, ALL_DOMAIN
,
3562 NULL
, false, collector
);
3566 /* Program spaces that are executing startup should have
3567 been filtered out earlier. */
3568 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3569 set_current_program_space (SYMTAB_PSPACE (elt
));
3570 iterate_over_file_blocks (elt
, lookup_name
, STRUCT_DOMAIN
, collector
);
3571 iterate_over_file_blocks (elt
, lookup_name
, VAR_DOMAIN
, collector
);
3575 return collector
.release_symbols ();
3578 /* A qsort comparison function for symbols. The resulting order does
3579 not actually matter; we just need to be able to sort them so that
3580 symbols with the same program space end up next to each other. */
3583 compare_symbols (const void *a
, const void *b
)
3585 struct symbol
* const *sa
= (struct symbol
* const*) a
;
3586 struct symbol
* const *sb
= (struct symbol
* const*) b
;
3589 uia
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sa
));
3590 uib
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sb
));
3597 uia
= (uintptr_t) *sa
;
3598 uib
= (uintptr_t) *sb
;
3608 /* Like compare_symbols but for minimal symbols. */
3611 compare_msymbols (const void *a
, const void *b
)
3613 const struct bound_minimal_symbol
*sa
3614 = (const struct bound_minimal_symbol
*) a
;
3615 const struct bound_minimal_symbol
*sb
3616 = (const struct bound_minimal_symbol
*) b
;
3619 uia
= (uintptr_t) sa
->objfile
->pspace
;
3620 uib
= (uintptr_t) sa
->objfile
->pspace
;
3627 uia
= (uintptr_t) sa
->minsym
;
3628 uib
= (uintptr_t) sb
->minsym
;
3638 /* Look for all the matching instances of each symbol in NAMES. Only
3639 instances from PSPACE are considered; other program spaces are
3640 handled by our caller. If PSPACE is NULL, then all program spaces
3641 are considered. Results are stored into INFO. */
3644 add_all_symbol_names_from_pspace (struct collect_info
*info
,
3645 struct program_space
*pspace
,
3646 VEC (const_char_ptr
) *names
,
3647 enum search_domain search_domain
)
3652 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
3653 add_matching_symbols_to_info (iter
,
3654 symbol_name_match_type::FULL
,
3655 search_domain
, info
, pspace
);
3659 find_superclass_methods (VEC (typep
) *superclasses
,
3660 const char *name
, enum language name_lang
,
3661 VEC (const_char_ptr
) **result_names
)
3663 int old_len
= VEC_length (const_char_ptr
, *result_names
);
3664 VEC (typep
) *iter_classes
;
3665 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
3667 iter_classes
= superclasses
;
3670 VEC (typep
) *new_supers
= NULL
;
3674 make_cleanup (VEC_cleanup (typep
), &new_supers
);
3675 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
3676 find_methods (t
, name_lang
, name
, result_names
, &new_supers
);
3678 if (VEC_length (const_char_ptr
, *result_names
) != old_len
3679 || VEC_empty (typep
, new_supers
))
3682 iter_classes
= new_supers
;
3685 do_cleanups (cleanup
);
3688 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
3689 given by one of the symbols in SYM_CLASSES. Matches are returned
3690 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
3693 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
3694 const char *class_name
, const char *method_name
,
3695 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
3696 VEC (bound_minimal_symbol_d
) **minsyms
)
3699 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
3701 int last_result_len
;
3702 VEC (typep
) *superclass_vec
;
3703 VEC (const_char_ptr
) *result_names
;
3704 struct collect_info info
;
3706 /* Sort symbols so that symbols with the same program space are next
3708 qsort (VEC_address (symbolp
, sym_classes
),
3709 VEC_length (symbolp
, sym_classes
),
3714 info
.file_symtabs
= file_symtabs
;
3715 info
.result
.symbols
= NULL
;
3716 info
.result
.minimal_symbols
= NULL
;
3718 /* Iterate over all the types, looking for the names of existing
3719 methods matching METHOD_NAME. If we cannot find a direct method in a
3720 given program space, then we consider inherited methods; this is
3721 not ideal (ideal would be to respect C++ hiding rules), but it
3722 seems good enough and is what GDB has historically done. We only
3723 need to collect the names because later we find all symbols with
3724 those names. This loop is written in a somewhat funny way
3725 because we collect data across the program space before deciding
3727 superclass_vec
= NULL
;
3728 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
3729 result_names
= NULL
;
3730 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
3731 last_result_len
= 0;
3732 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
3735 struct program_space
*pspace
;
3737 /* Program spaces that are executing startup should have
3738 been filtered out earlier. */
3739 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
3740 gdb_assert (!pspace
->executing_startup
);
3741 set_current_program_space (pspace
);
3742 t
= check_typedef (SYMBOL_TYPE (sym
));
3743 find_methods (t
, SYMBOL_LANGUAGE (sym
),
3744 method_name
, &result_names
, &superclass_vec
);
3746 /* Handle all items from a single program space at once; and be
3747 sure not to miss the last batch. */
3748 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
3750 != SYMTAB_PSPACE (symbol_symtab (VEC_index (symbolp
, sym_classes
,
3753 /* If we did not find a direct implementation anywhere in
3754 this program space, consider superclasses. */
3755 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
3756 find_superclass_methods (superclass_vec
, method_name
,
3757 SYMBOL_LANGUAGE (sym
), &result_names
);
3759 /* We have a list of candidate symbol names, so now we
3760 iterate over the symbol tables looking for all
3761 matches in this pspace. */
3762 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
,
3765 VEC_truncate (typep
, superclass_vec
, 0);
3766 last_result_len
= VEC_length (const_char_ptr
, result_names
);
3770 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3771 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3773 *symbols
= info
.result
.symbols
;
3774 *minsyms
= info
.result
.minimal_symbols
;
3775 do_cleanups (cleanup
);
3779 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
3780 and other attempts to locate the symbol will be made. */
3781 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
3788 /* This function object is a callback for iterate_over_symtabs, used
3789 when collecting all matching symtabs. */
3791 class symtab_collector
3797 m_symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3801 ~symtab_collector ()
3803 if (m_symtab_table
!= NULL
)
3804 htab_delete (m_symtab_table
);
3807 /* Callable as a symbol_found_callback_ftype callback. */
3808 bool operator () (symtab
*sym
);
3810 /* Releases ownership of the collected symtabs and returns them. */
3811 VEC (symtab_ptr
) *release_symtabs ()
3813 VEC (symtab_ptr
) *res
= m_symtabs
;
3819 /* The result vector of symtabs. */
3820 VEC (symtab_ptr
) *m_symtabs
;
3822 /* This is used to ensure the symtabs are unique. */
3823 htab_t m_symtab_table
;
3827 symtab_collector::operator () (struct symtab
*symtab
)
3831 slot
= htab_find_slot (m_symtab_table
, symtab
, INSERT
);
3835 VEC_safe_push (symtab_ptr
, m_symtabs
, symtab
);
3843 /* Given a file name, return a VEC of all matching symtabs. If
3844 SEARCH_PSPACE is not NULL, the search is restricted to just that
3847 static VEC (symtab_ptr
) *
3848 collect_symtabs_from_filename (const char *file
,
3849 struct program_space
*search_pspace
)
3851 symtab_collector collector
;
3853 /* Find that file's data. */
3854 if (search_pspace
== NULL
)
3856 struct program_space
*pspace
;
3858 ALL_PSPACES (pspace
)
3860 if (pspace
->executing_startup
)
3863 set_current_program_space (pspace
);
3864 iterate_over_symtabs (file
, collector
);
3869 set_current_program_space (search_pspace
);
3870 iterate_over_symtabs (file
, collector
);
3873 return collector
.release_symtabs ();
3876 /* Return all the symtabs associated to the FILENAME. If SEARCH_PSPACE is
3877 not NULL, the search is restricted to just that program space. */
3879 static VEC (symtab_ptr
) *
3880 symtabs_from_filename (const char *filename
,
3881 struct program_space
*search_pspace
)
3883 VEC (symtab_ptr
) *result
;
3885 result
= collect_symtabs_from_filename (filename
, search_pspace
);
3887 if (VEC_empty (symtab_ptr
, result
))
3889 if (!have_full_symbols () && !have_partial_symbols ())
3890 throw_error (NOT_FOUND_ERROR
,
3891 _("No symbol table is loaded. "
3892 "Use the \"file\" command."));
3893 source_file_not_found_error (filename
);
3899 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3900 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3901 returned in MINSYMS. */
3904 find_function_symbols (struct linespec_state
*state
,
3905 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3906 symbol_name_match_type name_match_type
,
3907 VEC (symbolp
) **symbols
,
3908 VEC (bound_minimal_symbol_d
) **minsyms
)
3910 struct collect_info info
;
3911 VEC (const_char_ptr
) *symbol_names
= NULL
;
3912 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3916 info
.result
.symbols
= NULL
;
3917 info
.result
.minimal_symbols
= NULL
;
3918 info
.file_symtabs
= file_symtabs
;
3920 /* Try NAME as an Objective-C selector. */
3921 find_imps (name
, &symbol_names
);
3922 if (!VEC_empty (const_char_ptr
, symbol_names
))
3923 add_all_symbol_names_from_pspace (&info
, state
->search_pspace
,
3924 symbol_names
, FUNCTIONS_DOMAIN
);
3926 add_matching_symbols_to_info (name
, name_match_type
, FUNCTIONS_DOMAIN
,
3927 &info
, state
->search_pspace
);
3929 do_cleanups (cleanup
);
3931 if (VEC_empty (symbolp
, info
.result
.symbols
))
3933 VEC_free (symbolp
, info
.result
.symbols
);
3937 *symbols
= info
.result
.symbols
;
3939 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3941 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3945 *minsyms
= info
.result
.minimal_symbols
;
3948 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3949 in SYMBOLS and minimal symbols in MINSYMS. */
3952 find_linespec_symbols (struct linespec_state
*state
,
3953 VEC (symtab_ptr
) *file_symtabs
,
3954 const char *lookup_name
,
3955 symbol_name_match_type name_match_type
,
3956 VEC (symbolp
) **symbols
,
3957 VEC (bound_minimal_symbol_d
) **minsyms
)
3959 std::string canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3960 if (!canon
.empty ())
3961 lookup_name
= canon
.c_str ();
3963 /* It's important to not call expand_symtabs_matching unnecessarily
3964 as it can really slow things down (by unnecessarily expanding
3965 potentially 1000s of symtabs, which when debugging some apps can
3966 cost 100s of seconds). Avoid this to some extent by *first* calling
3967 find_function_symbols, and only if that doesn't find anything
3968 *then* call find_method. This handles two important cases:
3969 1) break (anonymous namespace)::foo
3970 2) break class::method where method is in class (and not a baseclass) */
3972 find_function_symbols (state
, file_symtabs
, lookup_name
,
3976 /* If we were unable to locate a symbol of the same name, try dividing
3977 the name into class and method names and searching the class and its
3979 if (VEC_empty (symbolp
, *symbols
)
3980 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3982 std::string klass
, method
;
3983 const char *last
, *p
, *scope_op
;
3984 VEC (symbolp
) *classes
;
3986 /* See if we can find a scope operator and break this symbol
3987 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3989 p
= find_toplevel_string (lookup_name
, scope_op
);
3995 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3998 /* If no scope operator was found, there is nothing more we can do;
3999 we already attempted to lookup the entire name as a symbol
4004 /* LOOKUP_NAME points to the class name.
4005 LAST points to the method name. */
4006 klass
= std::string (lookup_name
, last
- lookup_name
);
4008 /* Skip past the scope operator. */
4009 last
+= strlen (scope_op
);
4012 /* Find a list of classes named KLASS. */
4013 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
.c_str ());
4014 struct cleanup
*old_chain
4015 = make_cleanup (VEC_cleanup (symbolp
), &classes
);
4017 if (!VEC_empty (symbolp
, classes
))
4019 /* Now locate a list of suitable methods named METHOD. */
4022 find_method (state
, file_symtabs
,
4023 klass
.c_str (), method
.c_str (),
4024 classes
, symbols
, minsyms
);
4027 /* If successful, we're done. If NOT_FOUND_ERROR
4028 was not thrown, rethrow the exception that we did get. */
4029 CATCH (except
, RETURN_MASK_ERROR
)
4031 if (except
.error
!= NOT_FOUND_ERROR
)
4032 throw_exception (except
);
4037 do_cleanups (old_chain
);
4041 /* Helper for find_label_symbols. Find all labels that match name
4042 NAME in BLOCK. Return all labels that match in FUNCTION_SYMBOLS.
4043 Return the actual function symbol in which the label was found in
4044 LABEL_FUNC_RET. If COMPLETION_MODE is true, then NAME is
4045 interpreted as a label name prefix. Otherwise, only a label named
4046 exactly NAME match. */
4049 find_label_symbols_in_block (const struct block
*block
,
4050 const char *name
, struct symbol
*fn_sym
,
4051 bool completion_mode
,
4052 VEC (symbolp
) **result
,
4053 VEC (symbolp
) **label_funcs_ret
)
4055 if (completion_mode
)
4057 struct block_iterator iter
;
4059 size_t name_len
= strlen (name
);
4061 int (*cmp
) (const char *, const char *, size_t);
4062 cmp
= case_sensitivity
== case_sensitive_on
? strncmp
: strncasecmp
;
4064 ALL_BLOCK_SYMBOLS (block
, iter
, sym
)
4066 if (symbol_matches_domain (SYMBOL_LANGUAGE (sym
),
4067 SYMBOL_DOMAIN (sym
), LABEL_DOMAIN
)
4068 && cmp (SYMBOL_SEARCH_NAME (sym
), name
, name_len
) == 0)
4070 VEC_safe_push (symbolp
, *result
, sym
);
4071 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
4077 struct symbol
*sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
4081 VEC_safe_push (symbolp
, *result
, sym
);
4082 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
4087 /* Return all labels that match name NAME in FUNCTION_SYMBOLS. Return
4088 the actual function symbol in which the label was found in
4089 LABEL_FUNC_RET. If COMPLETION_MODE is true, then NAME is
4090 interpreted as a label name prefix. Otherwise, only labels named
4091 exactly NAME match. */
4093 static VEC (symbolp
) *
4094 find_label_symbols (struct linespec_state
*self
,
4095 VEC (symbolp
) *function_symbols
,
4096 VEC (symbolp
) **label_funcs_ret
, const char *name
,
4097 bool completion_mode
)
4100 const struct block
*block
;
4101 struct symbol
*fn_sym
;
4102 VEC (symbolp
) *result
= NULL
;
4104 if (function_symbols
== NULL
)
4106 set_current_program_space (self
->program_space
);
4107 block
= get_current_search_block ();
4110 block
&& !BLOCK_FUNCTION (block
);
4111 block
= BLOCK_SUPERBLOCK (block
))
4115 fn_sym
= BLOCK_FUNCTION (block
);
4117 find_label_symbols_in_block (block
, name
, fn_sym
, completion_mode
,
4118 &result
, label_funcs_ret
);
4123 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
4125 set_current_program_space (SYMTAB_PSPACE (symbol_symtab (fn_sym
)));
4126 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
4128 find_label_symbols_in_block (block
, name
, fn_sym
, completion_mode
,
4129 &result
, label_funcs_ret
);
4138 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
4140 static std::vector
<symtab_and_line
>
4141 decode_digits_list_mode (struct linespec_state
*self
,
4143 struct symtab_and_line val
)
4148 gdb_assert (self
->list_mode
);
4150 std::vector
<symtab_and_line
> values
;
4152 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
4155 /* The logic above should ensure this. */
4156 gdb_assert (elt
!= NULL
);
4158 set_current_program_space (SYMTAB_PSPACE (elt
));
4160 /* Simplistic search just for the list command. */
4161 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
4162 if (val
.symtab
== NULL
)
4164 val
.pspace
= SYMTAB_PSPACE (elt
);
4166 val
.explicit_line
= 1;
4168 add_sal_to_sals (self
, &values
, &val
, NULL
, 0);
4174 /* A helper for create_sals_line_offset that iterates over the symtabs,
4175 adding lines to the VEC. */
4177 static std::vector
<symtab_and_line
>
4178 decode_digits_ordinary (struct linespec_state
*self
,
4181 struct linetable_entry
**best_entry
)
4186 std::vector
<symtab_and_line
> sals
;
4187 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
4189 std::vector
<CORE_ADDR
> pcs
;
4191 /* The logic above should ensure this. */
4192 gdb_assert (elt
!= NULL
);
4194 set_current_program_space (SYMTAB_PSPACE (elt
));
4196 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
4197 for (CORE_ADDR pc
: pcs
)
4199 symtab_and_line sal
;
4200 sal
.pspace
= SYMTAB_PSPACE (elt
);
4204 sals
.push_back (std::move (sal
));
4213 /* Return the line offset represented by VARIABLE. */
4215 static struct line_offset
4216 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
4220 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
4222 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
4225 while (*p
>= '0' && *p
<= '9')
4227 if (!*p
) /* Reached end of token without hitting non-digit. */
4229 /* We have a value history reference. */
4230 struct value
*val_history
;
4232 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
4234 = access_value_history ((variable
[1] == '$') ? -index
: index
);
4235 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
4236 error (_("History values used in line "
4237 "specs must have integer values."));
4238 offset
.offset
= value_as_long (val_history
);
4242 /* Not all digits -- may be user variable/function or a
4243 convenience variable. */
4245 struct internalvar
*ivar
;
4247 /* Try it as a convenience variable. If it is not a convenience
4248 variable, return and allow normal symbol lookup to occur. */
4249 ivar
= lookup_only_internalvar (variable
+ 1);
4251 /* No internal variable with that name. Mark the offset
4252 as unknown to allow the name to be looked up as a symbol. */
4253 offset
.sign
= LINE_OFFSET_UNKNOWN
;
4256 /* We found a valid variable name. If it is not an integer,
4258 if (!get_internalvar_integer (ivar
, &valx
))
4259 error (_("Convenience variables used in line "
4260 "specs must have integer values."));
4262 offset
.offset
= valx
;
4270 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
4271 linespec; return the SAL in RESULT. This function should return SALs
4272 matching those from find_function_start_sal, otherwise false
4273 multiple-locations breakpoints could be placed. */
4276 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
4277 struct minimal_symbol
*msymbol
,
4278 std::vector
<symtab_and_line
> *result
)
4280 struct symtab_and_line sal
;
4282 CORE_ADDR func_addr
;
4283 if (msymbol_is_function (objfile
, msymbol
, &func_addr
))
4285 sal
= find_pc_sect_line (func_addr
, NULL
, 0);
4287 if (self
->funfirstline
)
4289 if (sal
.symtab
!= NULL
4290 && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal
.symtab
))
4291 || SYMTAB_LANGUAGE (sal
.symtab
) == language_asm
))
4293 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
4296 if (gdbarch_skip_entrypoint_p (gdbarch
))
4297 sal
.pc
= gdbarch_skip_entrypoint (gdbarch
, sal
.pc
);
4300 skip_prologue_sal (&sal
);
4305 sal
.objfile
= objfile
;
4306 sal
.pc
= MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
);
4307 sal
.pspace
= current_program_space
;
4310 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
4312 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
4313 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
4316 /* A helper function to classify a minimal_symbol_type according to
4320 classify_mtype (enum minimal_symbol_type t
)
4327 /* Intermediate priority. */
4330 case mst_solib_trampoline
:
4331 /* Lowest priority. */
4335 /* Highest priority. */
4340 /* Callback for std::sort that sorts symbols by priority. */
4343 compare_msyms (const bound_minimal_symbol
&a
, const bound_minimal_symbol
&b
)
4345 enum minimal_symbol_type ta
= MSYMBOL_TYPE (a
.minsym
);
4346 enum minimal_symbol_type tb
= MSYMBOL_TYPE (b
.minsym
);
4348 return classify_mtype (ta
) < classify_mtype (tb
);
4351 /* Helper for search_minsyms_for_name that adds the symbol to the
4355 add_minsym (struct minimal_symbol
*minsym
, struct objfile
*objfile
,
4356 struct symtab
*symtab
, int list_mode
,
4357 std::vector
<struct bound_minimal_symbol
> *msyms
)
4361 /* We're looking for a label for which we don't have debug
4363 CORE_ADDR func_addr
;
4364 if (msymbol_is_function (objfile
, minsym
, &func_addr
))
4366 symtab_and_line sal
= find_pc_sect_line (func_addr
, NULL
, 0);
4368 if (symtab
!= sal
.symtab
)
4373 /* Exclude data symbols when looking for breakpoint locations. */
4374 if (!list_mode
&& !msymbol_is_function (objfile
, minsym
))
4377 struct bound_minimal_symbol mo
= {minsym
, objfile
};
4378 msyms
->push_back (mo
);
4381 /* Search for minimal symbols called NAME. If SEARCH_PSPACE
4382 is not NULL, the search is restricted to just that program
4385 If SYMTAB is NULL, search all objfiles, otherwise
4386 restrict results to the given SYMTAB. */
4389 search_minsyms_for_name (struct collect_info
*info
,
4390 const lookup_name_info
&name
,
4391 struct program_space
*search_pspace
,
4392 struct symtab
*symtab
)
4394 std::vector
<struct bound_minimal_symbol
> minsyms
;
4398 struct program_space
*pspace
;
4400 ALL_PSPACES (pspace
)
4402 struct objfile
*objfile
;
4404 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
4406 if (pspace
->executing_startup
)
4409 set_current_program_space (pspace
);
4411 ALL_OBJFILES (objfile
)
4413 iterate_over_minimal_symbols (objfile
, name
,
4414 [&] (struct minimal_symbol
*msym
)
4416 add_minsym (msym
, objfile
, nullptr,
4417 info
->state
->list_mode
,
4425 if (search_pspace
== NULL
|| SYMTAB_PSPACE (symtab
) == search_pspace
)
4427 set_current_program_space (SYMTAB_PSPACE (symtab
));
4428 iterate_over_minimal_symbols
4429 (SYMTAB_OBJFILE (symtab
), name
,
4430 [&] (struct minimal_symbol
*msym
)
4432 add_minsym (msym
, SYMTAB_OBJFILE (symtab
), symtab
,
4433 info
->state
->list_mode
, &minsyms
);
4438 if (!minsyms
.empty ())
4442 std::sort (minsyms
.begin (), minsyms
.end (), compare_msyms
);
4444 /* Now the minsyms are in classification order. So, we walk
4445 over them and process just the minsyms with the same
4446 classification as the very first minsym in the list. */
4447 classification
= classify_mtype (MSYMBOL_TYPE (minsyms
[0].minsym
));
4449 for (const struct bound_minimal_symbol
&item
: minsyms
)
4451 if (classify_mtype (MSYMBOL_TYPE (item
.minsym
)) != classification
)
4454 VEC_safe_push (bound_minimal_symbol_d
,
4455 info
->result
.minimal_symbols
, &item
);
4460 /* A helper function to add all symbols matching NAME to INFO. If
4461 PSPACE is not NULL, the search is restricted to just that program
4465 add_matching_symbols_to_info (const char *name
,
4466 symbol_name_match_type name_match_type
,
4467 enum search_domain search_domain
,
4468 struct collect_info
*info
,
4469 struct program_space
*pspace
)
4474 lookup_name_info
lookup_name (name
, name_match_type
);
4476 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
4480 iterate_over_all_matching_symtabs (info
->state
, lookup_name
,
4481 VAR_DOMAIN
, search_domain
,
4482 pspace
, true, [&] (symbol
*sym
)
4483 { return info
->add_symbol (sym
); });
4484 search_minsyms_for_name (info
, lookup_name
, pspace
, NULL
);
4486 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
4488 int prev_len
= VEC_length (symbolp
, info
->result
.symbols
);
4490 /* Program spaces that are executing startup should have
4491 been filtered out earlier. */
4492 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
4493 set_current_program_space (SYMTAB_PSPACE (elt
));
4494 iterate_over_file_blocks (elt
, lookup_name
, VAR_DOMAIN
,
4496 { return info
->add_symbol (sym
); });
4498 /* If no new symbols were found in this iteration and this symtab
4499 is in assembler, we might actually be looking for a label for
4500 which we don't have debug info. Check for a minimal symbol in
4502 if (prev_len
== VEC_length (symbolp
, info
->result
.symbols
)
4503 && elt
->language
== language_asm
)
4504 search_minsyms_for_name (info
, lookup_name
, pspace
, elt
);
4511 /* Now come some functions that are called from multiple places within
4515 symbol_to_sal (struct symtab_and_line
*result
,
4516 int funfirstline
, struct symbol
*sym
)
4518 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
4520 *result
= find_function_start_sal (sym
, funfirstline
);
4525 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
4528 result
->symtab
= symbol_symtab (sym
);
4529 result
->symbol
= sym
;
4530 result
->line
= SYMBOL_LINE (sym
);
4531 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
4532 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
4533 result
->explicit_pc
= 1;
4536 else if (funfirstline
)
4540 else if (SYMBOL_LINE (sym
) != 0)
4542 /* We know its line number. */
4544 result
->symtab
= symbol_symtab (sym
);
4545 result
->symbol
= sym
;
4546 result
->line
= SYMBOL_LINE (sym
);
4547 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
4548 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
4556 linespec_result::~linespec_result ()
4558 for (linespec_sals
&lsal
: lsals
)
4559 xfree (lsal
.canonical
);
4562 /* Return the quote characters permitted by the linespec parser. */
4565 get_gdb_linespec_parser_quote_characters (void)
4567 return linespec_quote_characters
;