1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2015 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "completer.h"
31 #include "cp-support.h"
32 #include "parser-defs.h"
34 #include "objc-lang.h"
38 #include "mi/mi-cmds.h"
40 #include "arch-utils.h"
42 #include "cli/cli-utils.h"
43 #include "filenames.h"
48 typedef struct symbol
*symbolp
;
51 typedef struct type
*typep
;
54 /* An address entry is used to ensure that any given location is only
55 added to the result a single time. It holds an address and the
56 program space from which the address came. */
60 struct program_space
*pspace
;
64 typedef struct bound_minimal_symbol bound_minimal_symbol_d
;
66 DEF_VEC_O (bound_minimal_symbol_d
);
68 /* An enumeration of possible signs for a line offset. */
69 enum offset_relative_sign
74 /* A plus sign ("+") */
77 /* A minus sign ("-") */
80 /* A special "sign" for unspecified offset. */
84 /* A line offset in a linespec. */
88 /* Line offset and any specified sign. */
90 enum offset_relative_sign sign
;
93 /* A linespec. Elements of this structure are filled in by a parser
94 (either parse_linespec or some other function). The structure is
95 then converted into SALs by convert_linespec_to_sals. */
99 /* An expression and the resulting PC. Specifying an expression
100 currently precludes the use of other members. */
102 /* The expression entered by the user. */
103 const char *expression
;
105 /* The resulting PC expression derived from evaluating EXPRESSION. */
108 /* Any specified file symtabs. */
110 /* The user-supplied source filename or NULL if none was specified. */
111 const char *source_filename
;
113 /* The list of symtabs to search to which to limit the search. May not
114 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
115 FILE_SYMTABS should contain one single NULL member. This will
116 cause the code to use the default symtab. */
117 VEC (symtab_ptr
) *file_symtabs
;
119 /* The name of a function or method and any matching symbols. */
121 /* The user-specified function name. If no function name was
122 supplied, this may be NULL. */
123 const char *function_name
;
125 /* A list of matching function symbols and minimal symbols. Both lists
126 may be NULL if no matching symbols were found. */
127 VEC (symbolp
) *function_symbols
;
128 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
130 /* The name of a label and matching symbols. */
132 /* The user-specified label name. */
133 const char *label_name
;
135 /* A structure of matching label symbols and the corresponding
136 function symbol in which the label was found. Both may be NULL
137 or both must be non-NULL. */
140 VEC (symbolp
) *label_symbols
;
141 VEC (symbolp
) *function_symbols
;
144 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
145 offset was specified. */
146 struct line_offset line_offset
;
148 typedef struct linespec
*linespec_p
;
150 /* A canonical linespec represented as a symtab-related string.
152 Each entry represents the "SYMTAB:SUFFIX" linespec string.
153 SYMTAB can be converted for example by symtab_to_fullname or
154 symtab_to_filename_for_display as needed. */
156 struct linespec_canonical_name
158 /* Remaining text part of the linespec string. */
161 /* If NULL then SUFFIX is the whole linespec string. */
162 struct symtab
*symtab
;
165 /* An instance of this is used to keep all state while linespec
166 operates. This instance is passed around as a 'this' pointer to
167 the various implementation methods. */
169 struct linespec_state
171 /* The language in use during linespec processing. */
172 const struct language_defn
*language
;
174 /* The program space as seen when the module was entered. */
175 struct program_space
*program_space
;
177 /* The default symtab to use, if no other symtab is specified. */
178 struct symtab
*default_symtab
;
180 /* The default line to use. */
183 /* The 'funfirstline' value that was passed in to decode_line_1 or
187 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
190 /* The 'canonical' value passed to decode_line_full, or NULL. */
191 struct linespec_result
*canonical
;
193 /* Canonical strings that mirror the symtabs_and_lines result. */
194 struct linespec_canonical_name
*canonical_names
;
196 /* This is a set of address_entry objects which is used to prevent
197 duplicate symbols from being entered into the result. */
201 /* This is a helper object that is used when collecting symbols into a
206 /* The linespec object in use. */
207 struct linespec_state
*state
;
209 /* A list of symtabs to which to restrict matches. */
210 VEC (symtab_ptr
) *file_symtabs
;
212 /* The result being accumulated. */
215 VEC (symbolp
) *symbols
;
216 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
227 /* A colon "separator" */
239 /* EOI (end of input) */
245 typedef enum ls_token_type linespec_token_type
;
247 /* List of keywords */
249 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
250 #define IF_KEYWORD_INDEX 0
252 /* A token of the linespec lexer */
256 /* The type of the token */
257 linespec_token_type type
;
259 /* Data for the token */
262 /* A string, given as a stoken */
263 struct stoken string
;
269 typedef struct ls_token linespec_token
;
271 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
272 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
274 /* An instance of the linespec parser. */
278 /* Lexer internal data */
281 /* Save head of input stream. */
282 const char *saved_arg
;
284 /* Head of the input stream. */
286 #define PARSER_STREAM(P) ((P)->lexer.stream)
288 /* The current token. */
289 linespec_token current
;
292 /* Is the entire linespec quote-enclosed? */
293 int is_quote_enclosed
;
295 /* The state of the parse. */
296 struct linespec_state state
;
297 #define PARSER_STATE(PPTR) (&(PPTR)->state)
299 /* The result of the parse. */
300 struct linespec result
;
301 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
303 typedef struct ls_parser linespec_parser
;
305 /* Prototypes for local functions. */
307 static void iterate_over_file_blocks (struct symtab
*symtab
,
308 const char *name
, domain_enum domain
,
309 symbol_found_callback_ftype
*callback
,
312 static void initialize_defaults (struct symtab
**default_symtab
,
315 CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
317 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
321 static VEC (symtab_ptr
) *symtabs_from_filename (const char *);
323 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
324 VEC (symbolp
) *function_symbols
,
325 VEC (symbolp
) **label_funcs_ret
,
328 static void find_linespec_symbols (struct linespec_state
*self
,
329 VEC (symtab_ptr
) *file_symtabs
,
331 VEC (symbolp
) **symbols
,
332 VEC (bound_minimal_symbol_d
) **minsyms
);
334 static struct line_offset
335 linespec_parse_variable (struct linespec_state
*self
,
336 const char *variable
);
338 static int symbol_to_sal (struct symtab_and_line
*result
,
339 int funfirstline
, struct symbol
*sym
);
341 static void add_matching_symbols_to_info (const char *name
,
342 struct collect_info
*info
,
343 struct program_space
*pspace
);
345 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
346 struct program_space
*pspace
,
347 VEC (const_char_ptr
) *names
);
349 static VEC (symtab_ptr
) *collect_symtabs_from_filename (const char *file
);
351 static void decode_digits_ordinary (struct linespec_state
*self
,
354 struct symtabs_and_lines
*sals
,
355 struct linetable_entry
**best_entry
);
357 static void decode_digits_list_mode (struct linespec_state
*self
,
359 struct symtabs_and_lines
*values
,
360 struct symtab_and_line val
);
362 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
363 struct minimal_symbol
*msymbol
,
364 struct symtabs_and_lines
*result
);
366 static int compare_symbols (const void *a
, const void *b
);
368 static int compare_msymbols (const void *a
, const void *b
);
370 static const char *find_toplevel_char (const char *s
, char c
);
372 /* Permitted quote characters for the parser. This is different from the
373 completer's quote characters to allow backward compatibility with the
375 static const char *const linespec_quote_characters
= "\"\'";
377 /* Lexer functions. */
379 /* Lex a number from the input in PARSER. This only supports
382 Return true if input is decimal numbers. Return false if not. */
385 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
387 tokenp
->type
= LSTOKEN_NUMBER
;
388 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
389 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
391 /* Keep any sign at the start of the stream. */
392 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
394 ++LS_TOKEN_STOKEN (*tokenp
).length
;
395 ++(PARSER_STREAM (parser
));
398 while (isdigit (*PARSER_STREAM (parser
)))
400 ++LS_TOKEN_STOKEN (*tokenp
).length
;
401 ++(PARSER_STREAM (parser
));
404 /* If the next character in the input buffer is not a space, comma,
405 quote, or colon, this input does not represent a number. */
406 if (*PARSER_STREAM (parser
) != '\0'
407 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
408 && *PARSER_STREAM (parser
) != ':'
409 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
411 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
418 /* See linespec.h. */
421 linespec_lexer_lex_keyword (const char *p
)
427 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
429 int len
= strlen (linespec_keywords
[i
]);
431 /* If P begins with one of the keywords and the next
432 character is whitespace, we may have found a keyword.
433 It is only a keyword if it is not followed by another
435 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
440 /* Special case: "if" ALWAYS stops the lexer, since it
441 is not possible to predict what is going to appear in
442 the condition, which can only be parsed after SaLs have
444 if (i
!= IF_KEYWORD_INDEX
)
447 p
= skip_spaces_const (p
);
448 for (j
= 0; j
< ARRAY_SIZE (linespec_keywords
); ++j
)
450 int nextlen
= strlen (linespec_keywords
[j
]);
452 if (strncmp (p
, linespec_keywords
[j
], nextlen
) == 0
453 && isspace (p
[nextlen
]))
458 return linespec_keywords
[i
];
466 /* Does STRING represent an Ada operator? If so, return the length
467 of the decoded operator name. If not, return 0. */
470 is_ada_operator (const char *string
)
472 const struct ada_opname_map
*mapping
;
474 for (mapping
= ada_opname_table
;
475 mapping
->encoded
!= NULL
476 && !startswith (string
, mapping
->decoded
); ++mapping
)
479 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
482 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
483 the location of QUOTE_CHAR, or NULL if not found. */
486 skip_quote_char (const char *string
, char quote_char
)
488 const char *p
, *last
;
490 p
= last
= find_toplevel_char (string
, quote_char
);
491 while (p
&& *p
!= '\0' && *p
!= ':')
493 p
= find_toplevel_char (p
, quote_char
);
501 /* Make a writable copy of the string given in TOKEN, trimming
502 any trailing whitespace. */
505 copy_token_string (linespec_token token
)
509 if (token
.type
== LSTOKEN_KEYWORD
)
510 return xstrdup (LS_TOKEN_KEYWORD (token
));
512 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
513 LS_TOKEN_STOKEN (token
).length
);
514 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
520 /* Does P represent the end of a quote-enclosed linespec? */
523 is_closing_quote_enclosed (const char *p
)
525 if (strchr (linespec_quote_characters
, *p
))
527 p
= skip_spaces ((char *) p
);
528 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
531 /* Find the end of the parameter list that starts with *INPUT.
532 This helper function assists with lexing string segments
533 which might contain valid (non-terminating) commas. */
536 find_parameter_list_end (const char *input
)
538 char end_char
, start_char
;
543 if (start_char
== '(')
545 else if (start_char
== '<')
554 if (*p
== start_char
)
556 else if (*p
== end_char
)
571 /* Lex a string from the input in PARSER. */
573 static linespec_token
574 linespec_lexer_lex_string (linespec_parser
*parser
)
576 linespec_token token
;
577 const char *start
= PARSER_STREAM (parser
);
579 token
.type
= LSTOKEN_STRING
;
581 /* If the input stream starts with a quote character, skip to the next
582 quote character, regardless of the content. */
583 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
586 char quote_char
= *PARSER_STREAM (parser
);
588 /* Special case: Ada operators. */
589 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
590 && quote_char
== '\"')
592 int len
= is_ada_operator (PARSER_STREAM (parser
));
596 /* The input is an Ada operator. Return the quoted string
598 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
599 LS_TOKEN_STOKEN (token
).length
= len
;
600 PARSER_STREAM (parser
) += len
;
604 /* The input does not represent an Ada operator -- fall through
605 to normal quoted string handling. */
608 /* Skip past the beginning quote. */
609 ++(PARSER_STREAM (parser
));
611 /* Mark the start of the string. */
612 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
614 /* Skip to the ending quote. */
615 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
617 /* Error if the input did not terminate properly. */
619 error (_("unmatched quote"));
621 /* Skip over the ending quote and mark the length of the string. */
622 PARSER_STREAM (parser
) = (char *) ++end
;
623 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
629 /* Otherwise, only identifier characters are permitted.
630 Spaces are the exception. In general, we keep spaces,
631 but only if the next characters in the input do not resolve
632 to one of the keywords.
634 This allows users to forgo quoting CV-qualifiers, template arguments,
635 and similar common language constructs. */
639 if (isspace (*PARSER_STREAM (parser
)))
641 p
= skip_spaces_const (PARSER_STREAM (parser
));
642 /* When we get here we know we've found something followed by
643 a space (we skip over parens and templates below).
644 So if we find a keyword now, we know it is a keyword and not,
645 say, a function name. */
646 if (linespec_lexer_lex_keyword (p
) != NULL
)
648 LS_TOKEN_STOKEN (token
).ptr
= start
;
649 LS_TOKEN_STOKEN (token
).length
650 = PARSER_STREAM (parser
) - start
;
654 /* Advance past the whitespace. */
655 PARSER_STREAM (parser
) = p
;
658 /* If the next character is EOI or (single) ':', the
659 string is complete; return the token. */
660 if (*PARSER_STREAM (parser
) == 0)
662 LS_TOKEN_STOKEN (token
).ptr
= start
;
663 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
666 else if (PARSER_STREAM (parser
)[0] == ':')
668 /* Do not tokenize the C++ scope operator. */
669 if (PARSER_STREAM (parser
)[1] == ':')
670 ++(PARSER_STREAM (parser
));
672 /* Do not tokenify if the input length so far is one
673 (i.e, a single-letter drive name) and the next character
674 is a directory separator. This allows Windows-style
675 paths to be recognized as filenames without quoting it. */
676 else if ((PARSER_STREAM (parser
) - start
) != 1
677 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
679 LS_TOKEN_STOKEN (token
).ptr
= start
;
680 LS_TOKEN_STOKEN (token
).length
681 = PARSER_STREAM (parser
) - start
;
685 /* Special case: permit quote-enclosed linespecs. */
686 else if (parser
->is_quote_enclosed
687 && strchr (linespec_quote_characters
,
688 *PARSER_STREAM (parser
))
689 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
691 LS_TOKEN_STOKEN (token
).ptr
= start
;
692 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
695 /* Because commas may terminate a linespec and appear in
696 the middle of valid string input, special cases for
697 '<' and '(' are necessary. */
698 else if (*PARSER_STREAM (parser
) == '<'
699 || *PARSER_STREAM (parser
) == '(')
703 p
= find_parameter_list_end (PARSER_STREAM (parser
));
706 PARSER_STREAM (parser
) = p
;
710 /* Commas are terminators, but not if they are part of an
712 else if (*PARSER_STREAM (parser
) == ',')
714 if ((PARSER_STATE (parser
)->language
->la_language
716 && (PARSER_STREAM (parser
) - start
) > 8
717 /* strlen ("operator") */)
719 char *p
= strstr (start
, "operator");
721 if (p
!= NULL
&& is_operator_name (p
))
723 /* This is an operator name. Keep going. */
724 ++(PARSER_STREAM (parser
));
729 /* Comma terminates the string. */
730 LS_TOKEN_STOKEN (token
).ptr
= start
;
731 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
735 /* Advance the stream. */
736 ++(PARSER_STREAM (parser
));
743 /* Lex a single linespec token from PARSER. */
745 static linespec_token
746 linespec_lexer_lex_one (linespec_parser
*parser
)
750 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
752 /* Skip any whitespace. */
753 PARSER_STREAM (parser
) = skip_spaces_const (PARSER_STREAM (parser
));
755 /* Check for a keyword, they end the linespec. */
756 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
759 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
760 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
761 /* We do not advance the stream here intentionally:
762 we would like lexing to stop when a keyword is seen.
764 PARSER_STREAM (parser) += strlen (keyword); */
766 return parser
->lexer
.current
;
769 /* Handle other tokens. */
770 switch (*PARSER_STREAM (parser
))
773 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
777 case '0': case '1': case '2': case '3': case '4':
778 case '5': case '6': case '7': case '8': case '9':
779 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
780 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
784 /* If we have a scope operator, lex the input as a string.
785 Otherwise, return LSTOKEN_COLON. */
786 if (PARSER_STREAM (parser
)[1] == ':')
787 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
790 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
791 ++(PARSER_STREAM (parser
));
795 case '\'': case '\"':
796 /* Special case: permit quote-enclosed linespecs. */
797 if (parser
->is_quote_enclosed
798 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
800 ++(PARSER_STREAM (parser
));
801 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
804 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
808 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
809 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
810 = PARSER_STREAM (parser
);
811 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
812 ++(PARSER_STREAM (parser
));
816 /* If the input is not a number, it must be a string.
817 [Keywords were already considered above.] */
818 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
823 return parser
->lexer
.current
;
826 /* Consume the current token and return the next token in PARSER's
829 static linespec_token
830 linespec_lexer_consume_token (linespec_parser
*parser
)
832 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
833 return linespec_lexer_lex_one (parser
);
836 /* Return the next token without consuming the current token. */
838 static linespec_token
839 linespec_lexer_peek_token (linespec_parser
*parser
)
842 const char *saved_stream
= PARSER_STREAM (parser
);
843 linespec_token saved_token
= parser
->lexer
.current
;
845 next
= linespec_lexer_consume_token (parser
);
846 PARSER_STREAM (parser
) = saved_stream
;
847 parser
->lexer
.current
= saved_token
;
851 /* Helper functions. */
853 /* Add SAL to SALS. */
856 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
857 struct symtab_and_line
*sal
)
860 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
861 sals
->sals
[sals
->nelts
- 1] = *sal
;
864 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
865 the new sal, if needed. If not NULL, SYMNAME is the name of the
866 symbol to use when constructing the new canonical name.
868 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
869 canonical name for the SAL. */
872 add_sal_to_sals (struct linespec_state
*self
,
873 struct symtabs_and_lines
*sals
,
874 struct symtab_and_line
*sal
,
875 const char *symname
, int literal_canonical
)
877 add_sal_to_sals_basic (sals
, sal
);
881 struct linespec_canonical_name
*canonical
;
883 self
->canonical_names
= xrealloc (self
->canonical_names
,
885 * sizeof (*self
->canonical_names
)));
886 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
887 if (!literal_canonical
&& sal
->symtab
)
889 const char *fullname
= symtab_to_fullname (sal
->symtab
);
891 /* Note that the filter doesn't have to be a valid linespec
892 input. We only apply the ":LINE" treatment to Ada for
894 if (symname
!= NULL
&& sal
->line
!= 0
895 && self
->language
->la_language
== language_ada
)
896 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
897 else if (symname
!= NULL
)
898 canonical
->suffix
= xstrdup (symname
);
900 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
901 canonical
->symtab
= sal
->symtab
;
906 canonical
->suffix
= xstrdup (symname
);
908 canonical
->suffix
= xstrdup ("<unknown>");
909 canonical
->symtab
= NULL
;
914 /* A hash function for address_entry. */
917 hash_address_entry (const void *p
)
919 const struct address_entry
*aep
= p
;
922 hash
= iterative_hash_object (aep
->pspace
, 0);
923 return iterative_hash_object (aep
->addr
, hash
);
926 /* An equality function for address_entry. */
929 eq_address_entry (const void *a
, const void *b
)
931 const struct address_entry
*aea
= a
;
932 const struct address_entry
*aeb
= b
;
934 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
937 /* Check whether the address, represented by PSPACE and ADDR, is
938 already in the set. If so, return 0. Otherwise, add it and return
942 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
944 struct address_entry e
, *p
;
949 slot
= htab_find_slot (set
, &e
, INSERT
);
953 p
= XNEW (struct address_entry
);
954 memcpy (p
, &e
, sizeof (struct address_entry
));
960 /* A callback function and the additional data to call it with. */
962 struct symbol_and_data_callback
964 /* The callback to use. */
965 symbol_found_callback_ftype
*callback
;
967 /* Data to be passed to the callback. */
971 /* A helper for iterate_over_all_matching_symtabs that is used to
972 restrict calls to another callback to symbols representing inline
976 iterate_inline_only (struct symbol
*sym
, void *d
)
978 if (SYMBOL_INLINED (sym
))
980 struct symbol_and_data_callback
*cad
= d
;
982 return cad
->callback (sym
, cad
->data
);
984 return 1; /* Continue iterating. */
987 /* Some data for the expand_symtabs_matching callback. */
989 struct symbol_matcher_data
991 /* The lookup name against which symbol name should be compared. */
992 const char *lookup_name
;
994 /* The routine to be used for comparison. */
995 symbol_name_cmp_ftype symbol_name_cmp
;
998 /* A helper for iterate_over_all_matching_symtabs that is passed as a
999 callback to the expand_symtabs_matching method. */
1002 iterate_name_matcher (const char *name
, void *d
)
1004 const struct symbol_matcher_data
*data
= d
;
1006 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
1007 return 1; /* Expand this symbol's symbol table. */
1008 return 0; /* Skip this symbol. */
1011 /* A helper that walks over all matching symtabs in all objfiles and
1012 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
1013 not NULL, then the search is restricted to just that program
1014 space. If INCLUDE_INLINE is nonzero then symbols representing
1015 inlined instances of functions will be included in the result. */
1018 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
1020 const domain_enum domain
,
1021 symbol_found_callback_ftype
*callback
,
1023 struct program_space
*search_pspace
,
1026 struct objfile
*objfile
;
1027 struct program_space
*pspace
;
1028 struct symbol_matcher_data matcher_data
;
1030 matcher_data
.lookup_name
= name
;
1031 matcher_data
.symbol_name_cmp
=
1032 state
->language
->la_get_symbol_name_cmp
!= NULL
1033 ? state
->language
->la_get_symbol_name_cmp (name
)
1036 ALL_PSPACES (pspace
)
1038 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
1040 if (pspace
->executing_startup
)
1043 set_current_program_space (pspace
);
1045 ALL_OBJFILES (objfile
)
1047 struct compunit_symtab
*cu
;
1050 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1051 iterate_name_matcher
,
1055 ALL_OBJFILE_COMPUNITS (objfile
, cu
)
1057 struct symtab
*symtab
= COMPUNIT_FILETABS (cu
);
1059 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1063 struct symbol_and_data_callback cad
= { callback
, data
};
1064 struct block
*block
;
1067 for (i
= FIRST_LOCAL_BLOCK
;
1068 i
< BLOCKVECTOR_NBLOCKS (SYMTAB_BLOCKVECTOR (symtab
));
1071 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), i
);
1072 state
->language
->la_iterate_over_symbols
1073 (block
, name
, domain
, iterate_inline_only
, &cad
);
1081 /* Returns the block to be used for symbol searches from
1082 the current location. */
1084 static const struct block
*
1085 get_current_search_block (void)
1087 const struct block
*block
;
1088 enum language save_language
;
1090 /* get_selected_block can change the current language when there is
1091 no selected frame yet. */
1092 save_language
= current_language
->la_language
;
1093 block
= get_selected_block (0);
1094 set_language (save_language
);
1099 /* Iterate over static and global blocks. */
1102 iterate_over_file_blocks (struct symtab
*symtab
,
1103 const char *name
, domain_enum domain
,
1104 symbol_found_callback_ftype
*callback
, void *data
)
1106 struct block
*block
;
1108 for (block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1110 block
= BLOCK_SUPERBLOCK (block
))
1111 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1114 /* A helper for find_method. This finds all methods in type T which
1115 match NAME. It adds matching symbol names to RESULT_NAMES, and
1116 adds T's direct superclasses to SUPERCLASSES. */
1119 find_methods (struct type
*t
, const char *name
,
1120 VEC (const_char_ptr
) **result_names
,
1121 VEC (typep
) **superclasses
)
1124 const char *class_name
= type_name_no_tag (t
);
1126 /* Ignore this class if it doesn't have a name. This is ugly, but
1127 unless we figure out how to get the physname without the name of
1128 the class, then the loop can't do any good. */
1133 t
= check_typedef (t
);
1135 /* Loop over each method name. At this level, all overloads of a name
1136 are counted as a single name. There is an inner loop which loops over
1139 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1140 method_counter
>= 0;
1143 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1144 char dem_opname
[64];
1146 if (startswith (method_name
, "__") ||
1147 startswith (method_name
, "op") ||
1148 startswith (method_name
, "type"))
1150 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1151 method_name
= dem_opname
;
1152 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1153 method_name
= dem_opname
;
1156 if (strcmp_iw (method_name
, name
) == 0)
1160 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1166 const char *phys_name
;
1168 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1169 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1171 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1172 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1178 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1179 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1182 /* Find an instance of the character C in the string S that is outside
1183 of all parenthesis pairs, single-quoted strings, and double-quoted
1184 strings. Also, ignore the char within a template name, like a ','
1185 within foo<int, int>. */
1188 find_toplevel_char (const char *s
, char c
)
1190 int quoted
= 0; /* zero if we're not in quotes;
1191 '"' if we're in a double-quoted string;
1192 '\'' if we're in a single-quoted string. */
1193 int depth
= 0; /* Number of unclosed parens we've seen. */
1196 for (scan
= s
; *scan
; scan
++)
1200 if (*scan
== quoted
)
1202 else if (*scan
== '\\' && *(scan
+ 1))
1205 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1207 else if (*scan
== '"' || *scan
== '\'')
1209 else if (*scan
== '(' || *scan
== '<')
1211 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1218 /* The string equivalent of find_toplevel_char. Returns a pointer
1219 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1220 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1223 find_toplevel_string (const char *haystack
, const char *needle
)
1225 const char *s
= haystack
;
1229 s
= find_toplevel_char (s
, *needle
);
1233 /* Found first char in HAYSTACK; check rest of string. */
1234 if (startswith (s
, needle
))
1237 /* Didn't find it; loop over HAYSTACK, looking for the next
1238 instance of the first character of NEEDLE. */
1242 while (s
!= NULL
&& *s
!= '\0');
1244 /* NEEDLE was not found in HAYSTACK. */
1248 /* Convert CANONICAL to its string representation using
1249 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1252 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1254 if (canonical
->symtab
== NULL
)
1255 return xstrdup (canonical
->suffix
);
1257 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1261 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1262 and store the result in SELF->CANONICAL. */
1265 filter_results (struct linespec_state
*self
,
1266 struct symtabs_and_lines
*result
,
1267 VEC (const_char_ptr
) *filters
)
1272 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1274 struct linespec_sals lsal
;
1277 memset (&lsal
, 0, sizeof (lsal
));
1279 for (j
= 0; j
< result
->nelts
; ++j
)
1281 const struct linespec_canonical_name
*canonical
;
1283 struct cleanup
*cleanup
;
1285 canonical
= &self
->canonical_names
[j
];
1286 fullform
= canonical_to_fullform (canonical
);
1287 cleanup
= make_cleanup (xfree
, fullform
);
1289 if (strcmp (name
, fullform
) == 0)
1290 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1292 do_cleanups (cleanup
);
1295 if (lsal
.sals
.nelts
> 0)
1297 lsal
.canonical
= xstrdup (name
);
1298 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1302 self
->canonical
->pre_expanded
= 0;
1305 /* Store RESULT into SELF->CANONICAL. */
1308 convert_results_to_lsals (struct linespec_state
*self
,
1309 struct symtabs_and_lines
*result
)
1311 struct linespec_sals lsal
;
1313 lsal
.canonical
= NULL
;
1314 lsal
.sals
= *result
;
1315 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1318 /* A structure that contains two string representations of a struct
1319 linespec_canonical_name:
1320 - one where the the symtab's fullname is used;
1321 - one where the filename followed the "set filename-display"
1324 struct decode_line_2_item
1326 /* The form using symtab_to_fullname.
1327 It must be xfree'ed after use. */
1330 /* The form using symtab_to_filename_for_display.
1331 It must be xfree'ed after use. */
1334 /* Field is initialized to zero and it is set to one if the user
1335 requested breakpoint for this entry. */
1336 unsigned int selected
: 1;
1339 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1340 secondarily by FULLFORM. */
1343 decode_line_2_compare_items (const void *ap
, const void *bp
)
1345 const struct decode_line_2_item
*a
= ap
;
1346 const struct decode_line_2_item
*b
= bp
;
1349 retval
= strcmp (a
->displayform
, b
->displayform
);
1353 return strcmp (a
->fullform
, b
->fullform
);
1356 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1357 will either return normally, throw an exception on multiple
1358 results, or present a menu to the user. On return, the SALS vector
1359 in SELF->CANONICAL is set up properly. */
1362 decode_line_2 (struct linespec_state
*self
,
1363 struct symtabs_and_lines
*result
,
1364 const char *select_mode
)
1366 char *args
, *prompt
;
1368 struct cleanup
*old_chain
;
1369 VEC (const_char_ptr
) *filters
= NULL
;
1370 struct get_number_or_range_state state
;
1371 struct decode_line_2_item
*items
;
1374 gdb_assert (select_mode
!= multiple_symbols_all
);
1375 gdb_assert (self
->canonical
!= NULL
);
1376 gdb_assert (result
->nelts
>= 1);
1378 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1380 /* Prepare ITEMS array. */
1381 items_count
= result
->nelts
;
1382 items
= xmalloc (sizeof (*items
) * items_count
);
1383 make_cleanup (xfree
, items
);
1384 for (i
= 0; i
< items_count
; ++i
)
1386 const struct linespec_canonical_name
*canonical
;
1387 struct decode_line_2_item
*item
;
1389 canonical
= &self
->canonical_names
[i
];
1390 gdb_assert (canonical
->suffix
!= NULL
);
1393 item
->fullform
= canonical_to_fullform (canonical
);
1394 make_cleanup (xfree
, item
->fullform
);
1396 if (canonical
->symtab
== NULL
)
1397 item
->displayform
= canonical
->suffix
;
1400 const char *fn_for_display
;
1402 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1403 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1405 make_cleanup (xfree
, item
->displayform
);
1411 /* Sort the list of method names. */
1412 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1414 /* Remove entries with the same FULLFORM. */
1415 if (items_count
>= 2)
1417 struct decode_line_2_item
*dst
, *src
;
1420 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1421 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1423 items_count
= dst
+ 1 - items
;
1426 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1427 error (_("canceled because the command is ambiguous\n"
1428 "See set/show multiple-symbol."));
1430 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1432 do_cleanups (old_chain
);
1433 convert_results_to_lsals (self
, result
);
1437 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1438 for (i
= 0; i
< items_count
; i
++)
1439 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1441 prompt
= getenv ("PS2");
1446 args
= command_line_input (prompt
, 0, "overload-choice");
1448 if (args
== 0 || *args
== 0)
1449 error_no_arg (_("one or more choice numbers"));
1451 init_number_or_range (&state
, args
);
1452 while (!state
.finished
)
1456 num
= get_number_or_range (&state
);
1459 error (_("canceled"));
1462 /* We intentionally make this result in a single breakpoint,
1463 contrary to what older versions of gdb did. The
1464 rationale is that this lets a user get the
1465 multiple_symbols_all behavior even with the 'ask'
1466 setting; and he can get separate breakpoints by entering
1467 "2-57" at the query. */
1468 do_cleanups (old_chain
);
1469 convert_results_to_lsals (self
, result
);
1474 if (num
>= items_count
)
1475 printf_unfiltered (_("No choice number %d.\n"), num
);
1478 struct decode_line_2_item
*item
= &items
[num
];
1480 if (!item
->selected
)
1482 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1487 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1493 filter_results (self
, result
, filters
);
1494 do_cleanups (old_chain
);
1499 /* The parser of linespec itself. */
1501 /* Throw an appropriate error when SYMBOL is not found (optionally in
1504 static void ATTRIBUTE_NORETURN
1505 symbol_not_found_error (const char *symbol
, const char *filename
)
1510 if (!have_full_symbols ()
1511 && !have_partial_symbols ()
1512 && !have_minimal_symbols ())
1513 throw_error (NOT_FOUND_ERROR
,
1514 _("No symbol table is loaded. Use the \"file\" command."));
1516 /* If SYMBOL starts with '$', the user attempted to either lookup
1517 a function/variable in his code starting with '$' or an internal
1518 variable of that name. Since we do not know which, be concise and
1519 explain both possibilities. */
1523 throw_error (NOT_FOUND_ERROR
,
1524 _("Undefined convenience variable or function \"%s\" "
1525 "not defined in \"%s\"."), symbol
, filename
);
1527 throw_error (NOT_FOUND_ERROR
,
1528 _("Undefined convenience variable or function \"%s\" "
1529 "not defined."), symbol
);
1534 throw_error (NOT_FOUND_ERROR
,
1535 _("Function \"%s\" not defined in \"%s\"."),
1538 throw_error (NOT_FOUND_ERROR
,
1539 _("Function \"%s\" not defined."), symbol
);
1543 /* Throw an appropriate error when an unexpected token is encountered
1546 static void ATTRIBUTE_NORETURN
1547 unexpected_linespec_error (linespec_parser
*parser
)
1549 linespec_token token
;
1550 static const char * token_type_strings
[]
1551 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1553 /* Get the token that generated the error. */
1554 token
= linespec_lexer_lex_one (parser
);
1556 /* Finally, throw the error. */
1557 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1558 || token
.type
== LSTOKEN_KEYWORD
)
1561 struct cleanup
*cleanup
;
1563 string
= copy_token_string (token
);
1564 cleanup
= make_cleanup (xfree
, string
);
1565 throw_error (GENERIC_ERROR
,
1566 _("malformed linespec error: unexpected %s, \"%s\""),
1567 token_type_strings
[token
.type
], string
);
1570 throw_error (GENERIC_ERROR
,
1571 _("malformed linespec error: unexpected %s"),
1572 token_type_strings
[token
.type
]);
1575 /* Parse and return a line offset in STRING. */
1577 static struct line_offset
1578 linespec_parse_line_offset (const char *string
)
1580 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1584 line_offset
.sign
= LINE_OFFSET_PLUS
;
1587 else if (*string
== '-')
1589 line_offset
.sign
= LINE_OFFSET_MINUS
;
1593 /* Right now, we only allow base 10 for offsets. */
1594 line_offset
.offset
= atoi (string
);
1598 /* Parse the basic_spec in PARSER's input. */
1601 linespec_parse_basic (linespec_parser
*parser
)
1604 linespec_token token
;
1605 VEC (symbolp
) *symbols
, *labels
;
1606 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1607 struct cleanup
*cleanup
;
1609 /* Get the next token. */
1610 token
= linespec_lexer_lex_one (parser
);
1612 /* If it is EOI or KEYWORD, issue an error. */
1613 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1614 unexpected_linespec_error (parser
);
1615 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1616 else if (token
.type
== LSTOKEN_NUMBER
)
1618 /* Record the line offset and get the next token. */
1619 name
= copy_token_string (token
);
1620 cleanup
= make_cleanup (xfree
, name
);
1621 PARSER_RESULT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1622 do_cleanups (cleanup
);
1624 /* Get the next token. */
1625 token
= linespec_lexer_consume_token (parser
);
1627 /* If the next token is a comma, stop parsing and return. */
1628 if (token
.type
== LSTOKEN_COMMA
)
1631 /* If the next token is anything but EOI or KEYWORD, issue
1633 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1634 unexpected_linespec_error (parser
);
1637 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1640 /* Next token must be LSTOKEN_STRING. */
1641 if (token
.type
!= LSTOKEN_STRING
)
1642 unexpected_linespec_error (parser
);
1644 /* The current token will contain the name of a function, method,
1646 name
= copy_token_string (token
);
1647 cleanup
= make_cleanup (xfree
, name
);
1649 /* Try looking it up as a function/method. */
1650 find_linespec_symbols (PARSER_STATE (parser
),
1651 PARSER_RESULT (parser
)->file_symtabs
, name
,
1652 &symbols
, &minimal_symbols
);
1654 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1656 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1657 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1658 PARSER_RESULT (parser
)->function_name
= name
;
1660 discard_cleanups (cleanup
);
1664 /* NAME was not a function or a method. So it must be a label
1665 name or user specified variable like "break foo.c:$zippo". */
1666 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1670 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1671 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1672 PARSER_RESULT (parser
)->label_name
= name
;
1674 discard_cleanups (cleanup
);
1676 else if (token
.type
== LSTOKEN_STRING
1677 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1679 /* User specified a convenience variable or history value. */
1680 PARSER_RESULT (parser
)->line_offset
1681 = linespec_parse_variable (PARSER_STATE (parser
), name
);
1683 if (PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1685 /* The user-specified variable was not valid. Do not
1686 throw an error here. parse_linespec will do it for us. */
1687 PARSER_RESULT (parser
)->function_name
= name
;
1688 discard_cleanups (cleanup
);
1692 /* The convenience variable/history value parsed correctly.
1693 NAME is no longer needed. */
1694 do_cleanups (cleanup
);
1698 /* The name is also not a label. Abort parsing. Do not throw
1699 an error here. parse_linespec will do it for us. */
1701 /* Save a copy of the name we were trying to lookup. */
1702 PARSER_RESULT (parser
)->function_name
= name
;
1703 discard_cleanups (cleanup
);
1708 /* Get the next token. */
1709 token
= linespec_lexer_consume_token (parser
);
1711 if (token
.type
== LSTOKEN_COLON
)
1713 /* User specified a label or a lineno. */
1714 token
= linespec_lexer_consume_token (parser
);
1716 if (token
.type
== LSTOKEN_NUMBER
)
1718 /* User specified an offset. Record the line offset and
1719 get the next token. */
1720 name
= copy_token_string (token
);
1721 cleanup
= make_cleanup (xfree
, name
);
1722 PARSER_RESULT (parser
)->line_offset
1723 = linespec_parse_line_offset (name
);
1724 do_cleanups (cleanup
);
1726 /* Ge the next token. */
1727 token
= linespec_lexer_consume_token (parser
);
1729 else if (token
.type
== LSTOKEN_STRING
)
1731 /* Grab a copy of the label's name and look it up. */
1732 name
= copy_token_string (token
);
1733 cleanup
= make_cleanup (xfree
, name
);
1734 labels
= find_label_symbols (PARSER_STATE (parser
),
1735 PARSER_RESULT (parser
)->function_symbols
,
1740 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1741 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1742 PARSER_RESULT (parser
)->label_name
= name
;
1744 discard_cleanups (cleanup
);
1748 /* We don't know what it was, but it isn't a label. */
1749 throw_error (NOT_FOUND_ERROR
,
1750 _("No label \"%s\" defined in function \"%s\"."),
1751 name
, PARSER_RESULT (parser
)->function_name
);
1754 /* Check for a line offset. */
1755 token
= linespec_lexer_consume_token (parser
);
1756 if (token
.type
== LSTOKEN_COLON
)
1758 /* Get the next token. */
1759 token
= linespec_lexer_consume_token (parser
);
1761 /* It must be a line offset. */
1762 if (token
.type
!= LSTOKEN_NUMBER
)
1763 unexpected_linespec_error (parser
);
1765 /* Record the lione offset and get the next token. */
1766 name
= copy_token_string (token
);
1767 cleanup
= make_cleanup (xfree
, name
);
1769 PARSER_RESULT (parser
)->line_offset
1770 = linespec_parse_line_offset (name
);
1771 do_cleanups (cleanup
);
1773 /* Get the next token. */
1774 token
= linespec_lexer_consume_token (parser
);
1779 /* Trailing ':' in the input. Issue an error. */
1780 unexpected_linespec_error (parser
);
1785 /* Canonicalize the linespec contained in LS. The result is saved into
1786 STATE->canonical. */
1789 canonicalize_linespec (struct linespec_state
*state
, const linespec_p ls
)
1792 struct ui_file
*buf
;
1794 struct cleanup
*cleanup
;
1796 /* If canonicalization was not requested, no need to do anything. */
1797 if (!state
->canonical
)
1800 buf
= mem_fileopen ();
1801 cleanup
= make_cleanup_ui_file_delete (buf
);
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 tmp
= ui_file_xstrdup (buf
, NULL
);
1852 make_cleanup (xfree
, tmp
);
1853 state
->canonical
->location
= new_linespec_location (&tmp
);
1854 do_cleanups (cleanup
);
1857 /* Given a line offset in LS, construct the relevant SALs. */
1859 static struct symtabs_and_lines
1860 create_sals_line_offset (struct linespec_state
*self
,
1863 struct symtabs_and_lines values
;
1864 struct symtab_and_line val
;
1865 int use_default
= 0;
1871 /* This is where we need to make sure we have good defaults.
1872 We must guarantee that this section of code is never executed
1873 when we are called with just a function name, since
1874 set_default_source_symtab_and_line uses
1875 select_source_symtab that calls us with such an argument. */
1877 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1878 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1880 const char *fullname
;
1882 set_current_program_space (self
->program_space
);
1884 /* Make sure we have at least a default source line. */
1885 set_default_source_symtab_and_line ();
1886 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1887 fullname
= symtab_to_fullname (self
->default_symtab
);
1888 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1889 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1890 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1894 val
.line
= ls
->line_offset
.offset
;
1895 switch (ls
->line_offset
.sign
)
1897 case LINE_OFFSET_PLUS
:
1898 if (ls
->line_offset
.offset
== 0)
1901 val
.line
= self
->default_line
+ val
.line
;
1904 case LINE_OFFSET_MINUS
:
1905 if (ls
->line_offset
.offset
== 0)
1908 val
.line
= self
->default_line
- val
.line
;
1910 val
.line
= -val
.line
;
1913 case LINE_OFFSET_NONE
:
1914 break; /* No need to adjust val.line. */
1917 if (self
->list_mode
)
1918 decode_digits_list_mode (self
, ls
, &values
, val
);
1921 struct linetable_entry
*best_entry
= NULL
;
1923 const struct block
**blocks
;
1924 struct cleanup
*cleanup
;
1925 struct symtabs_and_lines intermediate_results
;
1928 intermediate_results
.sals
= NULL
;
1929 intermediate_results
.nelts
= 0;
1931 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1933 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1934 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1935 &intermediate_results
, &best_entry
);
1937 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1939 /* For optimized code, the compiler can scatter one source line
1940 across disjoint ranges of PC values, even when no duplicate
1941 functions or inline functions are involved. For example,
1942 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1943 function can result in two PC ranges. In this case, we don't
1944 want to set a breakpoint on the first PC of each range. To filter
1945 such cases, we use containing blocks -- for each PC found
1946 above, we see if there are other PCs that are in the same
1947 block. If yes, the other PCs are filtered out. */
1949 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1950 make_cleanup (xfree
, filter
);
1951 blocks
= XNEWVEC (const struct block
*, intermediate_results
.nelts
);
1952 make_cleanup (xfree
, blocks
);
1954 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1956 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1959 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1960 intermediate_results
.sals
[i
].section
);
1963 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1965 if (blocks
[i
] != NULL
)
1966 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1968 if (blocks
[j
] == blocks
[i
])
1976 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1979 struct symbol
*sym
= (blocks
[i
]
1980 ? block_containing_function (blocks
[i
])
1983 if (self
->funfirstline
)
1984 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1985 /* Make sure the line matches the request, not what was
1987 intermediate_results
.sals
[i
].line
= val
.line
;
1988 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1989 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1992 do_cleanups (cleanup
);
1995 if (values
.nelts
== 0)
1997 if (ls
->source_filename
)
1998 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1999 val
.line
, ls
->source_filename
);
2001 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
2008 /* Convert the given ADDRESS into SaLs. */
2010 static struct symtabs_and_lines
2011 convert_address_location_to_sals (struct linespec_state
*self
,
2014 struct symtab_and_line sal
;
2015 struct symtabs_and_lines sals
= {NULL
, 0};
2017 sal
= find_pc_line (address
, 0);
2019 sal
.section
= find_pc_overlay (address
);
2020 sal
.explicit_pc
= 1;
2021 add_sal_to_sals (self
, &sals
, &sal
, core_addr_to_string (address
), 1);
2026 /* Create and return SALs from the linespec LS. */
2028 static struct symtabs_and_lines
2029 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
2031 struct symtabs_and_lines sals
= {NULL
, 0};
2033 if (ls
->labels
.label_symbols
!= NULL
)
2035 /* We have just a bunch of functions/methods or labels. */
2037 struct symtab_and_line sal
;
2040 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
2042 struct program_space
*pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2044 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2045 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2046 add_sal_to_sals (state
, &sals
, &sal
,
2047 SYMBOL_NATURAL_NAME (sym
), 0);
2050 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2052 /* We have just a bunch of functions and/or methods. */
2054 struct symtab_and_line sal
;
2056 bound_minimal_symbol_d
*elem
;
2057 struct program_space
*pspace
;
2059 if (ls
->function_symbols
!= NULL
)
2061 /* Sort symbols so that symbols with the same program space are next
2063 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2064 VEC_length (symbolp
, ls
->function_symbols
),
2065 sizeof (symbolp
), compare_symbols
);
2067 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2069 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
2070 set_current_program_space (pspace
);
2071 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2072 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2073 add_sal_to_sals (state
, &sals
, &sal
,
2074 SYMBOL_NATURAL_NAME (sym
), 0);
2078 if (ls
->minimal_symbols
!= NULL
)
2080 /* Sort minimal symbols by program space, too. */
2081 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2082 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2083 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2086 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2090 pspace
= elem
->objfile
->pspace
;
2091 set_current_program_space (pspace
);
2092 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2096 else if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2098 /* Only an offset was specified. */
2099 sals
= create_sals_line_offset (state
, ls
);
2101 /* Make sure we have a filename for canonicalization. */
2102 if (ls
->source_filename
== NULL
)
2104 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2106 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2107 form so that displaying SOURCE_FILENAME can follow the current
2108 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2109 it has been kept for code simplicity only in absolute form. */
2110 ls
->source_filename
= xstrdup (fullname
);
2115 /* We haven't found any results... */
2119 canonicalize_linespec (state
, ls
);
2121 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2122 state
->canonical
->pre_expanded
= 1;
2127 /* Parse a string that specifies a linespec.
2129 The basic grammar of linespecs:
2131 linespec -> var_spec | basic_spec
2132 var_spec -> '$' (STRING | NUMBER)
2134 basic_spec -> file_offset_spec | function_spec | label_spec
2135 file_offset_spec -> opt_file_spec offset_spec
2136 function_spec -> opt_file_spec function_name_spec opt_label_spec
2137 label_spec -> label_name_spec
2139 opt_file_spec -> "" | file_name_spec ':'
2140 opt_label_spec -> "" | ':' label_name_spec
2142 file_name_spec -> STRING
2143 function_name_spec -> STRING
2144 label_name_spec -> STRING
2145 function_name_spec -> STRING
2146 offset_spec -> NUMBER
2150 This may all be followed by several keywords such as "if EXPR",
2153 A comma will terminate parsing.
2155 The function may be an undebuggable function found in minimal symbol table.
2157 If the argument FUNFIRSTLINE is nonzero, we want the first line
2158 of real code inside a function when a function is specified, and it is
2159 not OK to specify a variable or type to get its line number.
2161 DEFAULT_SYMTAB specifies the file to use if none is specified.
2162 It defaults to current_source_symtab.
2163 DEFAULT_LINE specifies the line number to use for relative
2164 line numbers (that start with signs). Defaults to current_source_line.
2165 If CANONICAL is non-NULL, store an array of strings containing the canonical
2166 line specs there if necessary. Currently overloaded member functions and
2167 line numbers or static functions without a filename yield a canonical
2168 line spec. The array and the line spec strings are allocated on the heap,
2169 it is the callers responsibility to free them.
2171 Note that it is possible to return zero for the symtab
2172 if no file is validly specified. Callers must check that.
2173 Also, the line number returned may be invalid. */
2175 /* Parse the linespec in ARG. */
2177 static struct symtabs_and_lines
2178 parse_linespec (linespec_parser
*parser
, const char *arg
)
2180 linespec_token token
;
2181 struct symtabs_and_lines values
;
2182 struct gdb_exception file_exception
= exception_none
;
2183 struct cleanup
*cleanup
;
2185 /* A special case to start. It has become quite popular for
2186 IDEs to work around bugs in the previous parser by quoting
2187 the entire linespec, so we attempt to deal with this nicely. */
2188 parser
->is_quote_enclosed
= 0;
2189 if (!is_ada_operator (arg
)
2190 && strchr (linespec_quote_characters
, *arg
) != NULL
)
2194 end
= skip_quote_char (arg
+ 1, *arg
);
2195 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2197 /* Here's the special case. Skip ARG past the initial
2200 parser
->is_quote_enclosed
= 1;
2204 parser
->lexer
.saved_arg
= arg
;
2205 parser
->lexer
.stream
= arg
;
2207 /* Initialize the default symtab and line offset. */
2208 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2209 &PARSER_STATE (parser
)->default_line
);
2211 /* Objective-C shortcut. */
2212 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), arg
);
2213 if (values
.sals
!= NULL
)
2216 /* Start parsing. */
2218 /* Get the first token. */
2219 token
= linespec_lexer_lex_one (parser
);
2221 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2222 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2226 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2227 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2229 /* User specified a convenience variable or history value. */
2230 var
= copy_token_string (token
);
2231 cleanup
= make_cleanup (xfree
, var
);
2232 PARSER_RESULT (parser
)->line_offset
2233 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2234 do_cleanups (cleanup
);
2236 /* If a line_offset wasn't found (VAR is the name of a user
2237 variable/function), then skip to normal symbol processing. */
2238 if (PARSER_RESULT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2240 /* Consume this token. */
2241 linespec_lexer_consume_token (parser
);
2243 goto convert_to_sals
;
2246 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2247 unexpected_linespec_error (parser
);
2249 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2250 this token cannot represent a filename. */
2251 token
= linespec_lexer_peek_token (parser
);
2253 if (token
.type
== LSTOKEN_COLON
)
2255 char *user_filename
;
2257 /* Get the current token again and extract the filename. */
2258 token
= linespec_lexer_lex_one (parser
);
2259 user_filename
= copy_token_string (token
);
2261 /* Check if the input is a filename. */
2264 PARSER_RESULT (parser
)->file_symtabs
2265 = symtabs_from_filename (user_filename
);
2267 CATCH (ex
, RETURN_MASK_ERROR
)
2269 file_exception
= ex
;
2273 if (file_exception
.reason
>= 0)
2275 /* Symtabs were found for the file. Record the filename. */
2276 PARSER_RESULT (parser
)->source_filename
= user_filename
;
2278 /* Get the next token. */
2279 token
= linespec_lexer_consume_token (parser
);
2281 /* This is LSTOKEN_COLON; consume it. */
2282 linespec_lexer_consume_token (parser
);
2286 /* No symtabs found -- discard user_filename. */
2287 xfree (user_filename
);
2289 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2290 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2293 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2294 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2295 && token
.type
!= LSTOKEN_COMMA
)
2297 /* TOKEN is the _next_ token, not the one currently in the parser.
2298 Consuming the token will give the correct error message. */
2299 linespec_lexer_consume_token (parser
);
2300 unexpected_linespec_error (parser
);
2304 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2305 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2308 /* Parse the rest of the linespec. */
2309 linespec_parse_basic (parser
);
2311 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2312 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2313 && PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2314 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2316 /* The linespec didn't parse. Re-throw the file exception if
2318 if (file_exception
.reason
< 0)
2319 throw_exception (file_exception
);
2321 /* Otherwise, the symbol is not found. */
2322 symbol_not_found_error (PARSER_RESULT (parser
)->function_name
,
2323 PARSER_RESULT (parser
)->source_filename
);
2328 /* Get the last token and record how much of the input was parsed,
2330 token
= linespec_lexer_lex_one (parser
);
2331 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2332 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2334 /* Convert the data in PARSER_RESULT to SALs. */
2335 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2336 PARSER_RESULT (parser
));
2342 /* A constructor for linespec_state. */
2345 linespec_state_constructor (struct linespec_state
*self
,
2346 int flags
, const struct language_defn
*language
,
2347 struct symtab
*default_symtab
,
2349 struct linespec_result
*canonical
)
2351 memset (self
, 0, sizeof (*self
));
2352 self
->language
= language
;
2353 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2354 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2355 self
->default_symtab
= default_symtab
;
2356 self
->default_line
= default_line
;
2357 self
->canonical
= canonical
;
2358 self
->program_space
= current_program_space
;
2359 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2360 xfree
, xcalloc
, xfree
);
2363 /* Initialize a new linespec parser. */
2366 linespec_parser_new (linespec_parser
*parser
,
2367 int flags
, const struct language_defn
*language
,
2368 struct symtab
*default_symtab
,
2370 struct linespec_result
*canonical
)
2372 memset (parser
, 0, sizeof (linespec_parser
));
2373 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2374 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2375 PARSER_RESULT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2376 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2377 default_symtab
, default_line
, canonical
);
2380 /* A destructor for linespec_state. */
2383 linespec_state_destructor (struct linespec_state
*self
)
2385 htab_delete (self
->addr_set
);
2388 /* Delete a linespec parser. */
2391 linespec_parser_delete (void *arg
)
2393 linespec_parser
*parser
= (linespec_parser
*) arg
;
2395 xfree ((char *) PARSER_RESULT (parser
)->expression
);
2396 xfree ((char *) PARSER_RESULT (parser
)->source_filename
);
2397 xfree ((char *) PARSER_RESULT (parser
)->label_name
);
2398 xfree ((char *) PARSER_RESULT (parser
)->function_name
);
2400 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2401 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2403 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2404 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2406 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2407 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2409 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2410 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2412 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2413 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2415 linespec_state_destructor (PARSER_STATE (parser
));
2418 /* See description in linespec.h. */
2421 linespec_lex_to_end (char **stringp
)
2423 linespec_parser parser
;
2424 struct cleanup
*cleanup
;
2425 linespec_token token
;
2428 if (stringp
== NULL
|| *stringp
== NULL
)
2431 linespec_parser_new (&parser
, 0, current_language
, NULL
, 0, NULL
);
2432 cleanup
= make_cleanup (linespec_parser_delete
, &parser
);
2433 parser
.lexer
.saved_arg
= *stringp
;
2434 PARSER_STREAM (&parser
) = orig
= *stringp
;
2438 /* Stop before any comma tokens; we need it to keep it
2439 as the next token in the string. */
2440 token
= linespec_lexer_peek_token (&parser
);
2441 if (token
.type
== LSTOKEN_COMMA
)
2443 token
= linespec_lexer_consume_token (&parser
);
2445 while (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
);
2447 *stringp
+= PARSER_STREAM (&parser
) - orig
;
2448 do_cleanups (cleanup
);
2451 /* A helper function for decode_line_full and decode_line_1 to
2452 turn LOCATION into symtabs_and_lines. */
2454 static struct symtabs_and_lines
2455 event_location_to_sals (linespec_parser
*parser
,
2456 const struct event_location
*location
)
2458 struct symtabs_and_lines result
= {NULL
, 0};
2460 switch (event_location_type (location
))
2462 case LINESPEC_LOCATION
:
2466 result
= parse_linespec (parser
, get_linespec_location (location
));
2468 CATCH (except
, RETURN_MASK_ERROR
)
2470 throw_exception (except
);
2476 case ADDRESS_LOCATION
:
2478 = convert_address_location_to_sals (PARSER_STATE (parser
),
2479 get_address_location (location
));
2482 case PROBE_LOCATION
:
2483 /* Probes are handled by their own decoders. */
2484 gdb_assert_not_reached ("attempt to decode probe location");
2488 gdb_assert_not_reached ("unhandled event location type");
2494 /* See linespec.h. */
2497 decode_line_full (const struct event_location
*location
, int flags
,
2498 struct symtab
*default_symtab
,
2499 int default_line
, struct linespec_result
*canonical
,
2500 const char *select_mode
,
2503 struct symtabs_and_lines result
;
2504 struct cleanup
*cleanups
;
2505 VEC (const_char_ptr
) *filters
= NULL
;
2506 linespec_parser parser
;
2507 struct linespec_state
*state
;
2509 gdb_assert (canonical
!= NULL
);
2510 /* The filter only makes sense for 'all'. */
2511 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2512 gdb_assert (select_mode
== NULL
2513 || select_mode
== multiple_symbols_all
2514 || select_mode
== multiple_symbols_ask
2515 || select_mode
== multiple_symbols_cancel
);
2516 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2518 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2519 default_line
, canonical
);
2520 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2521 save_current_program_space ();
2523 result
= event_location_to_sals (&parser
, location
);
2524 state
= PARSER_STATE (&parser
);
2526 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2527 canonical
->pre_expanded
= 1;
2529 /* Arrange for allocated canonical names to be freed. */
2530 if (result
.nelts
> 0)
2534 make_cleanup (xfree
, state
->canonical_names
);
2535 for (i
= 0; i
< result
.nelts
; ++i
)
2537 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2538 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2542 if (select_mode
== NULL
)
2544 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2545 select_mode
= multiple_symbols_all
;
2547 select_mode
= multiple_symbols_select_mode ();
2550 if (select_mode
== multiple_symbols_all
)
2554 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2555 VEC_safe_push (const_char_ptr
, filters
, filter
);
2556 filter_results (state
, &result
, filters
);
2559 convert_results_to_lsals (state
, &result
);
2562 decode_line_2 (state
, &result
, select_mode
);
2564 do_cleanups (cleanups
);
2567 /* See linespec.h. */
2569 struct symtabs_and_lines
2570 decode_line_1 (const struct event_location
*location
, int flags
,
2571 struct symtab
*default_symtab
,
2574 struct symtabs_and_lines result
;
2575 linespec_parser parser
;
2576 struct cleanup
*cleanups
;
2578 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2579 default_line
, NULL
);
2580 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2581 save_current_program_space ();
2583 result
= event_location_to_sals (&parser
, location
);
2585 do_cleanups (cleanups
);
2589 /* See linespec.h. */
2591 struct symtabs_and_lines
2592 decode_line_with_current_source (char *string
, int flags
)
2594 struct symtabs_and_lines sals
;
2595 struct symtab_and_line cursal
;
2596 struct event_location
*location
;
2597 struct cleanup
*cleanup
;
2600 error (_("Empty line specification."));
2602 /* We use whatever is set as the current source line. We do not try
2603 and get a default source symtab+line or it will recursively call us! */
2604 cursal
= get_current_source_symtab_and_line ();
2606 location
= string_to_event_location (&string
, current_language
);
2607 cleanup
= make_cleanup_delete_event_location (location
);
2608 sals
= decode_line_1 (location
, flags
,
2609 cursal
.symtab
, cursal
.line
);
2612 error (_("Junk at end of line specification: %s"), string
);
2614 do_cleanups (cleanup
);
2618 /* See linespec.h. */
2620 struct symtabs_and_lines
2621 decode_line_with_last_displayed (char *string
, int flags
)
2623 struct symtabs_and_lines sals
;
2624 struct event_location
*location
;
2625 struct cleanup
*cleanup
;
2628 error (_("Empty line specification."));
2630 location
= string_to_event_location (&string
, current_language
);
2631 cleanup
= make_cleanup_delete_event_location (location
);
2632 if (last_displayed_sal_is_valid ())
2633 sals
= decode_line_1 (location
, flags
,
2634 get_last_displayed_symtab (),
2635 get_last_displayed_line ());
2637 sals
= decode_line_1 (location
, flags
, (struct symtab
*) NULL
, 0);
2640 error (_("Junk at end of line specification: %s"), string
);
2642 do_cleanups (cleanup
);
2648 /* First, some functions to initialize stuff at the beggining of the
2652 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2654 if (*default_symtab
== 0)
2656 /* Use whatever we have for the default source line. We don't use
2657 get_current_or_default_symtab_and_line as it can recurse and call
2659 struct symtab_and_line cursal
=
2660 get_current_source_symtab_and_line ();
2662 *default_symtab
= cursal
.symtab
;
2663 *default_line
= cursal
.line
;
2669 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2670 advancing EXP_PTR past any parsed text. */
2673 linespec_expression_to_pc (const char **exp_ptr
)
2675 if (current_program_space
->executing_startup
)
2676 /* The error message doesn't really matter, because this case
2677 should only hit during breakpoint reset. */
2678 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2679 "program space is in startup"));
2682 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2687 /* Here's where we recognise an Objective-C Selector. An Objective C
2688 selector may be implemented by more than one class, therefore it
2689 may represent more than one method/function. This gives us a
2690 situation somewhat analogous to C++ overloading. If there's more
2691 than one method that could represent the selector, then use some of
2692 the existing C++ code to let the user choose one. */
2694 static struct symtabs_and_lines
2695 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char *arg
)
2697 struct collect_info info
;
2698 VEC (const_char_ptr
) *symbol_names
= NULL
;
2699 struct symtabs_and_lines values
;
2700 const char *new_argptr
;
2701 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2705 info
.file_symtabs
= NULL
;
2706 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2707 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2708 info
.result
.symbols
= NULL
;
2709 info
.result
.minimal_symbols
= NULL
;
2713 new_argptr
= find_imps (arg
, &symbol_names
);
2714 if (VEC_empty (const_char_ptr
, symbol_names
))
2716 do_cleanups (cleanup
);
2720 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2722 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2723 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2727 saved_arg
= alloca (new_argptr
- arg
+ 1);
2728 memcpy (saved_arg
, arg
, new_argptr
- arg
);
2729 saved_arg
[new_argptr
- arg
] = '\0';
2731 ls
->function_name
= xstrdup (saved_arg
);
2732 ls
->function_symbols
= info
.result
.symbols
;
2733 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2734 values
= convert_linespec_to_sals (self
, ls
);
2736 if (self
->canonical
)
2740 self
->canonical
->pre_expanded
= 1;
2742 if (ls
->source_filename
)
2744 str
= xstrprintf ("%s:%s",
2745 ls
->source_filename
, saved_arg
);
2748 str
= xstrdup (saved_arg
);
2750 make_cleanup (xfree
, str
);
2751 self
->canonical
->location
= new_linespec_location (&str
);
2755 do_cleanups (cleanup
);
2760 /* An instance of this type is used when collecting prefix symbols for
2763 struct decode_compound_collector
2765 /* The result vector. */
2766 VEC (symbolp
) *symbols
;
2768 /* A hash table of all symbols we found. We use this to avoid
2769 adding any symbol more than once. */
2773 /* A callback for iterate_over_symbols that is used by
2774 lookup_prefix_sym to collect type symbols. */
2777 collect_one_symbol (struct symbol
*sym
, void *d
)
2779 struct decode_compound_collector
*collector
= d
;
2783 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2784 return 1; /* Continue iterating. */
2786 t
= SYMBOL_TYPE (sym
);
2787 t
= check_typedef (t
);
2788 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2789 && TYPE_CODE (t
) != TYPE_CODE_UNION
2790 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2791 return 1; /* Continue iterating. */
2793 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2797 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2800 return 1; /* Continue iterating. */
2803 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2805 static VEC (symbolp
) *
2806 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2807 const char *class_name
)
2811 struct decode_compound_collector collector
;
2812 struct cleanup
*outer
;
2813 struct cleanup
*cleanup
;
2815 collector
.symbols
= NULL
;
2816 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2818 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2819 htab_eq_pointer
, NULL
,
2821 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2823 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2827 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2828 collect_one_symbol
, &collector
,
2830 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2831 collect_one_symbol
, &collector
,
2836 /* Program spaces that are executing startup should have
2837 been filtered out earlier. */
2838 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2839 set_current_program_space (SYMTAB_PSPACE (elt
));
2840 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2841 collect_one_symbol
, &collector
);
2842 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2843 collect_one_symbol
, &collector
);
2847 do_cleanups (cleanup
);
2848 discard_cleanups (outer
);
2849 return collector
.symbols
;
2852 /* A qsort comparison function for symbols. The resulting order does
2853 not actually matter; we just need to be able to sort them so that
2854 symbols with the same program space end up next to each other. */
2857 compare_symbols (const void *a
, const void *b
)
2859 struct symbol
* const *sa
= a
;
2860 struct symbol
* const *sb
= b
;
2863 uia
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sa
));
2864 uib
= (uintptr_t) SYMTAB_PSPACE (symbol_symtab (*sb
));
2871 uia
= (uintptr_t) *sa
;
2872 uib
= (uintptr_t) *sb
;
2882 /* Like compare_symbols but for minimal symbols. */
2885 compare_msymbols (const void *a
, const void *b
)
2887 const struct bound_minimal_symbol
*sa
= a
;
2888 const struct bound_minimal_symbol
*sb
= b
;
2891 uia
= (uintptr_t) sa
->objfile
->pspace
;
2892 uib
= (uintptr_t) sa
->objfile
->pspace
;
2899 uia
= (uintptr_t) sa
->minsym
;
2900 uib
= (uintptr_t) sb
->minsym
;
2910 /* Look for all the matching instances of each symbol in NAMES. Only
2911 instances from PSPACE are considered; other program spaces are
2912 handled by our caller. If PSPACE is NULL, then all program spaces
2913 are considered. Results are stored into INFO. */
2916 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2917 struct program_space
*pspace
,
2918 VEC (const_char_ptr
) *names
)
2923 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2924 add_matching_symbols_to_info (iter
, info
, pspace
);
2928 find_superclass_methods (VEC (typep
) *superclasses
,
2930 VEC (const_char_ptr
) **result_names
)
2932 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2933 VEC (typep
) *iter_classes
;
2934 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2936 iter_classes
= superclasses
;
2939 VEC (typep
) *new_supers
= NULL
;
2943 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2944 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2945 find_methods (t
, name
, result_names
, &new_supers
);
2947 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2948 || VEC_empty (typep
, new_supers
))
2951 iter_classes
= new_supers
;
2954 do_cleanups (cleanup
);
2957 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2958 given by one of the symbols in SYM_CLASSES. Matches are returned
2959 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2962 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2963 const char *class_name
, const char *method_name
,
2964 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2965 VEC (bound_minimal_symbol_d
) **minsyms
)
2968 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2970 int last_result_len
;
2971 VEC (typep
) *superclass_vec
;
2972 VEC (const_char_ptr
) *result_names
;
2973 struct collect_info info
;
2975 /* Sort symbols so that symbols with the same program space are next
2977 qsort (VEC_address (symbolp
, sym_classes
),
2978 VEC_length (symbolp
, sym_classes
),
2983 info
.file_symtabs
= file_symtabs
;
2984 info
.result
.symbols
= NULL
;
2985 info
.result
.minimal_symbols
= NULL
;
2987 /* Iterate over all the types, looking for the names of existing
2988 methods matching METHOD_NAME. If we cannot find a direct method in a
2989 given program space, then we consider inherited methods; this is
2990 not ideal (ideal would be to respect C++ hiding rules), but it
2991 seems good enough and is what GDB has historically done. We only
2992 need to collect the names because later we find all symbols with
2993 those names. This loop is written in a somewhat funny way
2994 because we collect data across the program space before deciding
2996 superclass_vec
= NULL
;
2997 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
2998 result_names
= NULL
;
2999 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
3000 last_result_len
= 0;
3001 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
3004 struct program_space
*pspace
;
3006 /* Program spaces that are executing startup should have
3007 been filtered out earlier. */
3008 pspace
= SYMTAB_PSPACE (symbol_symtab (sym
));
3009 gdb_assert (!pspace
->executing_startup
);
3010 set_current_program_space (pspace
);
3011 t
= check_typedef (SYMBOL_TYPE (sym
));
3012 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
3014 /* Handle all items from a single program space at once; and be
3015 sure not to miss the last batch. */
3016 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
3018 != SYMTAB_PSPACE (symbol_symtab (VEC_index (symbolp
, sym_classes
,
3021 /* If we did not find a direct implementation anywhere in
3022 this program space, consider superclasses. */
3023 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
3024 find_superclass_methods (superclass_vec
, method_name
,
3027 /* We have a list of candidate symbol names, so now we
3028 iterate over the symbol tables looking for all
3029 matches in this pspace. */
3030 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
3032 VEC_truncate (typep
, superclass_vec
, 0);
3033 last_result_len
= VEC_length (const_char_ptr
, result_names
);
3037 if (!VEC_empty (symbolp
, info
.result
.symbols
)
3038 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3040 *symbols
= info
.result
.symbols
;
3041 *minsyms
= info
.result
.minimal_symbols
;
3042 do_cleanups (cleanup
);
3046 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
3047 and other attempts to locate the symbol will be made. */
3048 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
3053 /* This object is used when collecting all matching symtabs. */
3055 struct symtab_collector
3057 /* The result vector of symtabs. */
3058 VEC (symtab_ptr
) *symtabs
;
3060 /* This is used to ensure the symtabs are unique. */
3061 htab_t symtab_table
;
3064 /* Callback for iterate_over_symtabs. */
3067 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
3069 struct symtab_collector
*data
= d
;
3072 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
3076 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
3082 /* Given a file name, return a VEC of all matching symtabs. */
3084 static VEC (symtab_ptr
) *
3085 collect_symtabs_from_filename (const char *file
)
3087 struct symtab_collector collector
;
3088 struct cleanup
*cleanups
;
3089 struct program_space
*pspace
;
3091 collector
.symtabs
= NULL
;
3092 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3094 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
3096 /* Find that file's data. */
3097 ALL_PSPACES (pspace
)
3099 if (pspace
->executing_startup
)
3102 set_current_program_space (pspace
);
3103 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3106 do_cleanups (cleanups
);
3107 return collector
.symtabs
;
3110 /* Return all the symtabs associated to the FILENAME. */
3112 static VEC (symtab_ptr
) *
3113 symtabs_from_filename (const char *filename
)
3115 VEC (symtab_ptr
) *result
;
3117 result
= collect_symtabs_from_filename (filename
);
3119 if (VEC_empty (symtab_ptr
, result
))
3121 if (!have_full_symbols () && !have_partial_symbols ())
3122 throw_error (NOT_FOUND_ERROR
,
3123 _("No symbol table is loaded. "
3124 "Use the \"file\" command."));
3125 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), filename
);
3131 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3132 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3133 returned in MINSYMS. */
3136 find_function_symbols (struct linespec_state
*state
,
3137 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3138 VEC (symbolp
) **symbols
,
3139 VEC (bound_minimal_symbol_d
) **minsyms
)
3141 struct collect_info info
;
3142 VEC (const_char_ptr
) *symbol_names
= NULL
;
3143 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3147 info
.result
.symbols
= NULL
;
3148 info
.result
.minimal_symbols
= NULL
;
3149 info
.file_symtabs
= file_symtabs
;
3151 /* Try NAME as an Objective-C selector. */
3152 find_imps (name
, &symbol_names
);
3153 if (!VEC_empty (const_char_ptr
, symbol_names
))
3154 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3156 add_matching_symbols_to_info (name
, &info
, NULL
);
3158 do_cleanups (cleanup
);
3160 if (VEC_empty (symbolp
, info
.result
.symbols
))
3162 VEC_free (symbolp
, info
.result
.symbols
);
3166 *symbols
= info
.result
.symbols
;
3168 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3170 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3174 *minsyms
= info
.result
.minimal_symbols
;
3177 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3178 in SYMBOLS and minimal symbols in MINSYMS. */
3181 find_linespec_symbols (struct linespec_state
*state
,
3182 VEC (symtab_ptr
) *file_symtabs
,
3184 VEC (symbolp
) **symbols
,
3185 VEC (bound_minimal_symbol_d
) **minsyms
)
3187 struct cleanup
*cleanup
;
3189 const char *lookup_name
;
3191 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3193 if (state
->language
->la_language
== language_ada
)
3195 /* In Ada, the symbol lookups are performed using the encoded
3196 name rather than the demangled name. */
3197 lookup_name
= ada_name_for_lookup (name
);
3198 make_cleanup (xfree
, (void *) lookup_name
);
3201 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3204 lookup_name
= canon
;
3205 make_cleanup (xfree
, canon
);
3208 /* It's important to not call expand_symtabs_matching unnecessarily
3209 as it can really slow things down (by unnecessarily expanding
3210 potentially 1000s of symtabs, which when debugging some apps can
3211 cost 100s of seconds). Avoid this to some extent by *first* calling
3212 find_function_symbols, and only if that doesn't find anything
3213 *then* call find_method. This handles two important cases:
3214 1) break (anonymous namespace)::foo
3215 2) break class::method where method is in class (and not a baseclass) */
3217 find_function_symbols (state
, file_symtabs
, lookup_name
,
3220 /* If we were unable to locate a symbol of the same name, try dividing
3221 the name into class and method names and searching the class and its
3223 if (VEC_empty (symbolp
, *symbols
)
3224 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3226 char *klass
, *method
;
3227 const char *last
, *p
, *scope_op
;
3228 VEC (symbolp
) *classes
;
3230 /* See if we can find a scope operator and break this symbol
3231 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3233 p
= find_toplevel_string (lookup_name
, scope_op
);
3236 /* No C++ scope operator. Try Java. */
3238 p
= find_toplevel_string (lookup_name
, scope_op
);
3245 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3248 /* If no scope operator was found, there is nothing more we can do;
3249 we already attempted to lookup the entire name as a symbol
3253 do_cleanups (cleanup
);
3257 /* LOOKUP_NAME points to the class name.
3258 LAST points to the method name. */
3259 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
3260 make_cleanup (xfree
, klass
);
3261 strncpy (klass
, lookup_name
, last
- lookup_name
);
3262 klass
[last
- lookup_name
] = '\0';
3264 /* Skip past the scope operator. */
3265 last
+= strlen (scope_op
);
3266 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3267 make_cleanup (xfree
, method
);
3268 strcpy (method
, last
);
3270 /* Find a list of classes named KLASS. */
3271 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3272 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3274 if (!VEC_empty (symbolp
, classes
))
3276 /* Now locate a list of suitable methods named METHOD. */
3279 find_method (state
, file_symtabs
, klass
, method
, classes
,
3283 /* If successful, we're done. If NOT_FOUND_ERROR
3284 was not thrown, rethrow the exception that we did get. */
3285 CATCH (except
, RETURN_MASK_ERROR
)
3287 if (except
.error
!= NOT_FOUND_ERROR
)
3288 throw_exception (except
);
3294 do_cleanups (cleanup
);
3297 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3298 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3300 static VEC (symbolp
) *
3301 find_label_symbols (struct linespec_state
*self
,
3302 VEC (symbolp
) *function_symbols
,
3303 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3306 const struct block
*block
;
3308 struct symbol
*fn_sym
;
3309 VEC (symbolp
) *result
= NULL
;
3311 if (function_symbols
== NULL
)
3313 set_current_program_space (self
->program_space
);
3314 block
= get_current_search_block ();
3317 block
&& !BLOCK_FUNCTION (block
);
3318 block
= BLOCK_SUPERBLOCK (block
))
3322 fn_sym
= BLOCK_FUNCTION (block
);
3324 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3328 VEC_safe_push (symbolp
, result
, sym
);
3329 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3335 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3337 set_current_program_space (SYMTAB_PSPACE (symbol_symtab (fn_sym
)));
3338 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3339 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0).symbol
;
3343 VEC_safe_push (symbolp
, result
, sym
);
3344 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3354 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3357 decode_digits_list_mode (struct linespec_state
*self
,
3359 struct symtabs_and_lines
*values
,
3360 struct symtab_and_line val
)
3365 gdb_assert (self
->list_mode
);
3367 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3370 /* The logic above should ensure this. */
3371 gdb_assert (elt
!= NULL
);
3373 set_current_program_space (SYMTAB_PSPACE (elt
));
3375 /* Simplistic search just for the list command. */
3376 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3377 if (val
.symtab
== NULL
)
3379 val
.pspace
= SYMTAB_PSPACE (elt
);
3381 val
.explicit_line
= 1;
3383 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3387 /* A helper for create_sals_line_offset that iterates over the symtabs,
3388 adding lines to the VEC. */
3391 decode_digits_ordinary (struct linespec_state
*self
,
3394 struct symtabs_and_lines
*sals
,
3395 struct linetable_entry
**best_entry
)
3400 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3403 VEC (CORE_ADDR
) *pcs
;
3406 /* The logic above should ensure this. */
3407 gdb_assert (elt
!= NULL
);
3409 set_current_program_space (SYMTAB_PSPACE (elt
));
3411 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3412 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3414 struct symtab_and_line sal
;
3417 sal
.pspace
= SYMTAB_PSPACE (elt
);
3421 add_sal_to_sals_basic (sals
, &sal
);
3424 VEC_free (CORE_ADDR
, pcs
);
3430 /* Return the line offset represented by VARIABLE. */
3432 static struct line_offset
3433 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3437 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3439 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3442 while (*p
>= '0' && *p
<= '9')
3444 if (!*p
) /* Reached end of token without hitting non-digit. */
3446 /* We have a value history reference. */
3447 struct value
*val_history
;
3449 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3451 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3452 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3453 error (_("History values used in line "
3454 "specs must have integer values."));
3455 offset
.offset
= value_as_long (val_history
);
3459 /* Not all digits -- may be user variable/function or a
3460 convenience variable. */
3462 struct internalvar
*ivar
;
3464 /* Try it as a convenience variable. If it is not a convenience
3465 variable, return and allow normal symbol lookup to occur. */
3466 ivar
= lookup_only_internalvar (variable
+ 1);
3468 /* No internal variable with that name. Mark the offset
3469 as unknown to allow the name to be looked up as a symbol. */
3470 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3473 /* We found a valid variable name. If it is not an integer,
3475 if (!get_internalvar_integer (ivar
, &valx
))
3476 error (_("Convenience variables used in line "
3477 "specs must have integer values."));
3479 offset
.offset
= valx
;
3487 /* A callback used to possibly add a symbol to the results. */
3490 collect_symbols (struct symbol
*sym
, void *data
)
3492 struct collect_info
*info
= data
;
3494 /* In list mode, add all matching symbols, regardless of class.
3495 This allows the user to type "list a_global_variable". */
3496 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3497 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3498 return 1; /* Continue iterating. */
3501 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3502 linespec; return the SAL in RESULT. This function should return SALs
3503 matching those from find_function_start_sal, otherwise false
3504 multiple-locations breakpoints could be placed. */
3507 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3508 struct minimal_symbol
*msymbol
,
3509 struct symtabs_and_lines
*result
)
3511 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3513 struct symtab_and_line sal
;
3515 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
),
3516 (struct obj_section
*) 0, 0);
3517 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
3519 /* The minimal symbol might point to a function descriptor;
3520 resolve it to the actual code address instead. */
3521 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3523 sal
= find_pc_sect_line (pc
, NULL
, 0);
3525 if (self
->funfirstline
)
3527 if (sal
.symtab
!= NULL
3528 && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal
.symtab
))
3529 || SYMTAB_LANGUAGE (sal
.symtab
) == language_asm
))
3531 /* If gdbarch_convert_from_func_ptr_addr does not apply then
3532 sal.SECTION, sal.LINE&co. will stay correct from above.
3533 If gdbarch_convert_from_func_ptr_addr applies then
3534 sal.SECTION is cleared from above and sal.LINE&co. will
3535 stay correct from the last find_pc_sect_line above. */
3536 sal
.pc
= MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
);
3537 sal
.pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
,
3541 skip_prologue_sal (&sal
);
3544 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3545 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
3548 /* A helper struct to pass some data through
3549 iterate_over_minimal_symbols. */
3551 struct collect_minsyms
3553 /* The objfile we're examining. */
3554 struct objfile
*objfile
;
3556 /* Only search the given symtab, or NULL to search for all symbols. */
3557 struct symtab
*symtab
;
3559 /* The funfirstline setting from the initial call. */
3562 /* The list_mode setting from the initial call. */
3565 /* The resulting symbols. */
3566 VEC (bound_minimal_symbol_d
) *msyms
;
3569 /* A helper function to classify a minimal_symbol_type according to
3573 classify_mtype (enum minimal_symbol_type t
)
3580 /* Intermediate priority. */
3583 case mst_solib_trampoline
:
3584 /* Lowest priority. */
3588 /* Highest priority. */
3593 /* Callback for qsort that sorts symbols by priority. */
3596 compare_msyms (const void *a
, const void *b
)
3598 const bound_minimal_symbol_d
*moa
= a
;
3599 const bound_minimal_symbol_d
*mob
= b
;
3600 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3601 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3603 return classify_mtype (ta
) - classify_mtype (tb
);
3606 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3610 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3612 struct collect_minsyms
*info
= d
;
3613 bound_minimal_symbol_d mo
;
3616 mo
.objfile
= info
->objfile
;
3618 if (info
->symtab
!= NULL
)
3621 struct symtab_and_line sal
;
3622 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3624 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (info
->objfile
, minsym
),
3626 sal
.section
= MSYMBOL_OBJ_SECTION (info
->objfile
, minsym
);
3628 = gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3630 sal
= find_pc_sect_line (pc
, NULL
, 0);
3632 if (info
->symtab
!= sal
.symtab
)
3636 /* Exclude data symbols when looking for breakpoint locations. */
3637 if (!info
->list_mode
)
3638 switch (minsym
->type
)
3640 case mst_slot_got_plt
:
3647 /* Make sure this minsym is not a function descriptor
3648 before we decide to discard it. */
3649 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3650 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3651 (gdbarch
, BMSYMBOL_VALUE_ADDRESS (mo
),
3654 if (addr
== BMSYMBOL_VALUE_ADDRESS (mo
))
3659 VEC_safe_push (bound_minimal_symbol_d
, info
->msyms
, &mo
);
3662 /* Search for minimal symbols called NAME. If SEARCH_PSPACE
3663 is not NULL, the search is restricted to just that program
3666 If SYMTAB is NULL, search all objfiles, otherwise
3667 restrict results to the given SYMTAB. */
3670 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3671 struct program_space
*search_pspace
,
3672 struct symtab
*symtab
)
3674 struct collect_minsyms local
;
3675 struct cleanup
*cleanup
;
3677 memset (&local
, 0, sizeof (local
));
3678 local
.funfirstline
= info
->state
->funfirstline
;
3679 local
.list_mode
= info
->state
->list_mode
;
3680 local
.symtab
= symtab
;
3682 cleanup
= make_cleanup (VEC_cleanup (bound_minimal_symbol_d
), &local
.msyms
);
3686 struct program_space
*pspace
;
3688 ALL_PSPACES (pspace
)
3690 struct objfile
*objfile
;
3692 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3694 if (pspace
->executing_startup
)
3697 set_current_program_space (pspace
);
3699 ALL_OBJFILES (objfile
)
3701 local
.objfile
= objfile
;
3702 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3708 if (search_pspace
== NULL
|| SYMTAB_PSPACE (symtab
) == search_pspace
)
3710 set_current_program_space (SYMTAB_PSPACE (symtab
));
3711 local
.objfile
= SYMTAB_OBJFILE(symtab
);
3712 iterate_over_minimal_symbols (local
.objfile
, name
, add_minsym
,
3717 if (!VEC_empty (bound_minimal_symbol_d
, local
.msyms
))
3721 bound_minimal_symbol_d
*item
;
3723 qsort (VEC_address (bound_minimal_symbol_d
, local
.msyms
),
3724 VEC_length (bound_minimal_symbol_d
, local
.msyms
),
3725 sizeof (bound_minimal_symbol_d
),
3728 /* Now the minsyms are in classification order. So, we walk
3729 over them and process just the minsyms with the same
3730 classification as the very first minsym in the list. */
3731 item
= VEC_index (bound_minimal_symbol_d
, local
.msyms
, 0);
3732 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3735 VEC_iterate (bound_minimal_symbol_d
, local
.msyms
, ix
, item
);
3738 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3741 VEC_safe_push (bound_minimal_symbol_d
,
3742 info
->result
.minimal_symbols
, item
);
3746 do_cleanups (cleanup
);
3749 /* A helper function to add all symbols matching NAME to INFO. If
3750 PSPACE is not NULL, the search is restricted to just that program
3754 add_matching_symbols_to_info (const char *name
,
3755 struct collect_info
*info
,
3756 struct program_space
*pspace
)
3761 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3765 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3766 collect_symbols
, info
,
3768 search_minsyms_for_name (info
, name
, pspace
, NULL
);
3770 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3772 int prev_len
= VEC_length (symbolp
, info
->result
.symbols
);
3774 /* Program spaces that are executing startup should have
3775 been filtered out earlier. */
3776 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3777 set_current_program_space (SYMTAB_PSPACE (elt
));
3778 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3779 collect_symbols
, info
);
3781 /* If no new symbols were found in this iteration and this symtab
3782 is in assembler, we might actually be looking for a label for
3783 which we don't have debug info. Check for a minimal symbol in
3785 if (prev_len
== VEC_length (symbolp
, info
->result
.symbols
)
3786 && elt
->language
== language_asm
)
3787 search_minsyms_for_name (info
, name
, pspace
, elt
);
3794 /* Now come some functions that are called from multiple places within
3798 symbol_to_sal (struct symtab_and_line
*result
,
3799 int funfirstline
, struct symbol
*sym
)
3801 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3803 *result
= find_function_start_sal (sym
, funfirstline
);
3808 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3811 result
->symtab
= symbol_symtab (sym
);
3812 result
->line
= SYMBOL_LINE (sym
);
3813 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3814 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3815 result
->explicit_pc
= 1;
3818 else if (funfirstline
)
3822 else if (SYMBOL_LINE (sym
) != 0)
3824 /* We know its line number. */
3826 result
->symtab
= symbol_symtab (sym
);
3827 result
->line
= SYMBOL_LINE (sym
);
3828 result
->pspace
= SYMTAB_PSPACE (result
->symtab
);
3836 /* See the comment in linespec.h. */
3839 init_linespec_result (struct linespec_result
*lr
)
3841 memset (lr
, 0, sizeof (*lr
));
3844 /* See the comment in linespec.h. */
3847 destroy_linespec_result (struct linespec_result
*ls
)
3850 struct linespec_sals
*lsal
;
3852 delete_event_location (ls
->location
);
3853 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3855 xfree (lsal
->canonical
);
3856 xfree (lsal
->sals
.sals
);
3858 VEC_free (linespec_sals
, ls
->sals
);
3861 /* Cleanup function for a linespec_result. */
3864 cleanup_linespec_result (void *a
)
3866 destroy_linespec_result (a
);
3869 /* See the comment in linespec.h. */
3872 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3874 return make_cleanup (cleanup_linespec_result
, ls
);