1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2015 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "completer.h"
31 #include "cp-support.h"
32 #include "parser-defs.h"
34 #include "objc-lang.h"
38 #include "mi/mi-cmds.h"
40 #include "arch-utils.h"
42 #include "cli/cli-utils.h"
43 #include "filenames.h"
47 typedef struct symbol
*symbolp
;
50 typedef struct type
*typep
;
53 /* An address entry is used to ensure that any given location is only
54 added to the result a single time. It holds an address and the
55 program space from which the address came. */
59 struct program_space
*pspace
;
63 typedef struct bound_minimal_symbol bound_minimal_symbol_d
;
65 DEF_VEC_O (bound_minimal_symbol_d
);
67 /* An enumeration of possible signs for a line offset. */
68 enum offset_relative_sign
73 /* A plus sign ("+") */
76 /* A minus sign ("-") */
79 /* A special "sign" for unspecified offset. */
83 /* A line offset in a linespec. */
87 /* Line offset and any specified sign. */
89 enum offset_relative_sign sign
;
92 /* A linespec. Elements of this structure are filled in by a parser
93 (either parse_linespec or some other function). The structure is
94 then converted into SALs by convert_linespec_to_sals. */
98 /* An expression and the resulting PC. Specifying an expression
99 currently precludes the use of other members. */
101 /* The expression entered by the user. */
102 const char *expression
;
104 /* The resulting PC expression derived from evaluating EXPRESSION. */
107 /* Any specified file symtabs. */
109 /* The user-supplied source filename or NULL if none was specified. */
110 const char *source_filename
;
112 /* The list of symtabs to search to which to limit the search. May not
113 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
114 FILE_SYMTABS should contain one single NULL member. This will
115 cause the code to use the default symtab. */
116 VEC (symtab_ptr
) *file_symtabs
;
118 /* The name of a function or method and any matching symbols. */
120 /* The user-specified function name. If no function name was
121 supplied, this may be NULL. */
122 const char *function_name
;
124 /* A list of matching function symbols and minimal symbols. Both lists
125 may be NULL if no matching symbols were found. */
126 VEC (symbolp
) *function_symbols
;
127 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
129 /* The name of a label and matching symbols. */
131 /* The user-specified label name. */
132 const char *label_name
;
134 /* A structure of matching label symbols and the corresponding
135 function symbol in which the label was found. Both may be NULL
136 or both must be non-NULL. */
139 VEC (symbolp
) *label_symbols
;
140 VEC (symbolp
) *function_symbols
;
143 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
144 offset was specified. */
145 struct line_offset line_offset
;
147 typedef struct linespec
*linespec_p
;
149 /* A canonical linespec represented as a symtab-related string.
151 Each entry represents the "SYMTAB:SUFFIX" linespec string.
152 SYMTAB can be converted for example by symtab_to_fullname or
153 symtab_to_filename_for_display as needed. */
155 struct linespec_canonical_name
157 /* Remaining text part of the linespec string. */
160 /* If NULL then SUFFIX is the whole linespec string. */
161 struct symtab
*symtab
;
164 /* An instance of this is used to keep all state while linespec
165 operates. This instance is passed around as a 'this' pointer to
166 the various implementation methods. */
168 struct linespec_state
170 /* The language in use during linespec processing. */
171 const struct language_defn
*language
;
173 /* The program space as seen when the module was entered. */
174 struct program_space
*program_space
;
176 /* The default symtab to use, if no other symtab is specified. */
177 struct symtab
*default_symtab
;
179 /* The default line to use. */
182 /* The 'funfirstline' value that was passed in to decode_line_1 or
186 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
189 /* The 'canonical' value passed to decode_line_full, or NULL. */
190 struct linespec_result
*canonical
;
192 /* Canonical strings that mirror the symtabs_and_lines result. */
193 struct linespec_canonical_name
*canonical_names
;
195 /* This is a set of address_entry objects which is used to prevent
196 duplicate symbols from being entered into the result. */
200 /* This is a helper object that is used when collecting symbols into a
205 /* The linespec object in use. */
206 struct linespec_state
*state
;
208 /* A list of symtabs to which to restrict matches. */
209 VEC (symtab_ptr
) *file_symtabs
;
211 /* The result being accumulated. */
214 VEC (symbolp
) *symbols
;
215 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
226 /* A colon "separator" */
238 /* EOI (end of input) */
244 typedef enum ls_token_type linespec_token_type
;
246 /* List of keywords */
248 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
249 #define IF_KEYWORD_INDEX 0
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 /* The state of the parse. */
295 struct linespec_state state
;
296 #define PARSER_STATE(PPTR) (&(PPTR)->state)
298 /* The result of the parse. */
299 struct linespec result
;
300 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
302 typedef struct ls_parser linespec_parser
;
304 /* Prototypes for local functions. */
306 static void iterate_over_file_blocks (struct symtab
*symtab
,
307 const char *name
, domain_enum domain
,
308 symbol_found_callback_ftype
*callback
,
311 static void initialize_defaults (struct symtab
**default_symtab
,
314 static CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
316 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
318 const char **argptr
);
320 static VEC (symtab_ptr
) *symtabs_from_filename (const char *);
322 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
323 VEC (symbolp
) *function_symbols
,
324 VEC (symbolp
) **label_funcs_ret
,
327 static void find_linespec_symbols (struct linespec_state
*self
,
328 VEC (symtab_ptr
) *file_symtabs
,
330 VEC (symbolp
) **symbols
,
331 VEC (bound_minimal_symbol_d
) **minsyms
);
333 static struct line_offset
334 linespec_parse_variable (struct linespec_state
*self
,
335 const char *variable
);
337 static int symbol_to_sal (struct symtab_and_line
*result
,
338 int funfirstline
, struct symbol
*sym
);
340 static void add_matching_symbols_to_info (const char *name
,
341 struct collect_info
*info
,
342 struct program_space
*pspace
);
344 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
345 struct program_space
*pspace
,
346 VEC (const_char_ptr
) *names
);
348 static VEC (symtab_ptr
) *collect_symtabs_from_filename (const char *file
);
350 static void decode_digits_ordinary (struct linespec_state
*self
,
353 struct symtabs_and_lines
*sals
,
354 struct linetable_entry
**best_entry
);
356 static void decode_digits_list_mode (struct linespec_state
*self
,
358 struct symtabs_and_lines
*values
,
359 struct symtab_and_line val
);
361 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
362 struct minimal_symbol
*msymbol
,
363 struct symtabs_and_lines
*result
);
365 static int compare_symbols (const void *a
, const void *b
);
367 static int compare_msymbols (const void *a
, const void *b
);
369 static const char *find_toplevel_char (const char *s
, char c
);
371 /* Permitted quote characters for the parser. This is different from the
372 completer's quote characters to allow backward compatibility with the
374 static const char *const linespec_quote_characters
= "\"\'";
376 /* Lexer functions. */
378 /* Lex a number from the input in PARSER. This only supports
381 Return true if input is decimal numbers. Return false if not. */
384 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
386 tokenp
->type
= LSTOKEN_NUMBER
;
387 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
388 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
390 /* Keep any sign at the start of the stream. */
391 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
393 ++LS_TOKEN_STOKEN (*tokenp
).length
;
394 ++(PARSER_STREAM (parser
));
397 while (isdigit (*PARSER_STREAM (parser
)))
399 ++LS_TOKEN_STOKEN (*tokenp
).length
;
400 ++(PARSER_STREAM (parser
));
403 /* If the next character in the input buffer is not a space, comma,
404 quote, or colon, this input does not represent a number. */
405 if (*PARSER_STREAM (parser
) != '\0'
406 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
407 && *PARSER_STREAM (parser
) != ':'
408 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
410 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
417 /* See linespec.h. */
420 linespec_lexer_lex_keyword (const char *p
)
426 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
428 int len
= strlen (linespec_keywords
[i
]);
430 /* If P begins with one of the keywords and the next
431 character is whitespace, we may have found a keyword.
432 It is only a keyword if it is not followed by another
434 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
439 /* Special case: "if" ALWAYS stops the lexer, since it
440 is not possible to predict what is going to appear in
441 the condition, which can only be parsed after SaLs have
443 if (i
!= IF_KEYWORD_INDEX
)
446 p
= skip_spaces_const (p
);
447 for (j
= 0; j
< ARRAY_SIZE (linespec_keywords
); ++j
)
449 int nextlen
= strlen (linespec_keywords
[j
]);
451 if (strncmp (p
, linespec_keywords
[j
], nextlen
) == 0
452 && isspace (p
[nextlen
]))
457 return linespec_keywords
[i
];
465 /* Does STRING represent an Ada operator? If so, return the length
466 of the decoded operator name. If not, return 0. */
469 is_ada_operator (const char *string
)
471 const struct ada_opname_map
*mapping
;
473 for (mapping
= ada_opname_table
;
474 mapping
->encoded
!= NULL
475 && !startswith (string
, mapping
->decoded
); ++mapping
)
478 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
481 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
482 the location of QUOTE_CHAR, or NULL if not found. */
485 skip_quote_char (const char *string
, char quote_char
)
487 const char *p
, *last
;
489 p
= last
= find_toplevel_char (string
, quote_char
);
490 while (p
&& *p
!= '\0' && *p
!= ':')
492 p
= find_toplevel_char (p
, quote_char
);
500 /* Make a writable copy of the string given in TOKEN, trimming
501 any trailing whitespace. */
504 copy_token_string (linespec_token token
)
508 if (token
.type
== LSTOKEN_KEYWORD
)
509 return xstrdup (LS_TOKEN_KEYWORD (token
));
511 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
512 LS_TOKEN_STOKEN (token
).length
);
513 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
519 /* Does P represent the end of a quote-enclosed linespec? */
522 is_closing_quote_enclosed (const char *p
)
524 if (strchr (linespec_quote_characters
, *p
))
526 p
= skip_spaces ((char *) p
);
527 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
530 /* Find the end of the parameter list that starts with *INPUT.
531 This helper function assists with lexing string segments
532 which might contain valid (non-terminating) commas. */
535 find_parameter_list_end (const char *input
)
537 char end_char
, start_char
;
542 if (start_char
== '(')
544 else if (start_char
== '<')
553 if (*p
== start_char
)
555 else if (*p
== end_char
)
570 /* Lex a string from the input in PARSER. */
572 static linespec_token
573 linespec_lexer_lex_string (linespec_parser
*parser
)
575 linespec_token token
;
576 const char *start
= PARSER_STREAM (parser
);
578 token
.type
= LSTOKEN_STRING
;
580 /* If the input stream starts with a quote character, skip to the next
581 quote character, regardless of the content. */
582 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
585 char quote_char
= *PARSER_STREAM (parser
);
587 /* Special case: Ada operators. */
588 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
589 && quote_char
== '\"')
591 int len
= is_ada_operator (PARSER_STREAM (parser
));
595 /* The input is an Ada operator. Return the quoted string
597 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
598 LS_TOKEN_STOKEN (token
).length
= len
;
599 PARSER_STREAM (parser
) += len
;
603 /* The input does not represent an Ada operator -- fall through
604 to normal quoted string handling. */
607 /* Skip past the beginning quote. */
608 ++(PARSER_STREAM (parser
));
610 /* Mark the start of the string. */
611 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
613 /* Skip to the ending quote. */
614 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
616 /* Error if the input did not terminate properly. */
618 error (_("unmatched quote"));
620 /* Skip over the ending quote and mark the length of the string. */
621 PARSER_STREAM (parser
) = (char *) ++end
;
622 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
628 /* Otherwise, only identifier characters are permitted.
629 Spaces are the exception. In general, we keep spaces,
630 but only if the next characters in the input do not resolve
631 to one of the keywords.
633 This allows users to forgo quoting CV-qualifiers, template arguments,
634 and similar common language constructs. */
638 if (isspace (*PARSER_STREAM (parser
)))
640 p
= skip_spaces_const (PARSER_STREAM (parser
));
641 /* When we get here we know we've found something followed by
642 a space (we skip over parens and templates below).
643 So if we find a keyword now, we know it is a keyword and not,
644 say, a function name. */
645 if (linespec_lexer_lex_keyword (p
) != NULL
)
647 LS_TOKEN_STOKEN (token
).ptr
= start
;
648 LS_TOKEN_STOKEN (token
).length
649 = PARSER_STREAM (parser
) - start
;
653 /* Advance past the whitespace. */
654 PARSER_STREAM (parser
) = p
;
657 /* If the next character is EOI or (single) ':', the
658 string is complete; return the token. */
659 if (*PARSER_STREAM (parser
) == 0)
661 LS_TOKEN_STOKEN (token
).ptr
= start
;
662 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
665 else if (PARSER_STREAM (parser
)[0] == ':')
667 /* Do not tokenize the C++ scope operator. */
668 if (PARSER_STREAM (parser
)[1] == ':')
669 ++(PARSER_STREAM (parser
));
671 /* Do not tokenify if the input length so far is one
672 (i.e, a single-letter drive name) and the next character
673 is a directory separator. This allows Windows-style
674 paths to be recognized as filenames without quoting it. */
675 else if ((PARSER_STREAM (parser
) - start
) != 1
676 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
678 LS_TOKEN_STOKEN (token
).ptr
= start
;
679 LS_TOKEN_STOKEN (token
).length
680 = PARSER_STREAM (parser
) - start
;
684 /* Special case: permit quote-enclosed linespecs. */
685 else if (parser
->is_quote_enclosed
686 && strchr (linespec_quote_characters
,
687 *PARSER_STREAM (parser
))
688 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
690 LS_TOKEN_STOKEN (token
).ptr
= start
;
691 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
694 /* Because commas may terminate a linespec and appear in
695 the middle of valid string input, special cases for
696 '<' and '(' are necessary. */
697 else if (*PARSER_STREAM (parser
) == '<'
698 || *PARSER_STREAM (parser
) == '(')
702 p
= find_parameter_list_end (PARSER_STREAM (parser
));
705 PARSER_STREAM (parser
) = p
;
709 /* Commas are terminators, but not if they are part of an
711 else if (*PARSER_STREAM (parser
) == ',')
713 if ((PARSER_STATE (parser
)->language
->la_language
715 && (PARSER_STREAM (parser
) - start
) > 8
716 /* strlen ("operator") */)
718 char *p
= strstr (start
, "operator");
720 if (p
!= NULL
&& is_operator_name (p
))
722 /* This is an operator name. Keep going. */
723 ++(PARSER_STREAM (parser
));
728 /* Comma terminates the string. */
729 LS_TOKEN_STOKEN (token
).ptr
= start
;
730 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
734 /* Advance the stream. */
735 ++(PARSER_STREAM (parser
));
742 /* Lex a single linespec token from PARSER. */
744 static linespec_token
745 linespec_lexer_lex_one (linespec_parser
*parser
)
749 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
751 /* Skip any whitespace. */
752 PARSER_STREAM (parser
) = skip_spaces_const (PARSER_STREAM (parser
));
754 /* Check for a keyword, they end the linespec. */
755 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
758 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
759 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
760 /* We do not advance the stream here intentionally:
761 we would like lexing to stop when a keyword is seen.
763 PARSER_STREAM (parser) += strlen (keyword); */
765 return parser
->lexer
.current
;
768 /* Handle other tokens. */
769 switch (*PARSER_STREAM (parser
))
772 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
776 case '0': case '1': case '2': case '3': case '4':
777 case '5': case '6': case '7': case '8': case '9':
778 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
779 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
783 /* If we have a scope operator, lex the input as a string.
784 Otherwise, return LSTOKEN_COLON. */
785 if (PARSER_STREAM (parser
)[1] == ':')
786 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
789 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
790 ++(PARSER_STREAM (parser
));
794 case '\'': case '\"':
795 /* Special case: permit quote-enclosed linespecs. */
796 if (parser
->is_quote_enclosed
797 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
799 ++(PARSER_STREAM (parser
));
800 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
803 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
807 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
808 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
809 = PARSER_STREAM (parser
);
810 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
811 ++(PARSER_STREAM (parser
));
815 /* If the input is not a number, it must be a string.
816 [Keywords were already considered above.] */
817 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
822 return parser
->lexer
.current
;
825 /* Consume the current token and return the next token in PARSER's
828 static linespec_token
829 linespec_lexer_consume_token (linespec_parser
*parser
)
831 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
832 return linespec_lexer_lex_one (parser
);
835 /* Return the next token without consuming the current token. */
837 static linespec_token
838 linespec_lexer_peek_token (linespec_parser
*parser
)
841 const char *saved_stream
= PARSER_STREAM (parser
);
842 linespec_token saved_token
= parser
->lexer
.current
;
844 next
= linespec_lexer_consume_token (parser
);
845 PARSER_STREAM (parser
) = saved_stream
;
846 parser
->lexer
.current
= saved_token
;
850 /* Helper functions. */
852 /* Add SAL to SALS. */
855 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
856 struct symtab_and_line
*sal
)
859 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
860 sals
->sals
[sals
->nelts
- 1] = *sal
;
863 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
864 the new sal, if needed. If not NULL, SYMNAME is the name of the
865 symbol to use when constructing the new canonical name.
867 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
868 canonical name for the SAL. */
871 add_sal_to_sals (struct linespec_state
*self
,
872 struct symtabs_and_lines
*sals
,
873 struct symtab_and_line
*sal
,
874 const char *symname
, int literal_canonical
)
876 add_sal_to_sals_basic (sals
, sal
);
880 struct linespec_canonical_name
*canonical
;
882 self
->canonical_names
= xrealloc (self
->canonical_names
,
884 * sizeof (*self
->canonical_names
)));
885 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
886 if (!literal_canonical
&& sal
->symtab
)
888 const char *fullname
= symtab_to_fullname (sal
->symtab
);
890 /* Note that the filter doesn't have to be a valid linespec
891 input. We only apply the ":LINE" treatment to Ada for
893 if (symname
!= NULL
&& sal
->line
!= 0
894 && self
->language
->la_language
== language_ada
)
895 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
896 else if (symname
!= NULL
)
897 canonical
->suffix
= xstrdup (symname
);
899 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
900 canonical
->symtab
= sal
->symtab
;
905 canonical
->suffix
= xstrdup (symname
);
907 canonical
->suffix
= xstrdup ("<unknown>");
908 canonical
->symtab
= NULL
;
913 /* A hash function for address_entry. */
916 hash_address_entry (const void *p
)
918 const struct address_entry
*aep
= p
;
921 hash
= iterative_hash_object (aep
->pspace
, 0);
922 return iterative_hash_object (aep
->addr
, hash
);
925 /* An equality function for address_entry. */
928 eq_address_entry (const void *a
, const void *b
)
930 const struct address_entry
*aea
= a
;
931 const struct address_entry
*aeb
= b
;
933 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
936 /* Check whether the address, represented by PSPACE and ADDR, is
937 already in the set. If so, return 0. Otherwise, add it and return
941 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
943 struct address_entry e
, *p
;
948 slot
= htab_find_slot (set
, &e
, INSERT
);
952 p
= XNEW (struct address_entry
);
953 memcpy (p
, &e
, sizeof (struct address_entry
));
959 /* A callback function and the additional data to call it with. */
961 struct symbol_and_data_callback
963 /* The callback to use. */
964 symbol_found_callback_ftype
*callback
;
966 /* Data to be passed to the callback. */
970 /* A helper for iterate_over_all_matching_symtabs that is used to
971 restrict calls to another callback to symbols representing inline
975 iterate_inline_only (struct symbol
*sym
, void *d
)
977 if (SYMBOL_INLINED (sym
))
979 struct symbol_and_data_callback
*cad
= d
;
981 return cad
->callback (sym
, cad
->data
);
983 return 1; /* Continue iterating. */
986 /* Some data for the expand_symtabs_matching callback. */
988 struct symbol_matcher_data
990 /* The lookup name against which symbol name should be compared. */
991 const char *lookup_name
;
993 /* The routine to be used for comparison. */
994 symbol_name_cmp_ftype symbol_name_cmp
;
997 /* A helper for iterate_over_all_matching_symtabs that is passed as a
998 callback to the expand_symtabs_matching method. */
1001 iterate_name_matcher (const char *name
, void *d
)
1003 const struct symbol_matcher_data
*data
= d
;
1005 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
1006 return 1; /* Expand this symbol's symbol table. */
1007 return 0; /* Skip this symbol. */
1010 /* A helper that walks over all matching symtabs in all objfiles and
1011 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
1012 not NULL, then the search is restricted to just that program
1013 space. If INCLUDE_INLINE is nonzero then symbols representing
1014 inlined instances of functions will be included in the result. */
1017 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
1019 const domain_enum domain
,
1020 symbol_found_callback_ftype
*callback
,
1022 struct program_space
*search_pspace
,
1025 struct objfile
*objfile
;
1026 struct program_space
*pspace
;
1027 struct symbol_matcher_data matcher_data
;
1029 matcher_data
.lookup_name
= name
;
1030 matcher_data
.symbol_name_cmp
=
1031 state
->language
->la_get_symbol_name_cmp
!= NULL
1032 ? state
->language
->la_get_symbol_name_cmp (name
)
1035 ALL_PSPACES (pspace
)
1037 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
1039 if (pspace
->executing_startup
)
1042 set_current_program_space (pspace
);
1044 ALL_OBJFILES (objfile
)
1046 struct compunit_symtab
*cu
;
1049 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1050 iterate_name_matcher
,
1054 ALL_OBJFILE_COMPUNITS (objfile
, cu
)
1056 struct symtab
*symtab
= COMPUNIT_FILETABS (cu
);
1058 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1062 struct symbol_and_data_callback cad
= { callback
, data
};
1063 struct block
*block
;
1066 for (i
= FIRST_LOCAL_BLOCK
;
1067 i
< BLOCKVECTOR_NBLOCKS (SYMTAB_BLOCKVECTOR (symtab
));
1070 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), i
);
1071 state
->language
->la_iterate_over_symbols
1072 (block
, name
, domain
, iterate_inline_only
, &cad
);
1080 /* Returns the block to be used for symbol searches from
1081 the current location. */
1083 static const struct block
*
1084 get_current_search_block (void)
1086 const struct block
*block
;
1087 enum language save_language
;
1089 /* get_selected_block can change the current language when there is
1090 no selected frame yet. */
1091 save_language
= current_language
->la_language
;
1092 block
= get_selected_block (0);
1093 set_language (save_language
);
1098 /* Iterate over static and global blocks. */
1101 iterate_over_file_blocks (struct symtab
*symtab
,
1102 const char *name
, domain_enum domain
,
1103 symbol_found_callback_ftype
*callback
, void *data
)
1105 struct block
*block
;
1107 for (block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1109 block
= BLOCK_SUPERBLOCK (block
))
1110 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1113 /* A helper for find_method. This finds all methods in type T which
1114 match NAME. It adds matching symbol names to RESULT_NAMES, and
1115 adds T's direct superclasses to SUPERCLASSES. */
1118 find_methods (struct type
*t
, const char *name
,
1119 VEC (const_char_ptr
) **result_names
,
1120 VEC (typep
) **superclasses
)
1123 const char *class_name
= type_name_no_tag (t
);
1125 /* Ignore this class if it doesn't have a name. This is ugly, but
1126 unless we figure out how to get the physname without the name of
1127 the class, then the loop can't do any good. */
1132 t
= check_typedef (t
);
1134 /* Loop over each method name. At this level, all overloads of a name
1135 are counted as a single name. There is an inner loop which loops over
1138 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1139 method_counter
>= 0;
1142 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1143 char dem_opname
[64];
1145 if (startswith (method_name
, "__") ||
1146 startswith (method_name
, "op") ||
1147 startswith (method_name
, "type"))
1149 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1150 method_name
= dem_opname
;
1151 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1152 method_name
= dem_opname
;
1155 if (strcmp_iw (method_name
, name
) == 0)
1159 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1165 const char *phys_name
;
1167 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1168 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1170 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1171 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1177 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1178 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1181 /* Find an instance of the character C in the string S that is outside
1182 of all parenthesis pairs, single-quoted strings, and double-quoted
1183 strings. Also, ignore the char within a template name, like a ','
1184 within foo<int, int>. */
1187 find_toplevel_char (const char *s
, char c
)
1189 int quoted
= 0; /* zero if we're not in quotes;
1190 '"' if we're in a double-quoted string;
1191 '\'' if we're in a single-quoted string. */
1192 int depth
= 0; /* Number of unclosed parens we've seen. */
1195 for (scan
= s
; *scan
; scan
++)
1199 if (*scan
== quoted
)
1201 else if (*scan
== '\\' && *(scan
+ 1))
1204 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1206 else if (*scan
== '"' || *scan
== '\'')
1208 else if (*scan
== '(' || *scan
== '<')
1210 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1217 /* The string equivalent of find_toplevel_char. Returns a pointer
1218 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1219 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1222 find_toplevel_string (const char *haystack
, const char *needle
)
1224 const char *s
= haystack
;
1228 s
= find_toplevel_char (s
, *needle
);
1232 /* Found first char in HAYSTACK; check rest of string. */
1233 if (startswith (s
, needle
))
1236 /* Didn't find it; loop over HAYSTACK, looking for the next
1237 instance of the first character of NEEDLE. */
1241 while (s
!= NULL
&& *s
!= '\0');
1243 /* NEEDLE was not found in HAYSTACK. */
1247 /* Convert CANONICAL to its string representation using
1248 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1251 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1253 if (canonical
->symtab
== NULL
)
1254 return xstrdup (canonical
->suffix
);
1256 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1260 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1261 and store the result in SELF->CANONICAL. */
1264 filter_results (struct linespec_state
*self
,
1265 struct symtabs_and_lines
*result
,
1266 VEC (const_char_ptr
) *filters
)
1271 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1273 struct linespec_sals lsal
;
1276 memset (&lsal
, 0, sizeof (lsal
));
1278 for (j
= 0; j
< result
->nelts
; ++j
)
1280 const struct linespec_canonical_name
*canonical
;
1282 struct cleanup
*cleanup
;
1284 canonical
= &self
->canonical_names
[j
];
1285 fullform
= canonical_to_fullform (canonical
);
1286 cleanup
= make_cleanup (xfree
, fullform
);
1288 if (strcmp (name
, fullform
) == 0)
1289 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1291 do_cleanups (cleanup
);
1294 if (lsal
.sals
.nelts
> 0)
1296 lsal
.canonical
= xstrdup (name
);
1297 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1301 self
->canonical
->pre_expanded
= 0;
1304 /* Store RESULT into SELF->CANONICAL. */
1307 convert_results_to_lsals (struct linespec_state
*self
,
1308 struct symtabs_and_lines
*result
)
1310 struct linespec_sals lsal
;
1312 lsal
.canonical
= NULL
;
1313 lsal
.sals
= *result
;
1314 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1317 /* A structure that contains two string representations of a struct
1318 linespec_canonical_name:
1319 - one where the the symtab's fullname is used;
1320 - one where the filename followed the "set filename-display"
1323 struct decode_line_2_item
1325 /* The form using symtab_to_fullname.
1326 It must be xfree'ed after use. */
1329 /* The form using symtab_to_filename_for_display.
1330 It must be xfree'ed after use. */
1333 /* Field is initialized to zero and it is set to one if the user
1334 requested breakpoint for this entry. */
1335 unsigned int selected
: 1;
1338 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1339 secondarily by FULLFORM. */
1342 decode_line_2_compare_items (const void *ap
, const void *bp
)
1344 const struct decode_line_2_item
*a
= ap
;
1345 const struct decode_line_2_item
*b
= bp
;
1348 retval
= strcmp (a
->displayform
, b
->displayform
);
1352 return strcmp (a
->fullform
, b
->fullform
);
1355 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1356 will either return normally, throw an exception on multiple
1357 results, or present a menu to the user. On return, the SALS vector
1358 in SELF->CANONICAL is set up properly. */
1361 decode_line_2 (struct linespec_state
*self
,
1362 struct symtabs_and_lines
*result
,
1363 const char *select_mode
)
1365 char *args
, *prompt
;
1367 struct cleanup
*old_chain
;
1368 VEC (const_char_ptr
) *filters
= NULL
;
1369 struct get_number_or_range_state state
;
1370 struct decode_line_2_item
*items
;
1373 gdb_assert (select_mode
!= multiple_symbols_all
);
1374 gdb_assert (self
->canonical
!= NULL
);
1375 gdb_assert (result
->nelts
>= 1);
1377 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1379 /* Prepare ITEMS array. */
1380 items_count
= result
->nelts
;
1381 items
= xmalloc (sizeof (*items
) * items_count
);
1382 make_cleanup (xfree
, items
);
1383 for (i
= 0; i
< items_count
; ++i
)
1385 const struct linespec_canonical_name
*canonical
;
1386 struct decode_line_2_item
*item
;
1388 canonical
= &self
->canonical_names
[i
];
1389 gdb_assert (canonical
->suffix
!= NULL
);
1392 item
->fullform
= canonical_to_fullform (canonical
);
1393 make_cleanup (xfree
, item
->fullform
);
1395 if (canonical
->symtab
== NULL
)
1396 item
->displayform
= canonical
->suffix
;
1399 const char *fn_for_display
;
1401 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1402 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1404 make_cleanup (xfree
, item
->displayform
);
1410 /* Sort the list of method names. */
1411 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1413 /* Remove entries with the same FULLFORM. */
1414 if (items_count
>= 2)
1416 struct decode_line_2_item
*dst
, *src
;
1419 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1420 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1422 items_count
= dst
+ 1 - items
;
1425 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1426 error (_("canceled because the command is ambiguous\n"
1427 "See set/show multiple-symbol."));
1429 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1431 do_cleanups (old_chain
);
1432 convert_results_to_lsals (self
, result
);
1436 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1437 for (i
= 0; i
< items_count
; i
++)
1438 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1440 prompt
= getenv ("PS2");
1445 args
= command_line_input (prompt
, 0, "overload-choice");
1447 if (args
== 0 || *args
== 0)
1448 error_no_arg (_("one or more choice numbers"));
1450 init_number_or_range (&state
, args
);
1451 while (!state
.finished
)
1455 num
= get_number_or_range (&state
);
1458 error (_("canceled"));
1461 /* We intentionally make this result in a single breakpoint,
1462 contrary to what older versions of gdb did. The
1463 rationale is that this lets a user get the
1464 multiple_symbols_all behavior even with the 'ask'
1465 setting; and he can get separate breakpoints by entering
1466 "2-57" at the query. */
1467 do_cleanups (old_chain
);
1468 convert_results_to_lsals (self
, result
);
1473 if (num
>= items_count
)
1474 printf_unfiltered (_("No choice number %d.\n"), num
);
1477 struct decode_line_2_item
*item
= &items
[num
];
1479 if (!item
->selected
)
1481 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1486 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1492 filter_results (self
, result
, filters
);
1493 do_cleanups (old_chain
);
1498 /* The parser of linespec itself. */
1500 /* Throw an appropriate error when SYMBOL is not found (optionally in
1503 static void ATTRIBUTE_NORETURN
1504 symbol_not_found_error (const char *symbol
, const char *filename
)
1509 if (!have_full_symbols ()
1510 && !have_partial_symbols ()
1511 && !have_minimal_symbols ())
1512 throw_error (NOT_FOUND_ERROR
,
1513 _("No symbol table is loaded. Use the \"file\" command."));
1515 /* If SYMBOL starts with '$', the user attempted to either lookup
1516 a function/variable in his code starting with '$' or an internal
1517 variable of that name. Since we do not know which, be concise and
1518 explain both possibilities. */
1522 throw_error (NOT_FOUND_ERROR
,
1523 _("Undefined convenience variable or function \"%s\" "
1524 "not defined in \"%s\"."), symbol
, filename
);
1526 throw_error (NOT_FOUND_ERROR
,
1527 _("Undefined convenience variable or function \"%s\" "
1528 "not defined."), symbol
);
1533 throw_error (NOT_FOUND_ERROR
,
1534 _("Function \"%s\" not defined in \"%s\"."),
1537 throw_error (NOT_FOUND_ERROR
,
1538 _("Function \"%s\" not defined."), symbol
);
1542 /* Throw an appropriate error when an unexpected token is encountered
1545 static void ATTRIBUTE_NORETURN
1546 unexpected_linespec_error (linespec_parser
*parser
)
1548 linespec_token token
;
1549 static const char * token_type_strings
[]
1550 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1552 /* Get the token that generated the error. */
1553 token
= linespec_lexer_lex_one (parser
);
1555 /* Finally, throw the error. */
1556 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1557 || token
.type
== LSTOKEN_KEYWORD
)
1560 struct cleanup
*cleanup
;
1562 string
= copy_token_string (token
);
1563 cleanup
= make_cleanup (xfree
, string
);
1564 throw_error (GENERIC_ERROR
,
1565 _("malformed linespec error: unexpected %s, \"%s\""),
1566 token_type_strings
[token
.type
], string
);
1569 throw_error (GENERIC_ERROR
,
1570 _("malformed linespec error: unexpected %s"),
1571 token_type_strings
[token
.type
]);
1574 /* Parse and return a line offset in STRING. */
1576 static struct line_offset
1577 linespec_parse_line_offset (const char *string
)
1579 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1583 line_offset
.sign
= LINE_OFFSET_PLUS
;
1586 else if (*string
== '-')
1588 line_offset
.sign
= LINE_OFFSET_MINUS
;
1592 /* Right now, we only allow base 10 for offsets. */
1593 line_offset
.offset
= atoi (string
);
1597 /* Parse the basic_spec in PARSER's input. */
1600 linespec_parse_basic (linespec_parser
*parser
)
1603 linespec_token token
;
1604 VEC (symbolp
) *symbols
, *labels
;
1605 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1606 struct cleanup
*cleanup
;
1608 /* Get the next token. */
1609 token
= linespec_lexer_lex_one (parser
);
1611 /* If it is EOI or KEYWORD, issue an error. */
1612 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1613 unexpected_linespec_error (parser
);
1614 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1615 else if (token
.type
== LSTOKEN_NUMBER
)
1617 /* Record the line offset and get the next token. */
1618 name
= copy_token_string (token
);
1619 cleanup
= make_cleanup (xfree
, name
);
1620 PARSER_RESULT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1621 do_cleanups (cleanup
);
1623 /* Get the next token. */
1624 token
= linespec_lexer_consume_token (parser
);
1626 /* If the next token is a comma, stop parsing and return. */
1627 if (token
.type
== LSTOKEN_COMMA
)
1630 /* If the next token is anything but EOI or KEYWORD, issue
1632 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1633 unexpected_linespec_error (parser
);
1636 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1639 /* Next token must be LSTOKEN_STRING. */
1640 if (token
.type
!= LSTOKEN_STRING
)
1641 unexpected_linespec_error (parser
);
1643 /* The current token will contain the name of a function, method,
1645 name
= copy_token_string (token
);
1646 cleanup
= make_cleanup (xfree
, name
);
1648 /* Try looking it up as a function/method. */
1649 find_linespec_symbols (PARSER_STATE (parser
),
1650 PARSER_RESULT (parser
)->file_symtabs
, name
,
1651 &symbols
, &minimal_symbols
);
1653 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1655 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1656 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1657 PARSER_RESULT (parser
)->function_name
= name
;
1659 discard_cleanups (cleanup
);
1663 /* NAME was not a function or a method. So it must be a label
1664 name or user specified variable like "break foo.c:$zippo". */
1665 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1669 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1670 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1671 PARSER_RESULT (parser
)->label_name
= name
;
1673 discard_cleanups (cleanup
);
1675 else if (token
.type
== LSTOKEN_STRING
1676 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1678 /* User specified a convenience variable or history value. */
1679 PARSER_RESULT (parser
)->line_offset
1680 = linespec_parse_variable (PARSER_STATE (parser
), name
);
1682 if (PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1684 /* The user-specified variable was not valid. Do not
1685 throw an error here. parse_linespec will do it for us. */
1686 PARSER_RESULT (parser
)->function_name
= name
;
1687 discard_cleanups (cleanup
);
1691 /* The convenience variable/history value parsed correctly.
1692 NAME is no longer needed. */
1693 do_cleanups (cleanup
);
1697 /* The name is also not a label. Abort parsing. Do not throw
1698 an error here. parse_linespec will do it for us. */
1700 /* Save a copy of the name we were trying to lookup. */
1701 PARSER_RESULT (parser
)->function_name
= name
;
1702 discard_cleanups (cleanup
);
1707 /* Get the next token. */
1708 token
= linespec_lexer_consume_token (parser
);
1710 if (token
.type
== LSTOKEN_COLON
)
1712 /* User specified a label or a lineno. */
1713 token
= linespec_lexer_consume_token (parser
);
1715 if (token
.type
== LSTOKEN_NUMBER
)
1717 /* User specified an offset. Record the line offset and
1718 get the next token. */
1719 name
= copy_token_string (token
);
1720 cleanup
= make_cleanup (xfree
, name
);
1721 PARSER_RESULT (parser
)->line_offset
1722 = linespec_parse_line_offset (name
);
1723 do_cleanups (cleanup
);
1725 /* Ge the next token. */
1726 token
= linespec_lexer_consume_token (parser
);
1728 else if (token
.type
== LSTOKEN_STRING
)
1730 /* Grab a copy of the label's name and look it up. */
1731 name
= copy_token_string (token
);
1732 cleanup
= make_cleanup (xfree
, name
);
1733 labels
= find_label_symbols (PARSER_STATE (parser
),
1734 PARSER_RESULT (parser
)->function_symbols
,
1739 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1740 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1741 PARSER_RESULT (parser
)->label_name
= name
;
1743 discard_cleanups (cleanup
);
1747 /* We don't know what it was, but it isn't a label. */
1748 throw_error (NOT_FOUND_ERROR
,
1749 _("No label \"%s\" defined in function \"%s\"."),
1750 name
, PARSER_RESULT (parser
)->function_name
);
1753 /* Check for a line offset. */
1754 token
= linespec_lexer_consume_token (parser
);
1755 if (token
.type
== LSTOKEN_COLON
)
1757 /* Get the next token. */
1758 token
= linespec_lexer_consume_token (parser
);
1760 /* It must be a line offset. */
1761 if (token
.type
!= LSTOKEN_NUMBER
)
1762 unexpected_linespec_error (parser
);
1764 /* Record the lione offset and get the next token. */
1765 name
= copy_token_string (token
);
1766 cleanup
= make_cleanup (xfree
, name
);
1768 PARSER_RESULT (parser
)->line_offset
1769 = linespec_parse_line_offset (name
);
1770 do_cleanups (cleanup
);
1772 /* Get the next token. */
1773 token
= linespec_lexer_consume_token (parser
);
1778 /* Trailing ':' in the input. Issue an error. */
1779 unexpected_linespec_error (parser
);
1784 /* Canonicalize the linespec contained in LS. The result is saved into
1785 STATE->canonical. */
1788 canonicalize_linespec (struct linespec_state
*state
, linespec_p ls
)
1790 /* If canonicalization was not requested, no need to do anything. */
1791 if (!state
->canonical
)
1794 /* Shortcut expressions, which can only appear by themselves. */
1795 if (ls
->expression
!= NULL
)
1796 state
->canonical
->addr_string
= xstrdup (ls
->expression
);
1799 struct ui_file
*buf
;
1802 buf
= mem_fileopen ();
1803 if (ls
->source_filename
)
1805 fputs_unfiltered (ls
->source_filename
, buf
);
1809 if (ls
->function_name
)
1812 fputc_unfiltered (':', buf
);
1813 fputs_unfiltered (ls
->function_name
, buf
);
1820 fputc_unfiltered (':', buf
);
1822 if (ls
->function_name
== NULL
)
1826 /* No function was specified, so add the symbol name. */
1827 gdb_assert (ls
->labels
.function_symbols
!= NULL
1828 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1830 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1831 fputs_unfiltered (SYMBOL_NATURAL_NAME (s
), buf
);
1832 fputc_unfiltered (':', buf
);
1835 fputs_unfiltered (ls
->label_name
, buf
);
1837 state
->canonical
->special_display
= 1;
1840 if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
1843 fputc_unfiltered (':', buf
);
1844 fprintf_filtered (buf
, "%s%d",
1845 (ls
->line_offset
.sign
== LINE_OFFSET_NONE
? ""
1846 : (ls
->line_offset
.sign
1847 == LINE_OFFSET_PLUS
? "+" : "-")),
1848 ls
->line_offset
.offset
);
1851 state
->canonical
->addr_string
= ui_file_xstrdup (buf
, NULL
);
1852 ui_file_delete (buf
);
1856 /* Given a line offset in LS, construct the relevant SALs. */
1858 static struct symtabs_and_lines
1859 create_sals_line_offset (struct linespec_state
*self
,
1862 struct symtabs_and_lines values
;
1863 struct symtab_and_line val
;
1864 int use_default
= 0;
1870 /* This is where we need to make sure we have good defaults.
1871 We must guarantee that this section of code is never executed
1872 when we are called with just a function name, since
1873 set_default_source_symtab_and_line uses
1874 select_source_symtab that calls us with such an argument. */
1876 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1877 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1879 const char *fullname
;
1881 set_current_program_space (self
->program_space
);
1883 /* Make sure we have at least a default source line. */
1884 set_default_source_symtab_and_line ();
1885 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1886 fullname
= symtab_to_fullname (self
->default_symtab
);
1887 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1888 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1889 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1893 val
.line
= ls
->line_offset
.offset
;
1894 switch (ls
->line_offset
.sign
)
1896 case LINE_OFFSET_PLUS
:
1897 if (ls
->line_offset
.offset
== 0)
1900 val
.line
= self
->default_line
+ val
.line
;
1903 case LINE_OFFSET_MINUS
:
1904 if (ls
->line_offset
.offset
== 0)
1907 val
.line
= self
->default_line
- val
.line
;
1909 val
.line
= -val
.line
;
1912 case LINE_OFFSET_NONE
:
1913 break; /* No need to adjust val.line. */
1916 if (self
->list_mode
)
1917 decode_digits_list_mode (self
, ls
, &values
, val
);
1920 struct linetable_entry
*best_entry
= NULL
;
1922 const struct block
**blocks
;
1923 struct cleanup
*cleanup
;
1924 struct symtabs_and_lines intermediate_results
;
1927 intermediate_results
.sals
= NULL
;
1928 intermediate_results
.nelts
= 0;
1930 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1932 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1933 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1934 &intermediate_results
, &best_entry
);
1936 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1938 /* For optimized code, the compiler can scatter one source line
1939 across disjoint ranges of PC values, even when no duplicate
1940 functions or inline functions are involved. For example,
1941 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1942 function can result in two PC ranges. In this case, we don't
1943 want to set a breakpoint on the first PC of each range. To filter
1944 such cases, we use containing blocks -- for each PC found
1945 above, we see if there are other PCs that are in the same
1946 block. If yes, the other PCs are filtered out. */
1948 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1949 make_cleanup (xfree
, filter
);
1950 blocks
= XNEWVEC (const struct block
*, intermediate_results
.nelts
);
1951 make_cleanup (xfree
, blocks
);
1953 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1955 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1958 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1959 intermediate_results
.sals
[i
].section
);
1962 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1964 if (blocks
[i
] != NULL
)
1965 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1967 if (blocks
[j
] == blocks
[i
])
1975 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1978 struct symbol
*sym
= (blocks
[i
]
1979 ? block_containing_function (blocks
[i
])
1982 if (self
->funfirstline
)
1983 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1984 /* Make sure the line matches the request, not what was
1986 intermediate_results
.sals
[i
].line
= val
.line
;
1987 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1988 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1991 do_cleanups (cleanup
);
1994 if (values
.nelts
== 0)
1996 if (ls
->source_filename
)
1997 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1998 val
.line
, ls
->source_filename
);
2000 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
2007 /* Create and return SALs from the linespec LS. */
2009 static struct symtabs_and_lines
2010 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
2012 struct symtabs_and_lines sals
= {NULL
, 0};
2014 if (ls
->expression
!= NULL
)
2016 struct symtab_and_line sal
;
2018 /* We have an expression. No other attribute is allowed. */
2019 sal
= find_pc_line (ls
->expr_pc
, 0);
2020 sal
.pc
= ls
->expr_pc
;
2021 sal
.section
= find_pc_overlay (ls
->expr_pc
);
2022 sal
.explicit_pc
= 1;
2023 add_sal_to_sals (state
, &sals
, &sal
, ls
->expression
, 1);
2025 else if (ls
->labels
.label_symbols
!= NULL
)
2027 /* We have just a bunch of functions/methods or labels. */
2029 struct symtab_and_line sal
;
2032 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
2034 struct program_space
*pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2036 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2037 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2038 add_sal_to_sals (state
, &sals
, &sal
,
2039 SYMBOL_NATURAL_NAME (sym
), 0);
2042 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2044 /* We have just a bunch of functions and/or methods. */
2046 struct symtab_and_line sal
;
2048 bound_minimal_symbol_d
*elem
;
2049 struct program_space
*pspace
;
2051 if (ls
->function_symbols
!= NULL
)
2053 /* Sort symbols so that symbols with the same program space are next
2055 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2056 VEC_length (symbolp
, ls
->function_symbols
),
2057 sizeof (symbolp
), compare_symbols
);
2059 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2061 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2062 set_current_program_space (pspace
);
2063 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2064 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2065 add_sal_to_sals (state
, &sals
, &sal
,
2066 SYMBOL_NATURAL_NAME (sym
), 0);
2070 if (ls
->minimal_symbols
!= NULL
)
2072 /* Sort minimal symbols by program space, too. */
2073 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2074 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2075 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2078 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2082 pspace
= elem
->objfile
->pspace
;
2083 set_current_program_space (pspace
);
2084 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2088 else if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2090 /* Only an offset was specified. */
2091 sals
= create_sals_line_offset (state
, ls
);
2093 /* Make sure we have a filename for canonicalization. */
2094 if (ls
->source_filename
== NULL
)
2096 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2098 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2099 form so that displaying SOURCE_FILENAME can follow the current
2100 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2101 it has been kept for code simplicity only in absolute form. */
2102 ls
->source_filename
= xstrdup (fullname
);
2107 /* We haven't found any results... */
2111 canonicalize_linespec (state
, ls
);
2113 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2114 state
->canonical
->pre_expanded
= 1;
2119 /* Parse a string that specifies a linespec.
2120 Pass the address of a char * variable; that variable will be
2121 advanced over the characters actually parsed.
2123 The basic grammar of linespecs:
2125 linespec -> expr_spec | var_spec | basic_spec
2126 expr_spec -> '*' STRING
2127 var_spec -> '$' (STRING | NUMBER)
2129 basic_spec -> file_offset_spec | function_spec | label_spec
2130 file_offset_spec -> opt_file_spec offset_spec
2131 function_spec -> opt_file_spec function_name_spec opt_label_spec
2132 label_spec -> label_name_spec
2134 opt_file_spec -> "" | file_name_spec ':'
2135 opt_label_spec -> "" | ':' label_name_spec
2137 file_name_spec -> STRING
2138 function_name_spec -> STRING
2139 label_name_spec -> STRING
2140 function_name_spec -> STRING
2141 offset_spec -> NUMBER
2145 This may all be followed by several keywords such as "if EXPR",
2148 A comma will terminate parsing.
2150 The function may be an undebuggable function found in minimal symbol table.
2152 If the argument FUNFIRSTLINE is nonzero, we want the first line
2153 of real code inside a function when a function is specified, and it is
2154 not OK to specify a variable or type to get its line number.
2156 DEFAULT_SYMTAB specifies the file to use if none is specified.
2157 It defaults to current_source_symtab.
2158 DEFAULT_LINE specifies the line number to use for relative
2159 line numbers (that start with signs). Defaults to current_source_line.
2160 If CANONICAL is non-NULL, store an array of strings containing the canonical
2161 line specs there if necessary. Currently overloaded member functions and
2162 line numbers or static functions without a filename yield a canonical
2163 line spec. The array and the line spec strings are allocated on the heap,
2164 it is the callers responsibility to free them.
2166 Note that it is possible to return zero for the symtab
2167 if no file is validly specified. Callers must check that.
2168 Also, the line number returned may be invalid. */
2170 /* Parse the linespec in ARGPTR. */
2172 static struct symtabs_and_lines
2173 parse_linespec (linespec_parser
*parser
, const char **argptr
)
2175 linespec_token token
;
2176 struct symtabs_and_lines values
;
2177 struct gdb_exception file_exception
= exception_none
;
2178 struct cleanup
*cleanup
;
2180 /* A special case to start. It has become quite popular for
2181 IDEs to work around bugs in the previous parser by quoting
2182 the entire linespec, so we attempt to deal with this nicely. */
2183 parser
->is_quote_enclosed
= 0;
2184 if (!is_ada_operator (*argptr
)
2185 && strchr (linespec_quote_characters
, **argptr
) != NULL
)
2189 end
= skip_quote_char (*argptr
+ 1, **argptr
);
2190 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2192 /* Here's the special case. Skip ARGPTR past the initial
2195 parser
->is_quote_enclosed
= 1;
2199 parser
->lexer
.saved_arg
= *argptr
;
2200 parser
->lexer
.stream
= argptr
;
2202 /* Initialize the default symtab and line offset. */
2203 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2204 &PARSER_STATE (parser
)->default_line
);
2206 /* Objective-C shortcut. */
2207 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), argptr
);
2208 if (values
.sals
!= NULL
)
2211 /* Start parsing. */
2213 /* Get the first token. */
2214 token
= linespec_lexer_lex_one (parser
);
2216 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2217 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '*')
2222 /* User specified an expression, *EXPR. */
2223 copy
= expr
= copy_token_string (token
);
2224 cleanup
= make_cleanup (xfree
, expr
);
2225 PARSER_RESULT (parser
)->expr_pc
= linespec_expression_to_pc (©
);
2226 discard_cleanups (cleanup
);
2227 PARSER_RESULT (parser
)->expression
= expr
;
2229 /* This is a little hacky/tricky. If linespec_expression_to_pc
2230 did not evaluate the entire token, then we must find the
2231 string COPY inside the original token buffer. */
2234 PARSER_STREAM (parser
) = strstr (parser
->lexer
.saved_arg
, copy
);
2235 gdb_assert (PARSER_STREAM (parser
) != NULL
);
2238 /* Consume the token. */
2239 linespec_lexer_consume_token (parser
);
2241 goto convert_to_sals
;
2243 else if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2247 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2248 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2250 /* User specified a convenience variable or history value. */
2251 var
= copy_token_string (token
);
2252 cleanup
= make_cleanup (xfree
, var
);
2253 PARSER_RESULT (parser
)->line_offset
2254 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2255 do_cleanups (cleanup
);
2257 /* If a line_offset wasn't found (VAR is the name of a user
2258 variable/function), then skip to normal symbol processing. */
2259 if (PARSER_RESULT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2261 /* Consume this token. */
2262 linespec_lexer_consume_token (parser
);
2264 goto convert_to_sals
;
2267 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2268 unexpected_linespec_error (parser
);
2270 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2271 this token cannot represent a filename. */
2272 token
= linespec_lexer_peek_token (parser
);
2274 if (token
.type
== LSTOKEN_COLON
)
2276 char *user_filename
;
2278 /* Get the current token again and extract the filename. */
2279 token
= linespec_lexer_lex_one (parser
);
2280 user_filename
= copy_token_string (token
);
2282 /* Check if the input is a filename. */
2285 PARSER_RESULT (parser
)->file_symtabs
2286 = symtabs_from_filename (user_filename
);
2288 CATCH (ex
, RETURN_MASK_ERROR
)
2290 file_exception
= ex
;
2294 if (file_exception
.reason
>= 0)
2296 /* Symtabs were found for the file. Record the filename. */
2297 PARSER_RESULT (parser
)->source_filename
= user_filename
;
2299 /* Get the next token. */
2300 token
= linespec_lexer_consume_token (parser
);
2302 /* This is LSTOKEN_COLON; consume it. */
2303 linespec_lexer_consume_token (parser
);
2307 /* No symtabs found -- discard user_filename. */
2308 xfree (user_filename
);
2310 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2311 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2314 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2315 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2316 && token
.type
!= LSTOKEN_COMMA
)
2318 /* TOKEN is the _next_ token, not the one currently in the parser.
2319 Consuming the token will give the correct error message. */
2320 linespec_lexer_consume_token (parser
);
2321 unexpected_linespec_error (parser
);
2325 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2326 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2329 /* Parse the rest of the linespec. */
2330 linespec_parse_basic (parser
);
2332 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2333 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2334 && PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2335 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2337 /* The linespec didn't parse. Re-throw the file exception if
2339 if (file_exception
.reason
< 0)
2340 throw_exception (file_exception
);
2342 /* Otherwise, the symbol is not found. */
2343 symbol_not_found_error (PARSER_RESULT (parser
)->function_name
,
2344 PARSER_RESULT (parser
)->source_filename
);
2349 /* Get the last token and record how much of the input was parsed,
2351 token
= linespec_lexer_lex_one (parser
);
2352 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2353 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2355 /* Convert the data in PARSER_RESULT to SALs. */
2356 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2357 PARSER_RESULT (parser
));
2363 /* A constructor for linespec_state. */
2366 linespec_state_constructor (struct linespec_state
*self
,
2367 int flags
, const struct language_defn
*language
,
2368 struct symtab
*default_symtab
,
2370 struct linespec_result
*canonical
)
2372 memset (self
, 0, sizeof (*self
));
2373 self
->language
= language
;
2374 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2375 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2376 self
->default_symtab
= default_symtab
;
2377 self
->default_line
= default_line
;
2378 self
->canonical
= canonical
;
2379 self
->program_space
= current_program_space
;
2380 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2381 xfree
, xcalloc
, xfree
);
2384 /* Initialize a new linespec parser. */
2387 linespec_parser_new (linespec_parser
*parser
,
2388 int flags
, const struct language_defn
*language
,
2389 struct symtab
*default_symtab
,
2391 struct linespec_result
*canonical
)
2393 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2394 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2395 PARSER_RESULT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2396 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2397 default_symtab
, default_line
, canonical
);
2400 /* A destructor for linespec_state. */
2403 linespec_state_destructor (struct linespec_state
*self
)
2405 htab_delete (self
->addr_set
);
2408 /* Delete a linespec parser. */
2411 linespec_parser_delete (void *arg
)
2413 linespec_parser
*parser
= (linespec_parser
*) arg
;
2415 xfree ((char *) PARSER_RESULT (parser
)->expression
);
2416 xfree ((char *) PARSER_RESULT (parser
)->source_filename
);
2417 xfree ((char *) PARSER_RESULT (parser
)->label_name
);
2418 xfree ((char *) PARSER_RESULT (parser
)->function_name
);
2420 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2421 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2423 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2424 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2426 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2427 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2429 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2430 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2432 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2433 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2435 linespec_state_destructor (PARSER_STATE (parser
));
2438 /* See description in linespec.h. */
2441 linespec_lex_to_end (char **stringp
)
2443 linespec_parser parser
;
2444 struct cleanup
*cleanup
;
2445 linespec_token token
;
2446 volatile struct gdb_exception e
;
2449 if (stringp
== NULL
|| *stringp
== NULL
)
2452 linespec_parser_new (&parser
, 0, current_language
, NULL
, 0, NULL
);
2453 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2454 parser
.lexer
.saved_arg
= *stringp
;
2455 PARSER_STREAM (&parser
) = orig
= *stringp
;
2459 /* Stop before any comma tokens; we need it to keep it
2460 as the next token in the string. */
2461 token
= linespec_lexer_peek_token (&parser
);
2462 if (token
.type
== LSTOKEN_COMMA
)
2465 /* For addresses advance the parser stream past
2466 any parsed input and stop lexing. */
2467 if (token
.type
== LSTOKEN_STRING
2468 && *LS_TOKEN_STOKEN (token
).ptr
== '*')
2473 (void) linespec_expression_to_pc (&arg
);
2474 PARSER_STREAM (&parser
) = arg
;
2478 token
= linespec_lexer_consume_token (&parser
);
2480 while (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
);
2482 *stringp
+= PARSER_STREAM (&parser
) - orig
;
2483 do_cleanups (cleanup
);
2486 /* See linespec.h. */
2489 decode_line_full (char **argptr
, int flags
,
2490 struct symtab
*default_symtab
,
2491 int default_line
, struct linespec_result
*canonical
,
2492 const char *select_mode
,
2495 struct symtabs_and_lines result
;
2496 struct cleanup
*cleanups
;
2497 VEC (const_char_ptr
) *filters
= NULL
;
2498 linespec_parser parser
;
2499 struct linespec_state
*state
;
2500 const char *copy
, *orig
;
2502 gdb_assert (canonical
!= NULL
);
2503 /* The filter only makes sense for 'all'. */
2504 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2505 gdb_assert (select_mode
== NULL
2506 || select_mode
== multiple_symbols_all
2507 || select_mode
== multiple_symbols_ask
2508 || select_mode
== multiple_symbols_cancel
);
2509 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2511 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2512 default_line
, canonical
);
2513 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2514 save_current_program_space ();
2516 orig
= copy
= *argptr
;
2517 result
= parse_linespec (&parser
, ©
);
2518 *argptr
+= copy
- orig
;
2519 state
= PARSER_STATE (&parser
);
2521 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2522 gdb_assert (canonical
->addr_string
!= NULL
);
2523 canonical
->pre_expanded
= 1;
2525 /* Arrange for allocated canonical names to be freed. */
2526 if (result
.nelts
> 0)
2530 make_cleanup (xfree
, state
->canonical_names
);
2531 for (i
= 0; i
< result
.nelts
; ++i
)
2533 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2534 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2538 if (select_mode
== NULL
)
2540 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2541 select_mode
= multiple_symbols_all
;
2543 select_mode
= multiple_symbols_select_mode ();
2546 if (select_mode
== multiple_symbols_all
)
2550 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2551 VEC_safe_push (const_char_ptr
, filters
, filter
);
2552 filter_results (state
, &result
, filters
);
2555 convert_results_to_lsals (state
, &result
);
2558 decode_line_2 (state
, &result
, select_mode
);
2560 do_cleanups (cleanups
);
2563 /* See linespec.h. */
2565 struct symtabs_and_lines
2566 decode_line_1 (char **argptr
, int flags
,
2567 struct symtab
*default_symtab
,
2570 struct symtabs_and_lines result
;
2571 linespec_parser parser
;
2572 struct cleanup
*cleanups
;
2573 const char *copy
, *orig
;
2575 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2576 default_line
, NULL
);
2577 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2578 save_current_program_space ();
2580 orig
= copy
= *argptr
;
2581 result
= parse_linespec (&parser
, ©
);
2582 *argptr
+= copy
- orig
;
2584 do_cleanups (cleanups
);
2588 /* See linespec.h. */
2590 struct symtabs_and_lines
2591 decode_line_with_current_source (char *string
, int flags
)
2593 struct symtabs_and_lines sals
;
2594 struct symtab_and_line cursal
;
2597 error (_("Empty line specification."));
2599 /* We use whatever is set as the current source line. We do not try
2600 and get a default source symtab+line or it will recursively call us! */
2601 cursal
= get_current_source_symtab_and_line ();
2603 sals
= decode_line_1 (&string
, flags
,
2604 cursal
.symtab
, cursal
.line
);
2607 error (_("Junk at end of line specification: %s"), string
);
2611 /* See linespec.h. */
2613 struct symtabs_and_lines
2614 decode_line_with_last_displayed (char *string
, int flags
)
2616 struct symtabs_and_lines sals
;
2619 error (_("Empty line specification."));
2621 if (last_displayed_sal_is_valid ())
2622 sals
= decode_line_1 (&string
, flags
,
2623 get_last_displayed_symtab (),
2624 get_last_displayed_line ());
2626 sals
= decode_line_1 (&string
, flags
, (struct symtab
*) NULL
, 0);
2629 error (_("Junk at end of line specification: %s"), string
);
2635 /* First, some functions to initialize stuff at the beggining of the
2639 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2641 if (*default_symtab
== 0)
2643 /* Use whatever we have for the default source line. We don't use
2644 get_current_or_default_symtab_and_line as it can recurse and call
2646 struct symtab_and_line cursal
=
2647 get_current_source_symtab_and_line ();
2649 *default_symtab
= cursal
.symtab
;
2650 *default_line
= cursal
.line
;
2656 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2657 advancing EXP_PTR past any parsed text. */
2660 linespec_expression_to_pc (const char **exp_ptr
)
2662 if (current_program_space
->executing_startup
)
2663 /* The error message doesn't really matter, because this case
2664 should only hit during breakpoint reset. */
2665 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2666 "program space is in startup"));
2669 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2674 /* Here's where we recognise an Objective-C Selector. An Objective C
2675 selector may be implemented by more than one class, therefore it
2676 may represent more than one method/function. This gives us a
2677 situation somewhat analogous to C++ overloading. If there's more
2678 than one method that could represent the selector, then use some of
2679 the existing C++ code to let the user choose one. */
2681 static struct symtabs_and_lines
2682 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char **argptr
)
2684 struct collect_info info
;
2685 VEC (const_char_ptr
) *symbol_names
= NULL
;
2686 struct symtabs_and_lines values
;
2687 const char *new_argptr
;
2688 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2692 info
.file_symtabs
= NULL
;
2693 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2694 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2695 info
.result
.symbols
= NULL
;
2696 info
.result
.minimal_symbols
= NULL
;
2700 new_argptr
= find_imps (*argptr
, &symbol_names
);
2701 if (VEC_empty (const_char_ptr
, symbol_names
))
2703 do_cleanups (cleanup
);
2707 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2709 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2710 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2714 saved_arg
= alloca (new_argptr
- *argptr
+ 1);
2715 memcpy (saved_arg
, *argptr
, new_argptr
- *argptr
);
2716 saved_arg
[new_argptr
- *argptr
] = '\0';
2718 ls
->function_name
= xstrdup (saved_arg
);
2719 ls
->function_symbols
= info
.result
.symbols
;
2720 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2721 values
= convert_linespec_to_sals (self
, ls
);
2723 if (self
->canonical
)
2725 self
->canonical
->pre_expanded
= 1;
2726 if (ls
->source_filename
)
2727 self
->canonical
->addr_string
2728 = xstrprintf ("%s:%s", ls
->source_filename
, saved_arg
);
2730 self
->canonical
->addr_string
= xstrdup (saved_arg
);
2734 *argptr
= new_argptr
;
2736 do_cleanups (cleanup
);
2741 /* An instance of this type is used when collecting prefix symbols for
2744 struct decode_compound_collector
2746 /* The result vector. */
2747 VEC (symbolp
) *symbols
;
2749 /* A hash table of all symbols we found. We use this to avoid
2750 adding any symbol more than once. */
2754 /* A callback for iterate_over_symbols that is used by
2755 lookup_prefix_sym to collect type symbols. */
2758 collect_one_symbol (struct symbol
*sym
, void *d
)
2760 struct decode_compound_collector
*collector
= d
;
2764 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2765 return 1; /* Continue iterating. */
2767 t
= SYMBOL_TYPE (sym
);
2768 t
= check_typedef (t
);
2769 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2770 && TYPE_CODE (t
) != TYPE_CODE_UNION
2771 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2772 return 1; /* Continue iterating. */
2774 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2778 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2781 return 1; /* Continue iterating. */
2784 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2786 static VEC (symbolp
) *
2787 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2788 const char *class_name
)
2792 struct decode_compound_collector collector
;
2793 struct cleanup
*outer
;
2794 struct cleanup
*cleanup
;
2796 collector
.symbols
= NULL
;
2797 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2799 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2800 htab_eq_pointer
, NULL
,
2802 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2804 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2808 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2809 collect_one_symbol
, &collector
,
2811 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2812 collect_one_symbol
, &collector
,
2817 /* Program spaces that are executing startup should have
2818 been filtered out earlier. */
2819 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2820 set_current_program_space (SYMTAB_PSPACE (elt
));
2821 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2822 collect_one_symbol
, &collector
);
2823 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2824 collect_one_symbol
, &collector
);
2828 do_cleanups (cleanup
);
2829 discard_cleanups (outer
);
2830 return collector
.symbols
;
2833 /* A qsort comparison function for symbols. The resulting order does
2834 not actually matter; we just need to be able to sort them so that
2835 symbols with the same program space end up next to each other. */
2838 compare_symbols (const void *a
, const void *b
)
2840 struct symbol
* const *sa
= a
;
2841 struct symbol
* const *sb
= b
;
2844 uia
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sa
));
2845 uib
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sb
));
2852 uia
= (uintptr_t) *sa
;
2853 uib
= (uintptr_t) *sb
;
2863 /* Like compare_symbols but for minimal symbols. */
2866 compare_msymbols (const void *a
, const void *b
)
2868 const struct bound_minimal_symbol
*sa
= a
;
2869 const struct bound_minimal_symbol
*sb
= b
;
2872 uia
= (uintptr_t) sa
->objfile
->pspace
;
2873 uib
= (uintptr_t) sa
->objfile
->pspace
;
2880 uia
= (uintptr_t) sa
->minsym
;
2881 uib
= (uintptr_t) sb
->minsym
;
2891 /* Look for all the matching instances of each symbol in NAMES. Only
2892 instances from PSPACE are considered; other program spaces are
2893 handled by our caller. If PSPACE is NULL, then all program spaces
2894 are considered. Results are stored into INFO. */
2897 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2898 struct program_space
*pspace
,
2899 VEC (const_char_ptr
) *names
)
2904 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2905 add_matching_symbols_to_info (iter
, info
, pspace
);
2909 find_superclass_methods (VEC (typep
) *superclasses
,
2911 VEC (const_char_ptr
) **result_names
)
2913 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2914 VEC (typep
) *iter_classes
;
2915 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2917 iter_classes
= superclasses
;
2920 VEC (typep
) *new_supers
= NULL
;
2924 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2925 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2926 find_methods (t
, name
, result_names
, &new_supers
);
2928 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2929 || VEC_empty (typep
, new_supers
))
2932 iter_classes
= new_supers
;
2935 do_cleanups (cleanup
);
2938 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2939 given by one of the symbols in SYM_CLASSES. Matches are returned
2940 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2943 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2944 const char *class_name
, const char *method_name
,
2945 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2946 VEC (bound_minimal_symbol_d
) **minsyms
)
2949 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2951 int last_result_len
;
2952 VEC (typep
) *superclass_vec
;
2953 VEC (const_char_ptr
) *result_names
;
2954 struct collect_info info
;
2956 /* Sort symbols so that symbols with the same program space are next
2958 qsort (VEC_address (symbolp
, sym_classes
),
2959 VEC_length (symbolp
, sym_classes
),
2964 info
.file_symtabs
= file_symtabs
;
2965 info
.result
.symbols
= NULL
;
2966 info
.result
.minimal_symbols
= NULL
;
2968 /* Iterate over all the types, looking for the names of existing
2969 methods matching METHOD_NAME. If we cannot find a direct method in a
2970 given program space, then we consider inherited methods; this is
2971 not ideal (ideal would be to respect C++ hiding rules), but it
2972 seems good enough and is what GDB has historically done. We only
2973 need to collect the names because later we find all symbols with
2974 those names. This loop is written in a somewhat funny way
2975 because we collect data across the program space before deciding
2977 superclass_vec
= NULL
;
2978 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
2979 result_names
= NULL
;
2980 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
2981 last_result_len
= 0;
2982 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
2985 struct program_space
*pspace
;
2987 /* Program spaces that are executing startup should have
2988 been filtered out earlier. */
2989 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2990 gdb_assert (!pspace
->executing_startup
);
2991 set_current_program_space (pspace
);
2992 t
= check_typedef (SYMBOL_TYPE (sym
));
2993 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
2995 /* Handle all items from a single program space at once; and be
2996 sure not to miss the last batch. */
2997 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
2999 != SYMTAB_PSPACE (symbol_symtab (VEC_index (symbolp
, sym_classes
,
3002 /* If we did not find a direct implementation anywhere in
3003 this program space, consider superclasses. */
3004 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
3005 find_superclass_methods (superclass_vec
, method_name
,
3008 /* We have a list of candidate symbol names, so now we
3009 iterate over the symbol tables looking for all
3010 matches in this pspace. */
3011 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
3013 VEC_truncate (typep
, superclass_vec
, 0);
3014 last_result_len
= VEC_length (const_char_ptr
, result_names
);
3018 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3019 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3021 *symbols
= info
.result
.symbols
;
3022 *minsyms
= info
.result
.minimal_symbols
;
3023 do_cleanups (cleanup
);
3027 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
3028 and other attempts to locate the symbol will be made. */
3029 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
3034 /* This object is used when collecting all matching symtabs. */
3036 struct symtab_collector
3038 /* The result vector of symtabs. */
3039 VEC (symtab_ptr
) *symtabs
;
3041 /* This is used to ensure the symtabs are unique. */
3042 htab_t symtab_table
;
3045 /* Callback for iterate_over_symtabs. */
3048 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
3050 struct symtab_collector
*data
= d
;
3053 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
3057 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
3063 /* Given a file name, return a VEC of all matching symtabs. */
3065 static VEC (symtab_ptr
) *
3066 collect_symtabs_from_filename (const char *file
)
3068 struct symtab_collector collector
;
3069 struct cleanup
*cleanups
;
3070 struct program_space
*pspace
;
3072 collector
.symtabs
= NULL
;
3073 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3075 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
3077 /* Find that file's data. */
3078 ALL_PSPACES (pspace
)
3080 if (pspace
->executing_startup
)
3083 set_current_program_space (pspace
);
3084 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3087 do_cleanups (cleanups
);
3088 return collector
.symtabs
;
3091 /* Return all the symtabs associated to the FILENAME. */
3093 static VEC (symtab_ptr
) *
3094 symtabs_from_filename (const char *filename
)
3096 VEC (symtab_ptr
) *result
;
3098 result
= collect_symtabs_from_filename (filename
);
3100 if (VEC_empty (symtab_ptr
, result
))
3102 if (!have_full_symbols () && !have_partial_symbols ())
3103 throw_error (NOT_FOUND_ERROR
,
3104 _("No symbol table is loaded. "
3105 "Use the \"file\" command."));
3106 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), filename
);
3112 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3113 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3114 returned in MINSYMS. */
3117 find_function_symbols (struct linespec_state
*state
,
3118 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3119 VEC (symbolp
) **symbols
,
3120 VEC (bound_minimal_symbol_d
) **minsyms
)
3122 struct collect_info info
;
3123 VEC (const_char_ptr
) *symbol_names
= NULL
;
3124 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3128 info
.result
.symbols
= NULL
;
3129 info
.result
.minimal_symbols
= NULL
;
3130 info
.file_symtabs
= file_symtabs
;
3132 /* Try NAME as an Objective-C selector. */
3133 find_imps (name
, &symbol_names
);
3134 if (!VEC_empty (const_char_ptr
, symbol_names
))
3135 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3137 add_matching_symbols_to_info (name
, &info
, NULL
);
3139 do_cleanups (cleanup
);
3141 if (VEC_empty (symbolp
, info
.result
.symbols
))
3143 VEC_free (symbolp
, info
.result
.symbols
);
3147 *symbols
= info
.result
.symbols
;
3149 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3151 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3155 *minsyms
= info
.result
.minimal_symbols
;
3158 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3159 in SYMBOLS and minimal symbols in MINSYMS. */
3162 find_linespec_symbols (struct linespec_state
*state
,
3163 VEC (symtab_ptr
) *file_symtabs
,
3165 VEC (symbolp
) **symbols
,
3166 VEC (bound_minimal_symbol_d
) **minsyms
)
3168 struct cleanup
*cleanup
;
3170 const char *lookup_name
;
3172 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3174 if (state
->language
->la_language
== language_ada
)
3176 /* In Ada, the symbol lookups are performed using the encoded
3177 name rather than the demangled name. */
3178 lookup_name
= ada_name_for_lookup (name
);
3179 make_cleanup (xfree
, (void *) lookup_name
);
3182 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3185 lookup_name
= canon
;
3186 make_cleanup (xfree
, canon
);
3189 /* It's important to not call expand_symtabs_matching unnecessarily
3190 as it can really slow things down (by unnecessarily expanding
3191 potentially 1000s of symtabs, which when debugging some apps can
3192 cost 100s of seconds). Avoid this to some extent by *first* calling
3193 find_function_symbols, and only if that doesn't find anything
3194 *then* call find_method. This handles two important cases:
3195 1) break (anonymous namespace)::foo
3196 2) break class::method where method is in class (and not a baseclass) */
3198 find_function_symbols (state
, file_symtabs
, lookup_name
,
3201 /* If we were unable to locate a symbol of the same name, try dividing
3202 the name into class and method names and searching the class and its
3204 if (VEC_empty (symbolp
, *symbols
)
3205 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3207 char *klass
, *method
;
3208 const char *last
, *p
, *scope_op
;
3209 VEC (symbolp
) *classes
;
3211 /* See if we can find a scope operator and break this symbol
3212 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3214 p
= find_toplevel_string (lookup_name
, scope_op
);
3217 /* No C++ scope operator. Try Java. */
3219 p
= find_toplevel_string (lookup_name
, scope_op
);
3226 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3229 /* If no scope operator was found, there is nothing more we can do;
3230 we already attempted to lookup the entire name as a symbol
3234 do_cleanups (cleanup
);
3238 /* LOOKUP_NAME points to the class name.
3239 LAST points to the method name. */
3240 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
3241 make_cleanup (xfree
, klass
);
3242 strncpy (klass
, lookup_name
, last
- lookup_name
);
3243 klass
[last
- lookup_name
] = '\0';
3245 /* Skip past the scope operator. */
3246 last
+= strlen (scope_op
);
3247 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3248 make_cleanup (xfree
, method
);
3249 strcpy (method
, last
);
3251 /* Find a list of classes named KLASS. */
3252 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3253 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3255 if (!VEC_empty (symbolp
, classes
))
3257 /* Now locate a list of suitable methods named METHOD. */
3260 find_method (state
, file_symtabs
, klass
, method
, classes
,
3264 /* If successful, we're done. If NOT_FOUND_ERROR
3265 was not thrown, rethrow the exception that we did get. */
3266 CATCH (except
, RETURN_MASK_ERROR
)
3268 if (except
.error
!= NOT_FOUND_ERROR
)
3269 throw_exception (except
);
3275 do_cleanups (cleanup
);
3278 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3279 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3281 static VEC (symbolp
) *
3282 find_label_symbols (struct linespec_state
*self
,
3283 VEC (symbolp
) *function_symbols
,
3284 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3287 const struct block
*block
;
3289 struct symbol
*fn_sym
;
3290 VEC (symbolp
) *result
= NULL
;
3292 if (function_symbols
== NULL
)
3294 set_current_program_space (self
->program_space
);
3295 block
= get_current_search_block ();
3298 block
&& !BLOCK_FUNCTION (block
);
3299 block
= BLOCK_SUPERBLOCK (block
))
3303 fn_sym
= BLOCK_FUNCTION (block
);
3305 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3309 VEC_safe_push (symbolp
, result
, sym
);
3310 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3316 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3318 set_current_program_space (SYMTAB_PSPACE (symbol_symtab (fn_sym
)));
3319 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3320 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3324 VEC_safe_push (symbolp
, result
, sym
);
3325 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3335 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3338 decode_digits_list_mode (struct linespec_state
*self
,
3340 struct symtabs_and_lines
*values
,
3341 struct symtab_and_line val
)
3346 gdb_assert (self
->list_mode
);
3348 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3351 /* The logic above should ensure this. */
3352 gdb_assert (elt
!= NULL
);
3354 set_current_program_space (SYMTAB_PSPACE (elt
));
3356 /* Simplistic search just for the list command. */
3357 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3358 if (val
.symtab
== NULL
)
3360 val
.pspace
= SYMTAB_PSPACE (elt
);
3362 val
.explicit_line
= 1;
3364 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3368 /* A helper for create_sals_line_offset that iterates over the symtabs,
3369 adding lines to the VEC. */
3372 decode_digits_ordinary (struct linespec_state
*self
,
3375 struct symtabs_and_lines
*sals
,
3376 struct linetable_entry
**best_entry
)
3381 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3384 VEC (CORE_ADDR
) *pcs
;
3387 /* The logic above should ensure this. */
3388 gdb_assert (elt
!= NULL
);
3390 set_current_program_space (SYMTAB_PSPACE (elt
));
3392 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3393 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3395 struct symtab_and_line sal
;
3398 sal
.pspace
= SYMTAB_PSPACE (elt
);
3402 add_sal_to_sals_basic (sals
, &sal
);
3405 VEC_free (CORE_ADDR
, pcs
);
3411 /* Return the line offset represented by VARIABLE. */
3413 static struct line_offset
3414 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3418 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3420 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3423 while (*p
>= '0' && *p
<= '9')
3425 if (!*p
) /* Reached end of token without hitting non-digit. */
3427 /* We have a value history reference. */
3428 struct value
*val_history
;
3430 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3432 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3433 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3434 error (_("History values used in line "
3435 "specs must have integer values."));
3436 offset
.offset
= value_as_long (val_history
);
3440 /* Not all digits -- may be user variable/function or a
3441 convenience variable. */
3443 struct internalvar
*ivar
;
3445 /* Try it as a convenience variable. If it is not a convenience
3446 variable, return and allow normal symbol lookup to occur. */
3447 ivar
= lookup_only_internalvar (variable
+ 1);
3449 /* No internal variable with that name. Mark the offset
3450 as unknown to allow the name to be looked up as a symbol. */
3451 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3454 /* We found a valid variable name. If it is not an integer,
3456 if (!get_internalvar_integer (ivar
, &valx
))
3457 error (_("Convenience variables used in line "
3458 "specs must have integer values."));
3460 offset
.offset
= valx
;
3468 /* A callback used to possibly add a symbol to the results. */
3471 collect_symbols (struct symbol
*sym
, void *data
)
3473 struct collect_info
*info
= data
;
3475 /* In list mode, add all matching symbols, regardless of class.
3476 This allows the user to type "list a_global_variable". */
3477 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3478 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3479 return 1; /* Continue iterating. */
3482 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3483 linespec; return the SAL in RESULT. This function should return SALs
3484 matching those from find_function_start_sal, otherwise false
3485 multiple-locations breakpoints could be placed. */
3488 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3489 struct minimal_symbol
*msymbol
,
3490 struct symtabs_and_lines
*result
)
3492 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3494 struct symtab_and_line sal
;
3496 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
),
3497 (struct obj_section
*) 0, 0);
3498 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
3500 /* The minimal symbol might point to a function descriptor;
3501 resolve it to the actual code address instead. */
3502 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3504 sal
= find_pc_sect_line (pc
, NULL
, 0);
3506 if (self
->funfirstline
)
3508 if (sal
.symtab
!= NULL
3509 && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal
.symtab
))
3510 || SYMTAB_LANGUAGE (sal
.symtab
) == language_asm
))
3512 /* If gdbarch_convert_from_func_ptr_addr does not apply then
3513 sal.SECTION, sal.LINE&co. will stay correct from above.
3514 If gdbarch_convert_from_func_ptr_addr applies then
3515 sal.SECTION is cleared from above and sal.LINE&co. will
3516 stay correct from the last find_pc_sect_line above. */
3517 sal
.pc
= MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
);
3518 sal
.pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
,
3522 skip_prologue_sal (&sal
);
3525 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3526 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
3529 /* A helper struct to pass some data through
3530 iterate_over_minimal_symbols. */
3532 struct collect_minsyms
3534 /* The objfile we're examining. */
3535 struct objfile
*objfile
;
3537 /* Only search the given symtab, or NULL to search for all symbols. */
3538 struct symtab
*symtab
;
3540 /* The funfirstline setting from the initial call. */
3543 /* The list_mode setting from the initial call. */
3546 /* The resulting symbols. */
3547 VEC (bound_minimal_symbol_d
) *msyms
;
3550 /* A helper function to classify a minimal_symbol_type according to
3554 classify_mtype (enum minimal_symbol_type t
)
3561 /* Intermediate priority. */
3564 case mst_solib_trampoline
:
3565 /* Lowest priority. */
3569 /* Highest priority. */
3574 /* Callback for qsort that sorts symbols by priority. */
3577 compare_msyms (const void *a
, const void *b
)
3579 const bound_minimal_symbol_d
*moa
= a
;
3580 const bound_minimal_symbol_d
*mob
= b
;
3581 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3582 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3584 return classify_mtype (ta
) - classify_mtype (tb
);
3587 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3591 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3593 struct collect_minsyms
*info
= d
;
3594 bound_minimal_symbol_d mo
;
3597 mo
.objfile
= info
->objfile
;
3599 if (info
->symtab
!= NULL
)
3602 struct symtab_and_line sal
;
3603 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3605 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (info
->objfile
, minsym
),
3607 sal
.section
= MSYMBOL_OBJ_SECTION (info
->objfile
, minsym
);
3609 = gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3611 sal
= find_pc_sect_line (pc
, NULL
, 0);
3613 if (info
->symtab
!= sal
.symtab
)
3617 /* Exclude data symbols when looking for breakpoint locations. */
3618 if (!info
->list_mode
)
3619 switch (minsym
->type
)
3621 case mst_slot_got_plt
:
3628 /* Make sure this minsym is not a function descriptor
3629 before we decide to discard it. */
3630 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3631 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3632 (gdbarch
, BMSYMBOL_VALUE_ADDRESS (mo
),
3635 if (addr
== BMSYMBOL_VALUE_ADDRESS (mo
))
3640 VEC_safe_push (bound_minimal_symbol_d
, info
->msyms
, &mo
);
3643 /* Search for minimal symbols called NAME. If SEARCH_PSPACE
3644 is not NULL, the search is restricted to just that program
3647 If SYMTAB is NULL, search all objfiles, otherwise
3648 restrict results to the given SYMTAB. */
3651 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3652 struct program_space
*search_pspace
,
3653 struct symtab
*symtab
)
3655 struct collect_minsyms local
;
3656 struct cleanup
*cleanup
;
3658 memset (&local
, 0, sizeof (local
));
3659 local
.funfirstline
= info
->state
->funfirstline
;
3660 local
.list_mode
= info
->state
->list_mode
;
3661 local
.symtab
= symtab
;
3663 cleanup
= make_cleanup (VEC_cleanup (bound_minimal_symbol_d
), &local
.msyms
);
3667 struct program_space
*pspace
;
3669 ALL_PSPACES (pspace
)
3671 struct objfile
*objfile
;
3673 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3675 if (pspace
->executing_startup
)
3678 set_current_program_space (pspace
);
3680 ALL_OBJFILES (objfile
)
3682 local
.objfile
= objfile
;
3683 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3689 if (search_pspace
== NULL
|| SYMTAB_PSPACE (symtab
) == search_pspace
)
3691 set_current_program_space (SYMTAB_PSPACE (symtab
));
3692 local
.objfile
= SYMTAB_OBJFILE(symtab
);
3693 iterate_over_minimal_symbols (local
.objfile
, name
, add_minsym
,
3698 if (!VEC_empty (bound_minimal_symbol_d
, local
.msyms
))
3702 bound_minimal_symbol_d
*item
;
3704 qsort (VEC_address (bound_minimal_symbol_d
, local
.msyms
),
3705 VEC_length (bound_minimal_symbol_d
, local
.msyms
),
3706 sizeof (bound_minimal_symbol_d
),
3709 /* Now the minsyms are in classification order. So, we walk
3710 over them and process just the minsyms with the same
3711 classification as the very first minsym in the list. */
3712 item
= VEC_index (bound_minimal_symbol_d
, local
.msyms
, 0);
3713 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3716 VEC_iterate (bound_minimal_symbol_d
, local
.msyms
, ix
, item
);
3719 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3722 VEC_safe_push (bound_minimal_symbol_d
,
3723 info
->result
.minimal_symbols
, item
);
3727 do_cleanups (cleanup
);
3730 /* A helper function to add all symbols matching NAME to INFO. If
3731 PSPACE is not NULL, the search is restricted to just that program
3735 add_matching_symbols_to_info (const char *name
,
3736 struct collect_info
*info
,
3737 struct program_space
*pspace
)
3742 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3746 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3747 collect_symbols
, info
,
3749 search_minsyms_for_name (info
, name
, pspace
, NULL
);
3751 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3753 int prev_len
= VEC_length (symbolp
, info
->result
.symbols
);
3755 /* Program spaces that are executing startup should have
3756 been filtered out earlier. */
3757 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3758 set_current_program_space (SYMTAB_PSPACE (elt
));
3759 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3760 collect_symbols
, info
);
3762 /* If no new symbols were found in this iteration and this symtab
3763 is in assembler, we might actually be looking for a label for
3764 which we don't have debug info. Check for a minimal symbol in
3766 if (prev_len
== VEC_length (symbolp
, info
->result
.symbols
)
3767 && elt
->language
== language_asm
)
3768 search_minsyms_for_name (info
, name
, pspace
, elt
);
3775 /* Now come some functions that are called from multiple places within
3779 symbol_to_sal (struct symtab_and_line
*result
,
3780 int funfirstline
, struct symbol
*sym
)
3782 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3784 *result
= find_function_start_sal (sym
, funfirstline
);
3789 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3792 result
->symtab
= symbol_symtab (sym
);
3793 result
->line
= SYMBOL_LINE (sym
);
3794 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3795 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3796 result
->explicit_pc
= 1;
3799 else if (funfirstline
)
3803 else if (SYMBOL_LINE (sym
) != 0)
3805 /* We know its line number. */
3807 result
->symtab
= symbol_symtab (sym
);
3808 result
->line
= SYMBOL_LINE (sym
);
3809 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3817 /* See the comment in linespec.h. */
3820 init_linespec_result (struct linespec_result
*lr
)
3822 memset (lr
, 0, sizeof (*lr
));
3825 /* See the comment in linespec.h. */
3828 destroy_linespec_result (struct linespec_result
*ls
)
3831 struct linespec_sals
*lsal
;
3833 xfree (ls
->addr_string
);
3834 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3836 xfree (lsal
->canonical
);
3837 xfree (lsal
->sals
.sals
);
3839 VEC_free (linespec_sals
, ls
->sals
);
3842 /* Cleanup function for a linespec_result. */
3845 cleanup_linespec_result (void *a
)
3847 destroy_linespec_result (a
);
3850 /* See the comment in linespec.h. */
3853 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3855 return make_cleanup (cleanup_linespec_result
, ls
);