1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2014 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "completer.h"
31 #include "cp-support.h"
32 #include "parser-defs.h"
34 #include "objc-lang.h"
36 #include "exceptions.h"
39 #include "mi/mi-cmds.h"
41 #include "arch-utils.h"
43 #include "cli/cli-utils.h"
44 #include "filenames.h"
48 typedef struct symbol
*symbolp
;
51 typedef struct type
*typep
;
54 /* An address entry is used to ensure that any given location is only
55 added to the result a single time. It holds an address and the
56 program space from which the address came. */
60 struct program_space
*pspace
;
64 typedef struct bound_minimal_symbol bound_minimal_symbol_d
;
66 DEF_VEC_O (bound_minimal_symbol_d
);
68 /* An enumeration of possible signs for a line offset. */
69 enum offset_relative_sign
74 /* A plus sign ("+") */
77 /* A minus sign ("-") */
80 /* A special "sign" for unspecified offset. */
84 /* A line offset in a linespec. */
88 /* Line offset and any specified sign. */
90 enum offset_relative_sign sign
;
93 /* A linespec. Elements of this structure are filled in by a parser
94 (either parse_linespec or some other function). The structure is
95 then converted into SALs by convert_linespec_to_sals. */
99 /* An expression and the resulting PC. Specifying an expression
100 currently precludes the use of other members. */
102 /* The expression entered by the user. */
103 const char *expression
;
105 /* The resulting PC expression derived from evaluating EXPRESSION. */
108 /* Any specified file symtabs. */
110 /* The user-supplied source filename or NULL if none was specified. */
111 const char *source_filename
;
113 /* The list of symtabs to search to which to limit the search. May not
114 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
115 FILE_SYMTABS should contain one single NULL member. This will
116 cause the code to use the default symtab. */
117 VEC (symtab_ptr
) *file_symtabs
;
119 /* The name of a function or method and any matching symbols. */
121 /* The user-specified function name. If no function name was
122 supplied, this may be NULL. */
123 const char *function_name
;
125 /* A list of matching function symbols and minimal symbols. Both lists
126 may be NULL if no matching symbols were found. */
127 VEC (symbolp
) *function_symbols
;
128 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
130 /* The name of a label and matching symbols. */
132 /* The user-specified label name. */
133 const char *label_name
;
135 /* A structure of matching label symbols and the corresponding
136 function symbol in which the label was found. Both may be NULL
137 or both must be non-NULL. */
140 VEC (symbolp
) *label_symbols
;
141 VEC (symbolp
) *function_symbols
;
144 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
145 offset was specified. */
146 struct line_offset line_offset
;
148 typedef struct linespec
*linespec_p
;
150 /* A canonical linespec represented as a symtab-related string.
152 Each entry represents the "SYMTAB:SUFFIX" linespec string.
153 SYMTAB can be converted for example by symtab_to_fullname or
154 symtab_to_filename_for_display as needed. */
156 struct linespec_canonical_name
158 /* Remaining text part of the linespec string. */
161 /* If NULL then SUFFIX is the whole linespec string. */
162 struct symtab
*symtab
;
165 /* An instance of this is used to keep all state while linespec
166 operates. This instance is passed around as a 'this' pointer to
167 the various implementation methods. */
169 struct linespec_state
171 /* The language in use during linespec processing. */
172 const struct language_defn
*language
;
174 /* The program space as seen when the module was entered. */
175 struct program_space
*program_space
;
177 /* The default symtab to use, if no other symtab is specified. */
178 struct symtab
*default_symtab
;
180 /* The default line to use. */
183 /* The 'funfirstline' value that was passed in to decode_line_1 or
187 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
190 /* The 'canonical' value passed to decode_line_full, or NULL. */
191 struct linespec_result
*canonical
;
193 /* Canonical strings that mirror the symtabs_and_lines result. */
194 struct linespec_canonical_name
*canonical_names
;
196 /* This is a set of address_entry objects which is used to prevent
197 duplicate symbols from being entered into the result. */
201 /* This is a helper object that is used when collecting symbols into a
206 /* The linespec object in use. */
207 struct linespec_state
*state
;
209 /* A list of symtabs to which to restrict matches. */
210 VEC (symtab_ptr
) *file_symtabs
;
212 /* The result being accumulated. */
215 VEC (symbolp
) *symbols
;
216 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
227 /* A colon "separator" */
239 /* EOI (end of input) */
245 typedef enum ls_token_type linespec_token_type
;
247 /* List of keywords */
249 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
251 /* A token of the linespec lexer */
255 /* The type of the token */
256 linespec_token_type type
;
258 /* Data for the token */
261 /* A string, given as a stoken */
262 struct stoken string
;
268 typedef struct ls_token linespec_token
;
270 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
271 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
273 /* An instance of the linespec parser. */
277 /* Lexer internal data */
280 /* Save head of input stream. */
281 const char *saved_arg
;
283 /* Head of the input stream. */
285 #define PARSER_STREAM(P) (*(P)->lexer.stream)
287 /* The current token. */
288 linespec_token current
;
291 /* Is the entire linespec quote-enclosed? */
292 int is_quote_enclosed
;
294 /* Is a keyword syntactically valid at this point?
295 In, e.g., "break thread thread 1", the leading "keyword" must not
296 be interpreted as such. */
299 /* The state of the parse. */
300 struct linespec_state state
;
301 #define PARSER_STATE(PPTR) (&(PPTR)->state)
303 /* The result of the parse. */
304 struct linespec result
;
305 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
307 typedef struct ls_parser linespec_parser
;
309 /* Prototypes for local functions. */
311 static void iterate_over_file_blocks (struct symtab
*symtab
,
312 const char *name
, domain_enum domain
,
313 symbol_found_callback_ftype
*callback
,
316 static void initialize_defaults (struct symtab
**default_symtab
,
319 static CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
321 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
323 const char **argptr
);
325 static VEC (symtab_ptr
) *symtabs_from_filename (const char *);
327 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
328 VEC (symbolp
) *function_symbols
,
329 VEC (symbolp
) **label_funcs_ret
,
332 static void find_linespec_symbols (struct linespec_state
*self
,
333 VEC (symtab_ptr
) *file_symtabs
,
335 VEC (symbolp
) **symbols
,
336 VEC (bound_minimal_symbol_d
) **minsyms
);
338 static struct line_offset
339 linespec_parse_variable (struct linespec_state
*self
,
340 const char *variable
);
342 static int symbol_to_sal (struct symtab_and_line
*result
,
343 int funfirstline
, struct symbol
*sym
);
345 static void add_matching_symbols_to_info (const char *name
,
346 struct collect_info
*info
,
347 struct program_space
*pspace
);
349 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
350 struct program_space
*pspace
,
351 VEC (const_char_ptr
) *names
);
353 static VEC (symtab_ptr
) *collect_symtabs_from_filename (const char *file
);
355 static void decode_digits_ordinary (struct linespec_state
*self
,
358 struct symtabs_and_lines
*sals
,
359 struct linetable_entry
**best_entry
);
361 static void decode_digits_list_mode (struct linespec_state
*self
,
363 struct symtabs_and_lines
*values
,
364 struct symtab_and_line val
);
366 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
367 struct minimal_symbol
*msymbol
,
368 struct symtabs_and_lines
*result
);
370 static int compare_symbols (const void *a
, const void *b
);
372 static int compare_msymbols (const void *a
, const void *b
);
374 static const char *find_toplevel_char (const char *s
, char c
);
376 /* Permitted quote characters for the parser. This is different from the
377 completer's quote characters to allow backward compatibility with the
379 static const char *const linespec_quote_characters
= "\"\'";
381 /* Lexer functions. */
383 /* Lex a number from the input in PARSER. This only supports
386 Return true if input is decimal numbers. Return false if not. */
389 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
391 tokenp
->type
= LSTOKEN_NUMBER
;
392 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
393 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
395 /* Keep any sign at the start of the stream. */
396 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
398 ++LS_TOKEN_STOKEN (*tokenp
).length
;
399 ++(PARSER_STREAM (parser
));
402 while (isdigit (*PARSER_STREAM (parser
)))
404 ++LS_TOKEN_STOKEN (*tokenp
).length
;
405 ++(PARSER_STREAM (parser
));
408 /* If the next character in the input buffer is not a space, comma,
409 quote, or colon, this input does not represent a number. */
410 if (*PARSER_STREAM (parser
) != '\0'
411 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
412 && *PARSER_STREAM (parser
) != ':'
413 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
415 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
422 /* Does P represent one of the keywords? If so, return
423 the keyword. If not, return NULL. */
426 linespec_lexer_lex_keyword (const char *p
)
432 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
434 int len
= strlen (linespec_keywords
[i
]);
436 /* If P begins with one of the keywords and the next
437 character is not a valid identifier character,
438 we have found a keyword. */
439 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
440 && !(isalnum (p
[len
]) || p
[len
] == '_'))
441 return linespec_keywords
[i
];
448 /* Does STRING represent an Ada operator? If so, return the length
449 of the decoded operator name. If not, return 0. */
452 is_ada_operator (const char *string
)
454 const struct ada_opname_map
*mapping
;
456 for (mapping
= ada_opname_table
;
457 mapping
->encoded
!= NULL
458 && strncmp (mapping
->decoded
, string
,
459 strlen (mapping
->decoded
)) != 0; ++mapping
)
462 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
465 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
466 the location of QUOTE_CHAR, or NULL if not found. */
469 skip_quote_char (const char *string
, char quote_char
)
471 const char *p
, *last
;
473 p
= last
= find_toplevel_char (string
, quote_char
);
474 while (p
&& *p
!= '\0' && *p
!= ':')
476 p
= find_toplevel_char (p
, quote_char
);
484 /* Make a writable copy of the string given in TOKEN, trimming
485 any trailing whitespace. */
488 copy_token_string (linespec_token token
)
492 if (token
.type
== LSTOKEN_KEYWORD
)
493 return xstrdup (LS_TOKEN_KEYWORD (token
));
495 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
496 LS_TOKEN_STOKEN (token
).length
);
497 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
503 /* Does P represent the end of a quote-enclosed linespec? */
506 is_closing_quote_enclosed (const char *p
)
508 if (strchr (linespec_quote_characters
, *p
))
510 p
= skip_spaces ((char *) p
);
511 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
514 /* Find the end of the parameter list that starts with *INPUT.
515 This helper function assists with lexing string segments
516 which might contain valid (non-terminating) commas. */
519 find_parameter_list_end (const char *input
)
521 char end_char
, start_char
;
526 if (start_char
== '(')
528 else if (start_char
== '<')
537 if (*p
== start_char
)
539 else if (*p
== end_char
)
554 /* Lex a string from the input in PARSER. */
556 static linespec_token
557 linespec_lexer_lex_string (linespec_parser
*parser
)
559 linespec_token token
;
560 const char *start
= PARSER_STREAM (parser
);
562 token
.type
= LSTOKEN_STRING
;
564 /* If the input stream starts with a quote character, skip to the next
565 quote character, regardless of the content. */
566 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
569 char quote_char
= *PARSER_STREAM (parser
);
571 /* Special case: Ada operators. */
572 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
573 && quote_char
== '\"')
575 int len
= is_ada_operator (PARSER_STREAM (parser
));
579 /* The input is an Ada operator. Return the quoted string
581 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
582 LS_TOKEN_STOKEN (token
).length
= len
;
583 PARSER_STREAM (parser
) += len
;
587 /* The input does not represent an Ada operator -- fall through
588 to normal quoted string handling. */
591 /* Skip past the beginning quote. */
592 ++(PARSER_STREAM (parser
));
594 /* Mark the start of the string. */
595 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
597 /* Skip to the ending quote. */
598 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
600 /* Error if the input did not terminate properly. */
602 error (_("unmatched quote"));
604 /* Skip over the ending quote and mark the length of the string. */
605 PARSER_STREAM (parser
) = (char *) ++end
;
606 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
612 /* Otherwise, only identifier characters are permitted.
613 Spaces are the exception. In general, we keep spaces,
614 but only if the next characters in the input do not resolve
615 to one of the keywords.
617 This allows users to forgo quoting CV-qualifiers, template arguments,
618 and similar common language constructs. */
622 if (isspace (*PARSER_STREAM (parser
)))
624 p
= skip_spaces_const (PARSER_STREAM (parser
));
625 /* When we get here we know we've found something followed by
626 a space (we skip over parens and templates below).
627 So if we find a keyword now, we know it is a keyword and not,
628 say, a function name. */
629 if (linespec_lexer_lex_keyword (p
) != NULL
)
631 LS_TOKEN_STOKEN (token
).ptr
= start
;
632 LS_TOKEN_STOKEN (token
).length
633 = PARSER_STREAM (parser
) - start
;
637 /* Advance past the whitespace. */
638 PARSER_STREAM (parser
) = p
;
641 /* If the next character is EOI or (single) ':', the
642 string is complete; return the token. */
643 if (*PARSER_STREAM (parser
) == 0)
645 LS_TOKEN_STOKEN (token
).ptr
= start
;
646 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
649 else if (PARSER_STREAM (parser
)[0] == ':')
651 /* Do not tokenize the C++ scope operator. */
652 if (PARSER_STREAM (parser
)[1] == ':')
653 ++(PARSER_STREAM (parser
));
655 /* Do not tokenify if the input length so far is one
656 (i.e, a single-letter drive name) and the next character
657 is a directory separator. This allows Windows-style
658 paths to be recognized as filenames without quoting it. */
659 else if ((PARSER_STREAM (parser
) - start
) != 1
660 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
662 LS_TOKEN_STOKEN (token
).ptr
= start
;
663 LS_TOKEN_STOKEN (token
).length
664 = PARSER_STREAM (parser
) - start
;
668 /* Special case: permit quote-enclosed linespecs. */
669 else if (parser
->is_quote_enclosed
670 && strchr (linespec_quote_characters
,
671 *PARSER_STREAM (parser
))
672 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
674 LS_TOKEN_STOKEN (token
).ptr
= start
;
675 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
678 /* Because commas may terminate a linespec and appear in
679 the middle of valid string input, special cases for
680 '<' and '(' are necessary. */
681 else if (*PARSER_STREAM (parser
) == '<'
682 || *PARSER_STREAM (parser
) == '(')
686 p
= find_parameter_list_end (PARSER_STREAM (parser
));
689 PARSER_STREAM (parser
) = p
;
693 /* Commas are terminators, but not if they are part of an
695 else if (*PARSER_STREAM (parser
) == ',')
697 if ((PARSER_STATE (parser
)->language
->la_language
699 && (PARSER_STREAM (parser
) - start
) > 8
700 /* strlen ("operator") */)
702 char *p
= strstr (start
, "operator");
704 if (p
!= NULL
&& is_operator_name (p
))
706 /* This is an operator name. Keep going. */
707 ++(PARSER_STREAM (parser
));
712 /* Comma terminates the string. */
713 LS_TOKEN_STOKEN (token
).ptr
= start
;
714 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
718 /* Advance the stream. */
719 ++(PARSER_STREAM (parser
));
726 /* Lex a single linespec token from PARSER. */
728 static linespec_token
729 linespec_lexer_lex_one (linespec_parser
*parser
)
733 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
735 /* Skip any whitespace. */
736 PARSER_STREAM (parser
) = skip_spaces_const (PARSER_STREAM (parser
));
738 /* Check for a keyword, they end the linespec. */
740 if (parser
->keyword_ok
)
741 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
744 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
745 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
746 return parser
->lexer
.current
;
749 /* Handle other tokens. */
750 switch (*PARSER_STREAM (parser
))
753 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
757 case '0': case '1': case '2': case '3': case '4':
758 case '5': case '6': case '7': case '8': case '9':
759 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
760 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
764 /* If we have a scope operator, lex the input as a string.
765 Otherwise, return LSTOKEN_COLON. */
766 if (PARSER_STREAM (parser
)[1] == ':')
767 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
770 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
771 ++(PARSER_STREAM (parser
));
775 case '\'': case '\"':
776 /* Special case: permit quote-enclosed linespecs. */
777 if (parser
->is_quote_enclosed
778 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
780 ++(PARSER_STREAM (parser
));
781 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
784 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
788 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
789 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
790 = PARSER_STREAM (parser
);
791 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
792 ++(PARSER_STREAM (parser
));
796 /* If the input is not a number, it must be a string.
797 [Keywords were already considered above.] */
798 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
803 return parser
->lexer
.current
;
806 /* Consume the current token and return the next token in PARSER's
809 static linespec_token
810 linespec_lexer_consume_token (linespec_parser
*parser
)
812 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
813 return linespec_lexer_lex_one (parser
);
816 /* Return the next token without consuming the current token. */
818 static linespec_token
819 linespec_lexer_peek_token (linespec_parser
*parser
)
822 const char *saved_stream
= PARSER_STREAM (parser
);
823 linespec_token saved_token
= parser
->lexer
.current
;
825 next
= linespec_lexer_consume_token (parser
);
826 PARSER_STREAM (parser
) = saved_stream
;
827 parser
->lexer
.current
= saved_token
;
831 /* Helper functions. */
833 /* Add SAL to SALS. */
836 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
837 struct symtab_and_line
*sal
)
840 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
841 sals
->sals
[sals
->nelts
- 1] = *sal
;
844 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
845 the new sal, if needed. If not NULL, SYMNAME is the name of the
846 symbol to use when constructing the new canonical name.
848 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
849 canonical name for the SAL. */
852 add_sal_to_sals (struct linespec_state
*self
,
853 struct symtabs_and_lines
*sals
,
854 struct symtab_and_line
*sal
,
855 const char *symname
, int literal_canonical
)
857 add_sal_to_sals_basic (sals
, sal
);
861 struct linespec_canonical_name
*canonical
;
863 self
->canonical_names
= xrealloc (self
->canonical_names
,
865 * sizeof (*self
->canonical_names
)));
866 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
867 if (!literal_canonical
&& sal
->symtab
)
869 const char *fullname
= symtab_to_fullname (sal
->symtab
);
871 /* Note that the filter doesn't have to be a valid linespec
872 input. We only apply the ":LINE" treatment to Ada for
874 if (symname
!= NULL
&& sal
->line
!= 0
875 && self
->language
->la_language
== language_ada
)
876 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
877 else if (symname
!= NULL
)
878 canonical
->suffix
= xstrdup (symname
);
880 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
881 canonical
->symtab
= sal
->symtab
;
886 canonical
->suffix
= xstrdup (symname
);
888 canonical
->suffix
= xstrdup ("<unknown>");
889 canonical
->symtab
= NULL
;
894 /* A hash function for address_entry. */
897 hash_address_entry (const void *p
)
899 const struct address_entry
*aep
= p
;
902 hash
= iterative_hash_object (aep
->pspace
, 0);
903 return iterative_hash_object (aep
->addr
, hash
);
906 /* An equality function for address_entry. */
909 eq_address_entry (const void *a
, const void *b
)
911 const struct address_entry
*aea
= a
;
912 const struct address_entry
*aeb
= b
;
914 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
917 /* Check whether the address, represented by PSPACE and ADDR, is
918 already in the set. If so, return 0. Otherwise, add it and return
922 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
924 struct address_entry e
, *p
;
929 slot
= htab_find_slot (set
, &e
, INSERT
);
933 p
= XNEW (struct address_entry
);
934 memcpy (p
, &e
, sizeof (struct address_entry
));
940 /* A callback function and the additional data to call it with. */
942 struct symbol_and_data_callback
944 /* The callback to use. */
945 symbol_found_callback_ftype
*callback
;
947 /* Data to be passed to the callback. */
951 /* A helper for iterate_over_all_matching_symtabs that is used to
952 restrict calls to another callback to symbols representing inline
956 iterate_inline_only (struct symbol
*sym
, void *d
)
958 if (SYMBOL_INLINED (sym
))
960 struct symbol_and_data_callback
*cad
= d
;
962 return cad
->callback (sym
, cad
->data
);
964 return 1; /* Continue iterating. */
967 /* Some data for the expand_symtabs_matching callback. */
969 struct symbol_matcher_data
971 /* The lookup name against which symbol name should be compared. */
972 const char *lookup_name
;
974 /* The routine to be used for comparison. */
975 symbol_name_cmp_ftype symbol_name_cmp
;
978 /* A helper for iterate_over_all_matching_symtabs that is passed as a
979 callback to the expand_symtabs_matching method. */
982 iterate_name_matcher (const char *name
, void *d
)
984 const struct symbol_matcher_data
*data
= d
;
986 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
987 return 1; /* Expand this symbol's symbol table. */
988 return 0; /* Skip this symbol. */
991 /* A helper that walks over all matching symtabs in all objfiles and
992 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
993 not NULL, then the search is restricted to just that program
994 space. If INCLUDE_INLINE is nonzero then symbols representing
995 inlined instances of functions will be included in the result. */
998 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
1000 const domain_enum domain
,
1001 symbol_found_callback_ftype
*callback
,
1003 struct program_space
*search_pspace
,
1006 struct objfile
*objfile
;
1007 struct program_space
*pspace
;
1008 struct symbol_matcher_data matcher_data
;
1010 matcher_data
.lookup_name
= name
;
1011 matcher_data
.symbol_name_cmp
=
1012 state
->language
->la_get_symbol_name_cmp
!= NULL
1013 ? state
->language
->la_get_symbol_name_cmp (name
)
1016 ALL_PSPACES (pspace
)
1018 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
1020 if (pspace
->executing_startup
)
1023 set_current_program_space (pspace
);
1025 ALL_OBJFILES (objfile
)
1027 struct symtab
*symtab
;
1030 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1031 iterate_name_matcher
,
1035 ALL_OBJFILE_PRIMARY_SYMTABS (objfile
, symtab
)
1037 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1041 struct symbol_and_data_callback cad
= { callback
, data
};
1042 struct block
*block
;
1045 for (i
= FIRST_LOCAL_BLOCK
;
1046 i
< BLOCKVECTOR_NBLOCKS (BLOCKVECTOR (symtab
)); i
++)
1048 block
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab
), i
);
1049 state
->language
->la_iterate_over_symbols
1050 (block
, name
, domain
, iterate_inline_only
, &cad
);
1058 /* Returns the block to be used for symbol searches from
1059 the current location. */
1061 static const struct block
*
1062 get_current_search_block (void)
1064 const struct block
*block
;
1065 enum language save_language
;
1067 /* get_selected_block can change the current language when there is
1068 no selected frame yet. */
1069 save_language
= current_language
->la_language
;
1070 block
= get_selected_block (0);
1071 set_language (save_language
);
1076 /* Iterate over static and global blocks. */
1079 iterate_over_file_blocks (struct symtab
*symtab
,
1080 const char *name
, domain_enum domain
,
1081 symbol_found_callback_ftype
*callback
, void *data
)
1083 struct block
*block
;
1085 for (block
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1087 block
= BLOCK_SUPERBLOCK (block
))
1088 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1091 /* A helper for find_method. This finds all methods in type T which
1092 match NAME. It adds matching symbol names to RESULT_NAMES, and
1093 adds T's direct superclasses to SUPERCLASSES. */
1096 find_methods (struct type
*t
, const char *name
,
1097 VEC (const_char_ptr
) **result_names
,
1098 VEC (typep
) **superclasses
)
1101 const char *class_name
= type_name_no_tag (t
);
1103 /* Ignore this class if it doesn't have a name. This is ugly, but
1104 unless we figure out how to get the physname without the name of
1105 the class, then the loop can't do any good. */
1112 /* Loop over each method name. At this level, all overloads of a name
1113 are counted as a single name. There is an inner loop which loops over
1116 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1117 method_counter
>= 0;
1120 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1121 char dem_opname
[64];
1123 if (strncmp (method_name
, "__", 2) == 0 ||
1124 strncmp (method_name
, "op", 2) == 0 ||
1125 strncmp (method_name
, "type", 4) == 0)
1127 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1128 method_name
= dem_opname
;
1129 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1130 method_name
= dem_opname
;
1133 if (strcmp_iw (method_name
, name
) == 0)
1137 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1143 const char *phys_name
;
1145 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1146 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1148 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1149 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1155 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1156 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1159 /* Find an instance of the character C in the string S that is outside
1160 of all parenthesis pairs, single-quoted strings, and double-quoted
1161 strings. Also, ignore the char within a template name, like a ','
1162 within foo<int, int>. */
1165 find_toplevel_char (const char *s
, char c
)
1167 int quoted
= 0; /* zero if we're not in quotes;
1168 '"' if we're in a double-quoted string;
1169 '\'' if we're in a single-quoted string. */
1170 int depth
= 0; /* Number of unclosed parens we've seen. */
1173 for (scan
= s
; *scan
; scan
++)
1177 if (*scan
== quoted
)
1179 else if (*scan
== '\\' && *(scan
+ 1))
1182 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1184 else if (*scan
== '"' || *scan
== '\'')
1186 else if (*scan
== '(' || *scan
== '<')
1188 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1195 /* The string equivalent of find_toplevel_char. Returns a pointer
1196 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1197 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1200 find_toplevel_string (const char *haystack
, const char *needle
)
1202 const char *s
= haystack
;
1206 s
= find_toplevel_char (s
, *needle
);
1210 /* Found first char in HAYSTACK; check rest of string. */
1211 if (strncmp (s
, needle
, strlen (needle
)) == 0)
1214 /* Didn't find it; loop over HAYSTACK, looking for the next
1215 instance of the first character of NEEDLE. */
1219 while (s
!= NULL
&& *s
!= '\0');
1221 /* NEEDLE was not found in HAYSTACK. */
1225 /* Convert CANONICAL to its string representation using
1226 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1229 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1231 if (canonical
->symtab
== NULL
)
1232 return xstrdup (canonical
->suffix
);
1234 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1238 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1239 and store the result in SELF->CANONICAL. */
1242 filter_results (struct linespec_state
*self
,
1243 struct symtabs_and_lines
*result
,
1244 VEC (const_char_ptr
) *filters
)
1249 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1251 struct linespec_sals lsal
;
1254 memset (&lsal
, 0, sizeof (lsal
));
1256 for (j
= 0; j
< result
->nelts
; ++j
)
1258 const struct linespec_canonical_name
*canonical
;
1260 struct cleanup
*cleanup
;
1262 canonical
= &self
->canonical_names
[j
];
1263 fullform
= canonical_to_fullform (canonical
);
1264 cleanup
= make_cleanup (xfree
, fullform
);
1266 if (strcmp (name
, fullform
) == 0)
1267 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1269 do_cleanups (cleanup
);
1272 if (lsal
.sals
.nelts
> 0)
1274 lsal
.canonical
= xstrdup (name
);
1275 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1279 self
->canonical
->pre_expanded
= 0;
1282 /* Store RESULT into SELF->CANONICAL. */
1285 convert_results_to_lsals (struct linespec_state
*self
,
1286 struct symtabs_and_lines
*result
)
1288 struct linespec_sals lsal
;
1290 lsal
.canonical
= NULL
;
1291 lsal
.sals
= *result
;
1292 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1295 /* A structure that contains two string representations of a struct
1296 linespec_canonical_name:
1297 - one where the the symtab's fullname is used;
1298 - one where the filename followed the "set filename-display"
1301 struct decode_line_2_item
1303 /* The form using symtab_to_fullname.
1304 It must be xfree'ed after use. */
1307 /* The form using symtab_to_filename_for_display.
1308 It must be xfree'ed after use. */
1311 /* Field is initialized to zero and it is set to one if the user
1312 requested breakpoint for this entry. */
1313 unsigned int selected
: 1;
1316 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1317 secondarily by FULLFORM. */
1320 decode_line_2_compare_items (const void *ap
, const void *bp
)
1322 const struct decode_line_2_item
*a
= ap
;
1323 const struct decode_line_2_item
*b
= bp
;
1326 retval
= strcmp (a
->displayform
, b
->displayform
);
1330 return strcmp (a
->fullform
, b
->fullform
);
1333 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1334 will either return normally, throw an exception on multiple
1335 results, or present a menu to the user. On return, the SALS vector
1336 in SELF->CANONICAL is set up properly. */
1339 decode_line_2 (struct linespec_state
*self
,
1340 struct symtabs_and_lines
*result
,
1341 const char *select_mode
)
1343 char *args
, *prompt
;
1345 struct cleanup
*old_chain
;
1346 VEC (const_char_ptr
) *filters
= NULL
;
1347 struct get_number_or_range_state state
;
1348 struct decode_line_2_item
*items
;
1351 gdb_assert (select_mode
!= multiple_symbols_all
);
1352 gdb_assert (self
->canonical
!= NULL
);
1353 gdb_assert (result
->nelts
>= 1);
1355 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1357 /* Prepare ITEMS array. */
1358 items_count
= result
->nelts
;
1359 items
= xmalloc (sizeof (*items
) * items_count
);
1360 make_cleanup (xfree
, items
);
1361 for (i
= 0; i
< items_count
; ++i
)
1363 const struct linespec_canonical_name
*canonical
;
1364 struct decode_line_2_item
*item
;
1366 canonical
= &self
->canonical_names
[i
];
1367 gdb_assert (canonical
->suffix
!= NULL
);
1370 item
->fullform
= canonical_to_fullform (canonical
);
1371 make_cleanup (xfree
, item
->fullform
);
1373 if (canonical
->symtab
== NULL
)
1374 item
->displayform
= canonical
->suffix
;
1377 const char *fn_for_display
;
1379 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1380 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1382 make_cleanup (xfree
, item
->displayform
);
1388 /* Sort the list of method names. */
1389 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1391 /* Remove entries with the same FULLFORM. */
1392 if (items_count
>= 2)
1394 struct decode_line_2_item
*dst
, *src
;
1397 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1398 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1400 items_count
= dst
+ 1 - items
;
1403 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1404 error (_("canceled because the command is ambiguous\n"
1405 "See set/show multiple-symbol."));
1407 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1409 do_cleanups (old_chain
);
1410 convert_results_to_lsals (self
, result
);
1414 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1415 for (i
= 0; i
< items_count
; i
++)
1416 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1418 prompt
= getenv ("PS2");
1423 args
= command_line_input (prompt
, 0, "overload-choice");
1425 if (args
== 0 || *args
== 0)
1426 error_no_arg (_("one or more choice numbers"));
1428 init_number_or_range (&state
, args
);
1429 while (!state
.finished
)
1433 num
= get_number_or_range (&state
);
1436 error (_("canceled"));
1439 /* We intentionally make this result in a single breakpoint,
1440 contrary to what older versions of gdb did. The
1441 rationale is that this lets a user get the
1442 multiple_symbols_all behavior even with the 'ask'
1443 setting; and he can get separate breakpoints by entering
1444 "2-57" at the query. */
1445 do_cleanups (old_chain
);
1446 convert_results_to_lsals (self
, result
);
1451 if (num
>= items_count
)
1452 printf_unfiltered (_("No choice number %d.\n"), num
);
1455 struct decode_line_2_item
*item
= &items
[num
];
1457 if (!item
->selected
)
1459 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1464 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1470 filter_results (self
, result
, filters
);
1471 do_cleanups (old_chain
);
1476 /* The parser of linespec itself. */
1478 /* Throw an appropriate error when SYMBOL is not found (optionally in
1481 static void ATTRIBUTE_NORETURN
1482 symbol_not_found_error (const char *symbol
, const char *filename
)
1487 if (!have_full_symbols ()
1488 && !have_partial_symbols ()
1489 && !have_minimal_symbols ())
1490 throw_error (NOT_FOUND_ERROR
,
1491 _("No symbol table is loaded. Use the \"file\" command."));
1493 /* If SYMBOL starts with '$', the user attempted to either lookup
1494 a function/variable in his code starting with '$' or an internal
1495 variable of that name. Since we do not know which, be concise and
1496 explain both possibilities. */
1500 throw_error (NOT_FOUND_ERROR
,
1501 _("Undefined convenience variable or function \"%s\" "
1502 "not defined in \"%s\"."), symbol
, filename
);
1504 throw_error (NOT_FOUND_ERROR
,
1505 _("Undefined convenience variable or function \"%s\" "
1506 "not defined."), symbol
);
1511 throw_error (NOT_FOUND_ERROR
,
1512 _("Function \"%s\" not defined in \"%s\"."),
1515 throw_error (NOT_FOUND_ERROR
,
1516 _("Function \"%s\" not defined."), symbol
);
1520 /* Throw an appropriate error when an unexpected token is encountered
1523 static void ATTRIBUTE_NORETURN
1524 unexpected_linespec_error (linespec_parser
*parser
)
1526 linespec_token token
;
1527 static const char * token_type_strings
[]
1528 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1530 /* Get the token that generated the error. */
1531 token
= linespec_lexer_lex_one (parser
);
1533 /* Finally, throw the error. */
1534 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1535 || token
.type
== LSTOKEN_KEYWORD
)
1538 struct cleanup
*cleanup
;
1540 string
= copy_token_string (token
);
1541 cleanup
= make_cleanup (xfree
, string
);
1542 throw_error (GENERIC_ERROR
,
1543 _("malformed linespec error: unexpected %s, \"%s\""),
1544 token_type_strings
[token
.type
], string
);
1547 throw_error (GENERIC_ERROR
,
1548 _("malformed linespec error: unexpected %s"),
1549 token_type_strings
[token
.type
]);
1552 /* Parse and return a line offset in STRING. */
1554 static struct line_offset
1555 linespec_parse_line_offset (const char *string
)
1557 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1561 line_offset
.sign
= LINE_OFFSET_PLUS
;
1564 else if (*string
== '-')
1566 line_offset
.sign
= LINE_OFFSET_MINUS
;
1570 /* Right now, we only allow base 10 for offsets. */
1571 line_offset
.offset
= atoi (string
);
1575 /* Parse the basic_spec in PARSER's input. */
1578 linespec_parse_basic (linespec_parser
*parser
)
1581 linespec_token token
;
1582 VEC (symbolp
) *symbols
, *labels
;
1583 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1584 struct cleanup
*cleanup
;
1586 /* Get the next token. */
1587 token
= linespec_lexer_lex_one (parser
);
1589 /* If it is EOI or KEYWORD, issue an error. */
1590 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1591 unexpected_linespec_error (parser
);
1592 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1593 else if (token
.type
== LSTOKEN_NUMBER
)
1595 /* Record the line offset and get the next token. */
1596 name
= copy_token_string (token
);
1597 cleanup
= make_cleanup (xfree
, name
);
1598 PARSER_RESULT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1599 do_cleanups (cleanup
);
1601 /* Get the next token. */
1602 token
= linespec_lexer_consume_token (parser
);
1604 /* If the next token is a comma, stop parsing and return. */
1605 if (token
.type
== LSTOKEN_COMMA
)
1608 /* If the next token is anything but EOI or KEYWORD, issue
1610 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1611 unexpected_linespec_error (parser
);
1614 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1617 /* Next token must be LSTOKEN_STRING. */
1618 if (token
.type
!= LSTOKEN_STRING
)
1619 unexpected_linespec_error (parser
);
1621 /* The current token will contain the name of a function, method,
1623 name
= copy_token_string (token
);
1624 cleanup
= make_cleanup (xfree
, name
);
1626 /* Try looking it up as a function/method. */
1627 find_linespec_symbols (PARSER_STATE (parser
),
1628 PARSER_RESULT (parser
)->file_symtabs
, name
,
1629 &symbols
, &minimal_symbols
);
1631 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1633 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1634 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1635 PARSER_RESULT (parser
)->function_name
= name
;
1637 discard_cleanups (cleanup
);
1641 /* NAME was not a function or a method. So it must be a label
1642 name or user specified variable like "break foo.c:$zippo". */
1643 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1647 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1648 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1649 PARSER_RESULT (parser
)->label_name
= name
;
1651 discard_cleanups (cleanup
);
1653 else if (token
.type
== LSTOKEN_STRING
1654 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1656 /* User specified a convenience variable or history value. */
1657 PARSER_RESULT (parser
)->line_offset
1658 = linespec_parse_variable (PARSER_STATE (parser
), name
);
1660 if (PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1662 /* The user-specified variable was not valid. Do not
1663 throw an error here. parse_linespec will do it for us. */
1664 PARSER_RESULT (parser
)->function_name
= name
;
1665 discard_cleanups (cleanup
);
1669 /* The convenience variable/history value parsed correctly.
1670 NAME is no longer needed. */
1671 do_cleanups (cleanup
);
1675 /* The name is also not a label. Abort parsing. Do not throw
1676 an error here. parse_linespec will do it for us. */
1678 /* Save a copy of the name we were trying to lookup. */
1679 PARSER_RESULT (parser
)->function_name
= name
;
1680 discard_cleanups (cleanup
);
1685 /* Get the next token. */
1686 token
= linespec_lexer_consume_token (parser
);
1688 if (token
.type
== LSTOKEN_COLON
)
1690 /* User specified a label or a lineno. */
1691 token
= linespec_lexer_consume_token (parser
);
1693 if (token
.type
== LSTOKEN_NUMBER
)
1695 /* User specified an offset. Record the line offset and
1696 get the next token. */
1697 name
= copy_token_string (token
);
1698 cleanup
= make_cleanup (xfree
, name
);
1699 PARSER_RESULT (parser
)->line_offset
1700 = linespec_parse_line_offset (name
);
1701 do_cleanups (cleanup
);
1703 /* Ge the next token. */
1704 token
= linespec_lexer_consume_token (parser
);
1706 else if (token
.type
== LSTOKEN_STRING
)
1708 /* Grab a copy of the label's name and look it up. */
1709 name
= copy_token_string (token
);
1710 cleanup
= make_cleanup (xfree
, name
);
1711 labels
= find_label_symbols (PARSER_STATE (parser
),
1712 PARSER_RESULT (parser
)->function_symbols
,
1717 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1718 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1719 PARSER_RESULT (parser
)->label_name
= name
;
1721 discard_cleanups (cleanup
);
1725 /* We don't know what it was, but it isn't a label. */
1726 throw_error (NOT_FOUND_ERROR
,
1727 _("No label \"%s\" defined in function \"%s\"."),
1728 name
, PARSER_RESULT (parser
)->function_name
);
1731 /* Check for a line offset. */
1732 token
= linespec_lexer_consume_token (parser
);
1733 if (token
.type
== LSTOKEN_COLON
)
1735 /* Get the next token. */
1736 token
= linespec_lexer_consume_token (parser
);
1738 /* It must be a line offset. */
1739 if (token
.type
!= LSTOKEN_NUMBER
)
1740 unexpected_linespec_error (parser
);
1742 /* Record the lione offset and get the next token. */
1743 name
= copy_token_string (token
);
1744 cleanup
= make_cleanup (xfree
, name
);
1746 PARSER_RESULT (parser
)->line_offset
1747 = linespec_parse_line_offset (name
);
1748 do_cleanups (cleanup
);
1750 /* Get the next token. */
1751 token
= linespec_lexer_consume_token (parser
);
1756 /* Trailing ':' in the input. Issue an error. */
1757 unexpected_linespec_error (parser
);
1762 /* Canonicalize the linespec contained in LS. The result is saved into
1763 STATE->canonical. */
1766 canonicalize_linespec (struct linespec_state
*state
, linespec_p ls
)
1768 /* If canonicalization was not requested, no need to do anything. */
1769 if (!state
->canonical
)
1772 /* Shortcut expressions, which can only appear by themselves. */
1773 if (ls
->expression
!= NULL
)
1774 state
->canonical
->addr_string
= xstrdup (ls
->expression
);
1777 struct ui_file
*buf
;
1780 buf
= mem_fileopen ();
1781 if (ls
->source_filename
)
1783 fputs_unfiltered (ls
->source_filename
, buf
);
1787 if (ls
->function_name
)
1790 fputc_unfiltered (':', buf
);
1791 fputs_unfiltered (ls
->function_name
, buf
);
1798 fputc_unfiltered (':', buf
);
1800 if (ls
->function_name
== NULL
)
1804 /* No function was specified, so add the symbol name. */
1805 gdb_assert (ls
->labels
.function_symbols
!= NULL
1806 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1808 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1809 fputs_unfiltered (SYMBOL_NATURAL_NAME (s
), buf
);
1810 fputc_unfiltered (':', buf
);
1813 fputs_unfiltered (ls
->label_name
, buf
);
1815 state
->canonical
->special_display
= 1;
1818 if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
1821 fputc_unfiltered (':', buf
);
1822 fprintf_filtered (buf
, "%s%d",
1823 (ls
->line_offset
.sign
== LINE_OFFSET_NONE
? ""
1824 : (ls
->line_offset
.sign
1825 == LINE_OFFSET_PLUS
? "+" : "-")),
1826 ls
->line_offset
.offset
);
1829 state
->canonical
->addr_string
= ui_file_xstrdup (buf
, NULL
);
1830 ui_file_delete (buf
);
1834 /* Given a line offset in LS, construct the relevant SALs. */
1836 static struct symtabs_and_lines
1837 create_sals_line_offset (struct linespec_state
*self
,
1840 struct symtabs_and_lines values
;
1841 struct symtab_and_line val
;
1842 int use_default
= 0;
1848 /* This is where we need to make sure we have good defaults.
1849 We must guarantee that this section of code is never executed
1850 when we are called with just a function name, since
1851 set_default_source_symtab_and_line uses
1852 select_source_symtab that calls us with such an argument. */
1854 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1855 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1857 const char *fullname
;
1859 set_current_program_space (self
->program_space
);
1861 /* Make sure we have at least a default source line. */
1862 set_default_source_symtab_and_line ();
1863 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1864 fullname
= symtab_to_fullname (self
->default_symtab
);
1865 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1866 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1867 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1871 val
.line
= ls
->line_offset
.offset
;
1872 switch (ls
->line_offset
.sign
)
1874 case LINE_OFFSET_PLUS
:
1875 if (ls
->line_offset
.offset
== 0)
1878 val
.line
= self
->default_line
+ val
.line
;
1881 case LINE_OFFSET_MINUS
:
1882 if (ls
->line_offset
.offset
== 0)
1885 val
.line
= self
->default_line
- val
.line
;
1887 val
.line
= -val
.line
;
1890 case LINE_OFFSET_NONE
:
1891 break; /* No need to adjust val.line. */
1894 if (self
->list_mode
)
1895 decode_digits_list_mode (self
, ls
, &values
, val
);
1898 struct linetable_entry
*best_entry
= NULL
;
1900 const struct block
**blocks
;
1901 struct cleanup
*cleanup
;
1902 struct symtabs_and_lines intermediate_results
;
1905 intermediate_results
.sals
= NULL
;
1906 intermediate_results
.nelts
= 0;
1908 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1910 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1911 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1912 &intermediate_results
, &best_entry
);
1914 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1916 /* For optimized code, the compiler can scatter one source line
1917 across disjoint ranges of PC values, even when no duplicate
1918 functions or inline functions are involved. For example,
1919 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1920 function can result in two PC ranges. In this case, we don't
1921 want to set a breakpoint on the first PC of each range. To filter
1922 such cases, we use containing blocks -- for each PC found
1923 above, we see if there are other PCs that are in the same
1924 block. If yes, the other PCs are filtered out. */
1926 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1927 make_cleanup (xfree
, filter
);
1928 blocks
= XNEWVEC (const struct block
*, intermediate_results
.nelts
);
1929 make_cleanup (xfree
, blocks
);
1931 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1933 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1936 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1937 intermediate_results
.sals
[i
].section
);
1940 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1942 if (blocks
[i
] != NULL
)
1943 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1945 if (blocks
[j
] == blocks
[i
])
1953 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1956 struct symbol
*sym
= (blocks
[i
]
1957 ? block_containing_function (blocks
[i
])
1960 if (self
->funfirstline
)
1961 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1962 /* Make sure the line matches the request, not what was
1964 intermediate_results
.sals
[i
].line
= val
.line
;
1965 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1966 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1969 do_cleanups (cleanup
);
1972 if (values
.nelts
== 0)
1974 if (ls
->source_filename
)
1975 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1976 val
.line
, ls
->source_filename
);
1978 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
1985 /* Create and return SALs from the linespec LS. */
1987 static struct symtabs_and_lines
1988 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
1990 struct symtabs_and_lines sals
= {NULL
, 0};
1992 if (ls
->expression
!= NULL
)
1994 struct symtab_and_line sal
;
1996 /* We have an expression. No other attribute is allowed. */
1997 sal
= find_pc_line (ls
->expr_pc
, 0);
1998 sal
.pc
= ls
->expr_pc
;
1999 sal
.section
= find_pc_overlay (ls
->expr_pc
);
2000 sal
.explicit_pc
= 1;
2001 add_sal_to_sals (state
, &sals
, &sal
, ls
->expression
, 1);
2003 else if (ls
->labels
.label_symbols
!= NULL
)
2005 /* We have just a bunch of functions/methods or labels. */
2007 struct symtab_and_line sal
;
2010 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
2012 struct program_space
*pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2014 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2015 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2016 add_sal_to_sals (state
, &sals
, &sal
,
2017 SYMBOL_NATURAL_NAME (sym
), 0);
2020 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2022 /* We have just a bunch of functions and/or methods. */
2024 struct symtab_and_line sal
;
2026 bound_minimal_symbol_d
*elem
;
2027 struct program_space
*pspace
;
2029 if (ls
->function_symbols
!= NULL
)
2031 /* Sort symbols so that symbols with the same program space are next
2033 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2034 VEC_length (symbolp
, ls
->function_symbols
),
2035 sizeof (symbolp
), compare_symbols
);
2037 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2039 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2040 set_current_program_space (pspace
);
2041 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2042 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2043 add_sal_to_sals (state
, &sals
, &sal
,
2044 SYMBOL_NATURAL_NAME (sym
), 0);
2048 if (ls
->minimal_symbols
!= NULL
)
2050 /* Sort minimal symbols by program space, too. */
2051 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2052 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2053 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2056 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2060 pspace
= elem
->objfile
->pspace
;
2061 set_current_program_space (pspace
);
2062 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2066 else if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2068 /* Only an offset was specified. */
2069 sals
= create_sals_line_offset (state
, ls
);
2071 /* Make sure we have a filename for canonicalization. */
2072 if (ls
->source_filename
== NULL
)
2074 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2076 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2077 form so that displaying SOURCE_FILENAME can follow the current
2078 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2079 it has been kept for code simplicity only in absolute form. */
2080 ls
->source_filename
= xstrdup (fullname
);
2085 /* We haven't found any results... */
2089 canonicalize_linespec (state
, ls
);
2091 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2092 state
->canonical
->pre_expanded
= 1;
2097 /* Parse a string that specifies a linespec.
2098 Pass the address of a char * variable; that variable will be
2099 advanced over the characters actually parsed.
2101 The basic grammar of linespecs:
2103 linespec -> expr_spec | var_spec | basic_spec
2104 expr_spec -> '*' STRING
2105 var_spec -> '$' (STRING | NUMBER)
2107 basic_spec -> file_offset_spec | function_spec | label_spec
2108 file_offset_spec -> opt_file_spec offset_spec
2109 function_spec -> opt_file_spec function_name_spec opt_label_spec
2110 label_spec -> label_name_spec
2112 opt_file_spec -> "" | file_name_spec ':'
2113 opt_label_spec -> "" | ':' label_name_spec
2115 file_name_spec -> STRING
2116 function_name_spec -> STRING
2117 label_name_spec -> STRING
2118 function_name_spec -> STRING
2119 offset_spec -> NUMBER
2123 This may all be followed by several keywords such as "if EXPR",
2126 A comma will terminate parsing.
2128 The function may be an undebuggable function found in minimal symbol table.
2130 If the argument FUNFIRSTLINE is nonzero, we want the first line
2131 of real code inside a function when a function is specified, and it is
2132 not OK to specify a variable or type to get its line number.
2134 DEFAULT_SYMTAB specifies the file to use if none is specified.
2135 It defaults to current_source_symtab.
2136 DEFAULT_LINE specifies the line number to use for relative
2137 line numbers (that start with signs). Defaults to current_source_line.
2138 If CANONICAL is non-NULL, store an array of strings containing the canonical
2139 line specs there if necessary. Currently overloaded member functions and
2140 line numbers or static functions without a filename yield a canonical
2141 line spec. The array and the line spec strings are allocated on the heap,
2142 it is the callers responsibility to free them.
2144 Note that it is possible to return zero for the symtab
2145 if no file is validly specified. Callers must check that.
2146 Also, the line number returned may be invalid. */
2148 /* Parse the linespec in ARGPTR. */
2150 static struct symtabs_and_lines
2151 parse_linespec (linespec_parser
*parser
, const char **argptr
)
2153 linespec_token token
;
2154 struct symtabs_and_lines values
;
2155 volatile struct gdb_exception file_exception
;
2156 struct cleanup
*cleanup
;
2158 /* A special case to start. It has become quite popular for
2159 IDEs to work around bugs in the previous parser by quoting
2160 the entire linespec, so we attempt to deal with this nicely. */
2161 parser
->is_quote_enclosed
= 0;
2162 if (!is_ada_operator (*argptr
)
2163 && strchr (linespec_quote_characters
, **argptr
) != NULL
)
2167 end
= skip_quote_char (*argptr
+ 1, **argptr
);
2168 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2170 /* Here's the special case. Skip ARGPTR past the initial
2173 parser
->is_quote_enclosed
= 1;
2177 /* A keyword at the start cannot be interpreted as such.
2178 Consider "b thread thread 42". */
2179 parser
->keyword_ok
= 0;
2181 parser
->lexer
.saved_arg
= *argptr
;
2182 parser
->lexer
.stream
= argptr
;
2183 file_exception
.reason
= 0;
2185 /* Initialize the default symtab and line offset. */
2186 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2187 &PARSER_STATE (parser
)->default_line
);
2189 /* Objective-C shortcut. */
2190 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), argptr
);
2191 if (values
.sals
!= NULL
)
2194 /* Start parsing. */
2196 /* Get the first token. */
2197 token
= linespec_lexer_lex_one (parser
);
2199 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2200 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '*')
2205 /* User specified an expression, *EXPR. */
2206 copy
= expr
= copy_token_string (token
);
2207 cleanup
= make_cleanup (xfree
, expr
);
2208 PARSER_RESULT (parser
)->expr_pc
= linespec_expression_to_pc (©
);
2209 discard_cleanups (cleanup
);
2210 PARSER_RESULT (parser
)->expression
= expr
;
2212 /* This is a little hacky/tricky. If linespec_expression_to_pc
2213 did not evaluate the entire token, then we must find the
2214 string COPY inside the original token buffer. */
2217 PARSER_STREAM (parser
) = strstr (parser
->lexer
.saved_arg
, copy
);
2218 gdb_assert (PARSER_STREAM (parser
) != NULL
);
2221 /* Consume the token. */
2222 linespec_lexer_consume_token (parser
);
2224 goto convert_to_sals
;
2226 else if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2230 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2231 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2233 /* User specified a convenience variable or history value. */
2234 var
= copy_token_string (token
);
2235 cleanup
= make_cleanup (xfree
, var
);
2236 PARSER_RESULT (parser
)->line_offset
2237 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2238 do_cleanups (cleanup
);
2240 /* If a line_offset wasn't found (VAR is the name of a user
2241 variable/function), then skip to normal symbol processing. */
2242 if (PARSER_RESULT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2244 /* Consume this token. */
2245 linespec_lexer_consume_token (parser
);
2247 goto convert_to_sals
;
2250 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2251 unexpected_linespec_error (parser
);
2253 /* Now we can recognize keywords. */
2254 parser
->keyword_ok
= 1;
2256 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2257 this token cannot represent a filename. */
2258 token
= linespec_lexer_peek_token (parser
);
2260 if (token
.type
== LSTOKEN_COLON
)
2262 char *user_filename
;
2264 /* Get the current token again and extract the filename. */
2265 token
= linespec_lexer_lex_one (parser
);
2266 user_filename
= copy_token_string (token
);
2268 /* Check if the input is a filename. */
2269 TRY_CATCH (file_exception
, RETURN_MASK_ERROR
)
2271 PARSER_RESULT (parser
)->file_symtabs
2272 = symtabs_from_filename (user_filename
);
2275 if (file_exception
.reason
>= 0)
2277 /* Symtabs were found for the file. Record the filename. */
2278 PARSER_RESULT (parser
)->source_filename
= user_filename
;
2280 /* Get the next token. */
2281 token
= linespec_lexer_consume_token (parser
);
2283 /* This is LSTOKEN_COLON; consume it. */
2284 linespec_lexer_consume_token (parser
);
2288 /* No symtabs found -- discard user_filename. */
2289 xfree (user_filename
);
2291 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2292 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2295 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2296 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2297 && token
.type
!= LSTOKEN_COMMA
)
2299 /* TOKEN is the _next_ token, not the one currently in the parser.
2300 Consuming the token will give the correct error message. */
2301 linespec_lexer_consume_token (parser
);
2302 unexpected_linespec_error (parser
);
2306 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2307 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2310 /* Parse the rest of the linespec. */
2311 linespec_parse_basic (parser
);
2313 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2314 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2315 && PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2316 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2318 /* The linespec didn't parse. Re-throw the file exception if
2320 if (file_exception
.reason
< 0)
2321 throw_exception (file_exception
);
2323 /* Otherwise, the symbol is not found. */
2324 symbol_not_found_error (PARSER_RESULT (parser
)->function_name
,
2325 PARSER_RESULT (parser
)->source_filename
);
2330 /* Get the last token and record how much of the input was parsed,
2332 token
= linespec_lexer_lex_one (parser
);
2333 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2334 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2336 /* Convert the data in PARSER_RESULT to SALs. */
2337 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2338 PARSER_RESULT (parser
));
2344 /* A constructor for linespec_state. */
2347 linespec_state_constructor (struct linespec_state
*self
,
2348 int flags
, const struct language_defn
*language
,
2349 struct symtab
*default_symtab
,
2351 struct linespec_result
*canonical
)
2353 memset (self
, 0, sizeof (*self
));
2354 self
->language
= language
;
2355 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2356 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2357 self
->default_symtab
= default_symtab
;
2358 self
->default_line
= default_line
;
2359 self
->canonical
= canonical
;
2360 self
->program_space
= current_program_space
;
2361 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2362 xfree
, xcalloc
, xfree
);
2365 /* Initialize a new linespec parser. */
2368 linespec_parser_new (linespec_parser
*parser
,
2369 int flags
, const struct language_defn
*language
,
2370 struct symtab
*default_symtab
,
2372 struct linespec_result
*canonical
)
2374 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2375 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2376 PARSER_RESULT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2377 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2378 default_symtab
, default_line
, canonical
);
2381 /* A destructor for linespec_state. */
2384 linespec_state_destructor (struct linespec_state
*self
)
2386 htab_delete (self
->addr_set
);
2389 /* Delete a linespec parser. */
2392 linespec_parser_delete (void *arg
)
2394 linespec_parser
*parser
= (linespec_parser
*) arg
;
2396 xfree ((char *) PARSER_RESULT (parser
)->expression
);
2397 xfree ((char *) PARSER_RESULT (parser
)->source_filename
);
2398 xfree ((char *) PARSER_RESULT (parser
)->label_name
);
2399 xfree ((char *) PARSER_RESULT (parser
)->function_name
);
2401 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2402 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2404 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2405 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2407 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2408 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2410 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2411 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2413 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2414 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2416 linespec_state_destructor (PARSER_STATE (parser
));
2419 /* See linespec.h. */
2422 decode_line_full (char **argptr
, int flags
,
2423 struct symtab
*default_symtab
,
2424 int default_line
, struct linespec_result
*canonical
,
2425 const char *select_mode
,
2428 struct symtabs_and_lines result
;
2429 struct cleanup
*cleanups
;
2430 VEC (const_char_ptr
) *filters
= NULL
;
2431 linespec_parser parser
;
2432 struct linespec_state
*state
;
2433 const char *copy
, *orig
;
2435 gdb_assert (canonical
!= NULL
);
2436 /* The filter only makes sense for 'all'. */
2437 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2438 gdb_assert (select_mode
== NULL
2439 || select_mode
== multiple_symbols_all
2440 || select_mode
== multiple_symbols_ask
2441 || select_mode
== multiple_symbols_cancel
);
2442 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2444 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2445 default_line
, canonical
);
2446 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2447 save_current_program_space ();
2449 orig
= copy
= *argptr
;
2450 result
= parse_linespec (&parser
, ©
);
2451 *argptr
+= copy
- orig
;
2452 state
= PARSER_STATE (&parser
);
2454 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2455 gdb_assert (canonical
->addr_string
!= NULL
);
2456 canonical
->pre_expanded
= 1;
2458 /* Arrange for allocated canonical names to be freed. */
2459 if (result
.nelts
> 0)
2463 make_cleanup (xfree
, state
->canonical_names
);
2464 for (i
= 0; i
< result
.nelts
; ++i
)
2466 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2467 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2471 if (select_mode
== NULL
)
2473 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2474 select_mode
= multiple_symbols_all
;
2476 select_mode
= multiple_symbols_select_mode ();
2479 if (select_mode
== multiple_symbols_all
)
2483 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2484 VEC_safe_push (const_char_ptr
, filters
, filter
);
2485 filter_results (state
, &result
, filters
);
2488 convert_results_to_lsals (state
, &result
);
2491 decode_line_2 (state
, &result
, select_mode
);
2493 do_cleanups (cleanups
);
2496 /* See linespec.h. */
2498 struct symtabs_and_lines
2499 decode_line_1 (char **argptr
, int flags
,
2500 struct symtab
*default_symtab
,
2503 struct symtabs_and_lines result
;
2504 linespec_parser parser
;
2505 struct cleanup
*cleanups
;
2506 const char *copy
, *orig
;
2508 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2509 default_line
, NULL
);
2510 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2511 save_current_program_space ();
2513 orig
= copy
= *argptr
;
2514 result
= parse_linespec (&parser
, ©
);
2515 *argptr
+= copy
- orig
;
2517 do_cleanups (cleanups
);
2521 /* See linespec.h. */
2523 struct symtabs_and_lines
2524 decode_line_with_current_source (char *string
, int flags
)
2526 struct symtabs_and_lines sals
;
2527 struct symtab_and_line cursal
;
2530 error (_("Empty line specification."));
2532 /* We use whatever is set as the current source line. We do not try
2533 and get a default source symtab+line or it will recursively call us! */
2534 cursal
= get_current_source_symtab_and_line ();
2536 sals
= decode_line_1 (&string
, flags
,
2537 cursal
.symtab
, cursal
.line
);
2540 error (_("Junk at end of line specification: %s"), string
);
2544 /* See linespec.h. */
2546 struct symtabs_and_lines
2547 decode_line_with_last_displayed (char *string
, int flags
)
2549 struct symtabs_and_lines sals
;
2552 error (_("Empty line specification."));
2554 if (last_displayed_sal_is_valid ())
2555 sals
= decode_line_1 (&string
, flags
,
2556 get_last_displayed_symtab (),
2557 get_last_displayed_line ());
2559 sals
= decode_line_1 (&string
, flags
, (struct symtab
*) NULL
, 0);
2562 error (_("Junk at end of line specification: %s"), string
);
2568 /* First, some functions to initialize stuff at the beggining of the
2572 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2574 if (*default_symtab
== 0)
2576 /* Use whatever we have for the default source line. We don't use
2577 get_current_or_default_symtab_and_line as it can recurse and call
2579 struct symtab_and_line cursal
=
2580 get_current_source_symtab_and_line ();
2582 *default_symtab
= cursal
.symtab
;
2583 *default_line
= cursal
.line
;
2589 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2590 advancing EXP_PTR past any parsed text. */
2593 linespec_expression_to_pc (const char **exp_ptr
)
2595 if (current_program_space
->executing_startup
)
2596 /* The error message doesn't really matter, because this case
2597 should only hit during breakpoint reset. */
2598 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2599 "program space is in startup"));
2602 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2607 /* Here's where we recognise an Objective-C Selector. An Objective C
2608 selector may be implemented by more than one class, therefore it
2609 may represent more than one method/function. This gives us a
2610 situation somewhat analogous to C++ overloading. If there's more
2611 than one method that could represent the selector, then use some of
2612 the existing C++ code to let the user choose one. */
2614 static struct symtabs_and_lines
2615 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char **argptr
)
2617 struct collect_info info
;
2618 VEC (const_char_ptr
) *symbol_names
= NULL
;
2619 struct symtabs_and_lines values
;
2620 const char *new_argptr
;
2621 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2625 info
.file_symtabs
= NULL
;
2626 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2627 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2628 info
.result
.symbols
= NULL
;
2629 info
.result
.minimal_symbols
= NULL
;
2633 new_argptr
= find_imps (*argptr
, &symbol_names
);
2634 if (VEC_empty (const_char_ptr
, symbol_names
))
2636 do_cleanups (cleanup
);
2640 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2642 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2643 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2647 saved_arg
= alloca (new_argptr
- *argptr
+ 1);
2648 memcpy (saved_arg
, *argptr
, new_argptr
- *argptr
);
2649 saved_arg
[new_argptr
- *argptr
] = '\0';
2651 ls
->function_name
= xstrdup (saved_arg
);
2652 ls
->function_symbols
= info
.result
.symbols
;
2653 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2654 values
= convert_linespec_to_sals (self
, ls
);
2656 if (self
->canonical
)
2658 self
->canonical
->pre_expanded
= 1;
2659 if (ls
->source_filename
)
2660 self
->canonical
->addr_string
2661 = xstrprintf ("%s:%s", ls
->source_filename
, saved_arg
);
2663 self
->canonical
->addr_string
= xstrdup (saved_arg
);
2667 *argptr
= new_argptr
;
2669 do_cleanups (cleanup
);
2674 /* An instance of this type is used when collecting prefix symbols for
2677 struct decode_compound_collector
2679 /* The result vector. */
2680 VEC (symbolp
) *symbols
;
2682 /* A hash table of all symbols we found. We use this to avoid
2683 adding any symbol more than once. */
2687 /* A callback for iterate_over_symbols that is used by
2688 lookup_prefix_sym to collect type symbols. */
2691 collect_one_symbol (struct symbol
*sym
, void *d
)
2693 struct decode_compound_collector
*collector
= d
;
2697 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2698 return 1; /* Continue iterating. */
2700 t
= SYMBOL_TYPE (sym
);
2702 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2703 && TYPE_CODE (t
) != TYPE_CODE_UNION
2704 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2705 return 1; /* Continue iterating. */
2707 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2711 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2714 return 1; /* Continue iterating. */
2717 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2719 static VEC (symbolp
) *
2720 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2721 const char *class_name
)
2725 struct decode_compound_collector collector
;
2726 struct cleanup
*outer
;
2727 struct cleanup
*cleanup
;
2729 collector
.symbols
= NULL
;
2730 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2732 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2733 htab_eq_pointer
, NULL
,
2735 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2737 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2741 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2742 collect_one_symbol
, &collector
,
2744 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2745 collect_one_symbol
, &collector
,
2750 /* Program spaces that are executing startup should have
2751 been filtered out earlier. */
2752 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2753 set_current_program_space (SYMTAB_PSPACE (elt
));
2754 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2755 collect_one_symbol
, &collector
);
2756 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2757 collect_one_symbol
, &collector
);
2761 do_cleanups (cleanup
);
2762 discard_cleanups (outer
);
2763 return collector
.symbols
;
2766 /* A qsort comparison function for symbols. The resulting order does
2767 not actually matter; we just need to be able to sort them so that
2768 symbols with the same program space end up next to each other. */
2771 compare_symbols (const void *a
, const void *b
)
2773 struct symbol
* const *sa
= a
;
2774 struct symbol
* const *sb
= b
;
2777 uia
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sa
));
2778 uib
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sb
));
2785 uia
= (uintptr_t) *sa
;
2786 uib
= (uintptr_t) *sb
;
2796 /* Like compare_symbols but for minimal symbols. */
2799 compare_msymbols (const void *a
, const void *b
)
2801 const struct bound_minimal_symbol
*sa
= a
;
2802 const struct bound_minimal_symbol
*sb
= b
;
2805 uia
= (uintptr_t) sa
->objfile
->pspace
;
2806 uib
= (uintptr_t) sa
->objfile
->pspace
;
2813 uia
= (uintptr_t) sa
->minsym
;
2814 uib
= (uintptr_t) sb
->minsym
;
2824 /* Look for all the matching instances of each symbol in NAMES. Only
2825 instances from PSPACE are considered; other program spaces are
2826 handled by our caller. If PSPACE is NULL, then all program spaces
2827 are considered. Results are stored into INFO. */
2830 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2831 struct program_space
*pspace
,
2832 VEC (const_char_ptr
) *names
)
2837 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2838 add_matching_symbols_to_info (iter
, info
, pspace
);
2842 find_superclass_methods (VEC (typep
) *superclasses
,
2844 VEC (const_char_ptr
) **result_names
)
2846 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2847 VEC (typep
) *iter_classes
;
2848 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2850 iter_classes
= superclasses
;
2853 VEC (typep
) *new_supers
= NULL
;
2857 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2858 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2859 find_methods (t
, name
, result_names
, &new_supers
);
2861 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2862 || VEC_empty (typep
, new_supers
))
2865 iter_classes
= new_supers
;
2868 do_cleanups (cleanup
);
2871 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2872 given by one of the symbols in SYM_CLASSES. Matches are returned
2873 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2876 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2877 const char *class_name
, const char *method_name
,
2878 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2879 VEC (bound_minimal_symbol_d
) **minsyms
)
2882 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2884 int last_result_len
;
2885 VEC (typep
) *superclass_vec
;
2886 VEC (const_char_ptr
) *result_names
;
2887 struct collect_info info
;
2889 /* Sort symbols so that symbols with the same program space are next
2891 qsort (VEC_address (symbolp
, sym_classes
),
2892 VEC_length (symbolp
, sym_classes
),
2897 info
.file_symtabs
= file_symtabs
;
2898 info
.result
.symbols
= NULL
;
2899 info
.result
.minimal_symbols
= NULL
;
2901 /* Iterate over all the types, looking for the names of existing
2902 methods matching METHOD_NAME. If we cannot find a direct method in a
2903 given program space, then we consider inherited methods; this is
2904 not ideal (ideal would be to respect C++ hiding rules), but it
2905 seems good enough and is what GDB has historically done. We only
2906 need to collect the names because later we find all symbols with
2907 those names. This loop is written in a somewhat funny way
2908 because we collect data across the program space before deciding
2910 superclass_vec
= NULL
;
2911 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
2912 result_names
= NULL
;
2913 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
2914 last_result_len
= 0;
2915 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
2918 struct program_space
*pspace
;
2920 /* Program spaces that are executing startup should have
2921 been filtered out earlier. */
2922 gdb_assert (!SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
))->executing_startup
);
2923 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2924 set_current_program_space (pspace
);
2925 t
= check_typedef (SYMBOL_TYPE (sym
));
2926 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
2928 /* Handle all items from a single program space at once; and be
2929 sure not to miss the last batch. */
2930 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
2932 != SYMTAB_PSPACE (SYMBOL_SYMTAB (VEC_index (symbolp
, sym_classes
,
2935 /* If we did not find a direct implementation anywhere in
2936 this program space, consider superclasses. */
2937 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
2938 find_superclass_methods (superclass_vec
, method_name
,
2941 /* We have a list of candidate symbol names, so now we
2942 iterate over the symbol tables looking for all
2943 matches in this pspace. */
2944 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
2946 VEC_truncate (typep
, superclass_vec
, 0);
2947 last_result_len
= VEC_length (const_char_ptr
, result_names
);
2951 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2952 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2954 *symbols
= info
.result
.symbols
;
2955 *minsyms
= info
.result
.minimal_symbols
;
2956 do_cleanups (cleanup
);
2960 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
2961 and other attempts to locate the symbol will be made. */
2962 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
2967 /* This object is used when collecting all matching symtabs. */
2969 struct symtab_collector
2971 /* The result vector of symtabs. */
2972 VEC (symtab_ptr
) *symtabs
;
2974 /* This is used to ensure the symtabs are unique. */
2975 htab_t symtab_table
;
2978 /* Callback for iterate_over_symtabs. */
2981 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
2983 struct symtab_collector
*data
= d
;
2986 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
2990 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
2996 /* Given a file name, return a VEC of all matching symtabs. */
2998 static VEC (symtab_ptr
) *
2999 collect_symtabs_from_filename (const char *file
)
3001 struct symtab_collector collector
;
3002 struct cleanup
*cleanups
;
3003 struct program_space
*pspace
;
3005 collector
.symtabs
= NULL
;
3006 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3008 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
3010 /* Find that file's data. */
3011 ALL_PSPACES (pspace
)
3013 if (pspace
->executing_startup
)
3016 set_current_program_space (pspace
);
3017 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3020 do_cleanups (cleanups
);
3021 return collector
.symtabs
;
3024 /* Return all the symtabs associated to the FILENAME. */
3026 static VEC (symtab_ptr
) *
3027 symtabs_from_filename (const char *filename
)
3029 VEC (symtab_ptr
) *result
;
3031 result
= collect_symtabs_from_filename (filename
);
3033 if (VEC_empty (symtab_ptr
, result
))
3035 if (!have_full_symbols () && !have_partial_symbols ())
3036 throw_error (NOT_FOUND_ERROR
,
3037 _("No symbol table is loaded. "
3038 "Use the \"file\" command."));
3039 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), filename
);
3045 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3046 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3047 returned in MINSYMS. */
3050 find_function_symbols (struct linespec_state
*state
,
3051 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3052 VEC (symbolp
) **symbols
,
3053 VEC (bound_minimal_symbol_d
) **minsyms
)
3055 struct collect_info info
;
3056 VEC (const_char_ptr
) *symbol_names
= NULL
;
3057 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3061 info
.result
.symbols
= NULL
;
3062 info
.result
.minimal_symbols
= NULL
;
3063 info
.file_symtabs
= file_symtabs
;
3065 /* Try NAME as an Objective-C selector. */
3066 find_imps (name
, &symbol_names
);
3067 if (!VEC_empty (const_char_ptr
, symbol_names
))
3068 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3070 add_matching_symbols_to_info (name
, &info
, NULL
);
3072 do_cleanups (cleanup
);
3074 if (VEC_empty (symbolp
, info
.result
.symbols
))
3076 VEC_free (symbolp
, info
.result
.symbols
);
3080 *symbols
= info
.result
.symbols
;
3082 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3084 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3088 *minsyms
= info
.result
.minimal_symbols
;
3091 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3092 in SYMBOLS and minimal symbols in MINSYMS. */
3095 find_linespec_symbols (struct linespec_state
*state
,
3096 VEC (symtab_ptr
) *file_symtabs
,
3098 VEC (symbolp
) **symbols
,
3099 VEC (bound_minimal_symbol_d
) **minsyms
)
3101 struct cleanup
*cleanup
;
3103 const char *lookup_name
;
3104 volatile struct gdb_exception except
;
3106 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3108 if (state
->language
->la_language
== language_ada
)
3110 /* In Ada, the symbol lookups are performed using the encoded
3111 name rather than the demangled name. */
3112 lookup_name
= ada_name_for_lookup (name
);
3113 make_cleanup (xfree
, (void *) lookup_name
);
3116 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3119 lookup_name
= canon
;
3120 make_cleanup (xfree
, canon
);
3123 /* It's important to not call expand_symtabs_matching unnecessarily
3124 as it can really slow things down (by unnecessarily expanding
3125 potentially 1000s of symtabs, which when debugging some apps can
3126 cost 100s of seconds). Avoid this to some extent by *first* calling
3127 find_function_symbols, and only if that doesn't find anything
3128 *then* call find_method. This handles two important cases:
3129 1) break (anonymous namespace)::foo
3130 2) break class::method where method is in class (and not a baseclass) */
3132 find_function_symbols (state
, file_symtabs
, lookup_name
,
3135 /* If we were unable to locate a symbol of the same name, try dividing
3136 the name into class and method names and searching the class and its
3138 if (VEC_empty (symbolp
, *symbols
)
3139 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3141 char *klass
, *method
;
3142 const char *last
, *p
, *scope_op
;
3143 VEC (symbolp
) *classes
;
3145 /* See if we can find a scope operator and break this symbol
3146 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3148 p
= find_toplevel_string (lookup_name
, scope_op
);
3151 /* No C++ scope operator. Try Java. */
3153 p
= find_toplevel_string (lookup_name
, scope_op
);
3160 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3163 /* If no scope operator was found, there is nothing more we can do;
3164 we already attempted to lookup the entire name as a symbol
3168 do_cleanups (cleanup
);
3172 /* LOOKUP_NAME points to the class name.
3173 LAST points to the method name. */
3174 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
3175 make_cleanup (xfree
, klass
);
3176 strncpy (klass
, lookup_name
, last
- lookup_name
);
3177 klass
[last
- lookup_name
] = '\0';
3179 /* Skip past the scope operator. */
3180 last
+= strlen (scope_op
);
3181 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3182 make_cleanup (xfree
, method
);
3183 strcpy (method
, last
);
3185 /* Find a list of classes named KLASS. */
3186 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3187 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3189 if (!VEC_empty (symbolp
, classes
))
3191 /* Now locate a list of suitable methods named METHOD. */
3192 TRY_CATCH (except
, RETURN_MASK_ERROR
)
3194 find_method (state
, file_symtabs
, klass
, method
, classes
,
3198 /* If successful, we're done. If NOT_FOUND_ERROR
3199 was not thrown, rethrow the exception that we did get. */
3200 if (except
.reason
< 0 && except
.error
!= NOT_FOUND_ERROR
)
3201 throw_exception (except
);
3205 do_cleanups (cleanup
);
3208 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3209 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3211 static VEC (symbolp
) *
3212 find_label_symbols (struct linespec_state
*self
,
3213 VEC (symbolp
) *function_symbols
,
3214 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3217 const struct block
*block
;
3219 struct symbol
*fn_sym
;
3220 VEC (symbolp
) *result
= NULL
;
3222 if (function_symbols
== NULL
)
3224 set_current_program_space (self
->program_space
);
3225 block
= get_current_search_block ();
3228 block
&& !BLOCK_FUNCTION (block
);
3229 block
= BLOCK_SUPERBLOCK (block
))
3233 fn_sym
= BLOCK_FUNCTION (block
);
3235 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3239 VEC_safe_push (symbolp
, result
, sym
);
3240 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3246 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3248 set_current_program_space (SYMTAB_PSPACE (SYMBOL_SYMTAB (fn_sym
)));
3249 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3250 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3254 VEC_safe_push (symbolp
, result
, sym
);
3255 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3265 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3268 decode_digits_list_mode (struct linespec_state
*self
,
3270 struct symtabs_and_lines
*values
,
3271 struct symtab_and_line val
)
3276 gdb_assert (self
->list_mode
);
3278 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3281 /* The logic above should ensure this. */
3282 gdb_assert (elt
!= NULL
);
3284 set_current_program_space (SYMTAB_PSPACE (elt
));
3286 /* Simplistic search just for the list command. */
3287 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3288 if (val
.symtab
== NULL
)
3290 val
.pspace
= SYMTAB_PSPACE (elt
);
3292 val
.explicit_line
= 1;
3294 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3298 /* A helper for create_sals_line_offset that iterates over the symtabs,
3299 adding lines to the VEC. */
3302 decode_digits_ordinary (struct linespec_state
*self
,
3305 struct symtabs_and_lines
*sals
,
3306 struct linetable_entry
**best_entry
)
3311 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3314 VEC (CORE_ADDR
) *pcs
;
3317 /* The logic above should ensure this. */
3318 gdb_assert (elt
!= NULL
);
3320 set_current_program_space (SYMTAB_PSPACE (elt
));
3322 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3323 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3325 struct symtab_and_line sal
;
3328 sal
.pspace
= SYMTAB_PSPACE (elt
);
3332 add_sal_to_sals_basic (sals
, &sal
);
3335 VEC_free (CORE_ADDR
, pcs
);
3341 /* Return the line offset represented by VARIABLE. */
3343 static struct line_offset
3344 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3348 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3350 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3353 while (*p
>= '0' && *p
<= '9')
3355 if (!*p
) /* Reached end of token without hitting non-digit. */
3357 /* We have a value history reference. */
3358 struct value
*val_history
;
3360 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3362 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3363 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3364 error (_("History values used in line "
3365 "specs must have integer values."));
3366 offset
.offset
= value_as_long (val_history
);
3370 /* Not all digits -- may be user variable/function or a
3371 convenience variable. */
3373 struct internalvar
*ivar
;
3375 /* Try it as a convenience variable. If it is not a convenience
3376 variable, return and allow normal symbol lookup to occur. */
3377 ivar
= lookup_only_internalvar (variable
+ 1);
3379 /* No internal variable with that name. Mark the offset
3380 as unknown to allow the name to be looked up as a symbol. */
3381 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3384 /* We found a valid variable name. If it is not an integer,
3386 if (!get_internalvar_integer (ivar
, &valx
))
3387 error (_("Convenience variables used in line "
3388 "specs must have integer values."));
3390 offset
.offset
= valx
;
3398 /* A callback used to possibly add a symbol to the results. */
3401 collect_symbols (struct symbol
*sym
, void *data
)
3403 struct collect_info
*info
= data
;
3405 /* In list mode, add all matching symbols, regardless of class.
3406 This allows the user to type "list a_global_variable". */
3407 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3408 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3409 return 1; /* Continue iterating. */
3412 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3413 linespec; return the SAL in RESULT. */
3416 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3417 struct minimal_symbol
*msymbol
,
3418 struct symtabs_and_lines
*result
)
3420 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3422 struct symtab_and_line sal
;
3424 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
),
3425 (struct obj_section
*) 0, 0);
3426 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
3428 /* The minimal symbol might point to a function descriptor;
3429 resolve it to the actual code address instead. */
3430 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3432 sal
= find_pc_sect_line (pc
, NULL
, 0);
3434 if (self
->funfirstline
)
3435 skip_prologue_sal (&sal
);
3437 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3438 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
3441 /* A helper struct to pass some data through
3442 iterate_over_minimal_symbols. */
3444 struct collect_minsyms
3446 /* The objfile we're examining. */
3447 struct objfile
*objfile
;
3449 /* The funfirstline setting from the initial call. */
3452 /* The list_mode setting from the initial call. */
3455 /* The resulting symbols. */
3456 VEC (bound_minimal_symbol_d
) *msyms
;
3459 /* A helper function to classify a minimal_symbol_type according to
3463 classify_mtype (enum minimal_symbol_type t
)
3470 /* Intermediate priority. */
3473 case mst_solib_trampoline
:
3474 /* Lowest priority. */
3478 /* Highest priority. */
3483 /* Callback for qsort that sorts symbols by priority. */
3486 compare_msyms (const void *a
, const void *b
)
3488 const bound_minimal_symbol_d
*moa
= a
;
3489 const bound_minimal_symbol_d
*mob
= b
;
3490 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3491 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3493 return classify_mtype (ta
) - classify_mtype (tb
);
3496 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3500 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3502 struct collect_minsyms
*info
= d
;
3503 bound_minimal_symbol_d mo
;
3506 mo
.objfile
= info
->objfile
;
3508 /* Exclude data symbols when looking for breakpoint locations. */
3509 if (!info
->list_mode
)
3510 switch (minsym
->type
)
3512 case mst_slot_got_plt
:
3519 /* Make sure this minsym is not a function descriptor
3520 before we decide to discard it. */
3521 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3522 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3523 (gdbarch
, BMSYMBOL_VALUE_ADDRESS (mo
),
3526 if (addr
== BMSYMBOL_VALUE_ADDRESS (mo
))
3531 VEC_safe_push (bound_minimal_symbol_d
, info
->msyms
, &mo
);
3534 /* Search minimal symbols in all objfiles for NAME. If SEARCH_PSPACE
3535 is not NULL, the search is restricted to just that program
3539 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3540 struct program_space
*search_pspace
)
3542 struct objfile
*objfile
;
3543 struct program_space
*pspace
;
3545 ALL_PSPACES (pspace
)
3547 struct collect_minsyms local
;
3548 struct cleanup
*cleanup
;
3550 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3552 if (pspace
->executing_startup
)
3555 set_current_program_space (pspace
);
3557 memset (&local
, 0, sizeof (local
));
3558 local
.funfirstline
= info
->state
->funfirstline
;
3559 local
.list_mode
= info
->state
->list_mode
;
3561 cleanup
= make_cleanup (VEC_cleanup (bound_minimal_symbol_d
),
3564 ALL_OBJFILES (objfile
)
3566 local
.objfile
= objfile
;
3567 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3570 if (!VEC_empty (bound_minimal_symbol_d
, local
.msyms
))
3574 bound_minimal_symbol_d
*item
;
3576 qsort (VEC_address (bound_minimal_symbol_d
, local
.msyms
),
3577 VEC_length (bound_minimal_symbol_d
, local
.msyms
),
3578 sizeof (bound_minimal_symbol_d
),
3581 /* Now the minsyms are in classification order. So, we walk
3582 over them and process just the minsyms with the same
3583 classification as the very first minsym in the list. */
3584 item
= VEC_index (bound_minimal_symbol_d
, local
.msyms
, 0);
3585 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3588 VEC_iterate (bound_minimal_symbol_d
, local
.msyms
, ix
, item
);
3591 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3594 VEC_safe_push (bound_minimal_symbol_d
,
3595 info
->result
.minimal_symbols
, item
);
3599 do_cleanups (cleanup
);
3603 /* A helper function to add all symbols matching NAME to INFO. If
3604 PSPACE is not NULL, the search is restricted to just that program
3608 add_matching_symbols_to_info (const char *name
,
3609 struct collect_info
*info
,
3610 struct program_space
*pspace
)
3615 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3619 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3620 collect_symbols
, info
,
3622 search_minsyms_for_name (info
, name
, pspace
);
3624 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3626 /* Program spaces that are executing startup should have
3627 been filtered out earlier. */
3628 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3629 set_current_program_space (SYMTAB_PSPACE (elt
));
3630 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3631 collect_symbols
, info
);
3638 /* Now come some functions that are called from multiple places within
3642 symbol_to_sal (struct symtab_and_line
*result
,
3643 int funfirstline
, struct symbol
*sym
)
3645 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3647 *result
= find_function_start_sal (sym
, funfirstline
);
3652 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3655 result
->symtab
= SYMBOL_SYMTAB (sym
);
3656 result
->line
= SYMBOL_LINE (sym
);
3657 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3658 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3659 result
->explicit_pc
= 1;
3662 else if (funfirstline
)
3666 else if (SYMBOL_LINE (sym
) != 0)
3668 /* We know its line number. */
3670 result
->symtab
= SYMBOL_SYMTAB (sym
);
3671 result
->line
= SYMBOL_LINE (sym
);
3672 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3680 /* See the comment in linespec.h. */
3683 init_linespec_result (struct linespec_result
*lr
)
3685 memset (lr
, 0, sizeof (*lr
));
3688 /* See the comment in linespec.h. */
3691 destroy_linespec_result (struct linespec_result
*ls
)
3694 struct linespec_sals
*lsal
;
3696 xfree (ls
->addr_string
);
3697 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3699 xfree (lsal
->canonical
);
3700 xfree (lsal
->sals
.sals
);
3702 VEC_free (linespec_sals
, ls
->sals
);
3705 /* Cleanup function for a linespec_result. */
3708 cleanup_linespec_result (void *a
)
3710 destroy_linespec_result (a
);
3713 /* See the comment in linespec.h. */
3716 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3718 return make_cleanup (cleanup_linespec_result
, ls
);