1 /* Parser for linespec for the GNU debugger, GDB.
3 Copyright (C) 1986-2005, 2007-2012 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 symtab
*symtab_p
;
51 typedef struct symbol
*symbolp
;
54 typedef struct type
*typep
;
57 /* An address entry is used to ensure that any given location is only
58 added to the result a single time. It holds an address and the
59 program space from which the address came. */
63 struct program_space
*pspace
;
67 /* A helper struct which just holds a minimal symbol and the object
68 file from which it came. */
70 typedef struct minsym_and_objfile
72 struct minimal_symbol
*minsym
;
73 struct objfile
*objfile
;
74 } minsym_and_objfile_d
;
76 DEF_VEC_O (minsym_and_objfile_d
);
78 /* An enumeration of possible signs for a line offset. */
79 enum offset_relative_sign
84 /* A plus sign ("+") */
87 /* A minus sign ("-") */
90 /* A special "sign" for unspecified offset. */
94 /* A line offset in a linespec. */
98 /* Line offset and any specified sign. */
100 enum offset_relative_sign sign
;
103 /* A linespec. Elements of this structure are filled in by a parser
104 (either parse_linespec or some other function). The structure is
105 then converted into SALs by convert_linespec_to_sals. */
109 /* An expression and the resulting PC. Specifying an expression
110 currently precludes the use of other members. */
112 /* The expression entered by the user. */
113 const char *expression
;
115 /* The resulting PC expression derived from evaluating EXPRESSION. */
118 /* Any specified file symtabs. */
120 /* The user-supplied source filename or NULL if none was specified. */
121 const char *source_filename
;
123 /* The list of symtabs to search to which to limit the search. May not
124 be NULL. If SOURCE_FILENAME is NULL (no user-specified filename),
125 FILE_SYMTABS should contain one single NULL member. This will
126 cause the code to use the default symtab. */
127 VEC (symtab_p
) *file_symtabs
;
129 /* The name of a function or method and any matching symbols. */
131 /* The user-specified function name. If no function name was
132 supplied, this may be NULL. */
133 const char *function_name
;
135 /* A list of matching function symbols and minimal symbols. Both lists
136 may be NULL if no matching symbols were found. */
137 VEC (symbolp
) *function_symbols
;
138 VEC (minsym_and_objfile_d
) *minimal_symbols
;
140 /* The name of a label and matching symbols. */
142 /* The user-specified label name. */
143 const char *label_name
;
145 /* A structure of matching label symbols and the corresponding
146 function symbol in which the label was found. Both may be NULL
147 or both must be non-NULL. */
150 VEC (symbolp
) *label_symbols
;
151 VEC (symbolp
) *function_symbols
;
154 /* Line offset. It may be LINE_OFFSET_UNKNOWN, meaning that no
155 offset was specified. */
156 struct line_offset line_offset
;
158 typedef struct linespec
*linespec_p
;
160 /* An instance of this is used to keep all state while linespec
161 operates. This instance is passed around as a 'this' pointer to
162 the various implementation methods. */
164 struct linespec_state
166 /* The language in use during linespec processing. */
167 const struct language_defn
*language
;
169 /* The program space as seen when the module was entered. */
170 struct program_space
*program_space
;
172 /* The default symtab to use, if no other symtab is specified. */
173 struct symtab
*default_symtab
;
175 /* The default line to use. */
178 /* The 'funfirstline' value that was passed in to decode_line_1 or
182 /* Nonzero if we are running in 'list' mode; see decode_line_list. */
185 /* The 'canonical' value passed to decode_line_full, or NULL. */
186 struct linespec_result
*canonical
;
188 /* Canonical strings that mirror the symtabs_and_lines result. */
189 char **canonical_names
;
191 /* This is a set of address_entry objects which is used to prevent
192 duplicate symbols from being entered into the result. */
196 /* This is a helper object that is used when collecting symbols into a
201 /* The linespec object in use. */
202 struct linespec_state
*state
;
204 /* A list of symtabs to which to restrict matches. */
205 VEC (symtab_p
) *file_symtabs
;
207 /* The result being accumulated. */
210 VEC (symbolp
) *symbols
;
211 VEC (minsym_and_objfile_d
) *minimal_symbols
;
222 /* A colon "separator" */
234 /* EOI (end of input) */
240 typedef enum ls_token_type linespec_token_type
;
242 /* List of keywords */
244 static const char * const linespec_keywords
[] = { "if", "thread", "task" };
246 /* A token of the linespec lexer */
250 /* The type of the token */
251 linespec_token_type type
;
253 /* Data for the token */
256 /* A string, given as a stoken */
257 struct stoken string
;
263 typedef struct ls_token linespec_token
;
265 #define LS_TOKEN_STOKEN(TOK) (TOK).data.string
266 #define LS_TOKEN_KEYWORD(TOK) (TOK).data.keyword
268 /* An instance of the linespec parser. */
272 /* Lexer internal data */
275 /* Save head of input stream. */
278 /* Head of the input stream. */
280 #define PARSER_STREAM(P) (*(P)->lexer.stream)
282 /* The current token. */
283 linespec_token current
;
286 /* Is the entire linespec quote-enclosed? */
287 int is_quote_enclosed
;
289 /* The state of the parse. */
290 struct linespec_state state
;
291 #define PARSER_STATE(PPTR) (&(PPTR)->state)
293 /* The result of the parse. */
294 struct linespec result
;
295 #define PARSER_RESULT(PPTR) (&(PPTR)->result)
297 typedef struct ls_parser linespec_parser
;
299 /* Prototypes for local functions. */
301 static void initialize_defaults (struct symtab
**default_symtab
,
304 static CORE_ADDR
linespec_expression_to_pc (char **exp_ptr
);
306 static struct symtabs_and_lines
decode_objc (struct linespec_state
*self
,
310 static VEC (symtab_p
) *symtabs_from_filename (const char *);
312 static VEC (symbolp
) *find_label_symbols (struct linespec_state
*self
,
313 VEC (symbolp
) *function_symbols
,
314 VEC (symbolp
) **label_funcs_ret
,
317 void find_linespec_symbols (struct linespec_state
*self
,
318 VEC (symtab_p
) *file_symtabs
,
320 VEC (symbolp
) **symbols
,
321 VEC (minsym_and_objfile_d
) **minsyms
);
323 static struct line_offset
324 linespec_parse_variable (struct linespec_state
*self
,
325 const char *variable
);
327 static int symbol_to_sal (struct symtab_and_line
*result
,
328 int funfirstline
, struct symbol
*sym
);
330 static void add_matching_symbols_to_info (const char *name
,
331 struct collect_info
*info
,
332 struct program_space
*pspace
);
334 static void add_all_symbol_names_from_pspace (struct collect_info
*info
,
335 struct program_space
*pspace
,
336 VEC (const_char_ptr
) *names
);
338 static VEC (symtab_p
) *collect_symtabs_from_filename (const char *file
);
340 static void decode_digits_ordinary (struct linespec_state
*self
,
343 struct symtabs_and_lines
*sals
,
344 struct linetable_entry
**best_entry
);
346 static void decode_digits_list_mode (struct linespec_state
*self
,
348 struct symtabs_and_lines
*values
,
349 struct symtab_and_line val
);
351 static void minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
352 struct minimal_symbol
*msymbol
,
353 struct symtabs_and_lines
*result
);
355 static int compare_symbols (const void *a
, const void *b
);
357 static int compare_msymbols (const void *a
, const void *b
);
359 static const char *find_toplevel_char (const char *s
, char c
);
361 /* Permitted quote characters for the parser. This is different from the
362 completer's quote characters to allow backward compatibility with the
364 static const char *const linespec_quote_characters
= "\"\'";
366 /* Lexer functions. */
368 /* Lex a number from the input in PARSER. This only supports
371 Return true if input is decimal numbers. Return false if not. */
374 linespec_lexer_lex_number (linespec_parser
*parser
, linespec_token
*tokenp
)
376 tokenp
->type
= LSTOKEN_NUMBER
;
377 LS_TOKEN_STOKEN (*tokenp
).length
= 0;
378 LS_TOKEN_STOKEN (*tokenp
).ptr
= PARSER_STREAM (parser
);
380 /* Keep any sign at the start of the stream. */
381 if (*PARSER_STREAM (parser
) == '+' || *PARSER_STREAM (parser
) == '-')
383 ++LS_TOKEN_STOKEN (*tokenp
).length
;
384 ++(PARSER_STREAM (parser
));
387 while (isdigit (*PARSER_STREAM (parser
)))
389 ++LS_TOKEN_STOKEN (*tokenp
).length
;
390 ++(PARSER_STREAM (parser
));
393 /* If the next character in the input buffer is not a space, comma,
394 or colon, this input does not represent a number. */
395 if (*PARSER_STREAM (parser
) != '\0'
396 && !isspace (*PARSER_STREAM (parser
)) && *PARSER_STREAM (parser
) != ','
397 && *PARSER_STREAM (parser
) != ':')
399 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (*tokenp
).ptr
;
406 /* Does P represent one of the keywords? If so, return
407 the keyword. If not, return NULL. */
410 linespec_lexer_lex_keyword (const char *p
)
416 for (i
= 0; i
< ARRAY_SIZE (linespec_keywords
); ++i
)
418 int len
= strlen (linespec_keywords
[i
]);
420 /* If P begins with one of the keywords and the next
421 character is not a valid identifier character,
422 we have found a keyword. */
423 if (strncmp (p
, linespec_keywords
[i
], len
) == 0
424 && !(isalnum (p
[len
]) || p
[len
] == '_'))
425 return linespec_keywords
[i
];
432 /* Does STRING represent an Ada operator? If so, return the length
433 of the decoded operator name. If not, return 0. */
436 is_ada_operator (const char *string
)
438 const struct ada_opname_map
*mapping
;
440 for (mapping
= ada_opname_table
;
441 mapping
->encoded
!= NULL
442 && strncmp (mapping
->decoded
, string
,
443 strlen (mapping
->decoded
)) != 0; ++mapping
)
446 return mapping
->decoded
== NULL
? 0 : strlen (mapping
->decoded
);
449 /* Find QUOTE_CHAR in STRING, accounting for the ':' terminal. Return
450 the location of QUOTE_CHAR, or NULL if not found. */
453 skip_quote_char (const char *string
, char quote_char
)
455 const char *p
, *last
;
457 p
= last
= find_toplevel_char (string
, quote_char
);
458 while (p
&& *p
!= '\0' && *p
!= ':')
460 p
= find_toplevel_char (p
, quote_char
);
468 /* Make a writable copy of the string given in TOKEN, trimming
469 any trailing whitespace. */
472 copy_token_string (linespec_token token
)
476 if (token
.type
== LSTOKEN_KEYWORD
)
477 return xstrdup (LS_TOKEN_KEYWORD (token
));
479 str
= savestring (LS_TOKEN_STOKEN (token
).ptr
,
480 LS_TOKEN_STOKEN (token
).length
);
481 s
= remove_trailing_whitespace (str
, str
+ LS_TOKEN_STOKEN (token
).length
);
487 /* Does P represent the end of a quote-enclosed linespec? */
490 is_closing_quote_enclosed (const char *p
)
492 if (strchr (linespec_quote_characters
, *p
))
494 p
= skip_spaces ((char *) p
);
495 return (*p
== '\0' || linespec_lexer_lex_keyword (p
));
498 /* Find the end of the parameter list that starts with *INPUT.
499 This helper function assists with lexing string segments
500 which might contain valid (non-terminating) commas. */
503 find_parameter_list_end (char *input
)
505 char end_char
, start_char
;
510 if (start_char
== '(')
512 else if (start_char
== '<')
521 if (*p
== start_char
)
523 else if (*p
== end_char
)
538 /* Lex a string from the input in PARSER. */
540 static linespec_token
541 linespec_lexer_lex_string (linespec_parser
*parser
)
543 linespec_token token
;
544 char *start
= PARSER_STREAM (parser
);
546 token
.type
= LSTOKEN_STRING
;
548 /* If the input stream starts with a quote character, skip to the next
549 quote character, regardless of the content. */
550 if (strchr (linespec_quote_characters
, *PARSER_STREAM (parser
)))
553 char quote_char
= *PARSER_STREAM (parser
);
555 /* Special case: Ada operators. */
556 if (PARSER_STATE (parser
)->language
->la_language
== language_ada
557 && quote_char
== '\"')
559 int len
= is_ada_operator (PARSER_STREAM (parser
));
563 /* The input is an Ada operator. Return the quoted string
565 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
566 LS_TOKEN_STOKEN (token
).length
= len
;
567 PARSER_STREAM (parser
) += len
;
571 /* The input does not represent an Ada operator -- fall through
572 to normal quoted string handling. */
575 /* Skip past the beginning quote. */
576 ++(PARSER_STREAM (parser
));
578 /* Mark the start of the string. */
579 LS_TOKEN_STOKEN (token
).ptr
= PARSER_STREAM (parser
);
581 /* Skip to the ending quote. */
582 end
= skip_quote_char (PARSER_STREAM (parser
), quote_char
);
584 /* Error if the input did not terminate properly. */
586 error (_("unmatched quote"));
588 /* Skip over the ending quote and mark the length of the string. */
589 PARSER_STREAM (parser
) = (char *) ++end
;
590 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - 2 - start
;
596 /* Otherwise, only identifier characters are permitted.
597 Spaces are the exception. In general, we keep spaces,
598 but only if the next characters in the input do not resolve
599 to one of the keywords.
601 This allows users to forgo quoting CV-qualifiers, template arguments,
602 and similar common language constructs. */
606 if (isspace (*PARSER_STREAM (parser
)))
608 p
= skip_spaces (PARSER_STREAM (parser
));
609 if (linespec_lexer_lex_keyword (p
) != NULL
)
611 LS_TOKEN_STOKEN (token
).ptr
= start
;
612 LS_TOKEN_STOKEN (token
).length
613 = PARSER_STREAM (parser
) - start
;
617 /* Advance past the whitespace. */
618 PARSER_STREAM (parser
) = p
;
621 /* If the next character is EOI or (single) ':', the
622 string is complete; return the token. */
623 if (*PARSER_STREAM (parser
) == 0)
625 LS_TOKEN_STOKEN (token
).ptr
= start
;
626 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
629 else if (PARSER_STREAM (parser
)[0] == ':')
631 /* Do not tokenize the C++ scope operator. */
632 if (PARSER_STREAM (parser
)[1] == ':')
633 ++(PARSER_STREAM (parser
));
635 /* Do not tokenify if the input length so far is one
636 (i.e, a single-letter drive name) and the next character
637 is a directory separator. This allows Windows-style
638 paths to be recognized as filenames without quoting it. */
639 else if ((PARSER_STREAM (parser
) - start
) != 1
640 || !IS_DIR_SEPARATOR (PARSER_STREAM (parser
)[1]))
642 LS_TOKEN_STOKEN (token
).ptr
= start
;
643 LS_TOKEN_STOKEN (token
).length
644 = PARSER_STREAM (parser
) - start
;
648 /* Special case: permit quote-enclosed linespecs. */
649 else if (parser
->is_quote_enclosed
650 && strchr (linespec_quote_characters
,
651 *PARSER_STREAM (parser
))
652 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
654 LS_TOKEN_STOKEN (token
).ptr
= start
;
655 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
658 /* Because commas may terminate a linespec and appear in
659 the middle of valid string input, special cases for
660 '<' and '(' are necessary. */
661 else if (*PARSER_STREAM (parser
) == '<'
662 || *PARSER_STREAM (parser
) == '(')
666 p
= find_parameter_list_end (PARSER_STREAM (parser
));
669 PARSER_STREAM (parser
) = p
;
673 /* Commas are terminators, but not if they are part of an
675 else if (*PARSER_STREAM (parser
) == ',')
677 if ((PARSER_STATE (parser
)->language
->la_language
679 && (PARSER_STREAM (parser
) - start
) > 8
680 /* strlen ("operator") */)
682 char *p
= strstr (start
, "operator");
684 if (p
!= NULL
&& is_operator_name (p
))
686 /* This is an operator name. Keep going. */
687 ++(PARSER_STREAM (parser
));
692 /* Comma terminates the string. */
693 LS_TOKEN_STOKEN (token
).ptr
= start
;
694 LS_TOKEN_STOKEN (token
).length
= PARSER_STREAM (parser
) - start
;
698 /* Advance the stream. */
699 ++(PARSER_STREAM (parser
));
706 /* Lex a single linespec token from PARSER. */
708 static linespec_token
709 linespec_lexer_lex_one (linespec_parser
*parser
)
713 if (parser
->lexer
.current
.type
== LSTOKEN_CONSUMED
)
715 /* Skip any whitespace. */
716 PARSER_STREAM (parser
) = skip_spaces (PARSER_STREAM (parser
));
718 /* Check for a keyword. */
719 keyword
= linespec_lexer_lex_keyword (PARSER_STREAM (parser
));
722 parser
->lexer
.current
.type
= LSTOKEN_KEYWORD
;
723 LS_TOKEN_KEYWORD (parser
->lexer
.current
) = keyword
;
724 return parser
->lexer
.current
;
727 /* Handle other tokens. */
728 switch (*PARSER_STREAM (parser
))
731 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
735 case '0': case '1': case '2': case '3': case '4':
736 case '5': case '6': case '7': case '8': case '9':
737 if (!linespec_lexer_lex_number (parser
, &(parser
->lexer
.current
)))
738 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
742 /* If we have a scope operator, lex the input as a string.
743 Otherwise, return LSTOKEN_COLON. */
744 if (PARSER_STREAM (parser
)[1] == ':')
745 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
748 parser
->lexer
.current
.type
= LSTOKEN_COLON
;
749 ++(PARSER_STREAM (parser
));
753 case '\'': case '\"':
754 /* Special case: permit quote-enclosed linespecs. */
755 if (parser
->is_quote_enclosed
756 && is_closing_quote_enclosed (PARSER_STREAM (parser
)))
758 ++(PARSER_STREAM (parser
));
759 parser
->lexer
.current
.type
= LSTOKEN_EOI
;
762 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
766 parser
->lexer
.current
.type
= LSTOKEN_COMMA
;
767 LS_TOKEN_STOKEN (parser
->lexer
.current
).ptr
768 = PARSER_STREAM (parser
);
769 LS_TOKEN_STOKEN (parser
->lexer
.current
).length
= 1;
770 ++(PARSER_STREAM (parser
));
774 /* If the input is not a number, it must be a string.
775 [Keywords were already considered above.] */
776 parser
->lexer
.current
= linespec_lexer_lex_string (parser
);
781 return parser
->lexer
.current
;
784 /* Consume the current token and return the next token in PARSER's
787 static linespec_token
788 linespec_lexer_consume_token (linespec_parser
*parser
)
790 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
791 return linespec_lexer_lex_one (parser
);
794 /* Return the next token without consuming the current token. */
796 static linespec_token
797 linespec_lexer_peek_token (linespec_parser
*parser
)
800 char *saved_stream
= PARSER_STREAM (parser
);
801 linespec_token saved_token
= parser
->lexer
.current
;
803 next
= linespec_lexer_consume_token (parser
);
804 PARSER_STREAM (parser
) = saved_stream
;
805 parser
->lexer
.current
= saved_token
;
809 /* Helper functions. */
811 /* Add SAL to SALS. */
814 add_sal_to_sals_basic (struct symtabs_and_lines
*sals
,
815 struct symtab_and_line
*sal
)
818 sals
->sals
= xrealloc (sals
->sals
, sals
->nelts
* sizeof (sals
->sals
[0]));
819 sals
->sals
[sals
->nelts
- 1] = *sal
;
822 /* Add SAL to SALS, and also update SELF->CANONICAL_NAMES to reflect
823 the new sal, if needed. If not NULL, SYMNAME is the name of the
824 symbol to use when constructing the new canonical name.
826 If LITERAL_CANONICAL is non-zero, SYMNAME will be used as the
827 canonical name for the SAL. */
830 add_sal_to_sals (struct linespec_state
*self
,
831 struct symtabs_and_lines
*sals
,
832 struct symtab_and_line
*sal
,
833 const char *symname
, int literal_canonical
)
835 add_sal_to_sals_basic (sals
, sal
);
839 char *canonical_name
= NULL
;
841 self
->canonical_names
= xrealloc (self
->canonical_names
,
842 sals
->nelts
* sizeof (char *));
843 if (!literal_canonical
&& sal
->symtab
&& sal
->symtab
->filename
)
845 char *filename
= sal
->symtab
->filename
;
847 /* Note that the filter doesn't have to be a valid linespec
848 input. We only apply the ":LINE" treatment to Ada for
850 if (symname
!= NULL
&& sal
->line
!= 0
851 && self
->language
->la_language
== language_ada
)
852 canonical_name
= xstrprintf ("%s:%s:%d", filename
, symname
,
854 else if (symname
!= NULL
)
855 canonical_name
= xstrprintf ("%s:%s", filename
, symname
);
857 canonical_name
= xstrprintf ("%s:%d", filename
, sal
->line
);
859 else if (symname
!= NULL
)
860 canonical_name
= xstrdup (symname
);
862 self
->canonical_names
[sals
->nelts
- 1] = canonical_name
;
866 /* A hash function for address_entry. */
869 hash_address_entry (const void *p
)
871 const struct address_entry
*aep
= p
;
874 hash
= iterative_hash_object (aep
->pspace
, 0);
875 return iterative_hash_object (aep
->addr
, hash
);
878 /* An equality function for address_entry. */
881 eq_address_entry (const void *a
, const void *b
)
883 const struct address_entry
*aea
= a
;
884 const struct address_entry
*aeb
= b
;
886 return aea
->pspace
== aeb
->pspace
&& aea
->addr
== aeb
->addr
;
889 /* Check whether the address, represented by PSPACE and ADDR, is
890 already in the set. If so, return 0. Otherwise, add it and return
894 maybe_add_address (htab_t set
, struct program_space
*pspace
, CORE_ADDR addr
)
896 struct address_entry e
, *p
;
901 slot
= htab_find_slot (set
, &e
, INSERT
);
905 p
= XNEW (struct address_entry
);
906 memcpy (p
, &e
, sizeof (struct address_entry
));
912 /* A callback function and the additional data to call it with. */
914 struct symbol_and_data_callback
916 /* The callback to use. */
917 symbol_found_callback_ftype
*callback
;
919 /* Data to be passed to the callback. */
923 /* A helper for iterate_over_all_matching_symtabs that is used to
924 restrict calls to another callback to symbols representing inline
928 iterate_inline_only (struct symbol
*sym
, void *d
)
930 if (SYMBOL_INLINED (sym
))
932 struct symbol_and_data_callback
*cad
= d
;
934 return cad
->callback (sym
, cad
->data
);
936 return 1; /* Continue iterating. */
939 /* Some data for the expand_symtabs_matching callback. */
941 struct symbol_matcher_data
943 /* The lookup name against which symbol name should be compared. */
944 const char *lookup_name
;
946 /* The routine to be used for comparison. */
947 symbol_name_cmp_ftype symbol_name_cmp
;
950 /* A helper for iterate_over_all_matching_symtabs that is passed as a
951 callback to the expand_symtabs_matching method. */
954 iterate_name_matcher (const char *name
, void *d
)
956 const struct symbol_matcher_data
*data
= d
;
958 if (data
->symbol_name_cmp (name
, data
->lookup_name
) == 0)
959 return 1; /* Expand this symbol's symbol table. */
960 return 0; /* Skip this symbol. */
963 /* A helper that walks over all matching symtabs in all objfiles and
964 calls CALLBACK for each symbol matching NAME. If SEARCH_PSPACE is
965 not NULL, then the search is restricted to just that program
966 space. If INCLUDE_INLINE is nonzero then symbols representing
967 inlined instances of functions will be included in the result. */
970 iterate_over_all_matching_symtabs (struct linespec_state
*state
,
972 const domain_enum domain
,
973 symbol_found_callback_ftype
*callback
,
975 struct program_space
*search_pspace
,
978 struct objfile
*objfile
;
979 struct program_space
*pspace
;
980 struct symbol_matcher_data matcher_data
;
982 matcher_data
.lookup_name
= name
;
983 matcher_data
.symbol_name_cmp
=
984 state
->language
->la_get_symbol_name_cmp
!= NULL
985 ? state
->language
->la_get_symbol_name_cmp (name
)
990 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
992 if (pspace
->executing_startup
)
995 set_current_program_space (pspace
);
997 ALL_OBJFILES (objfile
)
999 struct symtab
*symtab
;
1002 objfile
->sf
->qf
->expand_symtabs_matching (objfile
, NULL
,
1003 iterate_name_matcher
,
1007 ALL_OBJFILE_PRIMARY_SYMTABS (objfile
, symtab
)
1009 struct block
*block
;
1011 block
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1012 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
, callback
, data
);
1016 struct symbol_and_data_callback cad
= { callback
, data
};
1019 for (i
= FIRST_LOCAL_BLOCK
;
1020 i
< BLOCKVECTOR_NBLOCKS (BLOCKVECTOR (symtab
)); i
++)
1022 block
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab
), i
);
1023 LA_ITERATE_OVER_SYMBOLS (block
, name
, domain
,
1024 iterate_inline_only
, &cad
);
1032 /* Returns the block to be used for symbol searches for the given SYMTAB,
1033 which may be NULL. */
1035 static struct block
*
1036 get_search_block (struct symtab
*symtab
)
1038 struct block
*block
;
1041 block
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab
), STATIC_BLOCK
);
1044 enum language save_language
;
1046 /* get_selected_block can change the current language when there is
1047 no selected frame yet. */
1048 save_language
= current_language
->la_language
;
1049 block
= get_selected_block (0);
1050 set_language (save_language
);
1056 /* A helper for find_method. This finds all methods in type T which
1057 match NAME. It adds matching symbol names to RESULT_NAMES, and
1058 adds T's direct superclasses to SUPERCLASSES. */
1061 find_methods (struct type
*t
, const char *name
,
1062 VEC (const_char_ptr
) **result_names
,
1063 VEC (typep
) **superclasses
)
1067 const char *class_name
= type_name_no_tag (t
);
1069 /* Ignore this class if it doesn't have a name. This is ugly, but
1070 unless we figure out how to get the physname without the name of
1071 the class, then the loop can't do any good. */
1075 int name_len
= strlen (name
);
1079 /* Loop over each method name. At this level, all overloads of a name
1080 are counted as a single name. There is an inner loop which loops over
1083 for (method_counter
= TYPE_NFN_FIELDS (t
) - 1;
1084 method_counter
>= 0;
1087 const char *method_name
= TYPE_FN_FIELDLIST_NAME (t
, method_counter
);
1088 char dem_opname
[64];
1090 if (strncmp (method_name
, "__", 2) == 0 ||
1091 strncmp (method_name
, "op", 2) == 0 ||
1092 strncmp (method_name
, "type", 4) == 0)
1094 if (cplus_demangle_opname (method_name
, dem_opname
, DMGL_ANSI
))
1095 method_name
= dem_opname
;
1096 else if (cplus_demangle_opname (method_name
, dem_opname
, 0))
1097 method_name
= dem_opname
;
1100 if (strcmp_iw (method_name
, name
) == 0)
1104 for (field_counter
= (TYPE_FN_FIELDLIST_LENGTH (t
, method_counter
)
1110 const char *phys_name
;
1112 f
= TYPE_FN_FIELDLIST1 (t
, method_counter
);
1113 if (TYPE_FN_FIELD_STUB (f
, field_counter
))
1115 phys_name
= TYPE_FN_FIELD_PHYSNAME (f
, field_counter
);
1116 VEC_safe_push (const_char_ptr
, *result_names
, phys_name
);
1122 for (ibase
= 0; ibase
< TYPE_N_BASECLASSES (t
); ibase
++)
1123 VEC_safe_push (typep
, *superclasses
, TYPE_BASECLASS (t
, ibase
));
1126 /* Find an instance of the character C in the string S that is outside
1127 of all parenthesis pairs, single-quoted strings, and double-quoted
1128 strings. Also, ignore the char within a template name, like a ','
1129 within foo<int, int>. */
1132 find_toplevel_char (const char *s
, char c
)
1134 int quoted
= 0; /* zero if we're not in quotes;
1135 '"' if we're in a double-quoted string;
1136 '\'' if we're in a single-quoted string. */
1137 int depth
= 0; /* Number of unclosed parens we've seen. */
1140 for (scan
= s
; *scan
; scan
++)
1144 if (*scan
== quoted
)
1146 else if (*scan
== '\\' && *(scan
+ 1))
1149 else if (*scan
== c
&& ! quoted
&& depth
== 0)
1151 else if (*scan
== '"' || *scan
== '\'')
1153 else if (*scan
== '(' || *scan
== '<')
1155 else if ((*scan
== ')' || *scan
== '>') && depth
> 0)
1162 /* The string equivalent of find_toplevel_char. Returns a pointer
1163 to the location of NEEDLE in HAYSTACK, ignoring any occurrences
1164 inside "()" and "<>". Returns NULL if NEEDLE was not found. */
1167 find_toplevel_string (const char *haystack
, const char *needle
)
1169 const char *s
= haystack
;
1173 s
= find_toplevel_char (s
, *needle
);
1177 /* Found first char in HAYSTACK; check rest of string. */
1178 if (strncmp (s
, needle
, strlen (needle
)) == 0)
1181 /* Didn't find it; loop over HAYSTACK, looking for the next
1182 instance of the first character of NEEDLE. */
1186 while (s
!= NULL
&& *s
!= '\0');
1188 /* NEEDLE was not found in HAYSTACK. */
1192 /* Given FILTERS, a list of canonical names, filter the sals in RESULT
1193 and store the result in SELF->CANONICAL. */
1196 filter_results (struct linespec_state
*self
,
1197 struct symtabs_and_lines
*result
,
1198 VEC (const_char_ptr
) *filters
)
1203 for (i
= 0; VEC_iterate (const_char_ptr
, filters
, i
, name
); ++i
)
1205 struct linespec_sals lsal
;
1208 memset (&lsal
, 0, sizeof (lsal
));
1210 for (j
= 0; j
< result
->nelts
; ++j
)
1212 if (strcmp (name
, self
->canonical_names
[j
]) == 0)
1213 add_sal_to_sals_basic (&lsal
.sals
, &result
->sals
[j
]);
1216 if (lsal
.sals
.nelts
> 0)
1218 lsal
.canonical
= xstrdup (name
);
1219 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1223 self
->canonical
->pre_expanded
= 0;
1226 /* Store RESULT into SELF->CANONICAL. */
1229 convert_results_to_lsals (struct linespec_state
*self
,
1230 struct symtabs_and_lines
*result
)
1232 struct linespec_sals lsal
;
1234 lsal
.canonical
= NULL
;
1235 lsal
.sals
= *result
;
1236 VEC_safe_push (linespec_sals
, self
->canonical
->sals
, &lsal
);
1239 /* Handle multiple results in RESULT depending on SELECT_MODE. This
1240 will either return normally, throw an exception on multiple
1241 results, or present a menu to the user. On return, the SALS vector
1242 in SELF->CANONICAL is set up properly. */
1245 decode_line_2 (struct linespec_state
*self
,
1246 struct symtabs_and_lines
*result
,
1247 const char *select_mode
)
1250 char *args
, *prompt
;
1252 struct cleanup
*old_chain
;
1253 VEC (const_char_ptr
) *item_names
= NULL
, *filters
= NULL
;
1254 struct get_number_or_range_state state
;
1256 gdb_assert (select_mode
!= multiple_symbols_all
);
1257 gdb_assert (self
->canonical
!= NULL
);
1259 old_chain
= make_cleanup (VEC_cleanup (const_char_ptr
), &item_names
);
1260 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
1261 for (i
= 0; i
< result
->nelts
; ++i
)
1266 gdb_assert (self
->canonical_names
[i
] != NULL
);
1267 for (j
= 0; VEC_iterate (const_char_ptr
, item_names
, j
, iter
); ++j
)
1269 if (strcmp (iter
, self
->canonical_names
[i
]) == 0)
1277 VEC_safe_push (const_char_ptr
, item_names
, self
->canonical_names
[i
]);
1280 if (select_mode
== multiple_symbols_cancel
1281 && VEC_length (const_char_ptr
, item_names
) > 1)
1282 error (_("canceled because the command is ambiguous\n"
1283 "See set/show multiple-symbol."));
1285 if (select_mode
== multiple_symbols_all
1286 || VEC_length (const_char_ptr
, item_names
) == 1)
1288 do_cleanups (old_chain
);
1289 convert_results_to_lsals (self
, result
);
1293 /* Sort the list of method names alphabetically. */
1294 qsort (VEC_address (const_char_ptr
, item_names
),
1295 VEC_length (const_char_ptr
, item_names
),
1296 sizeof (const_char_ptr
), compare_strings
);
1298 printf_unfiltered (_("[0] cancel\n[1] all\n"));
1299 for (i
= 0; VEC_iterate (const_char_ptr
, item_names
, i
, iter
); ++i
)
1300 printf_unfiltered ("[%d] %s\n", i
+ 2, iter
);
1302 prompt
= getenv ("PS2");
1307 args
= command_line_input (prompt
, 0, "overload-choice");
1309 if (args
== 0 || *args
== 0)
1310 error_no_arg (_("one or more choice numbers"));
1312 init_number_or_range (&state
, args
);
1313 while (!state
.finished
)
1317 num
= get_number_or_range (&state
);
1320 error (_("canceled"));
1323 /* We intentionally make this result in a single breakpoint,
1324 contrary to what older versions of gdb did. The
1325 rationale is that this lets a user get the
1326 multiple_symbols_all behavior even with the 'ask'
1327 setting; and he can get separate breakpoints by entering
1328 "2-57" at the query. */
1329 do_cleanups (old_chain
);
1330 convert_results_to_lsals (self
, result
);
1335 if (num
>= VEC_length (const_char_ptr
, item_names
))
1336 printf_unfiltered (_("No choice number %d.\n"), num
);
1339 const char *elt
= VEC_index (const_char_ptr
, item_names
, num
);
1343 VEC_safe_push (const_char_ptr
, filters
, elt
);
1344 VEC_replace (const_char_ptr
, item_names
, num
, NULL
);
1348 printf_unfiltered (_("duplicate request for %d ignored.\n"),
1354 filter_results (self
, result
, filters
);
1355 do_cleanups (old_chain
);
1360 /* The parser of linespec itself. */
1362 /* Throw an appropriate error when SYMBOL is not found (optionally in
1365 static void ATTRIBUTE_NORETURN
1366 symbol_not_found_error (const char *symbol
, const char *filename
)
1371 if (!have_full_symbols ()
1372 && !have_partial_symbols ()
1373 && !have_minimal_symbols ())
1374 throw_error (NOT_FOUND_ERROR
,
1375 _("No symbol table is loaded. Use the \"file\" command."));
1377 /* If SYMBOL starts with '$', the user attempted to either lookup
1378 a function/variable in his code starting with '$' or an internal
1379 variable of that name. Since we do not know which, be concise and
1380 explain both possibilities. */
1384 throw_error (NOT_FOUND_ERROR
,
1385 _("Undefined convenience variable or function \"%s\" "
1386 "not defined in \"%s\"."), symbol
, filename
);
1388 throw_error (NOT_FOUND_ERROR
,
1389 _("Undefined convenience variable or function \"%s\" "
1390 "not defined."), symbol
);
1395 throw_error (NOT_FOUND_ERROR
,
1396 _("Function \"%s\" not defined in \"%s\"."),
1399 throw_error (NOT_FOUND_ERROR
,
1400 _("Function \"%s\" not defined."), symbol
);
1404 /* Throw an appropriate error when an unexpected token is encountered
1407 static void ATTRIBUTE_NORETURN
1408 unexpected_linespec_error (linespec_parser
*parser
)
1410 linespec_token token
;
1411 static const char * token_type_strings
[]
1412 = {"keyword", "colon", "string", "number", "comma", "end of input"};
1414 /* Get the token that generated the error. */
1415 token
= linespec_lexer_lex_one (parser
);
1417 /* Finally, throw the error. */
1418 if (token
.type
== LSTOKEN_STRING
|| token
.type
== LSTOKEN_NUMBER
1419 || token
.type
== LSTOKEN_KEYWORD
)
1422 struct cleanup
*cleanup
;
1424 string
= copy_token_string (token
);
1425 cleanup
= make_cleanup (xfree
, string
);
1426 throw_error (GENERIC_ERROR
,
1427 _("malformed linespec error: unexpected %s, \"%s\""),
1428 token_type_strings
[token
.type
], string
);
1431 throw_error (GENERIC_ERROR
,
1432 _("malformed linespec error: unexpected %s"),
1433 token_type_strings
[token
.type
]);
1436 /* Parse and return a line offset in STRING. */
1438 static struct line_offset
1439 linespec_parse_line_offset (const char *string
)
1441 struct line_offset line_offset
= {0, LINE_OFFSET_NONE
};
1445 line_offset
.sign
= LINE_OFFSET_PLUS
;
1448 else if (*string
== '-')
1450 line_offset
.sign
= LINE_OFFSET_MINUS
;
1454 /* Right now, we only allow base 10 for offsets. */
1455 line_offset
.offset
= atoi (string
);
1459 /* Parse the basic_spec in PARSER's input. */
1462 linespec_parse_basic (linespec_parser
*parser
)
1465 linespec_token token
;
1466 VEC (symbolp
) *symbols
, *labels
;
1467 VEC (minsym_and_objfile_d
) *minimal_symbols
;
1468 struct cleanup
*cleanup
;
1470 /* Get the next token. */
1471 token
= linespec_lexer_lex_one (parser
);
1473 /* If it is EOI or KEYWORD, issue an error. */
1474 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1475 unexpected_linespec_error (parser
);
1476 /* If it is a LSTOKEN_NUMBER, we have an offset. */
1477 else if (token
.type
== LSTOKEN_NUMBER
)
1479 /* Record the line offset and get the next token. */
1480 name
= copy_token_string (token
);
1481 cleanup
= make_cleanup (xfree
, name
);
1482 PARSER_RESULT (parser
)->line_offset
= linespec_parse_line_offset (name
);
1483 do_cleanups (cleanup
);
1485 /* Get the next token. */
1486 token
= linespec_lexer_consume_token (parser
);
1488 /* If the next token is a comma, stop parsing and return. */
1489 if (token
.type
== LSTOKEN_COMMA
)
1492 /* If the next token is anything but EOI or KEYWORD, issue
1494 if (token
.type
!= LSTOKEN_KEYWORD
&& token
.type
!= LSTOKEN_EOI
)
1495 unexpected_linespec_error (parser
);
1498 if (token
.type
== LSTOKEN_KEYWORD
|| token
.type
== LSTOKEN_EOI
)
1501 /* Next token must be LSTOKEN_STRING. */
1502 if (token
.type
!= LSTOKEN_STRING
)
1503 unexpected_linespec_error (parser
);
1505 /* The current token will contain the name of a function, method,
1507 name
= copy_token_string (token
);
1508 cleanup
= make_cleanup (xfree
, name
);
1510 /* Try looking it up as a function/method. */
1511 find_linespec_symbols (PARSER_STATE (parser
),
1512 PARSER_RESULT (parser
)->file_symtabs
, name
,
1513 &symbols
, &minimal_symbols
);
1515 if (symbols
!= NULL
|| minimal_symbols
!= NULL
)
1517 PARSER_RESULT (parser
)->function_symbols
= symbols
;
1518 PARSER_RESULT (parser
)->minimal_symbols
= minimal_symbols
;
1519 PARSER_RESULT (parser
)->function_name
= name
;
1521 discard_cleanups (cleanup
);
1525 /* NAME was not a function or a method. So it must be a label
1527 labels
= find_label_symbols (PARSER_STATE (parser
), NULL
,
1531 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1532 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1533 PARSER_RESULT (parser
)->label_name
= name
;
1535 discard_cleanups (cleanup
);
1539 /* The name is also not a label. Abort parsing. Do not throw
1540 an error here. parse_linespec will do it for us. */
1542 /* Save a copy of the name we were trying to lookup. */
1543 PARSER_RESULT (parser
)->function_name
= name
;
1544 discard_cleanups (cleanup
);
1549 /* Get the next token. */
1550 token
= linespec_lexer_consume_token (parser
);
1552 if (token
.type
== LSTOKEN_COLON
)
1554 /* User specified a label or a lineno. */
1555 token
= linespec_lexer_consume_token (parser
);
1557 if (token
.type
== LSTOKEN_NUMBER
)
1559 /* User specified an offset. Record the line offset and
1560 get the next token. */
1561 name
= copy_token_string (token
);
1562 cleanup
= make_cleanup (xfree
, name
);
1563 PARSER_RESULT (parser
)->line_offset
1564 = linespec_parse_line_offset (name
);
1565 do_cleanups (cleanup
);
1567 /* Ge the next token. */
1568 token
= linespec_lexer_consume_token (parser
);
1570 else if (token
.type
== LSTOKEN_STRING
)
1572 /* Grab a copy of the label's name and look it up. */
1573 name
= copy_token_string (token
);
1574 cleanup
= make_cleanup (xfree
, name
);
1575 labels
= find_label_symbols (PARSER_STATE (parser
),
1576 PARSER_RESULT (parser
)->function_symbols
,
1581 PARSER_RESULT (parser
)->labels
.label_symbols
= labels
;
1582 PARSER_RESULT (parser
)->labels
.function_symbols
= symbols
;
1583 PARSER_RESULT (parser
)->label_name
= name
;
1585 discard_cleanups (cleanup
);
1589 /* We don't know what it was, but it isn't a label. */
1590 throw_error (NOT_FOUND_ERROR
,
1591 _("No label \"%s\" defined in function \"%s\"."),
1592 name
, PARSER_RESULT (parser
)->function_name
);
1595 /* Check for a line offset. */
1596 token
= linespec_lexer_consume_token (parser
);
1597 if (token
.type
== LSTOKEN_COLON
)
1599 /* Get the next token. */
1600 token
= linespec_lexer_consume_token (parser
);
1602 /* It must be a line offset. */
1603 if (token
.type
!= LSTOKEN_NUMBER
)
1604 unexpected_linespec_error (parser
);
1606 /* Record the lione offset and get the next token. */
1607 name
= copy_token_string (token
);
1608 cleanup
= make_cleanup (xfree
, name
);
1610 PARSER_RESULT (parser
)->line_offset
1611 = linespec_parse_line_offset (name
);
1612 do_cleanups (cleanup
);
1614 /* Get the next token. */
1615 token
= linespec_lexer_consume_token (parser
);
1620 /* Trailing ':' in the input. Issue an error. */
1621 unexpected_linespec_error (parser
);
1626 /* Canonicalize the linespec contained in LS. The result is saved into
1627 STATE->canonical. */
1630 canonicalize_linespec (struct linespec_state
*state
, linespec_p ls
)
1632 /* If canonicalization was not requested, no need to do anything. */
1633 if (!state
->canonical
)
1636 /* Shortcut expressions, which can only appear by themselves. */
1637 if (ls
->expression
!= NULL
)
1638 state
->canonical
->addr_string
= xstrdup (ls
->expression
);
1641 struct ui_file
*buf
;
1644 buf
= mem_fileopen ();
1645 if (ls
->source_filename
)
1647 fputs_unfiltered (ls
->source_filename
, buf
);
1651 if (ls
->function_name
)
1654 fputc_unfiltered (':', buf
);
1655 fputs_unfiltered (ls
->function_name
, buf
);
1662 fputc_unfiltered (':', buf
);
1664 if (ls
->function_name
== NULL
)
1668 /* No function was specified, so add the symbol name. */
1669 gdb_assert (ls
->labels
.function_symbols
!= NULL
1670 && (VEC_length (symbolp
, ls
->labels
.function_symbols
)
1672 s
= VEC_index (symbolp
, ls
->labels
.function_symbols
, 0);
1673 fputs_unfiltered (SYMBOL_NATURAL_NAME (s
), buf
);
1674 fputc_unfiltered (':', buf
);
1677 fputs_unfiltered (ls
->label_name
, buf
);
1679 state
->canonical
->special_display
= 1;
1682 if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
1685 fputc_unfiltered (':', buf
);
1686 fprintf_filtered (buf
, "%s%d",
1687 (ls
->line_offset
.sign
== LINE_OFFSET_NONE
? ""
1688 : (ls
->line_offset
.sign
1689 == LINE_OFFSET_PLUS
? "+" : "-")),
1690 ls
->line_offset
.offset
);
1693 state
->canonical
->addr_string
= ui_file_xstrdup (buf
, NULL
);
1694 ui_file_delete (buf
);
1698 /* Given a line offset in LS, construct the relevant SALs. */
1700 static struct symtabs_and_lines
1701 create_sals_line_offset (struct linespec_state
*self
,
1704 struct symtabs_and_lines values
;
1705 struct symtab_and_line val
;
1706 int use_default
= 0;
1712 /* This is where we need to make sure we have good defaults.
1713 We must guarantee that this section of code is never executed
1714 when we are called with just a function anme, since
1715 set_default_source_symtab_and_line uses
1716 select_source_symtab that calls us with such an argument. */
1718 if (VEC_length (symtab_p
, ls
->file_symtabs
) == 1
1719 && VEC_index (symtab_p
, ls
->file_symtabs
, 0) == NULL
)
1721 set_current_program_space (self
->program_space
);
1723 /* Make sure we have at least a default source line. */
1724 set_default_source_symtab_and_line ();
1725 initialize_defaults (&self
->default_symtab
, &self
->default_line
);
1726 VEC_pop (symtab_p
, ls
->file_symtabs
);
1727 VEC_free (symtab_p
, ls
->file_symtabs
);
1729 = collect_symtabs_from_filename (self
->default_symtab
->filename
);
1733 val
.line
= ls
->line_offset
.offset
;
1734 switch (ls
->line_offset
.sign
)
1736 case LINE_OFFSET_PLUS
:
1737 if (ls
->line_offset
.offset
== 0)
1740 val
.line
= self
->default_line
+ val
.line
;
1743 case LINE_OFFSET_MINUS
:
1744 if (ls
->line_offset
.offset
== 0)
1747 val
.line
= self
->default_line
- val
.line
;
1749 val
.line
= -val
.line
;
1752 case LINE_OFFSET_NONE
:
1753 break; /* No need to adjust val.line. */
1756 if (self
->list_mode
)
1757 decode_digits_list_mode (self
, ls
, &values
, val
);
1760 struct linetable_entry
*best_entry
= NULL
;
1762 struct block
**blocks
;
1763 struct cleanup
*cleanup
;
1764 struct symtabs_and_lines intermediate_results
;
1767 intermediate_results
.sals
= NULL
;
1768 intermediate_results
.nelts
= 0;
1770 decode_digits_ordinary (self
, ls
, val
.line
, &intermediate_results
,
1772 if (intermediate_results
.nelts
== 0 && best_entry
!= NULL
)
1773 decode_digits_ordinary (self
, ls
, best_entry
->line
,
1774 &intermediate_results
, &best_entry
);
1776 cleanup
= make_cleanup (xfree
, intermediate_results
.sals
);
1778 /* For optimized code, the compiler can scatter one source line
1779 across disjoint ranges of PC values, even when no duplicate
1780 functions or inline functions are involved. For example,
1781 'for (;;)' inside a non-template, non-inline, and non-ctor-or-dtor
1782 function can result in two PC ranges. In this case, we don't
1783 want to set a breakpoint on the first PC of each range. To filter
1784 such cases, we use containing blocks -- for each PC found
1785 above, we see if there are other PCs that are in the same
1786 block. If yes, the other PCs are filtered out. */
1788 filter
= XNEWVEC (int, intermediate_results
.nelts
);
1789 make_cleanup (xfree
, filter
);
1790 blocks
= XNEWVEC (struct block
*, intermediate_results
.nelts
);
1791 make_cleanup (xfree
, blocks
);
1793 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1795 set_current_program_space (intermediate_results
.sals
[i
].pspace
);
1798 blocks
[i
] = block_for_pc_sect (intermediate_results
.sals
[i
].pc
,
1799 intermediate_results
.sals
[i
].section
);
1802 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1804 if (blocks
[i
] != NULL
)
1805 for (j
= i
+ 1; j
< intermediate_results
.nelts
; ++j
)
1807 if (blocks
[j
] == blocks
[i
])
1815 for (i
= 0; i
< intermediate_results
.nelts
; ++i
)
1818 struct symbol
*sym
= (blocks
[i
]
1819 ? block_containing_function (blocks
[i
])
1822 if (self
->funfirstline
)
1823 skip_prologue_sal (&intermediate_results
.sals
[i
]);
1824 /* Make sure the line matches the request, not what was
1826 intermediate_results
.sals
[i
].line
= val
.line
;
1827 add_sal_to_sals (self
, &values
, &intermediate_results
.sals
[i
],
1828 sym
? SYMBOL_NATURAL_NAME (sym
) : NULL
, 0);
1831 do_cleanups (cleanup
);
1834 if (values
.nelts
== 0)
1836 if (ls
->source_filename
)
1837 throw_error (NOT_FOUND_ERROR
, _("No line %d in file \"%s\"."),
1838 val
.line
, ls
->source_filename
);
1840 throw_error (NOT_FOUND_ERROR
, _("No line %d in the current file."),
1847 /* Create and return SALs from the linespec LS. */
1849 static struct symtabs_and_lines
1850 convert_linespec_to_sals (struct linespec_state
*state
, linespec_p ls
)
1852 struct symtabs_and_lines sals
= {NULL
, 0};
1854 if (ls
->expression
!= NULL
)
1856 struct symtab_and_line sal
;
1858 /* We have an expression. No other attribute is allowed. */
1859 sal
= find_pc_line (ls
->expr_pc
, 0);
1860 sal
.pc
= ls
->expr_pc
;
1861 sal
.section
= find_pc_overlay (ls
->expr_pc
);
1862 sal
.explicit_pc
= 1;
1863 add_sal_to_sals (state
, &sals
, &sal
, ls
->expression
, 1);
1865 else if (ls
->labels
.label_symbols
!= NULL
)
1867 /* We have just a bunch of functions/methods or labels. */
1869 struct symtab_and_line sal
;
1872 for (i
= 0; VEC_iterate (symbolp
, ls
->labels
.label_symbols
, i
, sym
); ++i
)
1874 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
))
1875 add_sal_to_sals (state
, &sals
, &sal
,
1876 SYMBOL_NATURAL_NAME (sym
), 0);
1879 else if (ls
->function_symbols
!= NULL
|| ls
->minimal_symbols
!= NULL
)
1881 /* We have just a bunch of functions and/or methods. */
1883 struct symtab_and_line sal
;
1885 minsym_and_objfile_d
*elem
;
1886 struct program_space
*pspace
;
1888 if (ls
->function_symbols
!= NULL
)
1890 /* Sort symbols so that symbols with the same program space are next
1892 qsort (VEC_address (symbolp
, ls
->function_symbols
),
1893 VEC_length (symbolp
, ls
->function_symbols
),
1894 sizeof (symbolp
), compare_symbols
);
1896 for (i
= 0; VEC_iterate (symbolp
, ls
->function_symbols
, i
, sym
); ++i
)
1898 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
1899 set_current_program_space (pspace
);
1900 if (symbol_to_sal (&sal
, state
->funfirstline
, sym
)
1901 && maybe_add_address (state
->addr_set
, pspace
, sal
.pc
))
1902 add_sal_to_sals (state
, &sals
, &sal
,
1903 SYMBOL_NATURAL_NAME (sym
), 0);
1907 if (ls
->minimal_symbols
!= NULL
)
1909 /* Sort minimal symbols by program space, too. */
1910 qsort (VEC_address (minsym_and_objfile_d
, ls
->minimal_symbols
),
1911 VEC_length (minsym_and_objfile_d
, ls
->minimal_symbols
),
1912 sizeof (minsym_and_objfile_d
), compare_msymbols
);
1915 VEC_iterate (minsym_and_objfile_d
, ls
->minimal_symbols
, i
, elem
);
1918 pspace
= elem
->objfile
->pspace
;
1919 set_current_program_space (pspace
);
1920 minsym_found (state
, elem
->objfile
, elem
->minsym
, &sals
);
1924 else if (ls
->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
1926 /* Only an offset was specified. */
1927 sals
= create_sals_line_offset (state
, ls
);
1929 /* Make sure we have a filename for canonicalization. */
1930 if (ls
->source_filename
== NULL
)
1931 ls
->source_filename
= xstrdup (state
->default_symtab
->filename
);
1935 /* We haven't found any results... */
1939 canonicalize_linespec (state
, ls
);
1941 if (sals
.nelts
> 0 && state
->canonical
!= NULL
)
1942 state
->canonical
->pre_expanded
= 1;
1947 /* Parse a string that specifies a linespec.
1948 Pass the address of a char * variable; that variable will be
1949 advanced over the characters actually parsed.
1951 The basic grammar of linespecs:
1953 linespec -> expr_spec | var_spec | basic_spec
1954 expr_spec -> '*' STRING
1955 var_spec -> '$' (STRING | NUMBER)
1957 basic_spec -> file_offset_spec | function_spec | label_spec
1958 file_offset_spec -> opt_file_spec offset_spec
1959 function_spec -> opt_file_spec function_name_spec opt_label_spec
1960 label_spec -> label_name_spec
1962 opt_file_spec -> "" | file_name_spec ':'
1963 opt_label_spec -> "" | ':' label_name_spec
1965 file_name_spec -> STRING
1966 function_name_spec -> STRING
1967 label_name_spec -> STRING
1968 function_name_spec -> STRING
1969 offset_spec -> NUMBER
1973 This may all be followed by several keywords such as "if EXPR",
1976 A comma will terminate parsing.
1978 The function may be an undebuggable function found in minimal symbol table.
1980 If the argument FUNFIRSTLINE is nonzero, we want the first line
1981 of real code inside a function when a function is specified, and it is
1982 not OK to specify a variable or type to get its line number.
1984 DEFAULT_SYMTAB specifies the file to use if none is specified.
1985 It defaults to current_source_symtab.
1986 DEFAULT_LINE specifies the line number to use for relative
1987 line numbers (that start with signs). Defaults to current_source_line.
1988 If CANONICAL is non-NULL, store an array of strings containing the canonical
1989 line specs there if necessary. Currently overloaded member functions and
1990 line numbers or static functions without a filename yield a canonical
1991 line spec. The array and the line spec strings are allocated on the heap,
1992 it is the callers responsibility to free them.
1994 Note that it is possible to return zero for the symtab
1995 if no file is validly specified. Callers must check that.
1996 Also, the line number returned may be invalid. */
1998 /* Parse the linespec in ARGPTR. */
2000 static struct symtabs_and_lines
2001 parse_linespec (linespec_parser
*parser
, char **argptr
)
2003 linespec_token token
;
2004 struct symtabs_and_lines values
;
2005 volatile struct gdb_exception file_exception
;
2006 struct cleanup
*cleanup
;
2008 /* A special case to start. It has become quite popular for
2009 IDEs to work around bugs in the previous parser by quoting
2010 the entire linespec, so we attempt to deal with this nicely. */
2011 parser
->is_quote_enclosed
= 0;
2012 if (!is_ada_operator (*argptr
)
2013 && strchr (linespec_quote_characters
, **argptr
) != NULL
)
2017 end
= skip_quote_char (*argptr
+ 1, **argptr
);
2018 if (end
!= NULL
&& is_closing_quote_enclosed (end
))
2020 /* Here's the special case. Skip ARGPTR past the initial
2023 parser
->is_quote_enclosed
= 1;
2027 parser
->lexer
.saved_arg
= *argptr
;
2028 parser
->lexer
.stream
= argptr
;
2029 file_exception
.reason
= 0;
2031 /* Initialize the default symtab and line offset. */
2032 initialize_defaults (&PARSER_STATE (parser
)->default_symtab
,
2033 &PARSER_STATE (parser
)->default_line
);
2035 /* Objective-C shortcut. */
2036 values
= decode_objc (PARSER_STATE (parser
), PARSER_RESULT (parser
), argptr
);
2037 if (values
.sals
!= NULL
)
2040 /* Start parsing. */
2042 /* Get the first token. */
2043 token
= linespec_lexer_lex_one (parser
);
2045 /* It must be either LSTOKEN_STRING or LSTOKEN_NUMBER. */
2046 if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '*')
2050 /* User specified an expression, *EXPR. */
2051 copy
= expr
= copy_token_string (token
);
2052 cleanup
= make_cleanup (xfree
, expr
);
2053 PARSER_RESULT (parser
)->expr_pc
= linespec_expression_to_pc (©
);
2054 discard_cleanups (cleanup
);
2055 PARSER_RESULT (parser
)->expression
= expr
;
2057 /* This is a little hacky/tricky. If linespec_expression_to_pc
2058 did not evaluate the entire token, then we must find the
2059 string COPY inside the original token buffer. */
2062 PARSER_STREAM (parser
) = strstr (parser
->lexer
.saved_arg
, copy
);
2063 gdb_assert (PARSER_STREAM (parser
) != NULL
);
2066 /* Consume the token. */
2067 linespec_lexer_consume_token (parser
);
2069 goto convert_to_sals
;
2071 else if (token
.type
== LSTOKEN_STRING
&& *LS_TOKEN_STOKEN (token
).ptr
== '$')
2075 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2076 VEC_safe_push (symtab_p
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2078 /* User specified a convenience variable or history value. */
2079 var
= copy_token_string (token
);
2080 cleanup
= make_cleanup (xfree
, var
);
2081 PARSER_RESULT (parser
)->line_offset
2082 = linespec_parse_variable (PARSER_STATE (parser
), var
);
2084 /* If a line_offset wasn't found (VAR is the name of a user
2085 variable/function), then skip to normal symbol processing. */
2086 if (PARSER_RESULT (parser
)->line_offset
.sign
!= LINE_OFFSET_UNKNOWN
)
2088 discard_cleanups (cleanup
);
2090 /* Consume this token. */
2091 linespec_lexer_consume_token (parser
);
2093 goto convert_to_sals
;
2096 do_cleanups (cleanup
);
2098 else if (token
.type
!= LSTOKEN_STRING
&& token
.type
!= LSTOKEN_NUMBER
)
2099 unexpected_linespec_error (parser
);
2101 /* Shortcut: If the next token is not LSTOKEN_COLON, we know that
2102 this token cannot represent a filename. */
2103 token
= linespec_lexer_peek_token (parser
);
2105 if (token
.type
== LSTOKEN_COLON
)
2107 char *user_filename
;
2109 /* Get the current token again and extract the filename. */
2110 token
= linespec_lexer_lex_one (parser
);
2111 user_filename
= copy_token_string (token
);
2113 /* Check if the input is a filename. */
2114 TRY_CATCH (file_exception
, RETURN_MASK_ERROR
)
2116 PARSER_RESULT (parser
)->file_symtabs
2117 = symtabs_from_filename (user_filename
);
2120 if (file_exception
.reason
>= 0)
2122 /* Symtabs were found for the file. Record the filename. */
2123 PARSER_RESULT (parser
)->source_filename
= user_filename
;
2125 /* Get the next token. */
2126 token
= linespec_lexer_consume_token (parser
);
2128 /* This is LSTOKEN_COLON; consume it. */
2129 linespec_lexer_consume_token (parser
);
2133 /* No symtabs found -- discard user_filename. */
2134 xfree (user_filename
);
2136 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2137 VEC_safe_push (symtab_p
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2140 /* If the next token is not EOI, KEYWORD, or COMMA, issue an error. */
2141 else if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
2142 && token
.type
!= LSTOKEN_COMMA
)
2144 /* TOKEN is the _next_ token, not the one currently in the parser.
2145 Consuming the token will give the correct error message. */
2146 linespec_lexer_consume_token (parser
);
2147 unexpected_linespec_error (parser
);
2151 /* A NULL entry means to use GLOBAL_DEFAULT_SYMTAB. */
2152 VEC_safe_push (symtab_p
, PARSER_RESULT (parser
)->file_symtabs
, NULL
);
2155 /* Parse the rest of the linespec. */
2156 linespec_parse_basic (parser
);
2158 if (PARSER_RESULT (parser
)->function_symbols
== NULL
2159 && PARSER_RESULT (parser
)->labels
.label_symbols
== NULL
2160 && PARSER_RESULT (parser
)->line_offset
.sign
== LINE_OFFSET_UNKNOWN
2161 && PARSER_RESULT (parser
)->minimal_symbols
== NULL
)
2163 /* The linespec didn't parse. Re-throw the file exception if
2165 if (file_exception
.reason
< 0)
2166 throw_exception (file_exception
);
2168 /* Otherwise, the symbol is not found. */
2169 symbol_not_found_error (PARSER_RESULT (parser
)->function_name
,
2170 PARSER_RESULT (parser
)->source_filename
);
2175 /* Get the last token and record how much of the input was parsed,
2177 token
= linespec_lexer_lex_one (parser
);
2178 if (token
.type
!= LSTOKEN_EOI
&& token
.type
!= LSTOKEN_KEYWORD
)
2179 PARSER_STREAM (parser
) = LS_TOKEN_STOKEN (token
).ptr
;
2181 /* Convert the data in PARSER_RESULT to SALs. */
2182 values
= convert_linespec_to_sals (PARSER_STATE (parser
),
2183 PARSER_RESULT (parser
));
2189 /* A constructor for linespec_state. */
2192 linespec_state_constructor (struct linespec_state
*self
,
2193 int flags
, const struct language_defn
*language
,
2194 struct symtab
*default_symtab
,
2196 struct linespec_result
*canonical
)
2198 memset (self
, 0, sizeof (*self
));
2199 self
->language
= language
;
2200 self
->funfirstline
= (flags
& DECODE_LINE_FUNFIRSTLINE
) ? 1 : 0;
2201 self
->list_mode
= (flags
& DECODE_LINE_LIST_MODE
) ? 1 : 0;
2202 self
->default_symtab
= default_symtab
;
2203 self
->default_line
= default_line
;
2204 self
->canonical
= canonical
;
2205 self
->program_space
= current_program_space
;
2206 self
->addr_set
= htab_create_alloc (10, hash_address_entry
, eq_address_entry
,
2207 xfree
, xcalloc
, xfree
);
2210 /* Initialize a new linespec parser. */
2213 linespec_parser_new (linespec_parser
*parser
,
2214 int flags
, const struct language_defn
*language
,
2215 struct symtab
*default_symtab
,
2217 struct linespec_result
*canonical
)
2219 parser
->lexer
.current
.type
= LSTOKEN_CONSUMED
;
2220 memset (PARSER_RESULT (parser
), 0, sizeof (struct linespec
));
2221 PARSER_RESULT (parser
)->line_offset
.sign
= LINE_OFFSET_UNKNOWN
;
2222 linespec_state_constructor (PARSER_STATE (parser
), flags
, language
,
2223 default_symtab
, default_line
, canonical
);
2226 /* A destructor for linespec_state. */
2229 linespec_state_destructor (struct linespec_state
*self
)
2231 htab_delete (self
->addr_set
);
2234 /* Delete a linespec parser. */
2237 linespec_parser_delete (void *arg
)
2239 linespec_parser
*parser
= (linespec_parser
*) arg
;
2241 xfree ((char *) PARSER_RESULT (parser
)->expression
);
2242 xfree ((char *) PARSER_RESULT (parser
)->source_filename
);
2243 xfree ((char *) PARSER_RESULT (parser
)->label_name
);
2244 xfree ((char *) PARSER_RESULT (parser
)->function_name
);
2246 if (PARSER_RESULT (parser
)->file_symtabs
!= NULL
)
2247 VEC_free (symtab_p
, PARSER_RESULT (parser
)->file_symtabs
);
2249 if (PARSER_RESULT (parser
)->function_symbols
!= NULL
)
2250 VEC_free (symbolp
, PARSER_RESULT (parser
)->function_symbols
);
2252 if (PARSER_RESULT (parser
)->minimal_symbols
!= NULL
)
2253 VEC_free (minsym_and_objfile_d
, PARSER_RESULT (parser
)->minimal_symbols
);
2255 if (PARSER_RESULT (parser
)->labels
.label_symbols
!= NULL
)
2256 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.label_symbols
);
2258 if (PARSER_RESULT (parser
)->labels
.function_symbols
!= NULL
)
2259 VEC_free (symbolp
, PARSER_RESULT (parser
)->labels
.function_symbols
);
2261 linespec_state_destructor (PARSER_STATE (parser
));
2264 /* See linespec.h. */
2267 decode_line_full (char **argptr
, int flags
,
2268 struct symtab
*default_symtab
,
2269 int default_line
, struct linespec_result
*canonical
,
2270 const char *select_mode
,
2273 struct symtabs_and_lines result
;
2274 struct cleanup
*cleanups
;
2275 char *arg_start
= *argptr
;
2276 VEC (const_char_ptr
) *filters
= NULL
;
2277 linespec_parser parser
;
2278 struct linespec_state
*state
;
2280 gdb_assert (canonical
!= NULL
);
2281 /* The filter only makes sense for 'all'. */
2282 gdb_assert (filter
== NULL
|| select_mode
== multiple_symbols_all
);
2283 gdb_assert (select_mode
== NULL
2284 || select_mode
== multiple_symbols_all
2285 || select_mode
== multiple_symbols_ask
2286 || select_mode
== multiple_symbols_cancel
);
2287 gdb_assert ((flags
& DECODE_LINE_LIST_MODE
) == 0);
2289 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2290 default_line
, canonical
);
2291 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2292 save_current_program_space ();
2294 result
= parse_linespec (&parser
, argptr
);
2295 state
= PARSER_STATE (&parser
);
2297 gdb_assert (result
.nelts
== 1 || canonical
->pre_expanded
);
2298 gdb_assert (canonical
->addr_string
!= NULL
);
2299 canonical
->pre_expanded
= 1;
2301 /* Arrange for allocated canonical names to be freed. */
2302 if (result
.nelts
> 0)
2306 make_cleanup (xfree
, state
->canonical_names
);
2307 for (i
= 0; i
< result
.nelts
; ++i
)
2309 gdb_assert (state
->canonical_names
[i
] != NULL
);
2310 make_cleanup (xfree
, state
->canonical_names
[i
]);
2314 if (select_mode
== NULL
)
2316 if (ui_out_is_mi_like_p (interp_ui_out (top_level_interpreter ())))
2317 select_mode
= multiple_symbols_all
;
2319 select_mode
= multiple_symbols_select_mode ();
2322 if (select_mode
== multiple_symbols_all
)
2326 make_cleanup (VEC_cleanup (const_char_ptr
), &filters
);
2327 VEC_safe_push (const_char_ptr
, filters
, filter
);
2328 filter_results (state
, &result
, filters
);
2331 convert_results_to_lsals (state
, &result
);
2334 decode_line_2 (state
, &result
, select_mode
);
2336 do_cleanups (cleanups
);
2339 /* See linespec.h. */
2341 struct symtabs_and_lines
2342 decode_line_1 (char **argptr
, int flags
,
2343 struct symtab
*default_symtab
,
2346 struct symtabs_and_lines result
;
2347 linespec_parser parser
;
2348 struct cleanup
*cleanups
;
2350 linespec_parser_new (&parser
, flags
, current_language
, default_symtab
,
2351 default_line
, NULL
);
2352 cleanups
= make_cleanup (linespec_parser_delete
, &parser
);
2353 save_current_program_space ();
2355 result
= parse_linespec (&parser
, argptr
);
2357 do_cleanups (cleanups
);
2361 /* See linespec.h. */
2363 struct symtabs_and_lines
2364 decode_line_with_current_source (char *string
, int flags
)
2366 struct symtabs_and_lines sals
;
2367 struct symtab_and_line cursal
;
2370 error (_("Empty line specification."));
2372 /* We use whatever is set as the current source line. We do not try
2373 and get a default source symtab+line or it will recursively call us! */
2374 cursal
= get_current_source_symtab_and_line ();
2376 sals
= decode_line_1 (&string
, flags
,
2377 cursal
.symtab
, cursal
.line
);
2380 error (_("Junk at end of line specification: %s"), string
);
2384 /* See linespec.h. */
2386 struct symtabs_and_lines
2387 decode_line_with_last_displayed (char *string
, int flags
)
2389 struct symtabs_and_lines sals
;
2392 error (_("Empty line specification."));
2394 if (last_displayed_sal_is_valid ())
2395 sals
= decode_line_1 (&string
, flags
,
2396 get_last_displayed_symtab (),
2397 get_last_displayed_line ());
2399 sals
= decode_line_1 (&string
, flags
, (struct symtab
*) NULL
, 0);
2402 error (_("Junk at end of line specification: %s"), string
);
2408 /* First, some functions to initialize stuff at the beggining of the
2412 initialize_defaults (struct symtab
**default_symtab
, int *default_line
)
2414 if (*default_symtab
== 0)
2416 /* Use whatever we have for the default source line. We don't use
2417 get_current_or_default_symtab_and_line as it can recurse and call
2419 struct symtab_and_line cursal
=
2420 get_current_source_symtab_and_line ();
2422 *default_symtab
= cursal
.symtab
;
2423 *default_line
= cursal
.line
;
2429 /* Evaluate the expression pointed to by EXP_PTR into a CORE_ADDR,
2430 advancing EXP_PTR past any parsed text. */
2433 linespec_expression_to_pc (char **exp_ptr
)
2435 if (current_program_space
->executing_startup
)
2436 /* The error message doesn't really matter, because this case
2437 should only hit during breakpoint reset. */
2438 throw_error (NOT_FOUND_ERROR
, _("cannot evaluate expressions while "
2439 "program space is in startup"));
2442 return value_as_address (parse_to_comma_and_eval (exp_ptr
));
2447 /* Here's where we recognise an Objective-C Selector. An Objective C
2448 selector may be implemented by more than one class, therefore it
2449 may represent more than one method/function. This gives us a
2450 situation somewhat analogous to C++ overloading. If there's more
2451 than one method that could represent the selector, then use some of
2452 the existing C++ code to let the user choose one. */
2454 static struct symtabs_and_lines
2455 decode_objc (struct linespec_state
*self
, linespec_p ls
, char **argptr
)
2457 struct collect_info info
;
2458 VEC (const_char_ptr
) *symbol_names
= NULL
;
2459 struct symtabs_and_lines values
;
2461 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2465 info
.file_symtabs
= NULL
;
2466 VEC_safe_push (symtab_p
, info
.file_symtabs
, NULL
);
2467 make_cleanup (VEC_cleanup (symtab_p
), &info
.file_symtabs
);
2468 info
.result
.symbols
= NULL
;
2469 info
.result
.minimal_symbols
= NULL
;
2473 new_argptr
= find_imps (*argptr
, &symbol_names
);
2474 if (VEC_empty (const_char_ptr
, symbol_names
))
2476 do_cleanups (cleanup
);
2480 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2482 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2483 || !VEC_empty (minsym_and_objfile_d
, info
.result
.minimal_symbols
))
2487 saved_arg
= alloca (new_argptr
- *argptr
+ 1);
2488 memcpy (saved_arg
, *argptr
, new_argptr
- *argptr
);
2489 saved_arg
[new_argptr
- *argptr
] = '\0';
2491 ls
->function_name
= xstrdup (saved_arg
);
2492 ls
->function_symbols
= info
.result
.symbols
;
2493 ls
->minimal_symbols
= info
.result
.minimal_symbols
;
2494 values
= convert_linespec_to_sals (self
, ls
);
2496 if (self
->canonical
)
2498 self
->canonical
->pre_expanded
= 1;
2499 if (ls
->source_filename
)
2500 self
->canonical
->addr_string
2501 = xstrprintf ("%s:%s", ls
->source_filename
, saved_arg
);
2503 self
->canonical
->addr_string
= xstrdup (saved_arg
);
2507 *argptr
= new_argptr
;
2509 do_cleanups (cleanup
);
2514 /* An instance of this type is used when collecting prefix symbols for
2517 struct decode_compound_collector
2519 /* The result vector. */
2520 VEC (symbolp
) *symbols
;
2522 /* A hash table of all symbols we found. We use this to avoid
2523 adding any symbol more than once. */
2527 /* A callback for iterate_over_symbols that is used by
2528 lookup_prefix_sym to collect type symbols. */
2531 collect_one_symbol (struct symbol
*sym
, void *d
)
2533 struct decode_compound_collector
*collector
= d
;
2537 if (SYMBOL_CLASS (sym
) != LOC_TYPEDEF
)
2538 return 1; /* Continue iterating. */
2540 t
= SYMBOL_TYPE (sym
);
2542 if (TYPE_CODE (t
) != TYPE_CODE_STRUCT
2543 && TYPE_CODE (t
) != TYPE_CODE_UNION
2544 && TYPE_CODE (t
) != TYPE_CODE_NAMESPACE
)
2545 return 1; /* Continue iterating. */
2547 slot
= htab_find_slot (collector
->unique_syms
, sym
, INSERT
);
2551 VEC_safe_push (symbolp
, collector
->symbols
, sym
);
2554 return 1; /* Continue iterating. */
2557 /* Return any symbols corresponding to CLASS_NAME in FILE_SYMTABS. */
2559 static VEC (symbolp
) *
2560 lookup_prefix_sym (struct linespec_state
*state
, VEC (symtab_p
) *file_symtabs
,
2561 const char *class_name
)
2565 struct decode_compound_collector collector
;
2566 struct cleanup
*outer
;
2567 struct cleanup
*cleanup
;
2569 collector
.symbols
= NULL
;
2570 outer
= make_cleanup (VEC_cleanup (symbolp
), &collector
.symbols
);
2572 collector
.unique_syms
= htab_create_alloc (1, htab_hash_pointer
,
2573 htab_eq_pointer
, NULL
,
2575 cleanup
= make_cleanup_htab_delete (collector
.unique_syms
);
2577 for (ix
= 0; VEC_iterate (symtab_p
, file_symtabs
, ix
, elt
); ++ix
)
2581 iterate_over_all_matching_symtabs (state
, class_name
, STRUCT_DOMAIN
,
2582 collect_one_symbol
, &collector
,
2584 iterate_over_all_matching_symtabs (state
, class_name
, VAR_DOMAIN
,
2585 collect_one_symbol
, &collector
,
2590 struct block
*search_block
;
2592 /* Program spaces that are executing startup should have
2593 been filtered out earlier. */
2594 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
2595 set_current_program_space (SYMTAB_PSPACE (elt
));
2596 search_block
= get_search_block (elt
);
2597 LA_ITERATE_OVER_SYMBOLS (search_block
, class_name
, STRUCT_DOMAIN
,
2598 collect_one_symbol
, &collector
);
2599 LA_ITERATE_OVER_SYMBOLS (search_block
, class_name
, VAR_DOMAIN
,
2600 collect_one_symbol
, &collector
);
2604 do_cleanups (cleanup
);
2605 discard_cleanups (outer
);
2606 return collector
.symbols
;
2609 /* A qsort comparison function for symbols. The resulting order does
2610 not actually matter; we just need to be able to sort them so that
2611 symbols with the same program space end up next to each other. */
2614 compare_symbols (const void *a
, const void *b
)
2616 struct symbol
* const *sa
= a
;
2617 struct symbol
* const *sb
= b
;
2620 uia
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sa
));
2621 uib
= (uintptr_t) SYMTAB_PSPACE (SYMBOL_SYMTAB (*sb
));
2628 uia
= (uintptr_t) *sa
;
2629 uib
= (uintptr_t) *sb
;
2639 /* Like compare_symbols but for minimal symbols. */
2642 compare_msymbols (const void *a
, const void *b
)
2644 const struct minsym_and_objfile
*sa
= a
;
2645 const struct minsym_and_objfile
*sb
= b
;
2648 uia
= (uintptr_t) sa
->objfile
->pspace
;
2649 uib
= (uintptr_t) sa
->objfile
->pspace
;
2656 uia
= (uintptr_t) sa
->minsym
;
2657 uib
= (uintptr_t) sb
->minsym
;
2667 /* Look for all the matching instances of each symbol in NAMES. Only
2668 instances from PSPACE are considered; other program spaces are
2669 handled by our caller. If PSPACE is NULL, then all program spaces
2670 are considered. Results are stored into INFO. */
2673 add_all_symbol_names_from_pspace (struct collect_info
*info
,
2674 struct program_space
*pspace
,
2675 VEC (const_char_ptr
) *names
)
2680 for (ix
= 0; VEC_iterate (const_char_ptr
, names
, ix
, iter
); ++ix
)
2681 add_matching_symbols_to_info (iter
, info
, pspace
);
2685 find_superclass_methods (VEC (typep
) *superclasses
,
2687 VEC (const_char_ptr
) **result_names
)
2689 int old_len
= VEC_length (const_char_ptr
, *result_names
);
2690 VEC (typep
) *iter_classes
;
2691 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2693 iter_classes
= superclasses
;
2696 VEC (typep
) *new_supers
= NULL
;
2700 make_cleanup (VEC_cleanup (typep
), &new_supers
);
2701 for (ix
= 0; VEC_iterate (typep
, iter_classes
, ix
, t
); ++ix
)
2702 find_methods (t
, name
, result_names
, &new_supers
);
2704 if (VEC_length (const_char_ptr
, *result_names
) != old_len
2705 || VEC_empty (typep
, new_supers
))
2708 iter_classes
= new_supers
;
2711 do_cleanups (cleanup
);
2714 /* This finds the method METHOD_NAME in the class CLASS_NAME whose type is
2715 given by one of the symbols in SYM_CLASSES. Matches are returned
2716 in SYMBOLS (for debug symbols) and MINSYMS (for minimal symbols). */
2719 find_method (struct linespec_state
*self
, VEC (symtab_p
) *file_symtabs
,
2720 const char *class_name
, const char *method_name
,
2721 VEC (symbolp
) *sym_classes
, VEC (symbolp
) **symbols
,
2722 VEC (minsym_and_objfile_d
) **minsyms
)
2725 struct cleanup
*cleanup
= make_cleanup (null_cleanup
, NULL
);
2727 int last_result_len
;
2728 VEC (typep
) *superclass_vec
;
2729 VEC (const_char_ptr
) *result_names
;
2730 struct collect_info info
;
2732 /* Sort symbols so that symbols with the same program space are next
2734 qsort (VEC_address (symbolp
, sym_classes
),
2735 VEC_length (symbolp
, sym_classes
),
2740 info
.file_symtabs
= file_symtabs
;
2741 info
.result
.symbols
= NULL
;
2742 info
.result
.minimal_symbols
= NULL
;
2744 /* Iterate over all the types, looking for the names of existing
2745 methods matching METHOD_NAME. If we cannot find a direct method in a
2746 given program space, then we consider inherited methods; this is
2747 not ideal (ideal would be to respect C++ hiding rules), but it
2748 seems good enough and is what GDB has historically done. We only
2749 need to collect the names because later we find all symbols with
2750 those names. This loop is written in a somewhat funny way
2751 because we collect data across the program space before deciding
2753 superclass_vec
= NULL
;
2754 make_cleanup (VEC_cleanup (typep
), &superclass_vec
);
2755 result_names
= NULL
;
2756 make_cleanup (VEC_cleanup (const_char_ptr
), &result_names
);
2757 last_result_len
= 0;
2758 for (ix
= 0; VEC_iterate (symbolp
, sym_classes
, ix
, sym
); ++ix
)
2761 struct program_space
*pspace
;
2763 /* Program spaces that are executing startup should have
2764 been filtered out earlier. */
2765 gdb_assert (!SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
))->executing_startup
);
2766 pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
2767 set_current_program_space (pspace
);
2768 t
= check_typedef (SYMBOL_TYPE (sym
));
2769 find_methods (t
, method_name
, &result_names
, &superclass_vec
);
2771 /* Handle all items from a single program space at once; and be
2772 sure not to miss the last batch. */
2773 if (ix
== VEC_length (symbolp
, sym_classes
) - 1
2775 != SYMTAB_PSPACE (SYMBOL_SYMTAB (VEC_index (symbolp
, sym_classes
,
2778 /* If we did not find a direct implementation anywhere in
2779 this program space, consider superclasses. */
2780 if (VEC_length (const_char_ptr
, result_names
) == last_result_len
)
2781 find_superclass_methods (superclass_vec
, method_name
,
2784 /* We have a list of candidate symbol names, so now we
2785 iterate over the symbol tables looking for all
2786 matches in this pspace. */
2787 add_all_symbol_names_from_pspace (&info
, pspace
, result_names
);
2789 VEC_truncate (typep
, superclass_vec
, 0);
2790 last_result_len
= VEC_length (const_char_ptr
, result_names
);
2794 if (!VEC_empty (symbolp
, info
.result
.symbols
)
2795 || !VEC_empty (minsym_and_objfile_d
, info
.result
.minimal_symbols
))
2797 *symbols
= info
.result
.symbols
;
2798 *minsyms
= info
.result
.minimal_symbols
;
2799 do_cleanups (cleanup
);
2803 /* Throw an NOT_FOUND_ERROR. This will be caught by the caller
2804 and other attempts to locate the symbol will be made. */
2805 throw_error (NOT_FOUND_ERROR
, _("see caller, this text doesn't matter"));
2810 /* This object is used when collecting all matching symtabs. */
2812 struct symtab_collector
2814 /* The result vector of symtabs. */
2815 VEC (symtab_p
) *symtabs
;
2817 /* This is used to ensure the symtabs are unique. */
2818 htab_t symtab_table
;
2821 /* Callback for iterate_over_symtabs. */
2824 add_symtabs_to_list (struct symtab
*symtab
, void *d
)
2826 struct symtab_collector
*data
= d
;
2829 slot
= htab_find_slot (data
->symtab_table
, symtab
, INSERT
);
2833 VEC_safe_push (symtab_p
, data
->symtabs
, symtab
);
2839 /* Given a file name, return a VEC of all matching symtabs. */
2841 static VEC (symtab_p
) *
2842 collect_symtabs_from_filename (const char *file
)
2844 struct symtab_collector collector
;
2845 struct cleanup
*cleanups
;
2846 struct program_space
*pspace
;
2848 collector
.symtabs
= NULL
;
2849 collector
.symtab_table
= htab_create (1, htab_hash_pointer
, htab_eq_pointer
,
2851 cleanups
= make_cleanup_htab_delete (collector
.symtab_table
);
2853 /* Find that file's data. */
2854 ALL_PSPACES (pspace
)
2856 if (pspace
->executing_startup
)
2859 set_current_program_space (pspace
);
2860 iterate_over_symtabs (file
, add_symtabs_to_list
, &collector
);
2863 do_cleanups (cleanups
);
2864 return collector
.symtabs
;
2867 /* Return all the symtabs associated to the FILENAME. */
2869 static VEC (symtab_p
) *
2870 symtabs_from_filename (const char *filename
)
2872 VEC (symtab_p
) *result
;
2874 result
= collect_symtabs_from_filename (filename
);
2876 if (VEC_empty (symtab_p
, result
))
2878 if (!have_full_symbols () && !have_partial_symbols ())
2879 throw_error (NOT_FOUND_ERROR
,
2880 _("No symbol table is loaded. "
2881 "Use the \"file\" command."));
2882 throw_error (NOT_FOUND_ERROR
, _("No source file named %s."), filename
);
2888 /* Look up a function symbol named NAME in symtabs FILE_SYMTABS. Matching
2889 debug symbols are returned in SYMBOLS. Matching minimal symbols are
2890 returned in MINSYMS. */
2893 find_function_symbols (struct linespec_state
*state
,
2894 VEC (symtab_p
) *file_symtabs
, const char *name
,
2895 VEC (symbolp
) **symbols
,
2896 VEC (minsym_and_objfile_d
) **minsyms
)
2898 struct collect_info info
;
2899 VEC (const_char_ptr
) *symbol_names
= NULL
;
2900 struct cleanup
*cleanup
= make_cleanup (VEC_cleanup (const_char_ptr
),
2904 info
.result
.symbols
= NULL
;
2905 info
.result
.minimal_symbols
= NULL
;
2906 info
.file_symtabs
= file_symtabs
;
2908 /* Try NAME as an Objective-C selector. */
2909 find_imps ((char *) name
, &symbol_names
);
2910 if (!VEC_empty (const_char_ptr
, symbol_names
))
2911 add_all_symbol_names_from_pspace (&info
, NULL
, symbol_names
);
2913 add_matching_symbols_to_info (name
, &info
, NULL
);
2915 do_cleanups (cleanup
);
2917 if (VEC_empty (symbolp
, info
.result
.symbols
))
2919 VEC_free (symbolp
, info
.result
.symbols
);
2923 *symbols
= info
.result
.symbols
;
2925 if (VEC_empty (minsym_and_objfile_d
, info
.result
.minimal_symbols
))
2927 VEC_free (minsym_and_objfile_d
, info
.result
.minimal_symbols
);
2931 *minsyms
= info
.result
.minimal_symbols
;
2934 /* Find all symbols named NAME in FILE_SYMTABS, returning debug symbols
2935 in SYMBOLS and minimal symbols in MINSYMS. */
2938 find_linespec_symbols (struct linespec_state
*state
,
2939 VEC (symtab_p
) *file_symtabs
,
2941 VEC (symbolp
) **symbols
,
2942 VEC (minsym_and_objfile_d
) **minsyms
)
2944 char *klass
, *method
, *canon
;
2945 const char *lookup_name
, *last
, *p
, *scope_op
;
2946 struct cleanup
*cleanup
;
2947 VEC (symbolp
) *classes
;
2948 volatile struct gdb_exception except
;
2950 cleanup
= demangle_for_lookup (name
, state
->language
->la_language
,
2952 if (state
->language
->la_language
== language_ada
)
2954 /* In Ada, the symbol lookups are performed using the encoded
2955 name rather than the demangled name. */
2956 lookup_name
= ada_name_for_lookup (name
);
2957 make_cleanup (xfree
, (void *) lookup_name
);
2960 canon
= cp_canonicalize_string_no_typedefs (lookup_name
);
2963 lookup_name
= canon
;
2964 cleanup
= make_cleanup (xfree
, canon
);
2967 /* See if we can find a scope operator and break this symbol
2968 name into namespaces${SCOPE_OPERATOR}class_name and method_name. */
2970 p
= find_toplevel_string (lookup_name
, scope_op
);
2973 /* No C++ scope operator. Try Java. */
2975 p
= find_toplevel_string (lookup_name
, scope_op
);
2982 p
= find_toplevel_string (p
+ strlen (scope_op
), scope_op
);
2985 /* If no scope operator was found, lookup the name as a symbol. */
2988 find_function_symbols (state
, file_symtabs
, lookup_name
,
2990 do_cleanups (cleanup
);
2994 /* NAME points to the class name.
2995 LAST points to the method name. */
2996 klass
= xmalloc ((last
- lookup_name
+ 1) * sizeof (char));
2997 make_cleanup (xfree
, klass
);
2998 strncpy (klass
, lookup_name
, last
- lookup_name
);
2999 klass
[last
- lookup_name
] = '\0';
3001 /* Skip past the scope operator. */
3002 last
+= strlen (scope_op
);
3003 method
= xmalloc ((strlen (last
) + 1) * sizeof (char));
3004 make_cleanup (xfree
, method
);
3005 strcpy (method
, last
);
3007 /* Find a list of classes named KLASS. */
3008 classes
= lookup_prefix_sym (state
, file_symtabs
, klass
);
3009 make_cleanup (VEC_cleanup (symbolp
), &classes
);
3010 if (!VEC_empty (symbolp
, classes
))
3012 /* Now locate a list of suitable methods named METHOD. */
3013 TRY_CATCH (except
, RETURN_MASK_ERROR
)
3015 find_method (state
, file_symtabs
, klass
, method
, classes
,
3019 /* If successful, we're done. If NOT_FOUND_ERROR
3020 was not thrown, rethrow the exception that we did get.
3021 Otherwise, fall back to looking up the entire name as a symbol.
3022 This can happen with namespace::function. */
3023 if (except
.reason
>= 0)
3025 do_cleanups (cleanup
);
3028 else if (except
.error
!= NOT_FOUND_ERROR
)
3029 throw_exception (except
);
3032 /* We couldn't find a class, so we check the entire name as a symbol
3034 find_function_symbols (state
, file_symtabs
, lookup_name
, symbols
, minsyms
);
3035 do_cleanups (cleanup
);
3038 /* Return all labels named NAME in FUNCTION_SYMBOLS. Return the
3039 actual function symbol in which the label was found in LABEL_FUNC_RET. */
3041 static VEC (symbolp
) *
3042 find_label_symbols (struct linespec_state
*self
,
3043 VEC (symbolp
) *function_symbols
,
3044 VEC (symbolp
) **label_funcs_ret
, const char *name
)
3047 struct block
*block
;
3049 struct symbol
*fn_sym
;
3050 VEC (symbolp
) *result
= NULL
;
3052 if (function_symbols
== NULL
)
3054 set_current_program_space (self
->program_space
);
3055 block
= get_search_block (NULL
);
3058 block
&& !BLOCK_FUNCTION (block
);
3059 block
= BLOCK_SUPERBLOCK (block
))
3063 fn_sym
= BLOCK_FUNCTION (block
);
3065 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3069 VEC_safe_push (symbolp
, result
, sym
);
3070 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3076 VEC_iterate (symbolp
, function_symbols
, ix
, fn_sym
); ++ix
)
3078 set_current_program_space (SYMTAB_PSPACE (SYMBOL_SYMTAB (fn_sym
)));
3079 block
= SYMBOL_BLOCK_VALUE (fn_sym
);
3080 sym
= lookup_symbol (name
, block
, LABEL_DOMAIN
, 0);
3084 VEC_safe_push (symbolp
, result
, sym
);
3085 VEC_safe_push (symbolp
, *label_funcs_ret
, fn_sym
);
3095 /* A helper for create_sals_line_offset that handles the 'list_mode' case. */
3098 decode_digits_list_mode (struct linespec_state
*self
,
3100 struct symtabs_and_lines
*values
,
3101 struct symtab_and_line val
)
3106 gdb_assert (self
->list_mode
);
3108 for (ix
= 0; VEC_iterate (symtab_p
, ls
->file_symtabs
, ix
, elt
);
3111 /* The logic above should ensure this. */
3112 gdb_assert (elt
!= NULL
);
3114 set_current_program_space (SYMTAB_PSPACE (elt
));
3116 /* Simplistic search just for the list command. */
3117 val
.symtab
= find_line_symtab (elt
, val
.line
, NULL
, NULL
);
3118 if (val
.symtab
== NULL
)
3120 val
.pspace
= SYMTAB_PSPACE (elt
);
3122 val
.explicit_line
= 1;
3124 add_sal_to_sals (self
, values
, &val
, NULL
, 0);
3128 /* A helper for create_sals_line_offset that iterates over the symtabs,
3129 adding lines to the VEC. */
3132 decode_digits_ordinary (struct linespec_state
*self
,
3135 struct symtabs_and_lines
*sals
,
3136 struct linetable_entry
**best_entry
)
3141 for (ix
= 0; VEC_iterate (symtab_p
, ls
->file_symtabs
, ix
, elt
); ++ix
)
3144 VEC (CORE_ADDR
) *pcs
;
3147 /* The logic above should ensure this. */
3148 gdb_assert (elt
!= NULL
);
3150 set_current_program_space (SYMTAB_PSPACE (elt
));
3152 pcs
= find_pcs_for_symtab_line (elt
, line
, best_entry
);
3153 for (i
= 0; VEC_iterate (CORE_ADDR
, pcs
, i
, pc
); ++i
)
3155 struct symtab_and_line sal
;
3158 sal
.pspace
= SYMTAB_PSPACE (elt
);
3162 add_sal_to_sals_basic (sals
, &sal
);
3165 VEC_free (CORE_ADDR
, pcs
);
3171 /* Return the line offset represented by VARIABLE. */
3173 static struct line_offset
3174 linespec_parse_variable (struct linespec_state
*self
, const char *variable
)
3178 struct line_offset offset
= {0, LINE_OFFSET_NONE
};
3180 p
= (variable
[1] == '$') ? variable
+ 2 : variable
+ 1;
3183 while (*p
>= '0' && *p
<= '9')
3185 if (!*p
) /* Reached end of token without hitting non-digit. */
3187 /* We have a value history reference. */
3188 struct value
*val_history
;
3190 sscanf ((variable
[1] == '$') ? variable
+ 2 : variable
+ 1, "%d", &index
);
3192 = access_value_history ((variable
[1] == '$') ? -index
: index
);
3193 if (TYPE_CODE (value_type (val_history
)) != TYPE_CODE_INT
)
3194 error (_("History values used in line "
3195 "specs must have integer values."));
3196 offset
.offset
= value_as_long (val_history
);
3200 /* Not all digits -- may be user variable/function or a
3201 convenience variable. */
3203 struct internalvar
*ivar
;
3205 /* Try it as a convenience variable. If it is not a convenience
3206 variable, return and allow normal symbol lookup to occur. */
3207 ivar
= lookup_only_internalvar (variable
+ 1);
3209 /* No internal variable with that name. Mark the offset
3210 as unknown to allow the name to be looked up as a symbol. */
3211 offset
.sign
= LINE_OFFSET_UNKNOWN
;
3214 /* We found a valid variable name. If it is not an integer,
3216 if (!get_internalvar_integer (ivar
, &valx
))
3217 error (_("Convenience variables used in line "
3218 "specs must have integer values."));
3220 offset
.offset
= valx
;
3228 /* A callback used to possibly add a symbol to the results. */
3231 collect_symbols (struct symbol
*sym
, void *data
)
3233 struct collect_info
*info
= data
;
3235 /* In list mode, add all matching symbols, regardless of class.
3236 This allows the user to type "list a_global_variable". */
3237 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
|| info
->state
->list_mode
)
3238 VEC_safe_push (symbolp
, info
->result
.symbols
, sym
);
3239 return 1; /* Continue iterating. */
3242 /* We've found a minimal symbol MSYMBOL in OBJFILE to associate with our
3243 linespec; return the SAL in RESULT. */
3246 minsym_found (struct linespec_state
*self
, struct objfile
*objfile
,
3247 struct minimal_symbol
*msymbol
,
3248 struct symtabs_and_lines
*result
)
3250 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
3252 struct symtab_and_line sal
;
3254 sal
= find_pc_sect_line (SYMBOL_VALUE_ADDRESS (msymbol
),
3255 (struct obj_section
*) 0, 0);
3256 sal
.section
= SYMBOL_OBJ_SECTION (msymbol
);
3258 /* The minimal symbol might point to a function descriptor;
3259 resolve it to the actual code address instead. */
3260 pc
= gdbarch_convert_from_func_ptr_addr (gdbarch
, sal
.pc
, ¤t_target
);
3262 sal
= find_pc_sect_line (pc
, NULL
, 0);
3264 if (self
->funfirstline
)
3265 skip_prologue_sal (&sal
);
3267 if (maybe_add_address (self
->addr_set
, objfile
->pspace
, sal
.pc
))
3268 add_sal_to_sals (self
, result
, &sal
, SYMBOL_NATURAL_NAME (msymbol
), 0);
3271 /* A helper struct to pass some data through
3272 iterate_over_minimal_symbols. */
3274 struct collect_minsyms
3276 /* The objfile we're examining. */
3277 struct objfile
*objfile
;
3279 /* The funfirstline setting from the initial call. */
3282 /* The list_mode setting from the initial call. */
3285 /* The resulting symbols. */
3286 VEC (minsym_and_objfile_d
) *msyms
;
3289 /* A helper function to classify a minimal_symbol_type according to
3293 classify_mtype (enum minimal_symbol_type t
)
3300 /* Intermediate priority. */
3303 case mst_solib_trampoline
:
3304 /* Lowest priority. */
3308 /* Highest priority. */
3313 /* Callback for qsort that sorts symbols by priority. */
3316 compare_msyms (const void *a
, const void *b
)
3318 const minsym_and_objfile_d
*moa
= a
;
3319 const minsym_and_objfile_d
*mob
= b
;
3320 enum minimal_symbol_type ta
= MSYMBOL_TYPE (moa
->minsym
);
3321 enum minimal_symbol_type tb
= MSYMBOL_TYPE (mob
->minsym
);
3323 return classify_mtype (ta
) - classify_mtype (tb
);
3326 /* Callback for iterate_over_minimal_symbols that adds the symbol to
3330 add_minsym (struct minimal_symbol
*minsym
, void *d
)
3332 struct collect_minsyms
*info
= d
;
3333 minsym_and_objfile_d mo
;
3335 /* Exclude data symbols when looking for breakpoint locations. */
3336 if (!info
->list_mode
)
3337 switch (minsym
->type
)
3339 case mst_slot_got_plt
:
3346 /* Make sure this minsym is not a function descriptor
3347 before we decide to discard it. */
3348 struct gdbarch
*gdbarch
= info
->objfile
->gdbarch
;
3349 CORE_ADDR addr
= gdbarch_convert_from_func_ptr_addr
3350 (gdbarch
, SYMBOL_VALUE_ADDRESS (minsym
),
3353 if (addr
== SYMBOL_VALUE_ADDRESS (minsym
))
3359 mo
.objfile
= info
->objfile
;
3360 VEC_safe_push (minsym_and_objfile_d
, info
->msyms
, &mo
);
3363 /* Search minimal symbols in all objfiles for NAME. If SEARCH_PSPACE
3364 is not NULL, the search is restricted to just that program
3368 search_minsyms_for_name (struct collect_info
*info
, const char *name
,
3369 struct program_space
*search_pspace
)
3371 struct objfile
*objfile
;
3372 struct program_space
*pspace
;
3374 ALL_PSPACES (pspace
)
3376 struct collect_minsyms local
;
3377 struct cleanup
*cleanup
;
3379 if (search_pspace
!= NULL
&& search_pspace
!= pspace
)
3381 if (pspace
->executing_startup
)
3384 set_current_program_space (pspace
);
3386 memset (&local
, 0, sizeof (local
));
3387 local
.funfirstline
= info
->state
->funfirstline
;
3388 local
.list_mode
= info
->state
->list_mode
;
3390 cleanup
= make_cleanup (VEC_cleanup (minsym_and_objfile_d
),
3393 ALL_OBJFILES (objfile
)
3395 local
.objfile
= objfile
;
3396 iterate_over_minimal_symbols (objfile
, name
, add_minsym
, &local
);
3399 if (!VEC_empty (minsym_and_objfile_d
, local
.msyms
))
3403 minsym_and_objfile_d
*item
;
3405 qsort (VEC_address (minsym_and_objfile_d
, local
.msyms
),
3406 VEC_length (minsym_and_objfile_d
, local
.msyms
),
3407 sizeof (minsym_and_objfile_d
),
3410 /* Now the minsyms are in classification order. So, we walk
3411 over them and process just the minsyms with the same
3412 classification as the very first minsym in the list. */
3413 item
= VEC_index (minsym_and_objfile_d
, local
.msyms
, 0);
3414 classification
= classify_mtype (MSYMBOL_TYPE (item
->minsym
));
3417 VEC_iterate (minsym_and_objfile_d
, local
.msyms
, ix
, item
);
3420 if (classify_mtype (MSYMBOL_TYPE (item
->minsym
)) != classification
)
3423 VEC_safe_push (minsym_and_objfile_d
,
3424 info
->result
.minimal_symbols
, item
);
3428 do_cleanups (cleanup
);
3432 /* A helper function to add all symbols matching NAME to INFO. If
3433 PSPACE is not NULL, the search is restricted to just that program
3437 add_matching_symbols_to_info (const char *name
,
3438 struct collect_info
*info
,
3439 struct program_space
*pspace
)
3444 for (ix
= 0; VEC_iterate (symtab_p
, info
->file_symtabs
, ix
, elt
); ++ix
)
3448 iterate_over_all_matching_symtabs (info
->state
, name
, VAR_DOMAIN
,
3449 collect_symbols
, info
,
3451 search_minsyms_for_name (info
, name
, pspace
);
3453 else if (pspace
== NULL
|| pspace
== SYMTAB_PSPACE (elt
))
3455 /* Program spaces that are executing startup should have
3456 been filtered out earlier. */
3457 gdb_assert (!SYMTAB_PSPACE (elt
)->executing_startup
);
3458 set_current_program_space (SYMTAB_PSPACE (elt
));
3459 LA_ITERATE_OVER_SYMBOLS (get_search_block (elt
), name
,
3460 VAR_DOMAIN
, collect_symbols
,
3468 /* Now come some functions that are called from multiple places within
3472 symbol_to_sal (struct symtab_and_line
*result
,
3473 int funfirstline
, struct symbol
*sym
)
3475 if (SYMBOL_CLASS (sym
) == LOC_BLOCK
)
3477 *result
= find_function_start_sal (sym
, funfirstline
);
3482 if (SYMBOL_CLASS (sym
) == LOC_LABEL
&& SYMBOL_VALUE_ADDRESS (sym
) != 0)
3485 result
->symtab
= SYMBOL_SYMTAB (sym
);
3486 result
->line
= SYMBOL_LINE (sym
);
3487 result
->pc
= SYMBOL_VALUE_ADDRESS (sym
);
3488 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3489 result
->explicit_pc
= 1;
3492 else if (funfirstline
)
3496 else if (SYMBOL_LINE (sym
) != 0)
3498 /* We know its line number. */
3500 result
->symtab
= SYMBOL_SYMTAB (sym
);
3501 result
->line
= SYMBOL_LINE (sym
);
3502 result
->pspace
= SYMTAB_PSPACE (SYMBOL_SYMTAB (sym
));
3510 /* See the comment in linespec.h. */
3513 init_linespec_result (struct linespec_result
*lr
)
3515 memset (lr
, 0, sizeof (*lr
));
3518 /* See the comment in linespec.h. */
3521 destroy_linespec_result (struct linespec_result
*ls
)
3524 struct linespec_sals
*lsal
;
3526 xfree (ls
->addr_string
);
3527 for (i
= 0; VEC_iterate (linespec_sals
, ls
->sals
, i
, lsal
); ++i
)
3529 xfree (lsal
->canonical
);
3530 xfree (lsal
->sals
.sals
);
3532 VEC_free (linespec_sals
, ls
->sals
);
3535 /* Cleanup function for a linespec_result. */
3538 cleanup_linespec_result (void *a
)
3540 destroy_linespec_result (a
);
3543 /* See the comment in linespec.h. */
3546 make_cleanup_destroy_linespec_result (struct linespec_result
*ls
)
3548 return make_cleanup (cleanup_linespec_result
, ls
);