1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2013 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "completer.h"
31 #include "cp-support.h"
32 #include "parser-defs.h"
34 #include "objc-lang.h"
36 #include "exceptions.h"
39 #include "mi/mi-cmds.h"
41 #include "arch-utils.h"
43 #include "cli/cli-utils.h"
44 #include "filenames.h"
48 typedef struct symbol
*symbolp
;
51 typedef struct type
*typep
;
54 /* An address entry is used to ensure that any given location is only
55 added to the result a single time. It holds an address and the
56 program space from which the address came. */
60 struct program_space
*pspace
;
64 /* A helper struct which just holds a minimal symbol and the object
65 file from which it came. */
67 typedef struct minsym_and_objfile
69 struct minimal_symbol
*minsym
;
70 struct objfile
*objfile
;
71 } minsym_and_objfile_d
;
73 DEF_VEC_O (minsym_and_objfile_d
);
75 /* An enumeration of possible signs for a line offset. */
76 enum offset_relative_sign
81 /* A plus sign ("+") */
84 /* A minus sign ("-") */
87 /* A special "sign" for unspecified offset. */
91 /* A line offset in a linespec. */
95 /* Line offset and any specified sign. */
97 enum offset_relative_sign sign
;
100 /* A linespec. Elements of this structure are filled in by a parser
101 (either parse_linespec or some other function). The structure is
102 then converted into SALs by convert_linespec_to_sals. */
106 /* An expression and the resulting PC. Specifying an expression
107 currently precludes the use of other members. */
109 /* The expression entered by the user. */
110 const char *expression
;
112 /* The resulting PC expression derived from evaluating EXPRESSION. */
115 /* Any specified file symtabs. */
117 /* The user-supplied source filename or NULL if none was specified. */
118 const char *source_filename
;
120 /* The list of symtabs to search to which to limit the search. May not
121 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
122 FILE_SYMTABS should contain one single NULL member. This will
123 cause the code to use the default symtab. */
124 VEC (symtab_ptr
) *file_symtabs
;
126 /* The name of a function or method and any matching symbols. */
128 /* The user-specified function name. If no function name was
129 supplied, this may be NULL. */
130 const char *function_name
;
132 /* A list of matching function symbols and minimal symbols. Both lists
133 may be NULL if no matching symbols were found. */
134 VEC (symbolp
) *function_symbols
;
135 VEC (minsym_and_objfile_d
) *minimal_symbols
;
137 /* The name of a label and matching symbols. */
139 /* The user-specified label name. */
140 const char *label_name
;
142 /* A structure of matching label symbols and the corresponding
143 function symbol in which the label was found. Both may be NULL
144 or both must be non-NULL. */
147 VEC (symbolp
) *label_symbols
;
148 VEC (symbolp
) *function_symbols
;
151 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
152 offset was specified. */
153 struct line_offset line_offset
;
155 typedef struct linespec
*linespec_p
;
157 /* A canonical linespec represented as a symtab-related string.
159 Each entry represents the "SYMTAB:SUFFIX" linespec string.
160 SYMTAB can be converted for example by symtab_to_fullname or
161 symtab_to_filename_for_display as needed. */
163 struct linespec_canonical_name
165 /* Remaining text part of the linespec string. */
168 /* If NULL then SUFFIX is the whole linespec string. */
169 struct symtab
*symtab
;
172 /* An instance of this is used to keep all state while linespec
173 operates. This instance is passed around as a 'this' pointer to
174 the various implementation methods. */
176 struct linespec_state
178 /* The language in use during linespec processing. */
179 const struct language_defn
*language
;
181 /* The program space as seen when the module was entered. */
182 struct program_space
*program_space
;
184 /* The default symtab to use, if no other symtab is specified. */
185 struct symtab
*default_symtab
;
187 /* The default line to use. */
190 /* The 'funfirstline' value that was passed in to decode_line_1 or
194 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
197 /* The 'canonical' value passed to decode_line_full, or NULL. */
198 struct linespec_result
*canonical
;
200 /* Canonical strings that mirror the symtabs_and_lines result. */
201 struct linespec_canonical_name
*canonical_names
;
203 /* This is a set of address_entry objects which is used to prevent
204 duplicate symbols from being entered into the result. */
208 /* This is a helper object that is used when collecting symbols into a
213 /* The linespec object in use. */
214 struct linespec_state
*state
;
216 /* A list of symtabs to which to restrict matches. */
217 VEC (symtab_ptr
) *file_symtabs
;
219 /* The result being accumulated. */
222 VEC (symbolp
) *symbols
;
223 VEC (minsym_and_objfile_d
) *minimal_symbols
;
234 /* A colon "separator" */
246 /* EOI (end of input) */
252 typedef enum ls_token_type linespec_token_type
;
254 /* List of keywords */
256 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
258 /* A token of the linespec lexer */
262 /* The type of the token */
263 linespec_token_type type
;
265 /* Data for the token */
268 /* A string, given as a stoken */
269 struct stoken string
;
275 typedef struct ls_token linespec_token
;
277 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
278 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
280 /* An instance of the linespec parser. */
284 /* Lexer internal data */
287 /* Save head of input stream. */
290 /* Head of the input stream. */
292 #define PARSER_STREAM(P) (*(P)->lexer.stream)
294 /* The current token. */
295 linespec_token current
;
298 /* Is the entire linespec quote-enclosed? */
299 int is_quote_enclosed
;
301 /* Is a keyword syntactically valid at this point?
302 In, e.g., "break thread thread 1", the leading "keyword" must not
303 be interpreted as such. */
306 /* The state of the parse. */
307 struct linespec_state state
;
308 #define PARSER_STATE(PPTR) (&(PPTR)->state)
310 /* The result of the parse. */
311 struct linespec result
;
312 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
314 typedef struct ls_parser linespec_parser
;
316 /* Prototypes for local functions. */
318 static void iterate_over_file_blocks (struct symtab
*symtab
,
319 const char *name
, domain_enum domain
,
320 symbol_found_callback_ftype
*callback
,
323 static void initialize_defaults (struct symtab
**default_symtab
,
326 static CORE_ADDR
linespec_expression_to_pc (const char **exp_ptr
);
328 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
332 static VEC (symtab_ptr
) *symtabs_from_filename (const char *);
334 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
335 VEC (symbolp
) *function_symbols
,
336 VEC (symbolp
) **label_funcs_ret
,
339 static void find_linespec_symbols (struct linespec_state
*self
,
340 VEC (symtab_ptr
) *file_symtabs
,
342 VEC (symbolp
) **symbols
,
343 VEC (minsym_and_objfile_d
) **minsyms
);
345 static struct line_offset
346 linespec_parse_variable (struct linespec_state
*self
,
347 const char *variable
);
349 static int symbol_to_sal (struct symtab_and_line
*result
,
350 int funfirstline
, struct symbol
*sym
);
352 static void add_matching_symbols_to_info (const char *name
,
353 struct collect_info
*info
,
354 struct program_space
*pspace
);
356 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
357 struct program_space
*pspace
,
358 VEC (const_char_ptr
) *names
);
360 static VEC (symtab_ptr
) *collect_symtabs_from_filename (const char *file
);
362 static void decode_digits_ordinary (struct linespec_state
*self
,
365 struct symtabs_and_lines
*sals
,
366 struct linetable_entry
**best_entry
);
368 static void decode_digits_list_mode (struct linespec_state
*self
,
370 struct symtabs_and_lines
*values
,
371 struct symtab_and_line val
);
373 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
374 struct minimal_symbol
*msymbol
,
375 struct symtabs_and_lines
*result
);
377 static int compare_symbols (const void *a
, const void *b
);
379 static int compare_msymbols (const void *a
, const void *b
);
381 static const char *find_toplevel_char (const char *s
, char c
);
383 /* Permitted quote characters for the parser. This is different from the
384 completer's quote characters to allow backward compatibility with the
386 static const char *const linespec_quote_characters
= "\"\'";
388 /* Lexer functions. */
390 /* Lex a number from the input in PARSER. This only supports
393 Return true if input is decimal numbers. Return false if not. */
396 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
398 tokenp
->type
= LSTOKEN_NUMBER
;
399 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
400 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
402 /* Keep any sign at the start of the stream. */
403 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
405 ++LS_TOKEN_STOKEN (*tokenp
).length
;
406 ++(PARSER_STREAM (parser
));
409 while (isdigit (*PARSER_STREAM (parser
)))
411 ++LS_TOKEN_STOKEN (*tokenp
).length
;
412 ++(PARSER_STREAM (parser
));
415 /* If the next character in the input buffer is not a space, comma,
416 quote, or colon, this input does not represent a number. */
417 if (*PARSER_STREAM (parser
) != '\0'
418 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
419 && *PARSER_STREAM (parser
) != ':'
420 && !strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
422 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
429 /* Does P represent one of the keywords? If so, return
430 the keyword. If not, return NULL. */
433 linespec_lexer_lex_keyword (const char *p
)
439 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
441 int len
= strlen (linespec_keywords
[i
]);
443 /* If P begins with one of the keywords and the next
444 character is not a valid identifier character,
445 we have found a keyword. */
446 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
447 && !(isalnum (p
[len
]) || p
[len
] == '_'))
448 return linespec_keywords
[i
];
455 /* Does STRING represent an Ada operator? If so, return the length
456 of the decoded operator name. If not, return 0. */
459 is_ada_operator (const char *string
)
461 const struct ada_opname_map
*mapping
;
463 for (mapping
= ada_opname_table
;
464 mapping
->encoded
!= NULL
465 && strncmp (mapping
->decoded
, string
,
466 strlen (mapping
->decoded
)) != 0; ++mapping
)
469 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
472 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
473 the location of QUOTE_CHAR, or NULL if not found. */
476 skip_quote_char (const char *string
, char quote_char
)
478 const char *p
, *last
;
480 p
= last
= find_toplevel_char (string
, quote_char
);
481 while (p
&& *p
!= '\0' && *p
!= ':')
483 p
= find_toplevel_char (p
, quote_char
);
491 /* Make a writable copy of the string given in TOKEN, trimming
492 any trailing whitespace. */
495 copy_token_string (linespec_token token
)
499 if (token
.type
== LSTOKEN_KEYWORD
)
500 return xstrdup (LS_TOKEN_KEYWORD (token
));
502 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
503 LS_TOKEN_STOKEN (token
).length
);
504 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
510 /* Does P represent the end of a quote-enclosed linespec? */
513 is_closing_quote_enclosed (const char *p
)
515 if (strchr (linespec_quote_characters
, *p
))
517 p
= skip_spaces ((char *) p
);
518 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
521 /* Find the end of the parameter list that starts with *INPUT.
522 This helper function assists with lexing string segments
523 which might contain valid (non-terminating) commas. */
526 find_parameter_list_end (char *input
)
528 char end_char
, start_char
;
533 if (start_char
== '(')
535 else if (start_char
== '<')
544 if (*p
== start_char
)
546 else if (*p
== end_char
)
561 /* Lex a string from the input in PARSER. */
563 static linespec_token
564 linespec_lexer_lex_string (linespec_parser
*parser
)
566 linespec_token token
;
567 char *start
= PARSER_STREAM (parser
);
569 token
.type
= LSTOKEN_STRING
;
571 /* If the input stream starts with a quote character, skip to the next
572 quote character, regardless of the content. */
573 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
576 char quote_char
= *PARSER_STREAM (parser
);
578 /* Special case: Ada operators. */
579 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
580 && quote_char
== '\"')
582 int len
= is_ada_operator (PARSER_STREAM (parser
));
586 /* The input is an Ada operator. Return the quoted string
588 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
589 LS_TOKEN_STOKEN (token
).length
= len
;
590 PARSER_STREAM (parser
) += len
;
594 /* The input does not represent an Ada operator -- fall through
595 to normal quoted string handling. */
598 /* Skip past the beginning quote. */
599 ++(PARSER_STREAM (parser
));
601 /* Mark the start of the string. */
602 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
604 /* Skip to the ending quote. */
605 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
607 /* Error if the input did not terminate properly. */
609 error (_("unmatched quote"));
611 /* Skip over the ending quote and mark the length of the string. */
612 PARSER_STREAM (parser
) = (char *) ++end
;
613 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
619 /* Otherwise, only identifier characters are permitted.
620 Spaces are the exception. In general, we keep spaces,
621 but only if the next characters in the input do not resolve
622 to one of the keywords.
624 This allows users to forgo quoting CV-qualifiers, template arguments,
625 and similar common language constructs. */
629 if (isspace (*PARSER_STREAM (parser
)))
631 p
= skip_spaces (PARSER_STREAM (parser
));
632 /* When we get here we know we've found something followed by
633 a space (we skip over parens and templates below).
634 So if we find a keyword now, we know it is a keyword and not,
635 say, a function name. */
636 if (linespec_lexer_lex_keyword (p
) != NULL
)
638 LS_TOKEN_STOKEN (token
).ptr
= start
;
639 LS_TOKEN_STOKEN (token
).length
640 = PARSER_STREAM (parser
) - start
;
644 /* Advance past the whitespace. */
645 PARSER_STREAM (parser
) = p
;
648 /* If the next character is EOI or (single) ':', the
649 string is complete; return the token. */
650 if (*PARSER_STREAM (parser
) == 0)
652 LS_TOKEN_STOKEN (token
).ptr
= start
;
653 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
656 else if (PARSER_STREAM (parser
)[0] == ':')
658 /* Do not tokenize the C++ scope operator. */
659 if (PARSER_STREAM (parser
)[1] == ':')
660 ++(PARSER_STREAM (parser
));
662 /* Do not tokenify if the input length so far is one
663 (i.e, a single-letter drive name) and the next character
664 is a directory separator. This allows Windows-style
665 paths to be recognized as filenames without quoting it. */
666 else if ((PARSER_STREAM (parser
) - start
) != 1
667 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
669 LS_TOKEN_STOKEN (token
).ptr
= start
;
670 LS_TOKEN_STOKEN (token
).length
671 = PARSER_STREAM (parser
) - start
;
675 /* Special case: permit quote-enclosed linespecs. */
676 else if (parser
->is_quote_enclosed
677 && strchr (linespec_quote_characters
,
678 *PARSER_STREAM (parser
))
679 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
681 LS_TOKEN_STOKEN (token
).ptr
= start
;
682 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
685 /* Because commas may terminate a linespec and appear in
686 the middle of valid string input, special cases for
687 '<' and '(' are necessary. */
688 else if (*PARSER_STREAM (parser
) == '<'
689 || *PARSER_STREAM (parser
) == '(')
693 p
= find_parameter_list_end (PARSER_STREAM (parser
));
696 PARSER_STREAM (parser
) = p
;
700 /* Commas are terminators, but not if they are part of an
702 else if (*PARSER_STREAM (parser
) == ',')
704 if ((PARSER_STATE (parser
)->language
->la_language
706 && (PARSER_STREAM (parser
) - start
) > 8
707 /* strlen ("operator") */)
709 char *p
= strstr (start
, "operator");
711 if (p
!= NULL
&& is_operator_name (p
))
713 /* This is an operator name. Keep going. */
714 ++(PARSER_STREAM (parser
));
719 /* Comma terminates the string. */
720 LS_TOKEN_STOKEN (token
).ptr
= start
;
721 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
725 /* Advance the stream. */
726 ++(PARSER_STREAM (parser
));
733 /* Lex a single linespec token from PARSER. */
735 static linespec_token
736 linespec_lexer_lex_one (linespec_parser
*parser
)
740 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
742 /* Skip any whitespace. */
743 PARSER_STREAM (parser
) = skip_spaces (PARSER_STREAM (parser
));
745 /* Check for a keyword, they end the linespec. */
747 if (parser
->keyword_ok
)
748 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
751 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
752 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
753 return parser
->lexer
.current
;
756 /* Handle other tokens. */
757 switch (*PARSER_STREAM (parser
))
760 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
764 case '0': case '1': case '2': case '3': case '4':
765 case '5': case '6': case '7': case '8': case '9':
766 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
767 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
771 /* If we have a scope operator, lex the input as a string.
772 Otherwise, return LSTOKEN_COLON. */
773 if (PARSER_STREAM (parser
)[1] == ':')
774 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
777 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
778 ++(PARSER_STREAM (parser
));
782 case '\'': case '\"':
783 /* Special case: permit quote-enclosed linespecs. */
784 if (parser
->is_quote_enclosed
785 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
787 ++(PARSER_STREAM (parser
));
788 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
791 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
795 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
796 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
797 = PARSER_STREAM (parser
);
798 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
799 ++(PARSER_STREAM (parser
));
803 /* If the input is not a number, it must be a string.
804 [Keywords were already considered above.] */
805 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
810 return parser
->lexer
.current
;
813 /* Consume the current token and return the next token in PARSER's
816 static linespec_token
817 linespec_lexer_consume_token (linespec_parser
*parser
)
819 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
820 return linespec_lexer_lex_one (parser
);
823 /* Return the next token without consuming the current token. */
825 static linespec_token
826 linespec_lexer_peek_token (linespec_parser
*parser
)
829 char *saved_stream
= PARSER_STREAM (parser
);
830 linespec_token saved_token
= parser
->lexer
.current
;
832 next
= linespec_lexer_consume_token (parser
);
833 PARSER_STREAM (parser
) = saved_stream
;
834 parser
->lexer
.current
= saved_token
;
838 /* Helper functions. */
840 /* Add SAL to SALS. */
843 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
844 struct symtab_and_line
*sal
)
847 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
848 sals
->sals
[sals
->nelts
- 1] = *sal
;
851 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
852 the new sal, if needed. If not NULL, SYMNAME is the name of the
853 symbol to use when constructing the new canonical name.
855 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
856 canonical name for the SAL. */
859 add_sal_to_sals (struct linespec_state
*self
,
860 struct symtabs_and_lines
*sals
,
861 struct symtab_and_line
*sal
,
862 const char *symname
, int literal_canonical
)
864 add_sal_to_sals_basic (sals
, sal
);
868 struct linespec_canonical_name
*canonical
;
870 self
->canonical_names
= xrealloc (self
->canonical_names
,
872 * sizeof (*self
->canonical_names
)));
873 canonical
= &self
->canonical_names
[sals
->nelts
- 1];
874 if (!literal_canonical
&& sal
->symtab
)
876 const char *fullname
= symtab_to_fullname (sal
->symtab
);
878 /* Note that the filter doesn't have to be a valid linespec
879 input. We only apply the ":LINE" treatment to Ada for
881 if (symname
!= NULL
&& sal
->line
!= 0
882 && self
->language
->la_language
== language_ada
)
883 canonical
->suffix
= xstrprintf ("%s:%d", symname
, sal
->line
);
884 else if (symname
!= NULL
)
885 canonical
->suffix
= xstrdup (symname
);
887 canonical
->suffix
= xstrprintf ("%d", sal
->line
);
888 canonical
->symtab
= sal
->symtab
;
893 canonical
->suffix
= xstrdup (symname
);
895 canonical
->suffix
= NULL
;
896 canonical
->symtab
= NULL
;
901 /* A hash function for address_entry. */
904 hash_address_entry (const void *p
)
906 const struct address_entry
*aep
= p
;
909 hash
= iterative_hash_object (aep
->pspace
, 0);
910 return iterative_hash_object (aep
->addr
, hash
);
913 /* An equality function for address_entry. */
916 eq_address_entry (const void *a
, const void *b
)
918 const struct address_entry
*aea
= a
;
919 const struct address_entry
*aeb
= b
;
921 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
924 /* Check whether the address, represented by PSPACE and ADDR, is
925 already in the set. If so, return 0. Otherwise, add it and return
929 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
931 struct address_entry e
, *p
;
936 slot
= htab_find_slot (set
, &e
, INSERT
);
940 p
= XNEW (struct address_entry
);
941 memcpy (p
, &e
, sizeof (struct address_entry
));
947 /* A callback function and the additional data to call it with. */
949 struct symbol_and_data_callback
951 /* The callback to use. */
952 symbol_found_callback_ftype
*callback
;
954 /* Data to be passed to the callback. */
958 /* A helper for iterate_over_all_matching_symtabs that is used to
959 restrict calls to another callback to symbols representing inline
963 iterate_inline_only (struct symbol
*sym
, void *d
)
965 if (SYMBOL_INLINED (sym
))
967 struct symbol_and_data_callback
*cad
= d
;
969 return cad
->callback (sym
, cad
->data
);
971 return 1; /* Continue iterating. */
974 /* Some data for the expand_symtabs_matching callback. */
976 struct symbol_matcher_data
978 /* The lookup name against which symbol name should be compared. */
979 const char *lookup_name
;
981 /* The routine to be used for comparison. */
982 symbol_name_cmp_ftype symbol_name_cmp
;
985 /* A helper for iterate_over_all_matching_symtabs that is passed as a
986 callback to the expand_symtabs_matching method. */
989 iterate_name_matcher (const char *name
, void *d
)
991 const struct symbol_matcher_data
*data
= d
;
993 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
994 return 1; /* Expand this symbol's symbol table. */
995 return 0; /* Skip this symbol. */
998 /* A helper that walks over all matching symtabs in all objfiles and
999 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
1000 not NULL, then the search is restricted to just that program
1001 space. If INCLUDE_INLINE is nonzero then symbols representing
1002 inlined instances of functions will be included in the result. */
1005 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
1007 const domain_enum domain
,
1008 symbol_found_callback_ftype
*callback
,
1010 struct program_space
*search_pspace
,
1013 struct objfile
*objfile
;
1014 struct program_space
*pspace
;
1015 struct symbol_matcher_data matcher_data
;
1017 matcher_data
.lookup_name
= name
;
1018 matcher_data
.symbol_name_cmp
=
1019 state
->language
->la_get_symbol_name_cmp
!= NULL
1020 ? state
->language
->la_get_symbol_name_cmp (name
)
1023 ALL_PSPACES (pspace
)
1025 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
1027 if (pspace
->executing_startup
)
1030 set_current_program_space (pspace
);
1032 ALL_OBJFILES (objfile
)
1034 struct symtab
*symtab
;
1037 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1038 iterate_name_matcher
,
1042 ALL_OBJFILE_PRIMARY_SYMTABS (objfile
, symtab
)
1044 iterate_over_file_blocks (symtab
, name
, domain
, callback
, data
);
1048 struct symbol_and_data_callback cad
= { callback
, data
};
1049 struct block
*block
;
1052 for (i
= FIRST_LOCAL_BLOCK
;
1053 i
< BLOCKVECTOR_NBLOCKS (BLOCKVECTOR (symtab
)); i
++)
1055 block
= BLOCKVECTOR_BLOCK (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 struct block
*
1069 get_current_search_block (void)
1071 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 (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 (minsym_and_objfile_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
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
);
1662 /* The name is also not a label. Abort parsing. Do not throw
1663 an error here. parse_linespec will do it for us. */
1665 /* Save a copy of the name we were trying to lookup. */
1666 PARSER_RESULT (parser
)->function_name
= name
;
1667 discard_cleanups (cleanup
);
1672 /* Get the next token. */
1673 token
= linespec_lexer_consume_token (parser
);
1675 if (token
.type
== LSTOKEN_COLON
)
1677 /* User specified a label or a lineno. */
1678 token
= linespec_lexer_consume_token (parser
);
1680 if (token
.type
== LSTOKEN_NUMBER
)
1682 /* User specified an offset. Record the line offset and
1683 get the next token. */
1684 name
= copy_token_string (token
);
1685 cleanup
= make_cleanup (xfree
, name
);
1686 PARSER_RESULT (parser
)->line_offset
1687 = linespec_parse_line_offset (name
);
1688 do_cleanups (cleanup
);
1690 /* Ge the next token. */
1691 token
= linespec_lexer_consume_token (parser
);
1693 else if (token
.type
== LSTOKEN_STRING
)
1695 /* Grab a copy of the label's name and look it up. */
1696 name
= copy_token_string (token
);
1697 cleanup
= make_cleanup (xfree
, name
);
1698 labels
= find_label_symbols (PARSER_STATE (parser
),
1699 PARSER_RESULT (parser
)->function_symbols
,
1704 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1705 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1706 PARSER_RESULT (parser
)->label_name
= name
;
1708 discard_cleanups (cleanup
);
1712 /* We don't know what it was, but it isn't a label. */
1713 throw_error (NOT_FOUND_ERROR
,
1714 _("No label \"%s\" defined in function \"%s\"."),
1715 name
, PARSER_RESULT (parser
)->function_name
);
1718 /* Check for a line offset. */
1719 token
= linespec_lexer_consume_token (parser
);
1720 if (token
.type
== LSTOKEN_COLON
)
1722 /* Get the next token. */
1723 token
= linespec_lexer_consume_token (parser
);
1725 /* It must be a line offset. */
1726 if (token
.type
!= LSTOKEN_NUMBER
)
1727 unexpected_linespec_error (parser
);
1729 /* Record the lione offset and get the next token. */
1730 name
= copy_token_string (token
);
1731 cleanup
= make_cleanup (xfree
, name
);
1733 PARSER_RESULT (parser
)->line_offset
1734 = linespec_parse_line_offset (name
);
1735 do_cleanups (cleanup
);
1737 /* Get the next token. */
1738 token
= linespec_lexer_consume_token (parser
);
1743 /* Trailing ':' in the input. Issue an error. */
1744 unexpected_linespec_error (parser
);
1749 /* Canonicalize the linespec contained in LS. The result is saved into
1750 STATE->canonical. */
1753 canonicalize_linespec (struct linespec_state
*state
, linespec_p ls
)
1755 /* If canonicalization was not requested, no need to do anything. */
1756 if (!state
->canonical
)
1759 /* Shortcut expressions, which can only appear by themselves. */
1760 if (ls
->expression
!= NULL
)
1761 state
->canonical
->addr_string
= xstrdup (ls
->expression
);
1764 struct ui_file
*buf
;
1767 buf
= mem_fileopen ();
1768 if (ls
->source_filename
)
1770 fputs_unfiltered (ls
->source_filename
, buf
);
1774 if (ls
->function_name
)
1777 fputc_unfiltered (':', buf
);
1778 fputs_unfiltered (ls
->function_name
, buf
);
1785 fputc_unfiltered (':', buf
);
1787 if (ls
->function_name
== NULL
)
1791 /* No function was specified, so add the symbol name. */
1792 gdb_assert (ls
->labels
.function_symbols
!= NULL
1793 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1795 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1796 fputs_unfiltered (SYMBOL_NATURAL_NAME (s
), buf
);
1797 fputc_unfiltered (':', buf
);
1800 fputs_unfiltered (ls
->label_name
, buf
);
1802 state
->canonical
->special_display
= 1;
1805 if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
1808 fputc_unfiltered (':', buf
);
1809 fprintf_filtered (buf
, "%s%d",
1810 (ls
->line_offset
.sign
== LINE_OFFSET_NONE
? ""
1811 : (ls
->line_offset
.sign
1812 == LINE_OFFSET_PLUS
? "+" : "-")),
1813 ls
->line_offset
.offset
);
1816 state
->canonical
->addr_string
= ui_file_xstrdup (buf
, NULL
);
1817 ui_file_delete (buf
);
1821 /* Given a line offset in LS, construct the relevant SALs. */
1823 static struct symtabs_and_lines
1824 create_sals_line_offset (struct linespec_state
*self
,
1827 struct symtabs_and_lines values
;
1828 struct symtab_and_line val
;
1829 int use_default
= 0;
1835 /* This is where we need to make sure we have good defaults.
1836 We must guarantee that this section of code is never executed
1837 when we are called with just a function name, since
1838 set_default_source_symtab_and_line uses
1839 select_source_symtab that calls us with such an argument. */
1841 if (VEC_length (symtab_ptr
, ls
->file_symtabs
) == 1
1842 && VEC_index (symtab_ptr
, ls
->file_symtabs
, 0) == NULL
)
1844 const char *fullname
;
1846 set_current_program_space (self
->program_space
);
1848 /* Make sure we have at least a default source line. */
1849 set_default_source_symtab_and_line ();
1850 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1851 fullname
= symtab_to_fullname (self
->default_symtab
);
1852 VEC_pop (symtab_ptr
, ls
->file_symtabs
);
1853 VEC_free (symtab_ptr
, ls
->file_symtabs
);
1854 ls
->file_symtabs
= collect_symtabs_from_filename (fullname
);
1858 val
.line
= ls
->line_offset
.offset
;
1859 switch (ls
->line_offset
.sign
)
1861 case LINE_OFFSET_PLUS
:
1862 if (ls
->line_offset
.offset
== 0)
1865 val
.line
= self
->default_line
+ val
.line
;
1868 case LINE_OFFSET_MINUS
:
1869 if (ls
->line_offset
.offset
== 0)
1872 val
.line
= self
->default_line
- val
.line
;
1874 val
.line
= -val
.line
;
1877 case LINE_OFFSET_NONE
:
1878 break; /* No need to adjust val.line. */
1881 if (self
->list_mode
)
1882 decode_digits_list_mode (self
, ls
, &values
, val
);
1885 struct linetable_entry
*best_entry
= NULL
;
1887 struct block
**blocks
;
1888 struct cleanup
*cleanup
;
1889 struct symtabs_and_lines intermediate_results
;
1892 intermediate_results
.sals
= NULL
;
1893 intermediate_results
.nelts
= 0;
1895 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1897 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1898 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1899 &intermediate_results
, &best_entry
);
1901 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1903 /* For optimized code, the compiler can scatter one source line
1904 across disjoint ranges of PC values, even when no duplicate
1905 functions or inline functions are involved. For example,
1906 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1907 function can result in two PC ranges. In this case, we don't
1908 want to set a breakpoint on the first PC of each range. To filter
1909 such cases, we use containing blocks -- for each PC found
1910 above, we see if there are other PCs that are in the same
1911 block. If yes, the other PCs are filtered out. */
1913 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1914 make_cleanup (xfree
, filter
);
1915 blocks
= XNEWVEC (struct block
*, intermediate_results
.nelts
);
1916 make_cleanup (xfree
, blocks
);
1918 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1920 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1923 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1924 intermediate_results
.sals
[i
].section
);
1927 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1929 if (blocks
[i
] != NULL
)
1930 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1932 if (blocks
[j
] == blocks
[i
])
1940 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1943 struct symbol
*sym
= (blocks
[i
]
1944 ? block_containing_function (blocks
[i
])
1947 if (self
->funfirstline
)
1948 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1949 /* Make sure the line matches the request, not what was
1951 intermediate_results
.sals
[i
].line
= val
.line
;
1952 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1953 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1956 do_cleanups (cleanup
);
1959 if (values
.nelts
== 0)
1961 if (ls
->source_filename
)
1962 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1963 val
.line
, ls
->source_filename
);
1965 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
1972 /* Create and return SALs from the linespec LS. */
1974 static struct symtabs_and_lines
1975 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
1977 struct symtabs_and_lines sals
= {NULL
, 0};
1979 if (ls
->expression
!= NULL
)
1981 struct symtab_and_line sal
;
1983 /* We have an expression. No other attribute is allowed. */
1984 sal
= find_pc_line (ls
->expr_pc
, 0);
1985 sal
.pc
= ls
->expr_pc
;
1986 sal
.section
= find_pc_overlay (ls
->expr_pc
);
1987 sal
.explicit_pc
= 1;
1988 add_sal_to_sals (state
, &sals
, &sal
, ls
->expression
, 1);
1990 else if (ls
->labels
.label_symbols
!= NULL
)
1992 /* We have just a bunch of functions/methods or labels. */
1994 struct symtab_and_line sal
;
1997 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
1999 struct program_space
*pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2001 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2002 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2003 add_sal_to_sals (state
, &sals
, &sal
,
2004 SYMBOL_NATURAL_NAME (sym
), 0);
2007 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
2009 /* We have just a bunch of functions and/or methods. */
2011 struct symtab_and_line sal
;
2013 minsym_and_objfile_d
*elem
;
2014 struct program_space
*pspace
;
2016 if (ls
->function_symbols
!= NULL
)
2018 /* Sort symbols so that symbols with the same program space are next
2020 qsort (VEC_address (symbolp
, ls
->function_symbols
),
2021 VEC_length (symbolp
, ls
->function_symbols
),
2022 sizeof (symbolp
), compare_symbols
);
2024 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
2026 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2027 set_current_program_space (pspace
);
2028 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
2029 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
2030 add_sal_to_sals (state
, &sals
, &sal
,
2031 SYMBOL_NATURAL_NAME (sym
), 0);
2035 if (ls
->minimal_symbols
!= NULL
)
2037 /* Sort minimal symbols by program space, too. */
2038 qsort (VEC_address (minsym_and_objfile_d
, ls
->minimal_symbols
),
2039 VEC_length (minsym_and_objfile_d
, ls
->minimal_symbols
),
2040 sizeof (minsym_and_objfile_d
), compare_msymbols
);
2043 VEC_iterate (minsym_and_objfile_d
, ls
->minimal_symbols
, i
, elem
);
2046 pspace
= elem
->objfile
->pspace
;
2047 set_current_program_space (pspace
);
2048 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
2052 else if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2054 /* Only an offset was specified. */
2055 sals
= create_sals_line_offset (state
, ls
);
2057 /* Make sure we have a filename for canonicalization. */
2058 if (ls
->source_filename
== NULL
)
2060 const char *fullname
= symtab_to_fullname (state
->default_symtab
);
2062 /* It may be more appropriate to keep DEFAULT_SYMTAB in its symtab
2063 form so that displaying SOURCE_FILENAME can follow the current
2064 FILENAME_DISPLAY_STRING setting. But as it is used only rarely
2065 it has been kept for code simplicity only in absolute form. */
2066 ls
->source_filename
= xstrdup (fullname
);
2071 /* We haven't found any results... */
2075 canonicalize_linespec (state
, ls
);
2077 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
2078 state
->canonical
->pre_expanded
= 1;
2083 /* Parse a string that specifies a linespec.
2084 Pass the address of a char * variable; that variable will be
2085 advanced over the characters actually parsed.
2087 The basic grammar of linespecs:
2089 linespec -> expr_spec | var_spec | basic_spec
2090 expr_spec -> '*' STRING
2091 var_spec -> '$' (STRING | NUMBER)
2093 basic_spec -> file_offset_spec | function_spec | label_spec
2094 file_offset_spec -> opt_file_spec offset_spec
2095 function_spec -> opt_file_spec function_name_spec opt_label_spec
2096 label_spec -> label_name_spec
2098 opt_file_spec -> "" | file_name_spec ':'
2099 opt_label_spec -> "" | ':' label_name_spec
2101 file_name_spec -> STRING
2102 function_name_spec -> STRING
2103 label_name_spec -> STRING
2104 function_name_spec -> STRING
2105 offset_spec -> NUMBER
2109 This may all be followed by several keywords such as "if EXPR",
2112 A comma will terminate parsing.
2114 The function may be an undebuggable function found in minimal symbol table.
2116 If the argument FUNFIRSTLINE is nonzero, we want the first line
2117 of real code inside a function when a function is specified, and it is
2118 not OK to specify a variable or type to get its line number.
2120 DEFAULT_SYMTAB specifies the file to use if none is specified.
2121 It defaults to current_source_symtab.
2122 DEFAULT_LINE specifies the line number to use for relative
2123 line numbers (that start with signs). Defaults to current_source_line.
2124 If CANONICAL is non-NULL, store an array of strings containing the canonical
2125 line specs there if necessary. Currently overloaded member functions and
2126 line numbers or static functions without a filename yield a canonical
2127 line spec. The array and the line spec strings are allocated on the heap,
2128 it is the callers responsibility to free them.
2130 Note that it is possible to return zero for the symtab
2131 if no file is validly specified. Callers must check that.
2132 Also, the line number returned may be invalid. */
2134 /* Parse the linespec in ARGPTR. */
2136 static struct symtabs_and_lines
2137 parse_linespec (linespec_parser
*parser
, char **argptr
)
2139 linespec_token token
;
2140 struct symtabs_and_lines values
;
2141 volatile struct gdb_exception file_exception
;
2142 struct cleanup
*cleanup
;
2144 /* A special case to start. It has become quite popular for
2145 IDEs to work around bugs in the previous parser by quoting
2146 the entire linespec, so we attempt to deal with this nicely. */
2147 parser
->is_quote_enclosed
= 0;
2148 if (!is_ada_operator (*argptr
)
2149 && strchr (linespec_quote_characters
, **argptr
) != NULL
)
2153 end
= skip_quote_char (*argptr
+ 1, **argptr
);
2154 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2156 /* Here's the special case. Skip ARGPTR past the initial
2159 parser
->is_quote_enclosed
= 1;
2163 /* A keyword at the start cannot be interpreted as such.
2164 Consider "b thread thread 42". */
2165 parser
->keyword_ok
= 0;
2167 parser
->lexer
.saved_arg
= *argptr
;
2168 parser
->lexer
.stream
= argptr
;
2169 file_exception
.reason
= 0;
2171 /* Initialize the default symtab and line offset. */
2172 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2173 &PARSER_STATE (parser
)->default_line
);
2175 /* Objective-C shortcut. */
2176 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), argptr
);
2177 if (values
.sals
!= NULL
)
2180 /* Start parsing. */
2182 /* Get the first token. */
2183 token
= linespec_lexer_lex_one (parser
);
2185 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2186 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '*')
2191 /* User specified an expression, *EXPR. */
2192 copy
= expr
= copy_token_string (token
);
2193 cleanup
= make_cleanup (xfree
, expr
);
2194 PARSER_RESULT (parser
)->expr_pc
= linespec_expression_to_pc (©
);
2195 discard_cleanups (cleanup
);
2196 PARSER_RESULT (parser
)->expression
= expr
;
2198 /* This is a little hacky/tricky. If linespec_expression_to_pc
2199 did not evaluate the entire token, then we must find the
2200 string COPY inside the original token buffer. */
2203 PARSER_STREAM (parser
) = strstr (parser
->lexer
.saved_arg
, copy
);
2204 gdb_assert (PARSER_STREAM (parser
) != NULL
);
2207 /* Consume the token. */
2208 linespec_lexer_consume_token (parser
);
2210 goto convert_to_sals
;
2212 else if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2216 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2217 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2219 /* User specified a convenience variable or history value. */
2220 var
= copy_token_string (token
);
2221 cleanup
= make_cleanup (xfree
, var
);
2222 PARSER_RESULT (parser
)->line_offset
2223 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2224 do_cleanups (cleanup
);
2226 /* If a line_offset wasn't found (VAR is the name of a user
2227 variable/function), then skip to normal symbol processing. */
2228 if (PARSER_RESULT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2230 /* Consume this token. */
2231 linespec_lexer_consume_token (parser
);
2233 goto convert_to_sals
;
2236 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2237 unexpected_linespec_error (parser
);
2239 /* Now we can recognize keywords. */
2240 parser
->keyword_ok
= 1;
2242 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2243 this token cannot represent a filename. */
2244 token
= linespec_lexer_peek_token (parser
);
2246 if (token
.type
== LSTOKEN_COLON
)
2248 char *user_filename
;
2250 /* Get the current token again and extract the filename. */
2251 token
= linespec_lexer_lex_one (parser
);
2252 user_filename
= copy_token_string (token
);
2254 /* Check if the input is a filename. */
2255 TRY_CATCH (file_exception
, RETURN_MASK_ERROR
)
2257 PARSER_RESULT (parser
)->file_symtabs
2258 = symtabs_from_filename (user_filename
);
2261 if (file_exception
.reason
>= 0)
2263 /* Symtabs were found for the file. Record the filename. */
2264 PARSER_RESULT (parser
)->source_filename
= user_filename
;
2266 /* Get the next token. */
2267 token
= linespec_lexer_consume_token (parser
);
2269 /* This is LSTOKEN_COLON; consume it. */
2270 linespec_lexer_consume_token (parser
);
2274 /* No symtabs found -- discard user_filename. */
2275 xfree (user_filename
);
2277 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2278 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2281 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2282 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2283 && token
.type
!= LSTOKEN_COMMA
)
2285 /* TOKEN is the _next_ token, not the one currently in the parser.
2286 Consuming the token will give the correct error message. */
2287 linespec_lexer_consume_token (parser
);
2288 unexpected_linespec_error (parser
);
2292 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2293 VEC_safe_push (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2296 /* Parse the rest of the linespec. */
2297 linespec_parse_basic (parser
);
2299 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2300 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2301 && PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2302 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2304 /* The linespec didn't parse. Re-throw the file exception if
2306 if (file_exception
.reason
< 0)
2307 throw_exception (file_exception
);
2309 /* Otherwise, the symbol is not found. */
2310 symbol_not_found_error (PARSER_RESULT (parser
)->function_name
,
2311 PARSER_RESULT (parser
)->source_filename
);
2316 /* Get the last token and record how much of the input was parsed,
2318 token
= linespec_lexer_lex_one (parser
);
2319 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2320 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2322 /* Convert the data in PARSER_RESULT to SALs. */
2323 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2324 PARSER_RESULT (parser
));
2330 /* A constructor for linespec_state. */
2333 linespec_state_constructor (struct linespec_state
*self
,
2334 int flags
, const struct language_defn
*language
,
2335 struct symtab
*default_symtab
,
2337 struct linespec_result
*canonical
)
2339 memset (self
, 0, sizeof (*self
));
2340 self
->language
= language
;
2341 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2342 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2343 self
->default_symtab
= default_symtab
;
2344 self
->default_line
= default_line
;
2345 self
->canonical
= canonical
;
2346 self
->program_space
= current_program_space
;
2347 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2348 xfree
, xcalloc
, xfree
);
2351 /* Initialize a new linespec parser. */
2354 linespec_parser_new (linespec_parser
*parser
,
2355 int flags
, const struct language_defn
*language
,
2356 struct symtab
*default_symtab
,
2358 struct linespec_result
*canonical
)
2360 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2361 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2362 PARSER_RESULT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2363 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2364 default_symtab
, default_line
, canonical
);
2367 /* A destructor for linespec_state. */
2370 linespec_state_destructor (struct linespec_state
*self
)
2372 htab_delete (self
->addr_set
);
2375 /* Delete a linespec parser. */
2378 linespec_parser_delete (void *arg
)
2380 linespec_parser
*parser
= (linespec_parser
*) arg
;
2382 xfree ((char *) PARSER_RESULT (parser
)->expression
);
2383 xfree ((char *) PARSER_RESULT (parser
)->source_filename
);
2384 xfree ((char *) PARSER_RESULT (parser
)->label_name
);
2385 xfree ((char *) PARSER_RESULT (parser
)->function_name
);
2387 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2388 VEC_free (symtab_ptr
, PARSER_RESULT (parser
)->file_symtabs
);
2390 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2391 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2393 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2394 VEC_free (minsym_and_objfile_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2396 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2397 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2399 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2400 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2402 linespec_state_destructor (PARSER_STATE (parser
));
2405 /* See linespec.h. */
2408 decode_line_full (char **argptr
, int flags
,
2409 struct symtab
*default_symtab
,
2410 int default_line
, struct linespec_result
*canonical
,
2411 const char *select_mode
,
2414 struct symtabs_and_lines result
;
2415 struct cleanup
*cleanups
;
2416 VEC (const_char_ptr
) *filters
= NULL
;
2417 linespec_parser parser
;
2418 struct linespec_state
*state
;
2420 gdb_assert (canonical
!= NULL
);
2421 /* The filter only makes sense for 'all'. */
2422 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2423 gdb_assert (select_mode
== NULL
2424 || select_mode
== multiple_symbols_all
2425 || select_mode
== multiple_symbols_ask
2426 || select_mode
== multiple_symbols_cancel
);
2427 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2429 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2430 default_line
, canonical
);
2431 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2432 save_current_program_space ();
2434 result
= parse_linespec (&parser
, argptr
);
2435 state
= PARSER_STATE (&parser
);
2437 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2438 gdb_assert (canonical
->addr_string
!= NULL
);
2439 canonical
->pre_expanded
= 1;
2441 /* Arrange for allocated canonical names to be freed. */
2442 if (result
.nelts
> 0)
2446 make_cleanup (xfree
, state
->canonical_names
);
2447 for (i
= 0; i
< result
.nelts
; ++i
)
2449 gdb_assert (state
->canonical_names
[i
].suffix
!= NULL
);
2450 make_cleanup (xfree
, state
->canonical_names
[i
].suffix
);
2454 if (select_mode
== NULL
)
2456 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2457 select_mode
= multiple_symbols_all
;
2459 select_mode
= multiple_symbols_select_mode ();
2462 if (select_mode
== multiple_symbols_all
)
2466 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2467 VEC_safe_push (const_char_ptr
, filters
, filter
);
2468 filter_results (state
, &result
, filters
);
2471 convert_results_to_lsals (state
, &result
);
2474 decode_line_2 (state
, &result
, select_mode
);
2476 do_cleanups (cleanups
);
2479 /* See linespec.h. */
2481 struct symtabs_and_lines
2482 decode_line_1 (char **argptr
, int flags
,
2483 struct symtab
*default_symtab
,
2486 struct symtabs_and_lines result
;
2487 linespec_parser parser
;
2488 struct cleanup
*cleanups
;
2490 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2491 default_line
, NULL
);
2492 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2493 save_current_program_space ();
2495 result
= parse_linespec (&parser
, argptr
);
2497 do_cleanups (cleanups
);
2501 /* See linespec.h. */
2503 struct symtabs_and_lines
2504 decode_line_with_current_source (char *string
, int flags
)
2506 struct symtabs_and_lines sals
;
2507 struct symtab_and_line cursal
;
2510 error (_("Empty line specification."));
2512 /* We use whatever is set as the current source line. We do not try
2513 and get a default source symtab+line or it will recursively call us! */
2514 cursal
= get_current_source_symtab_and_line ();
2516 sals
= decode_line_1 (&string
, flags
,
2517 cursal
.symtab
, cursal
.line
);
2520 error (_("Junk at end of line specification: %s"), string
);
2524 /* See linespec.h. */
2526 struct symtabs_and_lines
2527 decode_line_with_last_displayed (char *string
, int flags
)
2529 struct symtabs_and_lines sals
;
2532 error (_("Empty line specification."));
2534 if (last_displayed_sal_is_valid ())
2535 sals
= decode_line_1 (&string
, flags
,
2536 get_last_displayed_symtab (),
2537 get_last_displayed_line ());
2539 sals
= decode_line_1 (&string
, flags
, (struct symtab
*) NULL
, 0);
2542 error (_("Junk at end of line specification: %s"), string
);
2548 /* First, some functions to initialize stuff at the beggining of the
2552 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2554 if (*default_symtab
== 0)
2556 /* Use whatever we have for the default source line. We don't use
2557 get_current_or_default_symtab_and_line as it can recurse and call
2559 struct symtab_and_line cursal
=
2560 get_current_source_symtab_and_line ();
2562 *default_symtab
= cursal
.symtab
;
2563 *default_line
= cursal
.line
;
2569 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2570 advancing EXP_PTR past any parsed text. */
2573 linespec_expression_to_pc (const char **exp_ptr
)
2575 if (current_program_space
->executing_startup
)
2576 /* The error message doesn't really matter, because this case
2577 should only hit during breakpoint reset. */
2578 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2579 "program space is in startup"));
2582 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2587 /* Here's where we recognise an Objective-C Selector. An Objective C
2588 selector may be implemented by more than one class, therefore it
2589 may represent more than one method/function. This gives us a
2590 situation somewhat analogous to C++ overloading. If there's more
2591 than one method that could represent the selector, then use some of
2592 the existing C++ code to let the user choose one. */
2594 static struct symtabs_and_lines
2595 decode_objc (struct linespec_state
*self
, linespec_p ls
, char **argptr
)
2597 struct collect_info info
;
2598 VEC (const_char_ptr
) *symbol_names
= NULL
;
2599 struct symtabs_and_lines values
;
2601 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2605 info
.file_symtabs
= NULL
;
2606 VEC_safe_push (symtab_ptr
, info
.file_symtabs
, NULL
);
2607 make_cleanup (VEC_cleanup (symtab_ptr
), &info
.file_symtabs
);
2608 info
.result
.symbols
= NULL
;
2609 info
.result
.minimal_symbols
= NULL
;
2613 new_argptr
= find_imps (*argptr
, &symbol_names
);
2614 if (VEC_empty (const_char_ptr
, symbol_names
))
2616 do_cleanups (cleanup
);
2620 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2622 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2623 || !VEC_empty (minsym_and_objfile_d
, info
.result
.minimal_symbols
))
2627 saved_arg
= alloca (new_argptr
- *argptr
+ 1);
2628 memcpy (saved_arg
, *argptr
, new_argptr
- *argptr
);
2629 saved_arg
[new_argptr
- *argptr
] = '\0';
2631 ls
->function_name
= xstrdup (saved_arg
);
2632 ls
->function_symbols
= info
.result
.symbols
;
2633 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2634 values
= convert_linespec_to_sals (self
, ls
);
2636 if (self
->canonical
)
2638 self
->canonical
->pre_expanded
= 1;
2639 if (ls
->source_filename
)
2640 self
->canonical
->addr_string
2641 = xstrprintf ("%s:%s", ls
->source_filename
, saved_arg
);
2643 self
->canonical
->addr_string
= xstrdup (saved_arg
);
2647 *argptr
= new_argptr
;
2649 do_cleanups (cleanup
);
2654 /* An instance of this type is used when collecting prefix symbols for
2657 struct decode_compound_collector
2659 /* The result vector. */
2660 VEC (symbolp
) *symbols
;
2662 /* A hash table of all symbols we found. We use this to avoid
2663 adding any symbol more than once. */
2667 /* A callback for iterate_over_symbols that is used by
2668 lookup_prefix_sym to collect type symbols. */
2671 collect_one_symbol (struct symbol
*sym
, void *d
)
2673 struct decode_compound_collector
*collector
= d
;
2677 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2678 return 1; /* Continue iterating. */
2680 t
= SYMBOL_TYPE (sym
);
2682 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2683 && TYPE_CODE (t
) != TYPE_CODE_UNION
2684 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2685 return 1; /* Continue iterating. */
2687 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2691 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2694 return 1; /* Continue iterating. */
2697 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2699 static VEC (symbolp
) *
2700 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_ptr
) *file_symtabs
,
2701 const char *class_name
)
2705 struct decode_compound_collector collector
;
2706 struct cleanup
*outer
;
2707 struct cleanup
*cleanup
;
2709 collector
.symbols
= NULL
;
2710 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2712 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2713 htab_eq_pointer
, NULL
,
2715 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2717 for (ix
= 0; VEC_iterate (symtab_ptr
, file_symtabs
, ix
, elt
); ++ix
)
2721 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2722 collect_one_symbol
, &collector
,
2724 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2725 collect_one_symbol
, &collector
,
2730 /* Program spaces that are executing startup should have
2731 been filtered out earlier. */
2732 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2733 set_current_program_space (SYMTAB_PSPACE (elt
));
2734 iterate_over_file_blocks (elt
, class_name
, STRUCT_DOMAIN
,
2735 collect_one_symbol
, &collector
);
2736 iterate_over_file_blocks (elt
, class_name
, VAR_DOMAIN
,
2737 collect_one_symbol
, &collector
);
2741 do_cleanups (cleanup
);
2742 discard_cleanups (outer
);
2743 return collector
.symbols
;
2746 /* A qsort comparison function for symbols. The resulting order does
2747 not actually matter; we just need to be able to sort them so that
2748 symbols with the same program space end up next to each other. */
2751 compare_symbols (const void *a
, const void *b
)
2753 struct symbol
* const *sa
= a
;
2754 struct symbol
* const *sb
= b
;
2757 uia
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sa
));
2758 uib
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sb
));
2765 uia
= (uintptr_t) *sa
;
2766 uib
= (uintptr_t) *sb
;
2776 /* Like compare_symbols but for minimal symbols. */
2779 compare_msymbols (const void *a
, const void *b
)
2781 const struct minsym_and_objfile
*sa
= a
;
2782 const struct minsym_and_objfile
*sb
= b
;
2785 uia
= (uintptr_t) sa
->objfile
->pspace
;
2786 uib
= (uintptr_t) sa
->objfile
->pspace
;
2793 uia
= (uintptr_t) sa
->minsym
;
2794 uib
= (uintptr_t) sb
->minsym
;
2804 /* Look for all the matching instances of each symbol in NAMES. Only
2805 instances from PSPACE are considered; other program spaces are
2806 handled by our caller. If PSPACE is NULL, then all program spaces
2807 are considered. Results are stored into INFO. */
2810 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2811 struct program_space
*pspace
,
2812 VEC (const_char_ptr
) *names
)
2817 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2818 add_matching_symbols_to_info (iter
, info
, pspace
);
2822 find_superclass_methods (VEC (typep
) *superclasses
,
2824 VEC (const_char_ptr
) **result_names
)
2826 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2827 VEC (typep
) *iter_classes
;
2828 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2830 iter_classes
= superclasses
;
2833 VEC (typep
) *new_supers
= NULL
;
2837 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2838 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2839 find_methods (t
, name
, result_names
, &new_supers
);
2841 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2842 || VEC_empty (typep
, new_supers
))
2845 iter_classes
= new_supers
;
2848 do_cleanups (cleanup
);
2851 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2852 given by one of the symbols in SYM_CLASSES. Matches are returned
2853 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2856 find_method (struct linespec_state
*self
, VEC (symtab_ptr
) *file_symtabs
,
2857 const char *class_name
, const char *method_name
,
2858 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2859 VEC (minsym_and_objfile_d
) **minsyms
)
2862 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2864 int last_result_len
;
2865 VEC (typep
) *superclass_vec
;
2866 VEC (const_char_ptr
) *result_names
;
2867 struct collect_info info
;
2869 /* Sort symbols so that symbols with the same program space are next
2871 qsort (VEC_address (symbolp
, sym_classes
),
2872 VEC_length (symbolp
, sym_classes
),
2877 info
.file_symtabs
= file_symtabs
;
2878 info
.result
.symbols
= NULL
;
2879 info
.result
.minimal_symbols
= NULL
;
2881 /* Iterate over all the types, looking for the names of existing
2882 methods matching METHOD_NAME. If we cannot find a direct method in a
2883 given program space, then we consider inherited methods; this is
2884 not ideal (ideal would be to respect C++ hiding rules), but it
2885 seems good enough and is what GDB has historically done. We only
2886 need to collect the names because later we find all symbols with
2887 those names. This loop is written in a somewhat funny way
2888 because we collect data across the program space before deciding
2890 superclass_vec
= NULL
;
2891 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
2892 result_names
= NULL
;
2893 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
2894 last_result_len
= 0;
2895 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
2898 struct program_space
*pspace
;
2900 /* Program spaces that are executing startup should have
2901 been filtered out earlier. */
2902 gdb_assert (!SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
))->executing_startup
);
2903 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2904 set_current_program_space (pspace
);
2905 t
= check_typedef (SYMBOL_TYPE (sym
));
2906 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
2908 /* Handle all items from a single program space at once; and be
2909 sure not to miss the last batch. */
2910 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
2912 != SYMTAB_PSPACE (SYMBOL_SYMTAB (VEC_index (symbolp
, sym_classes
,
2915 /* If we did not find a direct implementation anywhere in
2916 this program space, consider superclasses. */
2917 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
2918 find_superclass_methods (superclass_vec
, method_name
,
2921 /* We have a list of candidate symbol names, so now we
2922 iterate over the symbol tables looking for all
2923 matches in this pspace. */
2924 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
2926 VEC_truncate (typep
, superclass_vec
, 0);
2927 last_result_len
= VEC_length (const_char_ptr
, result_names
);
2931 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2932 || !VEC_empty (minsym_and_objfile_d
, info
.result
.minimal_symbols
))
2934 *symbols
= info
.result
.symbols
;
2935 *minsyms
= info
.result
.minimal_symbols
;
2936 do_cleanups (cleanup
);
2940 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
2941 and other attempts to locate the symbol will be made. */
2942 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
2947 /* This object is used when collecting all matching symtabs. */
2949 struct symtab_collector
2951 /* The result vector of symtabs. */
2952 VEC (symtab_ptr
) *symtabs
;
2954 /* This is used to ensure the symtabs are unique. */
2955 htab_t symtab_table
;
2958 /* Callback for iterate_over_symtabs. */
2961 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
2963 struct symtab_collector
*data
= d
;
2966 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
2970 VEC_safe_push (symtab_ptr
, data
->symtabs
, symtab
);
2976 /* Given a file name, return a VEC of all matching symtabs. */
2978 static VEC (symtab_ptr
) *
2979 collect_symtabs_from_filename (const char *file
)
2981 struct symtab_collector collector
;
2982 struct cleanup
*cleanups
;
2983 struct program_space
*pspace
;
2985 collector
.symtabs
= NULL
;
2986 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
2988 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
2990 /* Find that file's data. */
2991 ALL_PSPACES (pspace
)
2993 if (pspace
->executing_startup
)
2996 set_current_program_space (pspace
);
2997 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
3000 do_cleanups (cleanups
);
3001 return collector
.symtabs
;
3004 /* Return all the symtabs associated to the FILENAME. */
3006 static VEC (symtab_ptr
) *
3007 symtabs_from_filename (const char *filename
)
3009 VEC (symtab_ptr
) *result
;
3011 result
= collect_symtabs_from_filename (filename
);
3013 if (VEC_empty (symtab_ptr
, result
))
3015 if (!have_full_symbols () && !have_partial_symbols ())
3016 throw_error (NOT_FOUND_ERROR
,
3017 _("No symbol table is loaded. "
3018 "Use the \"file\" command."));
3019 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), filename
);
3025 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
3026 debug symbols are returned in SYMBOLS. Matching minimal symbols are
3027 returned in MINSYMS. */
3030 find_function_symbols (struct linespec_state
*state
,
3031 VEC (symtab_ptr
) *file_symtabs
, const char *name
,
3032 VEC (symbolp
) **symbols
,
3033 VEC (minsym_and_objfile_d
) **minsyms
)
3035 struct collect_info info
;
3036 VEC (const_char_ptr
) *symbol_names
= NULL
;
3037 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
3041 info
.result
.symbols
= NULL
;
3042 info
.result
.minimal_symbols
= NULL
;
3043 info
.file_symtabs
= file_symtabs
;
3045 /* Try NAME as an Objective-C selector. */
3046 find_imps ((char *) name
, &symbol_names
);
3047 if (!VEC_empty (const_char_ptr
, symbol_names
))
3048 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
3050 add_matching_symbols_to_info (name
, &info
, NULL
);
3052 do_cleanups (cleanup
);
3054 if (VEC_empty (symbolp
, info
.result
.symbols
))
3056 VEC_free (symbolp
, info
.result
.symbols
);
3060 *symbols
= info
.result
.symbols
;
3062 if (VEC_empty (minsym_and_objfile_d
, info
.result
.minimal_symbols
))
3064 VEC_free (minsym_and_objfile_d
, info
.result
.minimal_symbols
);
3068 *minsyms
= info
.result
.minimal_symbols
;
3071 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
3072 in SYMBOLS and minimal symbols in MINSYMS. */
3075 find_linespec_symbols (struct linespec_state
*state
,
3076 VEC (symtab_ptr
) *file_symtabs
,
3078 VEC (symbolp
) **symbols
,
3079 VEC (minsym_and_objfile_d
) **minsyms
)
3081 struct cleanup
*cleanup
;
3083 const char *lookup_name
;
3084 volatile struct gdb_exception except
;
3086 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
3088 if (state
->language
->la_language
== language_ada
)
3090 /* In Ada, the symbol lookups are performed using the encoded
3091 name rather than the demangled name. */
3092 lookup_name
= ada_name_for_lookup (name
);
3093 make_cleanup (xfree
, (void *) lookup_name
);
3096 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
3099 lookup_name
= canon
;
3100 make_cleanup (xfree
, canon
);
3103 /* It's important to not call expand_symtabs_matching unnecessarily
3104 as it can really slow things down (by unnecessarily expanding
3105 potentially 1000s of symtabs, which when debugging some apps can
3106 cost 100s of seconds). Avoid this to some extent by *first* calling
3107 find_function_symbols, and only if that doesn't find anything
3108 *then* call find_method. This handles two important cases:
3109 1) break (anonymous namespace)::foo
3110 2) break class::method where method is in class (and not a baseclass) */
3112 find_function_symbols (state
, file_symtabs
, lookup_name
,
3115 /* If we were unable to locate a symbol of the same name, try dividing
3116 the name into class and method names and searching the class and its
3118 if (VEC_empty (symbolp
, *symbols
)
3119 && VEC_empty (minsym_and_objfile_d
, *minsyms
))
3121 char *klass
, *method
;
3122 const char *last
, *p
, *scope_op
;
3123 VEC (symbolp
) *classes
;
3125 /* See if we can find a scope operator and break this symbol
3126 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
3128 p
= find_toplevel_string (lookup_name
, scope_op
);
3131 /* No C++ scope operator. Try Java. */
3133 p
= find_toplevel_string (lookup_name
, scope_op
);
3140 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
3143 /* If no scope operator was found, there is nothing more we can do;
3144 we already attempted to lookup the entire name as a symbol
3148 do_cleanups (cleanup
);
3152 /* LOOKUP_NAME points to the class name.
3153 LAST points to the method name. */
3154 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
3155 make_cleanup (xfree
, klass
);
3156 strncpy (klass
, lookup_name
, last
- lookup_name
);
3157 klass
[last
- lookup_name
] = '\0';
3159 /* Skip past the scope operator. */
3160 last
+= strlen (scope_op
);
3161 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3162 make_cleanup (xfree
, method
);
3163 strcpy (method
, last
);
3165 /* Find a list of classes named KLASS. */
3166 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3167 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3169 if (!VEC_empty (symbolp
, classes
))
3171 /* Now locate a list of suitable methods named METHOD. */
3172 TRY_CATCH (except
, RETURN_MASK_ERROR
)
3174 find_method (state
, file_symtabs
, klass
, method
, classes
,
3178 /* If successful, we're done. If NOT_FOUND_ERROR
3179 was not thrown, rethrow the exception that we did get. */
3180 if (except
.reason
< 0 && except
.error
!= NOT_FOUND_ERROR
)
3181 throw_exception (except
);
3185 do_cleanups (cleanup
);
3188 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3189 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3191 static VEC (symbolp
) *
3192 find_label_symbols (struct linespec_state
*self
,
3193 VEC (symbolp
) *function_symbols
,
3194 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3197 struct block
*block
;
3199 struct symbol
*fn_sym
;
3200 VEC (symbolp
) *result
= NULL
;
3202 if (function_symbols
== NULL
)
3204 set_current_program_space (self
->program_space
);
3205 block
= get_current_search_block ();
3208 block
&& !BLOCK_FUNCTION (block
);
3209 block
= BLOCK_SUPERBLOCK (block
))
3213 fn_sym
= BLOCK_FUNCTION (block
);
3215 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3219 VEC_safe_push (symbolp
, result
, sym
);
3220 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3226 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3228 set_current_program_space (SYMTAB_PSPACE (SYMBOL_SYMTAB (fn_sym
)));
3229 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3230 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3234 VEC_safe_push (symbolp
, result
, sym
);
3235 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3245 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3248 decode_digits_list_mode (struct linespec_state
*self
,
3250 struct symtabs_and_lines
*values
,
3251 struct symtab_and_line val
)
3256 gdb_assert (self
->list_mode
);
3258 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
);
3261 /* The logic above should ensure this. */
3262 gdb_assert (elt
!= NULL
);
3264 set_current_program_space (SYMTAB_PSPACE (elt
));
3266 /* Simplistic search just for the list command. */
3267 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3268 if (val
.symtab
== NULL
)
3270 val
.pspace
= SYMTAB_PSPACE (elt
);
3272 val
.explicit_line
= 1;
3274 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3278 /* A helper for create_sals_line_offset that iterates over the symtabs,
3279 adding lines to the VEC. */
3282 decode_digits_ordinary (struct linespec_state
*self
,
3285 struct symtabs_and_lines
*sals
,
3286 struct linetable_entry
**best_entry
)
3291 for (ix
= 0; VEC_iterate (symtab_ptr
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3294 VEC (CORE_ADDR
) *pcs
;
3297 /* The logic above should ensure this. */
3298 gdb_assert (elt
!= NULL
);
3300 set_current_program_space (SYMTAB_PSPACE (elt
));
3302 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3303 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3305 struct symtab_and_line sal
;
3308 sal
.pspace
= SYMTAB_PSPACE (elt
);
3312 add_sal_to_sals_basic (sals
, &sal
);
3315 VEC_free (CORE_ADDR
, pcs
);
3321 /* Return the line offset represented by VARIABLE. */
3323 static struct line_offset
3324 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3328 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3330 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3333 while (*p
>= '0' && *p
<= '9')
3335 if (!*p
) /* Reached end of token without hitting non-digit. */
3337 /* We have a value history reference. */
3338 struct value
*val_history
;
3340 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3342 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3343 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3344 error (_("History values used in line "
3345 "specs must have integer values."));
3346 offset
.offset
= value_as_long (val_history
);
3350 /* Not all digits -- may be user variable/function or a
3351 convenience variable. */
3353 struct internalvar
*ivar
;
3355 /* Try it as a convenience variable. If it is not a convenience
3356 variable, return and allow normal symbol lookup to occur. */
3357 ivar
= lookup_only_internalvar (variable
+ 1);
3359 /* No internal variable with that name. Mark the offset
3360 as unknown to allow the name to be looked up as a symbol. */
3361 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3364 /* We found a valid variable name. If it is not an integer,
3366 if (!get_internalvar_integer (ivar
, &valx
))
3367 error (_("Convenience variables used in line "
3368 "specs must have integer values."));
3370 offset
.offset
= valx
;
3378 /* A callback used to possibly add a symbol to the results. */
3381 collect_symbols (struct symbol
*sym
, void *data
)
3383 struct collect_info
*info
= data
;
3385 /* In list mode, add all matching symbols, regardless of class.
3386 This allows the user to type "list a_global_variable". */
3387 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3388 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3389 return 1; /* Continue iterating. */
3392 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3393 linespec; return the SAL in RESULT. */
3396 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3397 struct minimal_symbol
*msymbol
,
3398 struct symtabs_and_lines
*result
)
3400 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3402 struct symtab_and_line sal
;
3404 sal
= find_pc_sect_line (SYMBOL_VALUE_ADDRESS (msymbol
),
3405 (struct obj_section
*) 0, 0);
3406 sal
.section
= SYMBOL_OBJ_SECTION (objfile
, msymbol
);
3408 /* The minimal symbol might point to a function descriptor;
3409 resolve it to the actual code address instead. */
3410 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3412 sal
= find_pc_sect_line (pc
, NULL
, 0);
3414 if (self
->funfirstline
)
3415 skip_prologue_sal (&sal
);
3417 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3418 add_sal_to_sals (self
, result
, &sal
, SYMBOL_NATURAL_NAME (msymbol
), 0);
3421 /* A helper struct to pass some data through
3422 iterate_over_minimal_symbols. */
3424 struct collect_minsyms
3426 /* The objfile we're examining. */
3427 struct objfile
*objfile
;
3429 /* The funfirstline setting from the initial call. */
3432 /* The list_mode setting from the initial call. */
3435 /* The resulting symbols. */
3436 VEC (minsym_and_objfile_d
) *msyms
;
3439 /* A helper function to classify a minimal_symbol_type according to
3443 classify_mtype (enum minimal_symbol_type t
)
3450 /* Intermediate priority. */
3453 case mst_solib_trampoline
:
3454 /* Lowest priority. */
3458 /* Highest priority. */
3463 /* Callback for qsort that sorts symbols by priority. */
3466 compare_msyms (const void *a
, const void *b
)
3468 const minsym_and_objfile_d
*moa
= a
;
3469 const minsym_and_objfile_d
*mob
= b
;
3470 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3471 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3473 return classify_mtype (ta
) - classify_mtype (tb
);
3476 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3480 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3482 struct collect_minsyms
*info
= d
;
3483 minsym_and_objfile_d mo
;
3485 /* Exclude data symbols when looking for breakpoint locations. */
3486 if (!info
->list_mode
)
3487 switch (minsym
->type
)
3489 case mst_slot_got_plt
:
3496 /* Make sure this minsym is not a function descriptor
3497 before we decide to discard it. */
3498 struct gdbarch
*gdbarch
= info
->objfile
->gdbarch
;
3499 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3500 (gdbarch
, SYMBOL_VALUE_ADDRESS (minsym
),
3503 if (addr
== SYMBOL_VALUE_ADDRESS (minsym
))
3509 mo
.objfile
= info
->objfile
;
3510 VEC_safe_push (minsym_and_objfile_d
, info
->msyms
, &mo
);
3513 /* Search minimal symbols in all objfiles for NAME. If SEARCH_PSPACE
3514 is not NULL, the search is restricted to just that program
3518 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3519 struct program_space
*search_pspace
)
3521 struct objfile
*objfile
;
3522 struct program_space
*pspace
;
3524 ALL_PSPACES (pspace
)
3526 struct collect_minsyms local
;
3527 struct cleanup
*cleanup
;
3529 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3531 if (pspace
->executing_startup
)
3534 set_current_program_space (pspace
);
3536 memset (&local
, 0, sizeof (local
));
3537 local
.funfirstline
= info
->state
->funfirstline
;
3538 local
.list_mode
= info
->state
->list_mode
;
3540 cleanup
= make_cleanup (VEC_cleanup (minsym_and_objfile_d
),
3543 ALL_OBJFILES (objfile
)
3545 local
.objfile
= objfile
;
3546 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3549 if (!VEC_empty (minsym_and_objfile_d
, local
.msyms
))
3553 minsym_and_objfile_d
*item
;
3555 qsort (VEC_address (minsym_and_objfile_d
, local
.msyms
),
3556 VEC_length (minsym_and_objfile_d
, local
.msyms
),
3557 sizeof (minsym_and_objfile_d
),
3560 /* Now the minsyms are in classification order. So, we walk
3561 over them and process just the minsyms with the same
3562 classification as the very first minsym in the list. */
3563 item
= VEC_index (minsym_and_objfile_d
, local
.msyms
, 0);
3564 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3567 VEC_iterate (minsym_and_objfile_d
, local
.msyms
, ix
, item
);
3570 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3573 VEC_safe_push (minsym_and_objfile_d
,
3574 info
->result
.minimal_symbols
, item
);
3578 do_cleanups (cleanup
);
3582 /* A helper function to add all symbols matching NAME to INFO. If
3583 PSPACE is not NULL, the search is restricted to just that program
3587 add_matching_symbols_to_info (const char *name
,
3588 struct collect_info
*info
,
3589 struct program_space
*pspace
)
3594 for (ix
= 0; VEC_iterate (symtab_ptr
, info
->file_symtabs
, ix
, elt
); ++ix
)
3598 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3599 collect_symbols
, info
,
3601 search_minsyms_for_name (info
, name
, pspace
);
3603 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3605 /* Program spaces that are executing startup should have
3606 been filtered out earlier. */
3607 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3608 set_current_program_space (SYMTAB_PSPACE (elt
));
3609 iterate_over_file_blocks (elt
, name
, VAR_DOMAIN
,
3610 collect_symbols
, info
);
3617 /* Now come some functions that are called from multiple places within
3621 symbol_to_sal (struct symtab_and_line
*result
,
3622 int funfirstline
, struct symbol
*sym
)
3624 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3626 *result
= find_function_start_sal (sym
, funfirstline
);
3631 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3634 result
->symtab
= SYMBOL_SYMTAB (sym
);
3635 result
->line
= SYMBOL_LINE (sym
);
3636 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3637 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3638 result
->explicit_pc
= 1;
3641 else if (funfirstline
)
3645 else if (SYMBOL_LINE (sym
) != 0)
3647 /* We know its line number. */
3649 result
->symtab
= SYMBOL_SYMTAB (sym
);
3650 result
->line
= SYMBOL_LINE (sym
);
3651 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3659 /* See the comment in linespec.h. */
3662 init_linespec_result (struct linespec_result
*lr
)
3664 memset (lr
, 0, sizeof (*lr
));
3667 /* See the comment in linespec.h. */
3670 destroy_linespec_result (struct linespec_result
*ls
)
3673 struct linespec_sals
*lsal
;
3675 xfree (ls
->addr_string
);
3676 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3678 xfree (lsal
->canonical
);
3679 xfree (lsal
->sals
.sals
);
3681 VEC_free (linespec_sals
, ls
->sals
);
3684 /* Cleanup function for a linespec_result. */
3687 cleanup_linespec_result (void *a
)
3689 destroy_linespec_result (a
);
3692 /* See the comment in linespec.h. */
3695 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3697 return make_cleanup (cleanup_linespec_result
, ls
);