1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2014 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "completer.h"
31 #include "cp-support.h"
32 #include "parser-defs.h"
34 #include "objc-lang.h"
38 #include "mi/mi-cmds.h"
40 #include "arch-utils.h"
42 #include "cli/cli-utils.h"
43 #include "filenames.h"
47 typedef struct symbol
*symbolp
;
50 typedef struct type
*typep
;
53 /* An address entry is used to ensure that any given location is only
54 added to the result a single time. It holds an address and the
55 program space from which the address came. */
59 struct program_space
*pspace
;
63 typedef struct bound_minimal_symbol bound_minimal_symbol_d
;
65 DEF_VEC_O (bound_minimal_symbol_d
);
67 /* An enumeration of possible signs for a line offset. */
68 enum offset_relative_sign
73 /* A plus sign ("+") */
76 /* A minus sign ("-") */
79 /* A special "sign" for unspecified offset. */
83 /* A line offset in a linespec. */
87 /* Line offset and any specified sign. */
89 enum offset_relative_sign sign
;
92 /* A linespec. Elements of this structure are filled in by a parser
93 (either parse_linespec or some other function). The structure is
94 then converted into SALs by convert_linespec_to_sals. */
98 /* An expression and the resulting PC. Specifying an expression
99 currently precludes the use of other members. */
101 /* The expression entered by the user. */
102 const char *expression
;
104 /* The resulting PC expression derived from evaluating EXPRESSION. */
107 /* Any specified file symtabs. */
109 /* The user-supplied source filename or NULL if none was specified. */
110 const char *source_filename
;
112 /* The list of symtabs to search to which to limit the search. May not
113 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
114 FILE_SYMTABS should contain one single NULL member. This will
115 cause the code to use the default symtab. */
116 VEC (symtab_ptr
) *file_symtabs
;
118 /* The name of a function or method and any matching symbols. */
120 /* The user-specified function name. If no function name was
121 supplied, this may be NULL. */
122 const char *function_name
;
124 /* A list of matching function symbols and minimal symbols. Both lists
125 may be NULL if no matching symbols were found. */
126 VEC (symbolp
) *function_symbols
;
127 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
129 /* The name of a label and matching symbols. */
131 /* The user-specified label name. */
132 const char *label_name
;
134 /* A structure of matching label symbols and the corresponding
135 function symbol in which the label was found. Both may be NULL
136 or both must be non-NULL. */
139 VEC (symbolp
) *label_symbols
;
140 VEC (symbolp
) *function_symbols
;
143 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
144 offset was specified. */
145 struct line_offset line_offset
;
147 typedef struct linespec
*linespec_p
;
149 /* A canonical linespec represented as a symtab-related string.
151 Each entry represents the "SYMTAB:SUFFIX" linespec string.
152 SYMTAB can be converted for example by symtab_to_fullname or
153 symtab_to_filename_for_display as needed. */
155 struct linespec_canonical_name
157 /* Remaining text part of the linespec string. */
160 /* If NULL then SUFFIX is the whole linespec string. */
161 struct symtab
*symtab
;
164 /* An instance of this is used to keep all state while linespec
165 operates. This instance is passed around as a 'this' pointer to
166 the various implementation methods. */
168 struct linespec_state
170 /* The language in use during linespec processing. */
171 const struct language_defn
*language
;
173 /* The program space as seen when the module was entered. */
174 struct program_space
*program_space
;
176 /* The default symtab to use, if no other symtab is specified. */
177 struct symtab
*default_symtab
;
179 /* The default line to use. */
182 /* The 'funfirstline' value that was passed in to decode_line_1 or
186 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
189 /* The 'canonical' value passed to decode_line_full, or NULL. */
190 struct linespec_result
*canonical
;
192 /* Canonical strings that mirror the symtabs_and_lines result. */
193 struct linespec_canonical_name
*canonical_names
;
195 /* This is a set of address_entry objects which is used to prevent
196 duplicate symbols from being entered into the result. */
200 /* This is a helper object that is used when collecting symbols into a
205 /* The linespec object in use. */
206 struct linespec_state
*state
;
208 /* A list of symtabs to which to restrict matches. */
209 VEC (symtab_ptr
) *file_symtabs
;
211 /* The result being accumulated. */
214 VEC (symbolp
) *symbols
;
215 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
226 /* A colon "separator" */
238 /* EOI (end of input) */
244 typedef enum ls_token_type linespec_token_type
;
246 /* List of keywords */
248 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
250 /* A token of the linespec lexer */
254 /* The type of the token */
255 linespec_token_type type
;
257 /* Data for the token */
260 /* A string, given as a stoken */
261 struct stoken string
;
267 typedef struct ls_token linespec_token
;
269 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
270 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
272 /* An instance of the linespec parser. */
276 /* Lexer internal data */
279 /* Save head of input stream. */
280 const char *saved_arg
;
282 /* Head of the input stream. */
284 #define PARSER_STREAM(P) (*(P)->lexer.stream)
286 /* The current token. */
287 linespec_token current
;
290 /* Is the entire linespec quote-enclosed? */
291 int is_quote_enclosed
;
293 /* Is a keyword syntactically valid at this point?
294 In, e.g., "break thread thread 1", the leading "keyword" must not
295 be interpreted as such. */
298 /* The state of the parse. */
299 struct linespec_state state
;
300 #define PARSER_STATE(PPTR) (&(PPTR)->state)
302 /* The result of the parse. */
303 struct linespec result
;
304 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
306 typedef struct ls_parser linespec_parser
;
308 /* Prototypes for local functions. */
310 static void iterate_over_file_blocks (struct symtab
*symtab
,
311 const char *name
, domain_enum domain
,
312 symbol_found_callback_ftype
*callback
,
315 static void initialize_defaults (struct symtab
**default_symtab
,
318 static CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
320 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
322 const char **argptr
);
324 static VEC (symtab_ptr
) *symtabs_from_filename (const char *);
326 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
327 VEC (symbolp
) *function_symbols
,
328 VEC (symbolp
) **label_funcs_ret
,
331 static void find_linespec_symbols (struct linespec_state
*self
,
332 VEC (symtab_ptr
) *file_symtabs
,
334 VEC (symbolp
) **symbols
,
335 VEC (bound_minimal_symbol_d
) **minsyms
);
337 static struct line_offset
338 linespec_parse_variable (struct linespec_state
*self
,
339 const char *variable
);
341 static int symbol_to_sal (struct symtab_and_line
*result
,
342 int funfirstline
, struct symbol
*sym
);
344 static void add_matching_symbols_to_info (const char *name
,
345 struct collect_info
*info
,
346 struct program_space
*pspace
);
348 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
349 struct program_space
*pspace
,
350 VEC (const_char_ptr
) *names
);
352 static VEC (symtab_ptr
) *collect_symtabs_from_filename (const char *file
);
354 static void decode_digits_ordinary (struct linespec_state
*self
,
357 struct symtabs_and_lines
*sals
,
358 struct linetable_entry
**best_entry
);
360 static void decode_digits_list_mode (struct linespec_state
*self
,
362 struct symtabs_and_lines
*values
,
363 struct symtab_and_line val
);
365 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
366 struct minimal_symbol
*msymbol
,
367 struct symtabs_and_lines
*result
);
369 static int compare_symbols (const void *a
, const void *b
);
371 static int compare_msymbols (const void *a
, const void *b
);
373 static const char *find_toplevel_char (const char *s
, char c
);
375 /* Permitted quote characters for the parser. This is different from the
376 completer's quote characters to allow backward compatibility with the
378 static const char *const linespec_quote_characters
= "\"\'";
380 /* Lexer functions. */
382 /* Lex a number from the input in PARSER. This only supports
385 Return true if input is decimal numbers. Return false if not. */
388 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
390 tokenp
->type
= LSTOKEN_NUMBER
;
391 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
392 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
394 /* Keep any sign at the start of the stream. */
395 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
397 ++LS_TOKEN_STOKEN (*tokenp
).length
;
398 ++(PARSER_STREAM (parser
));
401 while (isdigit (*PARSER_STREAM (parser
)))
403 ++LS_TOKEN_STOKEN (*tokenp
).length
;
404 ++(PARSER_STREAM (parser
));
407 /* If the next character in the input buffer is not a space, comma,
408 quote, or colon, this input does not represent a number. */
409 if (*PARSER_STREAM (parser
) != '\0'
410 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
411 && *PARSER_STREAM (parser
) != ':'
412 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
414 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
421 /* Does P represent one of the keywords? If so, return
422 the keyword. If not, return NULL. */
425 linespec_lexer_lex_keyword (const char *p
)
431 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
433 int len
= strlen (linespec_keywords
[i
]);
435 /* If P begins with one of the keywords and the next
436 character is not a valid identifier character,
437 we have found a keyword. */
438 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
439 && !(isalnum (p
[len
]) || p
[len
] == '_'))
440 return linespec_keywords
[i
];
447 /* Does STRING represent an Ada operator? If so, return the length
448 of the decoded operator name. If not, return 0. */
451 is_ada_operator (const char *string
)
453 const struct ada_opname_map
*mapping
;
455 for (mapping
= ada_opname_table
;
456 mapping
->encoded
!= NULL
457 && strncmp (mapping
->decoded
, string
,
458 strlen (mapping
->decoded
)) != 0; ++mapping
)
461 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
464 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
465 the location of QUOTE_CHAR, or NULL if not found. */
468 skip_quote_char (const char *string
, char quote_char
)
470 const char *p
, *last
;
472 p
= last
= find_toplevel_char (string
, quote_char
);
473 while (p
&& *p
!= '\0' && *p
!= ':')
475 p
= find_toplevel_char (p
, quote_char
);
483 /* Make a writable copy of the string given in TOKEN, trimming
484 any trailing whitespace. */
487 copy_token_string (linespec_token token
)
491 if (token
.type
== LSTOKEN_KEYWORD
)
492 return xstrdup (LS_TOKEN_KEYWORD (token
));
494 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
495 LS_TOKEN_STOKEN (token
).length
);
496 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
502 /* Does P represent the end of a quote-enclosed linespec? */
505 is_closing_quote_enclosed (const char *p
)
507 if (strchr (linespec_quote_characters
, *p
))
509 p
= skip_spaces ((char *) p
);
510 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
513 /* Find the end of the parameter list that starts with *INPUT.
514 This helper function assists with lexing string segments
515 which might contain valid (non-terminating) commas. */
518 find_parameter_list_end (const char *input
)
520 char end_char
, start_char
;
525 if (start_char
== '(')
527 else if (start_char
== '<')
536 if (*p
== start_char
)
538 else if (*p
== end_char
)
553 /* Lex a string from the input in PARSER. */
555 static linespec_token
556 linespec_lexer_lex_string (linespec_parser
*parser
)
558 linespec_token token
;
559 const char *start
= PARSER_STREAM (parser
);
561 token
.type
= LSTOKEN_STRING
;
563 /* If the input stream starts with a quote character, skip to the next
564 quote character, regardless of the content. */
565 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
568 char quote_char
= *PARSER_STREAM (parser
);
570 /* Special case: Ada operators. */
571 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
572 && quote_char
== '\"')
574 int len
= is_ada_operator (PARSER_STREAM (parser
));
578 /* The input is an Ada operator. Return the quoted string
580 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
581 LS_TOKEN_STOKEN (token
).length
= len
;
582 PARSER_STREAM (parser
) += len
;
586 /* The input does not represent an Ada operator -- fall through
587 to normal quoted string handling. */
590 /* Skip past the beginning quote. */
591 ++(PARSER_STREAM (parser
));
593 /* Mark the start of the string. */
594 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
596 /* Skip to the ending quote. */
597 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
599 /* Error if the input did not terminate properly. */
601 error (_("unmatched quote"));
603 /* Skip over the ending quote and mark the length of the string. */
604 PARSER_STREAM (parser
) = (char *) ++end
;
605 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
611 /* Otherwise, only identifier characters are permitted.
612 Spaces are the exception. In general, we keep spaces,
613 but only if the next characters in the input do not resolve
614 to one of the keywords.
616 This allows users to forgo quoting CV-qualifiers, template arguments,
617 and similar common language constructs. */
621 if (isspace (*PARSER_STREAM (parser
)))
623 p
= skip_spaces_const (PARSER_STREAM (parser
));
624 /* When we get here we know we've found something followed by
625 a space (we skip over parens and templates below).
626 So if we find a keyword now, we know it is a keyword and not,
627 say, a function name. */
628 if (linespec_lexer_lex_keyword (p
) != NULL
)
630 LS_TOKEN_STOKEN (token
).ptr
= start
;
631 LS_TOKEN_STOKEN (token
).length
632 = PARSER_STREAM (parser
) - start
;
636 /* Advance past the whitespace. */
637 PARSER_STREAM (parser
) = p
;
640 /* If the next character is EOI or (single) ':', the
641 string is complete; return the token. */
642 if (*PARSER_STREAM (parser
) == 0)
644 LS_TOKEN_STOKEN (token
).ptr
= start
;
645 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
648 else if (PARSER_STREAM (parser
)[0] == ':')
650 /* Do not tokenize the C++ scope operator. */
651 if (PARSER_STREAM (parser
)[1] == ':')
652 ++(PARSER_STREAM (parser
));
654 /* Do not tokenify if the input length so far is one
655 (i.e, a single-letter drive name) and the next character
656 is a directory separator. This allows Windows-style
657 paths to be recognized as filenames without quoting it. */
658 else if ((PARSER_STREAM (parser
) - start
) != 1
659 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
661 LS_TOKEN_STOKEN (token
).ptr
= start
;
662 LS_TOKEN_STOKEN (token
).length
663 = PARSER_STREAM (parser
) - start
;
667 /* Special case: permit quote-enclosed linespecs. */
668 else if (parser
->is_quote_enclosed
669 && strchr (linespec_quote_characters
,
670 *PARSER_STREAM (parser
))
671 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
673 LS_TOKEN_STOKEN (token
).ptr
= start
;
674 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
677 /* Because commas may terminate a linespec and appear in
678 the middle of valid string input, special cases for
679 '<' and '(' are necessary. */
680 else if (*PARSER_STREAM (parser
) == '<'
681 || *PARSER_STREAM (parser
) == '(')
685 p
= find_parameter_list_end (PARSER_STREAM (parser
));
688 PARSER_STREAM (parser
) = p
;
692 /* Commas are terminators, but not if they are part of an
694 else if (*PARSER_STREAM (parser
) == ',')
696 if ((PARSER_STATE (parser
)->language
->la_language
698 && (PARSER_STREAM (parser
) - start
) > 8
699 /* strlen ("operator") */)
701 char *p
= strstr (start
, "operator");
703 if (p
!= NULL
&& is_operator_name (p
))
705 /* This is an operator name. Keep going. */
706 ++(PARSER_STREAM (parser
));
711 /* Comma terminates the string. */
712 LS_TOKEN_STOKEN (token
).ptr
= start
;
713 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
717 /* Advance the stream. */
718 ++(PARSER_STREAM (parser
));
725 /* Lex a single linespec token from PARSER. */
727 static linespec_token
728 linespec_lexer_lex_one (linespec_parser
*parser
)
732 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
734 /* Skip any whitespace. */
735 PARSER_STREAM (parser
) = skip_spaces_const (PARSER_STREAM (parser
));
737 /* Check for a keyword, they end the linespec. */
739 if (parser
->keyword_ok
)
740 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
743 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
744 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
745 return parser
->lexer
.current
;
748 /* Handle other tokens. */
749 switch (*PARSER_STREAM (parser
))
752 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
756 case '0': case '1': case '2': case '3': case '4':
757 case '5': case '6': case '7': case '8': case '9':
758 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
759 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
763 /* If we have a scope operator, lex the input as a string.
764 Otherwise, return LSTOKEN_COLON. */
765 if (PARSER_STREAM (parser
)[1] == ':')
766 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
769 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
770 ++(PARSER_STREAM (parser
));
774 case '\'': case '\"':
775 /* Special case: permit quote-enclosed linespecs. */
776 if (parser
->is_quote_enclosed
777 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
779 ++(PARSER_STREAM (parser
));
780 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
783 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
787 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
788 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
789 = PARSER_STREAM (parser
);
790 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
791 ++(PARSER_STREAM (parser
));
795 /* If the input is not a number, it must be a string.
796 [Keywords were already considered above.] */
797 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
802 return parser
->lexer
.current
;
805 /* Consume the current token and return the next token in PARSER's
808 static linespec_token
809 linespec_lexer_consume_token (linespec_parser
*parser
)
811 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
812 return linespec_lexer_lex_one (parser
);
815 /* Return the next token without consuming the current token. */
817 static linespec_token
818 linespec_lexer_peek_token (linespec_parser
*parser
)
821 const char *saved_stream
= PARSER_STREAM (parser
);
822 linespec_token saved_token
= parser
->lexer
.current
;
824 next
= linespec_lexer_consume_token (parser
);
825 PARSER_STREAM (parser
) = saved_stream
;
826 parser
->lexer
.current
= saved_token
;
830 /* Helper functions. */
832 /* Add SAL to SALS. */
835 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
836 struct symtab_and_line
*sal
)
839 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
840 sals
->sals
[sals
->nelts
- 1] = *sal
;
843 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
844 the new sal, if needed. If not NULL, SYMNAME is the name of the
845 symbol to use when constructing the new canonical name.
847 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
848 canonical name for the SAL. */
851 add_sal_to_sals (struct linespec_state
*self
,
852 struct symtabs_and_lines
*sals
,
853 struct symtab_and_line
*sal
,
854 const char *symname
, int literal_canonical
)
856 add_sal_to_sals_basic (sals
, sal
);
860 struct linespec_canonical_name
*canonical
;
862 self
->canonical_names
= xrealloc (self
->canonical_names
,
864 * sizeof (*self
->canonical_names
)));
865 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
866 if (!literal_canonical
&& sal
->symtab
)
868 const char *fullname
= symtab_to_fullname (sal
->symtab
);
870 /* Note that the filter doesn't have to be a valid linespec
871 input. We only apply the ":LINE" treatment to Ada for
873 if (symname
!= NULL
&& sal
->line
!= 0
874 && self
->language
->la_language
== language_ada
)
875 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
876 else if (symname
!= NULL
)
877 canonical
->suffix
= xstrdup (symname
);
879 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
880 canonical
->symtab
= sal
->symtab
;
885 canonical
->suffix
= xstrdup (symname
);
887 canonical
->suffix
= xstrdup ("<unknown>");
888 canonical
->symtab
= NULL
;
893 /* A hash function for address_entry. */
896 hash_address_entry (const void *p
)
898 const struct address_entry
*aep
= p
;
901 hash
= iterative_hash_object (aep
->pspace
, 0);
902 return iterative_hash_object (aep
->addr
, hash
);
905 /* An equality function for address_entry. */
908 eq_address_entry (const void *a
, const void *b
)
910 const struct address_entry
*aea
= a
;
911 const struct address_entry
*aeb
= b
;
913 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
916 /* Check whether the address, represented by PSPACE and ADDR, is
917 already in the set. If so, return 0. Otherwise, add it and return
921 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
923 struct address_entry e
, *p
;
928 slot
= htab_find_slot (set
, &e
, INSERT
);
932 p
= XNEW (struct address_entry
);
933 memcpy (p
, &e
, sizeof (struct address_entry
));
939 /* A callback function and the additional data to call it with. */
941 struct symbol_and_data_callback
943 /* The callback to use. */
944 symbol_found_callback_ftype
*callback
;
946 /* Data to be passed to the callback. */
950 /* A helper for iterate_over_all_matching_symtabs that is used to
951 restrict calls to another callback to symbols representing inline
955 iterate_inline_only (struct symbol
*sym
, void *d
)
957 if (SYMBOL_INLINED (sym
))
959 struct symbol_and_data_callback
*cad
= d
;
961 return cad
->callback (sym
, cad
->data
);
963 return 1; /* Continue iterating. */
966 /* Some data for the expand_symtabs_matching callback. */
968 struct symbol_matcher_data
970 /* The lookup name against which symbol name should be compared. */
971 const char *lookup_name
;
973 /* The routine to be used for comparison. */
974 symbol_name_cmp_ftype symbol_name_cmp
;
977 /* A helper for iterate_over_all_matching_symtabs that is passed as a
978 callback to the expand_symtabs_matching method. */
981 iterate_name_matcher (const char *name
, void *d
)
983 const struct symbol_matcher_data
*data
= d
;
985 /* The order of arguments we pass to symbol_name_cmp is important as
986 strcmp_iw, a typical value for symbol_name_cmp, only performs special
987 processing of '(' to remove overload info on the first argument and not
988 the second. The first argument is what the user provided, the second
989 argument is what came from partial syms / .gdb_index. */
990 if (data
->symbol_name_cmp (data
->lookup_name
, name
) == 0)
991 return 1; /* Expand this symbol's symbol table. */
992 return 0; /* Skip this symbol. */
995 /* A helper that walks over all matching symtabs in all objfiles and
996 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
997 not NULL, then the search is restricted to just that program
998 space. If INCLUDE_INLINE is nonzero then symbols representing
999 inlined instances of functions will be included in the result. */
1002 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
1004 const domain_enum domain
,
1005 symbol_found_callback_ftype
*callback
,
1007 struct program_space
*search_pspace
,
1010 struct objfile
*objfile
;
1011 struct program_space
*pspace
;
1012 struct symbol_matcher_data matcher_data
;
1014 matcher_data
.lookup_name
= name
;
1015 matcher_data
.symbol_name_cmp
=
1016 state
->language
->la_get_symbol_name_cmp
!= NULL
1017 ? state
->language
->la_get_symbol_name_cmp (name
)
1020 ALL_PSPACES (pspace
)
1022 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
1024 if (pspace
->executing_startup
)
1027 set_current_program_space (pspace
);
1029 ALL_OBJFILES (objfile
)
1031 struct compunit_symtab
*cu
;
1034 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1035 iterate_name_matcher
,
1039 ALL_OBJFILE_COMPUNITS (objfile
, cu
)
1041 struct symtab
*symtab
= COMPUNIT_FILETABS (cu
);
1043 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1047 struct symbol_and_data_callback cad
= { callback
, data
};
1048 struct block
*block
;
1051 for (i
= FIRST_LOCAL_BLOCK
;
1052 i
< BLOCKVECTOR_NBLOCKS (SYMTAB_BLOCKVECTOR (symtab
));
1055 block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), i
);
1056 state
->language
->la_iterate_over_symbols
1057 (block
, name
, domain
, iterate_inline_only
, &cad
);
1065 /* Returns the block to be used for symbol searches from
1066 the current location. */
1068 static const struct block
*
1069 get_current_search_block (void)
1071 const struct block
*block
;
1072 enum language save_language
;
1074 /* get_selected_block can change the current language when there is
1075 no selected frame yet. */
1076 save_language
= current_language
->la_language
;
1077 block
= get_selected_block (0);
1078 set_language (save_language
);
1083 /* Iterate over static and global blocks. */
1086 iterate_over_file_blocks (struct symtab
*symtab
,
1087 const char *name
, domain_enum domain
,
1088 symbol_found_callback_ftype
*callback
, void *data
)
1090 struct block
*block
;
1092 for (block
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1094 block
= BLOCK_SUPERBLOCK (block
))
1095 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1098 /* A helper for find_method. This finds all methods in type T which
1099 match NAME. It adds matching symbol names to RESULT_NAMES, and
1100 adds T's direct superclasses to SUPERCLASSES. */
1103 find_methods (struct type
*t
, const char *name
,
1104 VEC (const_char_ptr
) **result_names
,
1105 VEC (typep
) **superclasses
)
1108 const char *class_name
= type_name_no_tag (t
);
1110 /* Ignore this class if it doesn't have a name. This is ugly, but
1111 unless we figure out how to get the physname without the name of
1112 the class, then the loop can't do any good. */
1119 /* Loop over each method name. At this level, all overloads of a name
1120 are counted as a single name. There is an inner loop which loops over
1123 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1124 method_counter
>= 0;
1127 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1128 char dem_opname
[64];
1130 if (strncmp (method_name
, "__", 2) == 0 ||
1131 strncmp (method_name
, "op", 2) == 0 ||
1132 strncmp (method_name
, "type", 4) == 0)
1134 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1135 method_name
= dem_opname
;
1136 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1137 method_name
= dem_opname
;
1140 if (strcmp_iw (method_name
, name
) == 0)
1144 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1150 const char *phys_name
;
1152 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1153 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1155 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1156 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1162 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1163 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1166 /* Find an instance of the character C in the string S that is outside
1167 of all parenthesis pairs, single-quoted strings, and double-quoted
1168 strings. Also, ignore the char within a template name, like a ','
1169 within foo<int, int>. */
1172 find_toplevel_char (const char *s
, char c
)
1174 int quoted
= 0; /* zero if we're not in quotes;
1175 '"' if we're in a double-quoted string;
1176 '\'' if we're in a single-quoted string. */
1177 int depth
= 0; /* Number of unclosed parens we've seen. */
1180 for (scan
= s
; *scan
; scan
++)
1184 if (*scan
== quoted
)
1186 else if (*scan
== '\\' && *(scan
+ 1))
1189 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1191 else if (*scan
== '"' || *scan
== '\'')
1193 else if (*scan
== '(' || *scan
== '<')
1195 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1202 /* The string equivalent of find_toplevel_char. Returns a pointer
1203 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1204 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1207 find_toplevel_string (const char *haystack
, const char *needle
)
1209 const char *s
= haystack
;
1213 s
= find_toplevel_char (s
, *needle
);
1217 /* Found first char in HAYSTACK; check rest of string. */
1218 if (strncmp (s
, needle
, strlen (needle
)) == 0)
1221 /* Didn't find it; loop over HAYSTACK, looking for the next
1222 instance of the first character of NEEDLE. */
1226 while (s
!= NULL
&& *s
!= '\0');
1228 /* NEEDLE was not found in HAYSTACK. */
1232 /* Convert CANONICAL to its string representation using
1233 symtab_to_fullname for SYMTAB. The caller must xfree the result. */
1236 canonical_to_fullform (const struct linespec_canonical_name
*canonical
)
1238 if (canonical
->symtab
== NULL
)
1239 return xstrdup (canonical
->suffix
);
1241 return xstrprintf ("%s:%s", symtab_to_fullname (canonical
->symtab
),
1245 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1246 and store the result in SELF->CANONICAL. */
1249 filter_results (struct linespec_state
*self
,
1250 struct symtabs_and_lines
*result
,
1251 VEC (const_char_ptr
) *filters
)
1256 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1258 struct linespec_sals lsal
;
1261 memset (&lsal
, 0, sizeof (lsal
));
1263 for (j
= 0; j
< result
->nelts
; ++j
)
1265 const struct linespec_canonical_name
*canonical
;
1267 struct cleanup
*cleanup
;
1269 canonical
= &self
->canonical_names
[j
];
1270 fullform
= canonical_to_fullform (canonical
);
1271 cleanup
= make_cleanup (xfree
, fullform
);
1273 if (strcmp (name
, fullform
) == 0)
1274 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1276 do_cleanups (cleanup
);
1279 if (lsal
.sals
.nelts
> 0)
1281 lsal
.canonical
= xstrdup (name
);
1282 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1286 self
->canonical
->pre_expanded
= 0;
1289 /* Store RESULT into SELF->CANONICAL. */
1292 convert_results_to_lsals (struct linespec_state
*self
,
1293 struct symtabs_and_lines
*result
)
1295 struct linespec_sals lsal
;
1297 lsal
.canonical
= NULL
;
1298 lsal
.sals
= *result
;
1299 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1302 /* A structure that contains two string representations of a struct
1303 linespec_canonical_name:
1304 - one where the the symtab's fullname is used;
1305 - one where the filename followed the "set filename-display"
1308 struct decode_line_2_item
1310 /* The form using symtab_to_fullname.
1311 It must be xfree'ed after use. */
1314 /* The form using symtab_to_filename_for_display.
1315 It must be xfree'ed after use. */
1318 /* Field is initialized to zero and it is set to one if the user
1319 requested breakpoint for this entry. */
1320 unsigned int selected
: 1;
1323 /* Helper for qsort to sort decode_line_2_item entries by DISPLAYFORM and
1324 secondarily by FULLFORM. */
1327 decode_line_2_compare_items (const void *ap
, const void *bp
)
1329 const struct decode_line_2_item
*a
= ap
;
1330 const struct decode_line_2_item
*b
= bp
;
1333 retval
= strcmp (a
->displayform
, b
->displayform
);
1337 return strcmp (a
->fullform
, b
->fullform
);
1340 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1341 will either return normally, throw an exception on multiple
1342 results, or present a menu to the user. On return, the SALS vector
1343 in SELF->CANONICAL is set up properly. */
1346 decode_line_2 (struct linespec_state
*self
,
1347 struct symtabs_and_lines
*result
,
1348 const char *select_mode
)
1350 char *args
, *prompt
;
1352 struct cleanup
*old_chain
;
1353 VEC (const_char_ptr
) *filters
= NULL
;
1354 struct get_number_or_range_state state
;
1355 struct decode_line_2_item
*items
;
1358 gdb_assert (select_mode
!= multiple_symbols_all
);
1359 gdb_assert (self
->canonical
!= NULL
);
1360 gdb_assert (result
->nelts
>= 1);
1362 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1364 /* Prepare ITEMS array. */
1365 items_count
= result
->nelts
;
1366 items
= xmalloc (sizeof (*items
) * items_count
);
1367 make_cleanup (xfree
, items
);
1368 for (i
= 0; i
< items_count
; ++i
)
1370 const struct linespec_canonical_name
*canonical
;
1371 struct decode_line_2_item
*item
;
1373 canonical
= &self
->canonical_names
[i
];
1374 gdb_assert (canonical
->suffix
!= NULL
);
1377 item
->fullform
= canonical_to_fullform (canonical
);
1378 make_cleanup (xfree
, item
->fullform
);
1380 if (canonical
->symtab
== NULL
)
1381 item
->displayform
= canonical
->suffix
;
1384 const char *fn_for_display
;
1386 fn_for_display
= symtab_to_filename_for_display (canonical
->symtab
);
1387 item
->displayform
= xstrprintf ("%s:%s", fn_for_display
,
1389 make_cleanup (xfree
, item
->displayform
);
1395 /* Sort the list of method names. */
1396 qsort (items
, items_count
, sizeof (*items
), decode_line_2_compare_items
);
1398 /* Remove entries with the same FULLFORM. */
1399 if (items_count
>= 2)
1401 struct decode_line_2_item
*dst
, *src
;
1404 for (src
= &items
[1]; src
< &items
[items_count
]; src
++)
1405 if (strcmp (src
->fullform
, dst
->fullform
) != 0)
1407 items_count
= dst
+ 1 - items
;
1410 if (select_mode
== multiple_symbols_cancel
&& items_count
> 1)
1411 error (_("canceled because the command is ambiguous\n"
1412 "See set/show multiple-symbol."));
1414 if (select_mode
== multiple_symbols_all
|| items_count
== 1)
1416 do_cleanups (old_chain
);
1417 convert_results_to_lsals (self
, result
);
1421 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1422 for (i
= 0; i
< items_count
; i
++)
1423 printf_unfiltered ("[%d] %s\n", i
+ 2, items
[i
].displayform
);
1425 prompt
= getenv ("PS2");
1430 args
= command_line_input (prompt
, 0, "overload-choice");
1432 if (args
== 0 || *args
== 0)
1433 error_no_arg (_("one or more choice numbers"));
1435 init_number_or_range (&state
, args
);
1436 while (!state
.finished
)
1440 num
= get_number_or_range (&state
);
1443 error (_("canceled"));
1446 /* We intentionally make this result in a single breakpoint,
1447 contrary to what older versions of gdb did. The
1448 rationale is that this lets a user get the
1449 multiple_symbols_all behavior even with the 'ask'
1450 setting; and he can get separate breakpoints by entering
1451 "2-57" at the query. */
1452 do_cleanups (old_chain
);
1453 convert_results_to_lsals (self
, result
);
1458 if (num
>= items_count
)
1459 printf_unfiltered (_("No choice number %d.\n"), num
);
1462 struct decode_line_2_item
*item
= &items
[num
];
1464 if (!item
->selected
)
1466 VEC_safe_push (const_char_ptr
, filters
, item
->fullform
);
1471 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1477 filter_results (self
, result
, filters
);
1478 do_cleanups (old_chain
);
1483 /* The parser of linespec itself. */
1485 /* Throw an appropriate error when SYMBOL is not found (optionally in
1488 static void ATTRIBUTE_NORETURN
1489 symbol_not_found_error (const char *symbol
, const char *filename
)
1494 if (!have_full_symbols ()
1495 && !have_partial_symbols ()
1496 && !have_minimal_symbols ())
1497 throw_error (NOT_FOUND_ERROR
,
1498 _("No symbol table is loaded. Use the \"file\" command."));
1500 /* If SYMBOL starts with '$', the user attempted to either lookup
1501 a function/variable in his code starting with '$' or an internal
1502 variable of that name. Since we do not know which, be concise and
1503 explain both possibilities. */
1507 throw_error (NOT_FOUND_ERROR
,
1508 _("Undefined convenience variable or function \"%s\" "
1509 "not defined in \"%s\"."), symbol
, filename
);
1511 throw_error (NOT_FOUND_ERROR
,
1512 _("Undefined convenience variable or function \"%s\" "
1513 "not defined."), symbol
);
1518 throw_error (NOT_FOUND_ERROR
,
1519 _("Function \"%s\" not defined in \"%s\"."),
1522 throw_error (NOT_FOUND_ERROR
,
1523 _("Function \"%s\" not defined."), symbol
);
1527 /* Throw an appropriate error when an unexpected token is encountered
1530 static void ATTRIBUTE_NORETURN
1531 unexpected_linespec_error (linespec_parser
*parser
)
1533 linespec_token token
;
1534 static const char * token_type_strings
[]
1535 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1537 /* Get the token that generated the error. */
1538 token
= linespec_lexer_lex_one (parser
);
1540 /* Finally, throw the error. */
1541 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1542 || token
.type
== LSTOKEN_KEYWORD
)
1545 struct cleanup
*cleanup
;
1547 string
= copy_token_string (token
);
1548 cleanup
= make_cleanup (xfree
, string
);
1549 throw_error (GENERIC_ERROR
,
1550 _("malformed linespec error: unexpected %s, \"%s\""),
1551 token_type_strings
[token
.type
], string
);
1554 throw_error (GENERIC_ERROR
,
1555 _("malformed linespec error: unexpected %s"),
1556 token_type_strings
[token
.type
]);
1559 /* Parse and return a line offset in STRING. */
1561 static struct line_offset
1562 linespec_parse_line_offset (const char *string
)
1564 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1568 line_offset
.sign
= LINE_OFFSET_PLUS
;
1571 else if (*string
== '-')
1573 line_offset
.sign
= LINE_OFFSET_MINUS
;
1577 /* Right now, we only allow base 10 for offsets. */
1578 line_offset
.offset
= atoi (string
);
1582 /* Parse the basic_spec in PARSER's input. */
1585 linespec_parse_basic (linespec_parser
*parser
)
1588 linespec_token token
;
1589 VEC (symbolp
) *symbols
, *labels
;
1590 VEC (bound_minimal_symbol_d
) *minimal_symbols
;
1591 struct cleanup
*cleanup
;
1593 /* Get the next token. */
1594 token
= linespec_lexer_lex_one (parser
);
1596 /* If it is EOI or KEYWORD, issue an error. */
1597 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1598 unexpected_linespec_error (parser
);
1599 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1600 else if (token
.type
== LSTOKEN_NUMBER
)
1602 /* Record the line offset and get the next token. */
1603 name
= copy_token_string (token
);
1604 cleanup
= make_cleanup (xfree
, name
);
1605 PARSER_RESULT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1606 do_cleanups (cleanup
);
1608 /* Get the next token. */
1609 token
= linespec_lexer_consume_token (parser
);
1611 /* If the next token is a comma, stop parsing and return. */
1612 if (token
.type
== LSTOKEN_COMMA
)
1615 /* If the next token is anything but EOI or KEYWORD, issue
1617 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1618 unexpected_linespec_error (parser
);
1621 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1624 /* Next token must be LSTOKEN_STRING. */
1625 if (token
.type
!= LSTOKEN_STRING
)
1626 unexpected_linespec_error (parser
);
1628 /* The current token will contain the name of a function, method,
1630 name
= copy_token_string (token
);
1631 cleanup
= make_cleanup (xfree
, name
);
1633 /* Try looking it up as a function/method. */
1634 find_linespec_symbols (PARSER_STATE (parser
),
1635 PARSER_RESULT (parser
)->file_symtabs
, name
,
1636 &symbols
, &minimal_symbols
);
1638 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1640 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1641 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1642 PARSER_RESULT (parser
)->function_name
= name
;
1644 discard_cleanups (cleanup
);
1648 /* NAME was not a function or a method. So it must be a label
1649 name or user specified variable like "break foo.c:$zippo". */
1650 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1654 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1655 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1656 PARSER_RESULT (parser
)->label_name
= name
;
1658 discard_cleanups (cleanup
);
1660 else if (token
.type
== LSTOKEN_STRING
1661 && *LS_TOKEN_STOKEN (token
).ptr
== '$')
1663 /* User specified a convenience variable or history value. */
1664 PARSER_RESULT (parser
)->line_offset
1665 = linespec_parse_variable (PARSER_STATE (parser
), name
);
1667 if (PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
)
1669 /* The user-specified variable was not valid. Do not
1670 throw an error here. parse_linespec will do it for us. */
1671 PARSER_RESULT (parser
)->function_name
= name
;
1672 discard_cleanups (cleanup
);
1676 /* The convenience variable/history value parsed correctly.
1677 NAME is no longer needed. */
1678 do_cleanups (cleanup
);
1682 /* The name is also not a label. Abort parsing. Do not throw
1683 an error here. parse_linespec will do it for us. */
1685 /* Save a copy of the name we were trying to lookup. */
1686 PARSER_RESULT (parser
)->function_name
= name
;
1687 discard_cleanups (cleanup
);
1692 /* Get the next token. */
1693 token
= linespec_lexer_consume_token (parser
);
1695 if (token
.type
== LSTOKEN_COLON
)
1697 /* User specified a label or a lineno. */
1698 token
= linespec_lexer_consume_token (parser
);
1700 if (token
.type
== LSTOKEN_NUMBER
)
1702 /* User specified an offset. Record the line offset and
1703 get the next token. */
1704 name
= copy_token_string (token
);
1705 cleanup
= make_cleanup (xfree
, name
);
1706 PARSER_RESULT (parser
)->line_offset
1707 = linespec_parse_line_offset (name
);
1708 do_cleanups (cleanup
);
1710 /* Ge the next token. */
1711 token
= linespec_lexer_consume_token (parser
);
1713 else if (token
.type
== LSTOKEN_STRING
)
1715 /* Grab a copy of the label's name and look it up. */
1716 name
= copy_token_string (token
);
1717 cleanup
= make_cleanup (xfree
, name
);
1718 labels
= find_label_symbols (PARSER_STATE (parser
),
1719 PARSER_RESULT (parser
)->function_symbols
,
1724 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1725 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1726 PARSER_RESULT (parser
)->label_name
= name
;
1728 discard_cleanups (cleanup
);
1732 /* We don't know what it was, but it isn't a label. */
1733 throw_error (NOT_FOUND_ERROR
,
1734 _("No label \"%s\" defined in function \"%s\"."),
1735 name
, PARSER_RESULT (parser
)->function_name
);
1738 /* Check for a line offset. */
1739 token
= linespec_lexer_consume_token (parser
);
1740 if (token
.type
== LSTOKEN_COLON
)
1742 /* Get the next token. */
1743 token
= linespec_lexer_consume_token (parser
);
1745 /* It must be a line offset. */
1746 if (token
.type
!= LSTOKEN_NUMBER
)
1747 unexpected_linespec_error (parser
);
1749 /* Record the lione offset and get the next token. */
1750 name
= copy_token_string (token
);
1751 cleanup
= make_cleanup (xfree
, name
);
1753 PARSER_RESULT (parser
)->line_offset
1754 = linespec_parse_line_offset (name
);
1755 do_cleanups (cleanup
);
1757 /* Get the next token. */
1758 token
= linespec_lexer_consume_token (parser
);
1763 /* Trailing ':' in the input. Issue an error. */
1764 unexpected_linespec_error (parser
);
1769 /* Canonicalize the linespec contained in LS. The result is saved into
1770 STATE->canonical. */
1773 canonicalize_linespec (struct linespec_state
*state
, linespec_p ls
)
1775 /* If canonicalization was not requested, no need to do anything. */
1776 if (!state
->canonical
)
1779 /* Shortcut expressions, which can only appear by themselves. */
1780 if (ls
->expression
!= NULL
)
1781 state
->canonical
->addr_string
= xstrdup (ls
->expression
);
1784 struct ui_file
*buf
;
1787 buf
= mem_fileopen ();
1788 if (ls
->source_filename
)
1790 fputs_unfiltered (ls
->source_filename
, buf
);
1794 if (ls
->function_name
)
1797 fputc_unfiltered (':', buf
);
1798 fputs_unfiltered (ls
->function_name
, buf
);
1805 fputc_unfiltered (':', buf
);
1807 if (ls
->function_name
== NULL
)
1811 /* No function was specified, so add the symbol name. */
1812 gdb_assert (ls
->labels
.function_symbols
!= NULL
1813 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1815 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1816 fputs_unfiltered (SYMBOL_NATURAL_NAME (s
), buf
);
1817 fputc_unfiltered (':', buf
);
1820 fputs_unfiltered (ls
->label_name
, buf
);
1822 state
->canonical
->special_display
= 1;
1825 if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
1828 fputc_unfiltered (':', buf
);
1829 fprintf_filtered (buf
, "%s%d",
1830 (ls
->line_offset
.sign
== LINE_OFFSET_NONE
? ""
1831 : (ls
->line_offset
.sign
1832 == LINE_OFFSET_PLUS
? "+" : "-")),
1833 ls
->line_offset
.offset
);
1836 state
->canonical
->addr_string
= ui_file_xstrdup (buf
, NULL
);
1837 ui_file_delete (buf
);
1841 /* Given a line offset in LS, construct the relevant SALs. */
1843 static struct symtabs_and_lines
1844 create_sals_line_offset (struct linespec_state
*self
,
1847 struct symtabs_and_lines values
;
1848 struct symtab_and_line val
;
1849 int use_default
= 0;
1855 /* This is where we need to make sure we have good defaults.
1856 We must guarantee that this section of code is never executed
1857 when we are called with just a function name, since
1858 set_default_source_symtab_and_line uses
1859 select_source_symtab that calls us with such an argument. */
1861 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1862 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1864 const char *fullname
;
1866 set_current_program_space (self
->program_space
);
1868 /* Make sure we have at least a default source line. */
1869 set_default_source_symtab_and_line ();
1870 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1871 fullname
= symtab_to_fullname (self
->default_symtab
);
1872 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1873 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1874 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1878 val
.line
= ls
->line_offset
.offset
;
1879 switch (ls
->line_offset
.sign
)
1881 case LINE_OFFSET_PLUS
:
1882 if (ls
->line_offset
.offset
== 0)
1885 val
.line
= self
->default_line
+ val
.line
;
1888 case LINE_OFFSET_MINUS
:
1889 if (ls
->line_offset
.offset
== 0)
1892 val
.line
= self
->default_line
- val
.line
;
1894 val
.line
= -val
.line
;
1897 case LINE_OFFSET_NONE
:
1898 break; /* No need to adjust val.line. */
1901 if (self
->list_mode
)
1902 decode_digits_list_mode (self
, ls
, &values
, val
);
1905 struct linetable_entry
*best_entry
= NULL
;
1907 const struct block
**blocks
;
1908 struct cleanup
*cleanup
;
1909 struct symtabs_and_lines intermediate_results
;
1912 intermediate_results
.sals
= NULL
;
1913 intermediate_results
.nelts
= 0;
1915 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1917 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1918 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1919 &intermediate_results
, &best_entry
);
1921 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1923 /* For optimized code, the compiler can scatter one source line
1924 across disjoint ranges of PC values, even when no duplicate
1925 functions or inline functions are involved. For example,
1926 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1927 function can result in two PC ranges. In this case, we don't
1928 want to set a breakpoint on the first PC of each range. To filter
1929 such cases, we use containing blocks -- for each PC found
1930 above, we see if there are other PCs that are in the same
1931 block. If yes, the other PCs are filtered out. */
1933 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1934 make_cleanup (xfree
, filter
);
1935 blocks
= XNEWVEC (const struct block
*, intermediate_results
.nelts
);
1936 make_cleanup (xfree
, blocks
);
1938 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1940 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1943 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1944 intermediate_results
.sals
[i
].section
);
1947 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1949 if (blocks
[i
] != NULL
)
1950 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1952 if (blocks
[j
] == blocks
[i
])
1960 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1963 struct symbol
*sym
= (blocks
[i
]
1964 ? block_containing_function (blocks
[i
])
1967 if (self
->funfirstline
)
1968 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1969 /* Make sure the line matches the request, not what was
1971 intermediate_results
.sals
[i
].line
= val
.line
;
1972 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1973 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1976 do_cleanups (cleanup
);
1979 if (values
.nelts
== 0)
1981 if (ls
->source_filename
)
1982 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1983 val
.line
, ls
->source_filename
);
1985 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
1992 /* Create and return SALs from the linespec LS. */
1994 static struct symtabs_and_lines
1995 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
1997 struct symtabs_and_lines sals
= {NULL
, 0};
1999 if (ls
->expression
!= NULL
)
2001 struct symtab_and_line sal
;
2003 /* We have an expression. No other attribute is allowed. */
2004 sal
= find_pc_line (ls
->expr_pc
, 0);
2005 sal
.pc
= ls
->expr_pc
;
2006 sal
.section
= find_pc_overlay (ls
->expr_pc
);
2007 sal
.explicit_pc
= 1;
2008 add_sal_to_sals (state
, &sals
, &sal
, ls
->expression
, 1);
2010 else if (ls
->labels
.label_symbols
!= NULL
)
2012 /* We have just a bunch of functions/methods or labels. */
2014 struct symtab_and_line sal
;
2017 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
2019 struct program_space
*pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2021 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2022 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2023 add_sal_to_sals (state
, &sals
, &sal
,
2024 SYMBOL_NATURAL_NAME (sym
), 0);
2027 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2029 /* We have just a bunch of functions and/or methods. */
2031 struct symtab_and_line sal
;
2033 bound_minimal_symbol_d
*elem
;
2034 struct program_space
*pspace
;
2036 if (ls
->function_symbols
!= NULL
)
2038 /* Sort symbols so that symbols with the same program space are next
2040 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2041 VEC_length (symbolp
, ls
->function_symbols
),
2042 sizeof (symbolp
), compare_symbols
);
2044 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2046 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2047 set_current_program_space (pspace
);
2048 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2049 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2050 add_sal_to_sals (state
, &sals
, &sal
,
2051 SYMBOL_NATURAL_NAME (sym
), 0);
2055 if (ls
->minimal_symbols
!= NULL
)
2057 /* Sort minimal symbols by program space, too. */
2058 qsort (VEC_address (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2059 VEC_length (bound_minimal_symbol_d
, ls
->minimal_symbols
),
2060 sizeof (bound_minimal_symbol_d
), compare_msymbols
);
2063 VEC_iterate (bound_minimal_symbol_d
, ls
->minimal_symbols
,
2067 pspace
= elem
->objfile
->pspace
;
2068 set_current_program_space (pspace
);
2069 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2073 else if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2075 /* Only an offset was specified. */
2076 sals
= create_sals_line_offset (state
, ls
);
2078 /* Make sure we have a filename for canonicalization. */
2079 if (ls
->source_filename
== NULL
)
2081 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2083 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2084 form so that displaying SOURCE_FILENAME can follow the current
2085 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2086 it has been kept for code simplicity only in absolute form. */
2087 ls
->source_filename
= xstrdup (fullname
);
2092 /* We haven't found any results... */
2096 canonicalize_linespec (state
, ls
);
2098 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2099 state
->canonical
->pre_expanded
= 1;
2104 /* Parse a string that specifies a linespec.
2105 Pass the address of a char * variable; that variable will be
2106 advanced over the characters actually parsed.
2108 The basic grammar of linespecs:
2110 linespec -> expr_spec | var_spec | basic_spec
2111 expr_spec -> '*' STRING
2112 var_spec -> '$' (STRING | NUMBER)
2114 basic_spec -> file_offset_spec | function_spec | label_spec
2115 file_offset_spec -> opt_file_spec offset_spec
2116 function_spec -> opt_file_spec function_name_spec opt_label_spec
2117 label_spec -> label_name_spec
2119 opt_file_spec -> "" | file_name_spec ':'
2120 opt_label_spec -> "" | ':' label_name_spec
2122 file_name_spec -> STRING
2123 function_name_spec -> STRING
2124 label_name_spec -> STRING
2125 function_name_spec -> STRING
2126 offset_spec -> NUMBER
2130 This may all be followed by several keywords such as "if EXPR",
2133 A comma will terminate parsing.
2135 The function may be an undebuggable function found in minimal symbol table.
2137 If the argument FUNFIRSTLINE is nonzero, we want the first line
2138 of real code inside a function when a function is specified, and it is
2139 not OK to specify a variable or type to get its line number.
2141 DEFAULT_SYMTAB specifies the file to use if none is specified.
2142 It defaults to current_source_symtab.
2143 DEFAULT_LINE specifies the line number to use for relative
2144 line numbers (that start with signs). Defaults to current_source_line.
2145 If CANONICAL is non-NULL, store an array of strings containing the canonical
2146 line specs there if necessary. Currently overloaded member functions and
2147 line numbers or static functions without a filename yield a canonical
2148 line spec. The array and the line spec strings are allocated on the heap,
2149 it is the callers responsibility to free them.
2151 Note that it is possible to return zero for the symtab
2152 if no file is validly specified. Callers must check that.
2153 Also, the line number returned may be invalid. */
2155 /* Parse the linespec in ARGPTR. */
2157 static struct symtabs_and_lines
2158 parse_linespec (linespec_parser
*parser
, const char **argptr
)
2160 linespec_token token
;
2161 struct symtabs_and_lines values
;
2162 volatile struct gdb_exception file_exception
;
2163 struct cleanup
*cleanup
;
2165 /* A special case to start. It has become quite popular for
2166 IDEs to work around bugs in the previous parser by quoting
2167 the entire linespec, so we attempt to deal with this nicely. */
2168 parser
->is_quote_enclosed
= 0;
2169 if (!is_ada_operator (*argptr
)
2170 && strchr (linespec_quote_characters
, **argptr
) != NULL
)
2174 end
= skip_quote_char (*argptr
+ 1, **argptr
);
2175 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2177 /* Here's the special case. Skip ARGPTR past the initial
2180 parser
->is_quote_enclosed
= 1;
2184 /* A keyword at the start cannot be interpreted as such.
2185 Consider "b thread thread 42". */
2186 parser
->keyword_ok
= 0;
2188 parser
->lexer
.saved_arg
= *argptr
;
2189 parser
->lexer
.stream
= argptr
;
2190 file_exception
.reason
= 0;
2192 /* Initialize the default symtab and line offset. */
2193 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2194 &PARSER_STATE (parser
)->default_line
);
2196 /* Objective-C shortcut. */
2197 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), argptr
);
2198 if (values
.sals
!= NULL
)
2201 /* Start parsing. */
2203 /* Get the first token. */
2204 token
= linespec_lexer_lex_one (parser
);
2206 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2207 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '*')
2212 /* User specified an expression, *EXPR. */
2213 copy
= expr
= copy_token_string (token
);
2214 cleanup
= make_cleanup (xfree
, expr
);
2215 PARSER_RESULT (parser
)->expr_pc
= linespec_expression_to_pc (©
);
2216 discard_cleanups (cleanup
);
2217 PARSER_RESULT (parser
)->expression
= expr
;
2219 /* This is a little hacky/tricky. If linespec_expression_to_pc
2220 did not evaluate the entire token, then we must find the
2221 string COPY inside the original token buffer. */
2224 PARSER_STREAM (parser
) = strstr (parser
->lexer
.saved_arg
, copy
);
2225 gdb_assert (PARSER_STREAM (parser
) != NULL
);
2228 /* Consume the token. */
2229 linespec_lexer_consume_token (parser
);
2231 goto convert_to_sals
;
2233 else if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2237 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2238 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2240 /* User specified a convenience variable or history value. */
2241 var
= copy_token_string (token
);
2242 cleanup
= make_cleanup (xfree
, var
);
2243 PARSER_RESULT (parser
)->line_offset
2244 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2245 do_cleanups (cleanup
);
2247 /* If a line_offset wasn't found (VAR is the name of a user
2248 variable/function), then skip to normal symbol processing. */
2249 if (PARSER_RESULT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2251 /* Consume this token. */
2252 linespec_lexer_consume_token (parser
);
2254 goto convert_to_sals
;
2257 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2258 unexpected_linespec_error (parser
);
2260 /* Now we can recognize keywords. */
2261 parser
->keyword_ok
= 1;
2263 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2264 this token cannot represent a filename. */
2265 token
= linespec_lexer_peek_token (parser
);
2267 if (token
.type
== LSTOKEN_COLON
)
2269 char *user_filename
;
2271 /* Get the current token again and extract the filename. */
2272 token
= linespec_lexer_lex_one (parser
);
2273 user_filename
= copy_token_string (token
);
2275 /* Check if the input is a filename. */
2276 TRY_CATCH (file_exception
, RETURN_MASK_ERROR
)
2278 PARSER_RESULT (parser
)->file_symtabs
2279 = symtabs_from_filename (user_filename
);
2282 if (file_exception
.reason
>= 0)
2284 /* Symtabs were found for the file. Record the filename. */
2285 PARSER_RESULT (parser
)->source_filename
= user_filename
;
2287 /* Get the next token. */
2288 token
= linespec_lexer_consume_token (parser
);
2290 /* This is LSTOKEN_COLON; consume it. */
2291 linespec_lexer_consume_token (parser
);
2295 /* No symtabs found -- discard user_filename. */
2296 xfree (user_filename
);
2298 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2299 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2302 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2303 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2304 && token
.type
!= LSTOKEN_COMMA
)
2306 /* TOKEN is the _next_ token, not the one currently in the parser.
2307 Consuming the token will give the correct error message. */
2308 linespec_lexer_consume_token (parser
);
2309 unexpected_linespec_error (parser
);
2313 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2314 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2317 /* Parse the rest of the linespec. */
2318 linespec_parse_basic (parser
);
2320 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2321 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2322 && PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2323 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2325 /* The linespec didn't parse. Re-throw the file exception if
2327 if (file_exception
.reason
< 0)
2328 throw_exception (file_exception
);
2330 /* Otherwise, the symbol is not found. */
2331 symbol_not_found_error (PARSER_RESULT (parser
)->function_name
,
2332 PARSER_RESULT (parser
)->source_filename
);
2337 /* Get the last token and record how much of the input was parsed,
2339 token
= linespec_lexer_lex_one (parser
);
2340 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2341 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2343 /* Convert the data in PARSER_RESULT to SALs. */
2344 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2345 PARSER_RESULT (parser
));
2351 /* A constructor for linespec_state. */
2354 linespec_state_constructor (struct linespec_state
*self
,
2355 int flags
, const struct language_defn
*language
,
2356 struct symtab
*default_symtab
,
2358 struct linespec_result
*canonical
)
2360 memset (self
, 0, sizeof (*self
));
2361 self
->language
= language
;
2362 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2363 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2364 self
->default_symtab
= default_symtab
;
2365 self
->default_line
= default_line
;
2366 self
->canonical
= canonical
;
2367 self
->program_space
= current_program_space
;
2368 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2369 xfree
, xcalloc
, xfree
);
2372 /* Initialize a new linespec parser. */
2375 linespec_parser_new (linespec_parser
*parser
,
2376 int flags
, const struct language_defn
*language
,
2377 struct symtab
*default_symtab
,
2379 struct linespec_result
*canonical
)
2381 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2382 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2383 PARSER_RESULT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2384 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2385 default_symtab
, default_line
, canonical
);
2388 /* A destructor for linespec_state. */
2391 linespec_state_destructor (struct linespec_state
*self
)
2393 htab_delete (self
->addr_set
);
2396 /* Delete a linespec parser. */
2399 linespec_parser_delete (void *arg
)
2401 linespec_parser
*parser
= (linespec_parser
*) arg
;
2403 xfree ((char *) PARSER_RESULT (parser
)->expression
);
2404 xfree ((char *) PARSER_RESULT (parser
)->source_filename
);
2405 xfree ((char *) PARSER_RESULT (parser
)->label_name
);
2406 xfree ((char *) PARSER_RESULT (parser
)->function_name
);
2408 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2409 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2411 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2412 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2414 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2415 VEC_free (bound_minimal_symbol_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2417 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2418 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2420 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2421 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2423 linespec_state_destructor (PARSER_STATE (parser
));
2426 /* See linespec.h. */
2429 decode_line_full (char **argptr
, int flags
,
2430 struct symtab
*default_symtab
,
2431 int default_line
, struct linespec_result
*canonical
,
2432 const char *select_mode
,
2435 struct symtabs_and_lines result
;
2436 struct cleanup
*cleanups
;
2437 VEC (const_char_ptr
) *filters
= NULL
;
2438 linespec_parser parser
;
2439 struct linespec_state
*state
;
2440 const char *copy
, *orig
;
2442 gdb_assert (canonical
!= NULL
);
2443 /* The filter only makes sense for 'all'. */
2444 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2445 gdb_assert (select_mode
== NULL
2446 || select_mode
== multiple_symbols_all
2447 || select_mode
== multiple_symbols_ask
2448 || select_mode
== multiple_symbols_cancel
);
2449 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2451 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2452 default_line
, canonical
);
2453 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2454 save_current_program_space ();
2456 orig
= copy
= *argptr
;
2457 result
= parse_linespec (&parser
, ©
);
2458 *argptr
+= copy
- orig
;
2459 state
= PARSER_STATE (&parser
);
2461 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2462 gdb_assert (canonical
->addr_string
!= NULL
);
2463 canonical
->pre_expanded
= 1;
2465 /* Arrange for allocated canonical names to be freed. */
2466 if (result
.nelts
> 0)
2470 make_cleanup (xfree
, state
->canonical_names
);
2471 for (i
= 0; i
< result
.nelts
; ++i
)
2473 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2474 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2478 if (select_mode
== NULL
)
2480 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2481 select_mode
= multiple_symbols_all
;
2483 select_mode
= multiple_symbols_select_mode ();
2486 if (select_mode
== multiple_symbols_all
)
2490 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2491 VEC_safe_push (const_char_ptr
, filters
, filter
);
2492 filter_results (state
, &result
, filters
);
2495 convert_results_to_lsals (state
, &result
);
2498 decode_line_2 (state
, &result
, select_mode
);
2500 do_cleanups (cleanups
);
2503 /* See linespec.h. */
2505 struct symtabs_and_lines
2506 decode_line_1 (char **argptr
, int flags
,
2507 struct symtab
*default_symtab
,
2510 struct symtabs_and_lines result
;
2511 linespec_parser parser
;
2512 struct cleanup
*cleanups
;
2513 const char *copy
, *orig
;
2515 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2516 default_line
, NULL
);
2517 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2518 save_current_program_space ();
2520 orig
= copy
= *argptr
;
2521 result
= parse_linespec (&parser
, ©
);
2522 *argptr
+= copy
- orig
;
2524 do_cleanups (cleanups
);
2528 /* See linespec.h. */
2530 struct symtabs_and_lines
2531 decode_line_with_current_source (char *string
, int flags
)
2533 struct symtabs_and_lines sals
;
2534 struct symtab_and_line cursal
;
2537 error (_("Empty line specification."));
2539 /* We use whatever is set as the current source line. We do not try
2540 and get a default source symtab+line or it will recursively call us! */
2541 cursal
= get_current_source_symtab_and_line ();
2543 sals
= decode_line_1 (&string
, flags
,
2544 cursal
.symtab
, cursal
.line
);
2547 error (_("Junk at end of line specification: %s"), string
);
2551 /* See linespec.h. */
2553 struct symtabs_and_lines
2554 decode_line_with_last_displayed (char *string
, int flags
)
2556 struct symtabs_and_lines sals
;
2559 error (_("Empty line specification."));
2561 if (last_displayed_sal_is_valid ())
2562 sals
= decode_line_1 (&string
, flags
,
2563 get_last_displayed_symtab (),
2564 get_last_displayed_line ());
2566 sals
= decode_line_1 (&string
, flags
, (struct symtab
*) NULL
, 0);
2569 error (_("Junk at end of line specification: %s"), string
);
2575 /* First, some functions to initialize stuff at the beggining of the
2579 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2581 if (*default_symtab
== 0)
2583 /* Use whatever we have for the default source line. We don't use
2584 get_current_or_default_symtab_and_line as it can recurse and call
2586 struct symtab_and_line cursal
=
2587 get_current_source_symtab_and_line ();
2589 *default_symtab
= cursal
.symtab
;
2590 *default_line
= cursal
.line
;
2596 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2597 advancing EXP_PTR past any parsed text. */
2600 linespec_expression_to_pc (const char **exp_ptr
)
2602 if (current_program_space
->executing_startup
)
2603 /* The error message doesn't really matter, because this case
2604 should only hit during breakpoint reset. */
2605 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2606 "program space is in startup"));
2609 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2614 /* Here's where we recognise an Objective-C Selector. An Objective C
2615 selector may be implemented by more than one class, therefore it
2616 may represent more than one method/function. This gives us a
2617 situation somewhat analogous to C++ overloading. If there's more
2618 than one method that could represent the selector, then use some of
2619 the existing C++ code to let the user choose one. */
2621 static struct symtabs_and_lines
2622 decode_objc (struct linespec_state
*self
, linespec_p ls
, const char **argptr
)
2624 struct collect_info info
;
2625 VEC (const_char_ptr
) *symbol_names
= NULL
;
2626 struct symtabs_and_lines values
;
2627 const char *new_argptr
;
2628 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2632 info
.file_symtabs
= NULL
;
2633 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2634 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2635 info
.result
.symbols
= NULL
;
2636 info
.result
.minimal_symbols
= NULL
;
2640 new_argptr
= find_imps (*argptr
, &symbol_names
);
2641 if (VEC_empty (const_char_ptr
, symbol_names
))
2643 do_cleanups (cleanup
);
2647 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2649 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2650 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2654 saved_arg
= alloca (new_argptr
- *argptr
+ 1);
2655 memcpy (saved_arg
, *argptr
, new_argptr
- *argptr
);
2656 saved_arg
[new_argptr
- *argptr
] = '\0';
2658 ls
->function_name
= xstrdup (saved_arg
);
2659 ls
->function_symbols
= info
.result
.symbols
;
2660 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2661 values
= convert_linespec_to_sals (self
, ls
);
2663 if (self
->canonical
)
2665 self
->canonical
->pre_expanded
= 1;
2666 if (ls
->source_filename
)
2667 self
->canonical
->addr_string
2668 = xstrprintf ("%s:%s", ls
->source_filename
, saved_arg
);
2670 self
->canonical
->addr_string
= xstrdup (saved_arg
);
2674 *argptr
= new_argptr
;
2676 do_cleanups (cleanup
);
2681 /* An instance of this type is used when collecting prefix symbols for
2684 struct decode_compound_collector
2686 /* The result vector. */
2687 VEC (symbolp
) *symbols
;
2689 /* A hash table of all symbols we found. We use this to avoid
2690 adding any symbol more than once. */
2694 /* A callback for iterate_over_symbols that is used by
2695 lookup_prefix_sym to collect type symbols. */
2698 collect_one_symbol (struct symbol
*sym
, void *d
)
2700 struct decode_compound_collector
*collector
= d
;
2704 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2705 return 1; /* Continue iterating. */
2707 t
= SYMBOL_TYPE (sym
);
2709 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2710 && TYPE_CODE (t
) != TYPE_CODE_UNION
2711 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2712 return 1; /* Continue iterating. */
2714 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2718 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2721 return 1; /* Continue iterating. */
2724 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2726 static VEC (symbolp
) *
2727 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2728 const char *class_name
)
2732 struct decode_compound_collector collector
;
2733 struct cleanup
*outer
;
2734 struct cleanup
*cleanup
;
2736 collector
.symbols
= NULL
;
2737 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2739 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2740 htab_eq_pointer
, NULL
,
2742 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2744 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2748 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2749 collect_one_symbol
, &collector
,
2751 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2752 collect_one_symbol
, &collector
,
2757 /* Program spaces that are executing startup should have
2758 been filtered out earlier. */
2759 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2760 set_current_program_space (SYMTAB_PSPACE (elt
));
2761 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2762 collect_one_symbol
, &collector
);
2763 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2764 collect_one_symbol
, &collector
);
2768 do_cleanups (cleanup
);
2769 discard_cleanups (outer
);
2770 return collector
.symbols
;
2773 /* A qsort comparison function for symbols. The resulting order does
2774 not actually matter; we just need to be able to sort them so that
2775 symbols with the same program space end up next to each other. */
2778 compare_symbols (const void *a
, const void *b
)
2780 struct symbol
* const *sa
= a
;
2781 struct symbol
* const *sb
= b
;
2784 uia
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sa
));
2785 uib
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sb
));
2792 uia
= (uintptr_t) *sa
;
2793 uib
= (uintptr_t) *sb
;
2803 /* Like compare_symbols but for minimal symbols. */
2806 compare_msymbols (const void *a
, const void *b
)
2808 const struct bound_minimal_symbol
*sa
= a
;
2809 const struct bound_minimal_symbol
*sb
= b
;
2812 uia
= (uintptr_t) sa
->objfile
->pspace
;
2813 uib
= (uintptr_t) sa
->objfile
->pspace
;
2820 uia
= (uintptr_t) sa
->minsym
;
2821 uib
= (uintptr_t) sb
->minsym
;
2831 /* Look for all the matching instances of each symbol in NAMES. Only
2832 instances from PSPACE are considered; other program spaces are
2833 handled by our caller. If PSPACE is NULL, then all program spaces
2834 are considered. Results are stored into INFO. */
2837 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2838 struct program_space
*pspace
,
2839 VEC (const_char_ptr
) *names
)
2844 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2845 add_matching_symbols_to_info (iter
, info
, pspace
);
2849 find_superclass_methods (VEC (typep
) *superclasses
,
2851 VEC (const_char_ptr
) **result_names
)
2853 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2854 VEC (typep
) *iter_classes
;
2855 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2857 iter_classes
= superclasses
;
2860 VEC (typep
) *new_supers
= NULL
;
2864 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2865 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2866 find_methods (t
, name
, result_names
, &new_supers
);
2868 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2869 || VEC_empty (typep
, new_supers
))
2872 iter_classes
= new_supers
;
2875 do_cleanups (cleanup
);
2878 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2879 given by one of the symbols in SYM_CLASSES. Matches are returned
2880 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2883 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2884 const char *class_name
, const char *method_name
,
2885 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2886 VEC (bound_minimal_symbol_d
) **minsyms
)
2889 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2891 int last_result_len
;
2892 VEC (typep
) *superclass_vec
;
2893 VEC (const_char_ptr
) *result_names
;
2894 struct collect_info info
;
2896 /* Sort symbols so that symbols with the same program space are next
2898 qsort (VEC_address (symbolp
, sym_classes
),
2899 VEC_length (symbolp
, sym_classes
),
2904 info
.file_symtabs
= file_symtabs
;
2905 info
.result
.symbols
= NULL
;
2906 info
.result
.minimal_symbols
= NULL
;
2908 /* Iterate over all the types, looking for the names of existing
2909 methods matching METHOD_NAME. If we cannot find a direct method in a
2910 given program space, then we consider inherited methods; this is
2911 not ideal (ideal would be to respect C++ hiding rules), but it
2912 seems good enough and is what GDB has historically done. We only
2913 need to collect the names because later we find all symbols with
2914 those names. This loop is written in a somewhat funny way
2915 because we collect data across the program space before deciding
2917 superclass_vec
= NULL
;
2918 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
2919 result_names
= NULL
;
2920 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
2921 last_result_len
= 0;
2922 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
2925 struct program_space
*pspace
;
2927 /* Program spaces that are executing startup should have
2928 been filtered out earlier. */
2929 gdb_assert (!SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
))->executing_startup
);
2930 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2931 set_current_program_space (pspace
);
2932 t
= check_typedef (SYMBOL_TYPE (sym
));
2933 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
2935 /* Handle all items from a single program space at once; and be
2936 sure not to miss the last batch. */
2937 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
2939 != SYMTAB_PSPACE (SYMBOL_SYMTAB (VEC_index (symbolp
, sym_classes
,
2942 /* If we did not find a direct implementation anywhere in
2943 this program space, consider superclasses. */
2944 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
2945 find_superclass_methods (superclass_vec
, method_name
,
2948 /* We have a list of candidate symbol names, so now we
2949 iterate over the symbol tables looking for all
2950 matches in this pspace. */
2951 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
2953 VEC_truncate (typep
, superclass_vec
, 0);
2954 last_result_len
= VEC_length (const_char_ptr
, result_names
);
2958 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2959 || !VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
2961 *symbols
= info
.result
.symbols
;
2962 *minsyms
= info
.result
.minimal_symbols
;
2963 do_cleanups (cleanup
);
2967 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
2968 and other attempts to locate the symbol will be made. */
2969 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
2974 /* This object is used when collecting all matching symtabs. */
2976 struct symtab_collector
2978 /* The result vector of symtabs. */
2979 VEC (symtab_ptr
) *symtabs
;
2981 /* This is used to ensure the symtabs are unique. */
2982 htab_t symtab_table
;
2985 /* Callback for iterate_over_symtabs. */
2988 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
2990 struct symtab_collector
*data
= d
;
2993 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
2997 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
3003 /* Given a file name, return a VEC of all matching symtabs. */
3005 static VEC (symtab_ptr
) *
3006 collect_symtabs_from_filename (const char *file
)
3008 struct symtab_collector collector
;
3009 struct cleanup
*cleanups
;
3010 struct program_space
*pspace
;
3012 collector
.symtabs
= NULL
;
3013 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
3015 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
3017 /* Find that file's data. */
3018 ALL_PSPACES (pspace
)
3020 if (pspace
->executing_startup
)
3023 set_current_program_space (pspace
);
3024 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3027 do_cleanups (cleanups
);
3028 return collector
.symtabs
;
3031 /* Return all the symtabs associated to the FILENAME. */
3033 static VEC (symtab_ptr
) *
3034 symtabs_from_filename (const char *filename
)
3036 VEC (symtab_ptr
) *result
;
3038 result
= collect_symtabs_from_filename (filename
);
3040 if (VEC_empty (symtab_ptr
, result
))
3042 if (!have_full_symbols () && !have_partial_symbols ())
3043 throw_error (NOT_FOUND_ERROR
,
3044 _("No symbol table is loaded. "
3045 "Use the \"file\" command."));
3046 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), filename
);
3052 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3053 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3054 returned in MINSYMS. */
3057 find_function_symbols (struct linespec_state
*state
,
3058 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3059 VEC (symbolp
) **symbols
,
3060 VEC (bound_minimal_symbol_d
) **minsyms
)
3062 struct collect_info info
;
3063 VEC (const_char_ptr
) *symbol_names
= NULL
;
3064 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3068 info
.result
.symbols
= NULL
;
3069 info
.result
.minimal_symbols
= NULL
;
3070 info
.file_symtabs
= file_symtabs
;
3072 /* Try NAME as an Objective-C selector. */
3073 find_imps (name
, &symbol_names
);
3074 if (!VEC_empty (const_char_ptr
, symbol_names
))
3075 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3077 add_matching_symbols_to_info (name
, &info
, NULL
);
3079 do_cleanups (cleanup
);
3081 if (VEC_empty (symbolp
, info
.result
.symbols
))
3083 VEC_free (symbolp
, info
.result
.symbols
);
3087 *symbols
= info
.result
.symbols
;
3089 if (VEC_empty (bound_minimal_symbol_d
, info
.result
.minimal_symbols
))
3091 VEC_free (bound_minimal_symbol_d
, info
.result
.minimal_symbols
);
3095 *minsyms
= info
.result
.minimal_symbols
;
3098 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3099 in SYMBOLS and minimal symbols in MINSYMS. */
3102 find_linespec_symbols (struct linespec_state
*state
,
3103 VEC (symtab_ptr
) *file_symtabs
,
3105 VEC (symbolp
) **symbols
,
3106 VEC (bound_minimal_symbol_d
) **minsyms
)
3108 struct cleanup
*cleanup
;
3110 const char *lookup_name
;
3111 volatile struct gdb_exception except
;
3113 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3115 if (state
->language
->la_language
== language_ada
)
3117 /* In Ada, the symbol lookups are performed using the encoded
3118 name rather than the demangled name. */
3119 lookup_name
= ada_name_for_lookup (name
);
3120 make_cleanup (xfree
, (void *) lookup_name
);
3123 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3126 lookup_name
= canon
;
3127 make_cleanup (xfree
, canon
);
3130 /* It's important to not call expand_symtabs_matching unnecessarily
3131 as it can really slow things down (by unnecessarily expanding
3132 potentially 1000s of symtabs, which when debugging some apps can
3133 cost 100s of seconds). Avoid this to some extent by *first* calling
3134 find_function_symbols, and only if that doesn't find anything
3135 *then* call find_method. This handles two important cases:
3136 1) break (anonymous namespace)::foo
3137 2) break class::method where method is in class (and not a baseclass) */
3139 find_function_symbols (state
, file_symtabs
, lookup_name
,
3142 /* If we were unable to locate a symbol of the same name, try dividing
3143 the name into class and method names and searching the class and its
3145 if (VEC_empty (symbolp
, *symbols
)
3146 && VEC_empty (bound_minimal_symbol_d
, *minsyms
))
3148 char *klass
, *method
;
3149 const char *last
, *p
, *scope_op
;
3150 VEC (symbolp
) *classes
;
3152 /* See if we can find a scope operator and break this symbol
3153 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3155 p
= find_toplevel_string (lookup_name
, scope_op
);
3158 /* No C++ scope operator. Try Java. */
3160 p
= find_toplevel_string (lookup_name
, scope_op
);
3167 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3170 /* If no scope operator was found, there is nothing more we can do;
3171 we already attempted to lookup the entire name as a symbol
3175 do_cleanups (cleanup
);
3179 /* LOOKUP_NAME points to the class name.
3180 LAST points to the method name. */
3181 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
3182 make_cleanup (xfree
, klass
);
3183 strncpy (klass
, lookup_name
, last
- lookup_name
);
3184 klass
[last
- lookup_name
] = '\0';
3186 /* Skip past the scope operator. */
3187 last
+= strlen (scope_op
);
3188 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3189 make_cleanup (xfree
, method
);
3190 strcpy (method
, last
);
3192 /* Find a list of classes named KLASS. */
3193 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3194 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3196 if (!VEC_empty (symbolp
, classes
))
3198 /* Now locate a list of suitable methods named METHOD. */
3199 TRY_CATCH (except
, RETURN_MASK_ERROR
)
3201 find_method (state
, file_symtabs
, klass
, method
, classes
,
3205 /* If successful, we're done. If NOT_FOUND_ERROR
3206 was not thrown, rethrow the exception that we did get. */
3207 if (except
.reason
< 0 && except
.error
!= NOT_FOUND_ERROR
)
3208 throw_exception (except
);
3212 do_cleanups (cleanup
);
3215 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3216 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3218 static VEC (symbolp
) *
3219 find_label_symbols (struct linespec_state
*self
,
3220 VEC (symbolp
) *function_symbols
,
3221 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3224 const struct block
*block
;
3226 struct symbol
*fn_sym
;
3227 VEC (symbolp
) *result
= NULL
;
3229 if (function_symbols
== NULL
)
3231 set_current_program_space (self
->program_space
);
3232 block
= get_current_search_block ();
3235 block
&& !BLOCK_FUNCTION (block
);
3236 block
= BLOCK_SUPERBLOCK (block
))
3240 fn_sym
= BLOCK_FUNCTION (block
);
3242 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3246 VEC_safe_push (symbolp
, result
, sym
);
3247 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3253 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3255 set_current_program_space (SYMTAB_PSPACE (SYMBOL_SYMTAB (fn_sym
)));
3256 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3257 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3261 VEC_safe_push (symbolp
, result
, sym
);
3262 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3272 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3275 decode_digits_list_mode (struct linespec_state
*self
,
3277 struct symtabs_and_lines
*values
,
3278 struct symtab_and_line val
)
3283 gdb_assert (self
->list_mode
);
3285 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3288 /* The logic above should ensure this. */
3289 gdb_assert (elt
!= NULL
);
3291 set_current_program_space (SYMTAB_PSPACE (elt
));
3293 /* Simplistic search just for the list command. */
3294 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3295 if (val
.symtab
== NULL
)
3297 val
.pspace
= SYMTAB_PSPACE (elt
);
3299 val
.explicit_line
= 1;
3301 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3305 /* A helper for create_sals_line_offset that iterates over the symtabs,
3306 adding lines to the VEC. */
3309 decode_digits_ordinary (struct linespec_state
*self
,
3312 struct symtabs_and_lines
*sals
,
3313 struct linetable_entry
**best_entry
)
3318 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3321 VEC (CORE_ADDR
) *pcs
;
3324 /* The logic above should ensure this. */
3325 gdb_assert (elt
!= NULL
);
3327 set_current_program_space (SYMTAB_PSPACE (elt
));
3329 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3330 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3332 struct symtab_and_line sal
;
3335 sal
.pspace
= SYMTAB_PSPACE (elt
);
3339 add_sal_to_sals_basic (sals
, &sal
);
3342 VEC_free (CORE_ADDR
, pcs
);
3348 /* Return the line offset represented by VARIABLE. */
3350 static struct line_offset
3351 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3355 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3357 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3360 while (*p
>= '0' && *p
<= '9')
3362 if (!*p
) /* Reached end of token without hitting non-digit. */
3364 /* We have a value history reference. */
3365 struct value
*val_history
;
3367 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3369 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3370 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3371 error (_("History values used in line "
3372 "specs must have integer values."));
3373 offset
.offset
= value_as_long (val_history
);
3377 /* Not all digits -- may be user variable/function or a
3378 convenience variable. */
3380 struct internalvar
*ivar
;
3382 /* Try it as a convenience variable. If it is not a convenience
3383 variable, return and allow normal symbol lookup to occur. */
3384 ivar
= lookup_only_internalvar (variable
+ 1);
3386 /* No internal variable with that name. Mark the offset
3387 as unknown to allow the name to be looked up as a symbol. */
3388 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3391 /* We found a valid variable name. If it is not an integer,
3393 if (!get_internalvar_integer (ivar
, &valx
))
3394 error (_("Convenience variables used in line "
3395 "specs must have integer values."));
3397 offset
.offset
= valx
;
3405 /* A callback used to possibly add a symbol to the results. */
3408 collect_symbols (struct symbol
*sym
, void *data
)
3410 struct collect_info
*info
= data
;
3412 /* In list mode, add all matching symbols, regardless of class.
3413 This allows the user to type "list a_global_variable". */
3414 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3415 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3416 return 1; /* Continue iterating. */
3419 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3420 linespec; return the SAL in RESULT. */
3423 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3424 struct minimal_symbol
*msymbol
,
3425 struct symtabs_and_lines
*result
)
3427 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3429 struct symtab_and_line sal
;
3431 sal
= find_pc_sect_line (MSYMBOL_VALUE_ADDRESS (objfile
, msymbol
),
3432 (struct obj_section
*) 0, 0);
3433 sal
.section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
3435 /* The minimal symbol might point to a function descriptor;
3436 resolve it to the actual code address instead. */
3437 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3439 sal
= find_pc_sect_line (pc
, NULL
, 0);
3441 if (self
->funfirstline
)
3442 skip_prologue_sal (&sal
);
3444 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3445 add_sal_to_sals (self
, result
, &sal
, MSYMBOL_NATURAL_NAME (msymbol
), 0);
3448 /* A helper struct to pass some data through
3449 iterate_over_minimal_symbols. */
3451 struct collect_minsyms
3453 /* The objfile we're examining. */
3454 struct objfile
*objfile
;
3456 /* The funfirstline setting from the initial call. */
3459 /* The list_mode setting from the initial call. */
3462 /* The resulting symbols. */
3463 VEC (bound_minimal_symbol_d
) *msyms
;
3466 /* A helper function to classify a minimal_symbol_type according to
3470 classify_mtype (enum minimal_symbol_type t
)
3477 /* Intermediate priority. */
3480 case mst_solib_trampoline
:
3481 /* Lowest priority. */
3485 /* Highest priority. */
3490 /* Callback for qsort that sorts symbols by priority. */
3493 compare_msyms (const void *a
, const void *b
)
3495 const bound_minimal_symbol_d
*moa
= a
;
3496 const bound_minimal_symbol_d
*mob
= b
;
3497 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3498 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3500 return classify_mtype (ta
) - classify_mtype (tb
);
3503 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3507 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3509 struct collect_minsyms
*info
= d
;
3510 bound_minimal_symbol_d mo
;
3513 mo
.objfile
= info
->objfile
;
3515 /* Exclude data symbols when looking for breakpoint locations. */
3516 if (!info
->list_mode
)
3517 switch (minsym
->type
)
3519 case mst_slot_got_plt
:
3526 /* Make sure this minsym is not a function descriptor
3527 before we decide to discard it. */
3528 struct gdbarch
*gdbarch
= get_objfile_arch (info
->objfile
);
3529 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3530 (gdbarch
, BMSYMBOL_VALUE_ADDRESS (mo
),
3533 if (addr
== BMSYMBOL_VALUE_ADDRESS (mo
))
3538 VEC_safe_push (bound_minimal_symbol_d
, info
->msyms
, &mo
);
3541 /* Search minimal symbols in all objfiles for NAME. If SEARCH_PSPACE
3542 is not NULL, the search is restricted to just that program
3546 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3547 struct program_space
*search_pspace
)
3549 struct objfile
*objfile
;
3550 struct program_space
*pspace
;
3552 ALL_PSPACES (pspace
)
3554 struct collect_minsyms local
;
3555 struct cleanup
*cleanup
;
3557 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3559 if (pspace
->executing_startup
)
3562 set_current_program_space (pspace
);
3564 memset (&local
, 0, sizeof (local
));
3565 local
.funfirstline
= info
->state
->funfirstline
;
3566 local
.list_mode
= info
->state
->list_mode
;
3568 cleanup
= make_cleanup (VEC_cleanup (bound_minimal_symbol_d
),
3571 ALL_OBJFILES (objfile
)
3573 local
.objfile
= objfile
;
3574 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3577 if (!VEC_empty (bound_minimal_symbol_d
, local
.msyms
))
3581 bound_minimal_symbol_d
*item
;
3583 qsort (VEC_address (bound_minimal_symbol_d
, local
.msyms
),
3584 VEC_length (bound_minimal_symbol_d
, local
.msyms
),
3585 sizeof (bound_minimal_symbol_d
),
3588 /* Now the minsyms are in classification order. So, we walk
3589 over them and process just the minsyms with the same
3590 classification as the very first minsym in the list. */
3591 item
= VEC_index (bound_minimal_symbol_d
, local
.msyms
, 0);
3592 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3595 VEC_iterate (bound_minimal_symbol_d
, local
.msyms
, ix
, item
);
3598 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3601 VEC_safe_push (bound_minimal_symbol_d
,
3602 info
->result
.minimal_symbols
, item
);
3606 do_cleanups (cleanup
);
3610 /* A helper function to add all symbols matching NAME to INFO. If
3611 PSPACE is not NULL, the search is restricted to just that program
3615 add_matching_symbols_to_info (const char *name
,
3616 struct collect_info
*info
,
3617 struct program_space
*pspace
)
3622 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3626 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3627 collect_symbols
, info
,
3629 search_minsyms_for_name (info
, name
, pspace
);
3631 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3633 /* Program spaces that are executing startup should have
3634 been filtered out earlier. */
3635 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3636 set_current_program_space (SYMTAB_PSPACE (elt
));
3637 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3638 collect_symbols
, info
);
3645 /* Now come some functions that are called from multiple places within
3649 symbol_to_sal (struct symtab_and_line
*result
,
3650 int funfirstline
, struct symbol
*sym
)
3652 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3654 *result
= find_function_start_sal (sym
, funfirstline
);
3659 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3662 result
->symtab
= SYMBOL_SYMTAB (sym
);
3663 result
->line
= SYMBOL_LINE (sym
);
3664 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3665 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3666 result
->explicit_pc
= 1;
3669 else if (funfirstline
)
3673 else if (SYMBOL_LINE (sym
) != 0)
3675 /* We know its line number. */
3677 result
->symtab
= SYMBOL_SYMTAB (sym
);
3678 result
->line
= SYMBOL_LINE (sym
);
3679 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3687 /* See the comment in linespec.h. */
3690 init_linespec_result (struct linespec_result
*lr
)
3692 memset (lr
, 0, sizeof (*lr
));
3695 /* See the comment in linespec.h. */
3698 destroy_linespec_result (struct linespec_result
*ls
)
3701 struct linespec_sals
*lsal
;
3703 xfree (ls
->addr_string
);
3704 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3706 xfree (lsal
->canonical
);
3707 xfree (lsal
->sals
.sals
);
3709 VEC_free (linespec_sals
, ls
->sals
);
3712 /* Cleanup function for a linespec_result. */
3715 cleanup_linespec_result (void *a
)
3717 destroy_linespec_result (a
);
3720 /* See the comment in linespec.h. */
3723 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3725 return make_cleanup (cleanup_linespec_result
, ls
);