Commit | Line | Data |
---|---|---|
c906108c | 1 | /* Parse expressions for GDB. |
c4a172b5 | 2 | |
3666a048 | 3 | Copyright (C) 1986-2021 Free Software Foundation, Inc. |
c4a172b5 | 4 | |
c906108c SS |
5 | Modified from expread.y by the Department of Computer Science at the |
6 | State University of New York at Buffalo, 1991. | |
7 | ||
c5aa993b | 8 | This file is part of GDB. |
c906108c | 9 | |
c5aa993b JM |
10 | This program is free software; you can redistribute it and/or modify |
11 | it under the terms of the GNU General Public License as published by | |
a9762ec7 | 12 | the Free Software Foundation; either version 3 of the License, or |
c5aa993b | 13 | (at your option) any later version. |
c906108c | 14 | |
c5aa993b JM |
15 | This program is distributed in the hope that it will be useful, |
16 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | GNU General Public License for more details. | |
c906108c | 19 | |
c5aa993b | 20 | You should have received a copy of the GNU General Public License |
a9762ec7 | 21 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
c906108c SS |
22 | |
23 | /* Parse an expression from text in a string, | |
ae0c443d | 24 | and return the result as a struct expression pointer. |
c906108c SS |
25 | That structure contains arithmetic operations in reverse polish, |
26 | with constants represented by operations that are followed by special data. | |
27 | See expression.h for the details of the format. | |
28 | What is important here is that it can be built up sequentially | |
29 | during the process of parsing; the lower levels of the tree always | |
30 | come first in the result. */ | |
c5aa993b | 31 | |
c906108c | 32 | #include "defs.h" |
12c89474 | 33 | #include <ctype.h> |
e17c207e | 34 | #include "arch-utils.h" |
c906108c SS |
35 | #include "symtab.h" |
36 | #include "gdbtypes.h" | |
37 | #include "frame.h" | |
38 | #include "expression.h" | |
39 | #include "value.h" | |
40 | #include "command.h" | |
41 | #include "language.h" | |
42 | #include "parser-defs.h" | |
43 | #include "gdbcmd.h" | |
c5aa993b | 44 | #include "symfile.h" /* for overlay functions */ |
f57d151a | 45 | #include "inferior.h" |
f69fdf9b | 46 | #include "target-float.h" |
fe898f56 | 47 | #include "block.h" |
59f92a09 | 48 | #include "source.h" |
9e35dae4 | 49 | #include "objfiles.h" |
029a67e4 | 50 | #include "user-regs.h" |
325fac50 | 51 | #include <algorithm> |
268a13a5 | 52 | #include "gdbsupport/gdb_optional.h" |
e2305d34 | 53 | |
5f9769d1 PH |
54 | /* Standard set of definitions for printing, dumping, prefixifying, |
55 | * and evaluating expressions. */ | |
56 | ||
57 | const struct exp_descriptor exp_descriptor_standard = | |
58 | { | |
59 | print_subexp_standard, | |
60 | operator_length_standard, | |
c0201579 | 61 | operator_check_standard, |
5f9769d1 PH |
62 | dump_subexp_body_standard, |
63 | evaluate_subexp_standard | |
64 | }; | |
c906108c | 65 | \f |
ccce17b0 | 66 | static unsigned int expressiondebug = 0; |
920d2a44 AC |
67 | static void |
68 | show_expressiondebug (struct ui_file *file, int from_tty, | |
69 | struct cmd_list_element *c, const char *value) | |
70 | { | |
71 | fprintf_filtered (file, _("Expression debugging is %s.\n"), value); | |
72 | } | |
c906108c | 73 | |
92981e24 | 74 | |
491144b5 CB |
75 | /* True if an expression parser should set yydebug. */ |
76 | bool parser_debug; | |
92981e24 TT |
77 | |
78 | static void | |
79 | show_parserdebug (struct ui_file *file, int from_tty, | |
80 | struct cmd_list_element *c, const char *value) | |
81 | { | |
82 | fprintf_filtered (file, _("Parser debugging is %s.\n"), value); | |
83 | } | |
84 | ||
85 | ||
65d12d83 | 86 | static int prefixify_subexp (struct expression *, struct expression *, int, |
2a612529 | 87 | int, int); |
c906108c | 88 | |
4d01a485 PA |
89 | static expression_up parse_exp_in_context (const char **, CORE_ADDR, |
90 | const struct block *, int, | |
35c1ab60 | 91 | bool, int *, |
699bd4cf | 92 | innermost_block_tracker *, |
2a612529 | 93 | expr_completion_state *); |
e85c3284 | 94 | |
37eedb39 | 95 | static void increase_expout_size (struct expr_builder *ps, size_t lenelt); |
e3980ce2 TT |
96 | |
97 | ||
aee1fcdf AB |
98 | /* Documented at it's declaration. */ |
99 | ||
100 | void | |
ae451627 AB |
101 | innermost_block_tracker::update (const struct block *b, |
102 | innermost_block_tracker_types t) | |
aee1fcdf | 103 | { |
ae451627 AB |
104 | if ((m_types & t) != 0 |
105 | && (m_innermost_block == NULL | |
106 | || contained_in (b, m_innermost_block))) | |
aee1fcdf AB |
107 | m_innermost_block = b; |
108 | } | |
109 | ||
c906108c | 110 | \f |
c906108c | 111 | |
55aa24fb | 112 | /* See definition in parser-defs.h. */ |
2dbca4d6 | 113 | |
37eedb39 | 114 | expr_builder::expr_builder (const struct language_defn *lang, |
e9d9f57e | 115 | struct gdbarch *gdbarch) |
1201a264 | 116 | : expout_size (10), |
77bf7e99 | 117 | expout (new expression (lang, gdbarch, expout_size)), |
e9d9f57e | 118 | expout_ptr (0) |
2dbca4d6 | 119 | { |
2dbca4d6 SDJ |
120 | } |
121 | ||
e9d9f57e | 122 | expression_up |
37eedb39 | 123 | expr_builder::release () |
2dbca4d6 SDJ |
124 | { |
125 | /* Record the actual number of expression elements, and then | |
126 | reallocate the expression memory so that we free up any | |
127 | excess elements. */ | |
128 | ||
e9d9f57e | 129 | expout->nelts = expout_ptr; |
77bf7e99 | 130 | expout->resize (expout_ptr); |
e9d9f57e TT |
131 | |
132 | return std::move (expout); | |
2dbca4d6 SDJ |
133 | } |
134 | ||
77bf7e99 TT |
135 | expression::expression (const struct language_defn *lang, struct gdbarch *arch, |
136 | size_t n) | |
137 | : language_defn (lang), | |
138 | gdbarch (arch), | |
139 | elts (nullptr) | |
140 | { | |
141 | resize (n); | |
142 | } | |
143 | ||
144 | expression::~expression () | |
145 | { | |
146 | xfree (elts); | |
147 | } | |
148 | ||
149 | void | |
150 | expression::resize (size_t n) | |
151 | { | |
152 | elts = XRESIZEVAR (union exp_element, elts, EXP_ELEM_TO_BYTES (n)); | |
153 | } | |
154 | ||
410a0ff2 SDJ |
155 | /* This page contains the functions for adding data to the struct expression |
156 | being constructed. */ | |
157 | ||
c906108c SS |
158 | /* Add one element to the end of the expression. */ |
159 | ||
160 | /* To avoid a bug in the Sun 4 compiler, we pass things that can fit into | |
0df8b418 | 161 | a register through here. */ |
c906108c | 162 | |
ae0c443d | 163 | static void |
37eedb39 | 164 | write_exp_elt (struct expr_builder *ps, const union exp_element *expelt) |
c906108c | 165 | { |
410a0ff2 | 166 | if (ps->expout_ptr >= ps->expout_size) |
c906108c | 167 | { |
410a0ff2 | 168 | ps->expout_size *= 2; |
77bf7e99 | 169 | ps->expout->resize (ps->expout_size); |
c906108c | 170 | } |
410a0ff2 | 171 | ps->expout->elts[ps->expout_ptr++] = *expelt; |
c906108c SS |
172 | } |
173 | ||
174 | void | |
37eedb39 | 175 | write_exp_elt_opcode (struct expr_builder *ps, enum exp_opcode expelt) |
c906108c SS |
176 | { |
177 | union exp_element tmp; | |
178 | ||
ad3bbd48 | 179 | memset (&tmp, 0, sizeof (union exp_element)); |
c906108c | 180 | tmp.opcode = expelt; |
410a0ff2 | 181 | write_exp_elt (ps, &tmp); |
c906108c SS |
182 | } |
183 | ||
184 | void | |
37eedb39 | 185 | write_exp_elt_sym (struct expr_builder *ps, struct symbol *expelt) |
c906108c SS |
186 | { |
187 | union exp_element tmp; | |
188 | ||
ad3bbd48 | 189 | memset (&tmp, 0, sizeof (union exp_element)); |
c906108c | 190 | tmp.symbol = expelt; |
410a0ff2 | 191 | write_exp_elt (ps, &tmp); |
c906108c SS |
192 | } |
193 | ||
cb8c24b6 | 194 | static void |
37eedb39 | 195 | write_exp_elt_msym (struct expr_builder *ps, minimal_symbol *expelt) |
74ea4be4 PA |
196 | { |
197 | union exp_element tmp; | |
198 | ||
199 | memset (&tmp, 0, sizeof (union exp_element)); | |
200 | tmp.msymbol = expelt; | |
201 | write_exp_elt (ps, &tmp); | |
202 | } | |
203 | ||
c906108c | 204 | void |
37eedb39 | 205 | write_exp_elt_block (struct expr_builder *ps, const struct block *b) |
c906108c SS |
206 | { |
207 | union exp_element tmp; | |
ad3bbd48 | 208 | |
09153d55 | 209 | memset (&tmp, 0, sizeof (union exp_element)); |
c906108c | 210 | tmp.block = b; |
410a0ff2 | 211 | write_exp_elt (ps, &tmp); |
c906108c SS |
212 | } |
213 | ||
9e35dae4 | 214 | void |
37eedb39 | 215 | write_exp_elt_objfile (struct expr_builder *ps, struct objfile *objfile) |
9e35dae4 DJ |
216 | { |
217 | union exp_element tmp; | |
ad3bbd48 | 218 | |
9e35dae4 DJ |
219 | memset (&tmp, 0, sizeof (union exp_element)); |
220 | tmp.objfile = objfile; | |
410a0ff2 | 221 | write_exp_elt (ps, &tmp); |
9e35dae4 DJ |
222 | } |
223 | ||
c906108c | 224 | void |
37eedb39 | 225 | write_exp_elt_longcst (struct expr_builder *ps, LONGEST expelt) |
c906108c SS |
226 | { |
227 | union exp_element tmp; | |
228 | ||
ad3bbd48 | 229 | memset (&tmp, 0, sizeof (union exp_element)); |
c906108c | 230 | tmp.longconst = expelt; |
410a0ff2 | 231 | write_exp_elt (ps, &tmp); |
c906108c SS |
232 | } |
233 | ||
234 | void | |
37eedb39 | 235 | write_exp_elt_floatcst (struct expr_builder *ps, const gdb_byte expelt[16]) |
27bc4d80 TJB |
236 | { |
237 | union exp_element tmp; | |
238 | int index; | |
239 | ||
240 | for (index = 0; index < 16; index++) | |
edd079d9 | 241 | tmp.floatconst[index] = expelt[index]; |
27bc4d80 | 242 | |
410a0ff2 | 243 | write_exp_elt (ps, &tmp); |
27bc4d80 TJB |
244 | } |
245 | ||
c906108c | 246 | void |
37eedb39 | 247 | write_exp_elt_type (struct expr_builder *ps, struct type *expelt) |
c906108c SS |
248 | { |
249 | union exp_element tmp; | |
250 | ||
ad3bbd48 | 251 | memset (&tmp, 0, sizeof (union exp_element)); |
c906108c | 252 | tmp.type = expelt; |
410a0ff2 | 253 | write_exp_elt (ps, &tmp); |
c906108c SS |
254 | } |
255 | ||
256 | void | |
37eedb39 | 257 | write_exp_elt_intern (struct expr_builder *ps, struct internalvar *expelt) |
c906108c SS |
258 | { |
259 | union exp_element tmp; | |
260 | ||
ad3bbd48 | 261 | memset (&tmp, 0, sizeof (union exp_element)); |
c906108c | 262 | tmp.internalvar = expelt; |
410a0ff2 | 263 | write_exp_elt (ps, &tmp); |
c906108c SS |
264 | } |
265 | ||
266 | /* Add a string constant to the end of the expression. | |
267 | ||
268 | String constants are stored by first writing an expression element | |
269 | that contains the length of the string, then stuffing the string | |
270 | constant itself into however many expression elements are needed | |
271 | to hold it, and then writing another expression element that contains | |
0df8b418 | 272 | the length of the string. I.e. an expression element at each end of |
c906108c SS |
273 | the string records the string length, so you can skip over the |
274 | expression elements containing the actual string bytes from either | |
275 | end of the string. Note that this also allows gdb to handle | |
276 | strings with embedded null bytes, as is required for some languages. | |
277 | ||
278 | Don't be fooled by the fact that the string is null byte terminated, | |
bc3b79fd | 279 | this is strictly for the convenience of debugging gdb itself. |
c906108c SS |
280 | Gdb does not depend up the string being null terminated, since the |
281 | actual length is recorded in expression elements at each end of the | |
282 | string. The null byte is taken into consideration when computing how | |
283 | many expression elements are required to hold the string constant, of | |
0df8b418 | 284 | course. */ |
c906108c SS |
285 | |
286 | ||
287 | void | |
37eedb39 | 288 | write_exp_string (struct expr_builder *ps, struct stoken str) |
c906108c | 289 | { |
f86f5ca3 | 290 | int len = str.length; |
410a0ff2 | 291 | size_t lenelt; |
f86f5ca3 | 292 | char *strdata; |
c906108c SS |
293 | |
294 | /* Compute the number of expression elements required to hold the string | |
295 | (including a null byte terminator), along with one expression element | |
296 | at each end to record the actual string length (not including the | |
0df8b418 | 297 | null byte terminator). */ |
c906108c SS |
298 | |
299 | lenelt = 2 + BYTES_TO_EXP_ELEM (len + 1); | |
300 | ||
410a0ff2 | 301 | increase_expout_size (ps, lenelt); |
c906108c SS |
302 | |
303 | /* Write the leading length expression element (which advances the current | |
304 | expression element index), then write the string constant followed by a | |
305 | terminating null byte, and then write the trailing length expression | |
0df8b418 | 306 | element. */ |
c906108c | 307 | |
410a0ff2 SDJ |
308 | write_exp_elt_longcst (ps, (LONGEST) len); |
309 | strdata = (char *) &ps->expout->elts[ps->expout_ptr]; | |
c906108c SS |
310 | memcpy (strdata, str.ptr, len); |
311 | *(strdata + len) = '\0'; | |
410a0ff2 SDJ |
312 | ps->expout_ptr += lenelt - 2; |
313 | write_exp_elt_longcst (ps, (LONGEST) len); | |
c906108c SS |
314 | } |
315 | ||
6c7a06a3 TT |
316 | /* Add a vector of string constants to the end of the expression. |
317 | ||
318 | This adds an OP_STRING operation, but encodes the contents | |
319 | differently from write_exp_string. The language is expected to | |
320 | handle evaluation of this expression itself. | |
321 | ||
322 | After the usual OP_STRING header, TYPE is written into the | |
323 | expression as a long constant. The interpretation of this field is | |
324 | up to the language evaluator. | |
325 | ||
326 | Next, each string in VEC is written. The length is written as a | |
327 | long constant, followed by the contents of the string. */ | |
328 | ||
329 | void | |
37eedb39 | 330 | write_exp_string_vector (struct expr_builder *ps, int type, |
410a0ff2 | 331 | struct stoken_vector *vec) |
6c7a06a3 | 332 | { |
410a0ff2 SDJ |
333 | int i, len; |
334 | size_t n_slots; | |
6c7a06a3 TT |
335 | |
336 | /* Compute the size. We compute the size in number of slots to | |
337 | avoid issues with string padding. */ | |
338 | n_slots = 0; | |
339 | for (i = 0; i < vec->len; ++i) | |
340 | { | |
341 | /* One slot for the length of this element, plus the number of | |
342 | slots needed for this string. */ | |
343 | n_slots += 1 + BYTES_TO_EXP_ELEM (vec->tokens[i].length); | |
344 | } | |
345 | ||
346 | /* One more slot for the type of the string. */ | |
347 | ++n_slots; | |
348 | ||
349 | /* Now compute a phony string length. */ | |
350 | len = EXP_ELEM_TO_BYTES (n_slots) - 1; | |
351 | ||
352 | n_slots += 4; | |
410a0ff2 | 353 | increase_expout_size (ps, n_slots); |
6c7a06a3 | 354 | |
410a0ff2 SDJ |
355 | write_exp_elt_opcode (ps, OP_STRING); |
356 | write_exp_elt_longcst (ps, len); | |
357 | write_exp_elt_longcst (ps, type); | |
6c7a06a3 TT |
358 | |
359 | for (i = 0; i < vec->len; ++i) | |
360 | { | |
410a0ff2 SDJ |
361 | write_exp_elt_longcst (ps, vec->tokens[i].length); |
362 | memcpy (&ps->expout->elts[ps->expout_ptr], vec->tokens[i].ptr, | |
6c7a06a3 | 363 | vec->tokens[i].length); |
410a0ff2 | 364 | ps->expout_ptr += BYTES_TO_EXP_ELEM (vec->tokens[i].length); |
6c7a06a3 TT |
365 | } |
366 | ||
410a0ff2 SDJ |
367 | write_exp_elt_longcst (ps, len); |
368 | write_exp_elt_opcode (ps, OP_STRING); | |
6c7a06a3 TT |
369 | } |
370 | ||
c906108c SS |
371 | /* Add a bitstring constant to the end of the expression. |
372 | ||
373 | Bitstring constants are stored by first writing an expression element | |
374 | that contains the length of the bitstring (in bits), then stuffing the | |
375 | bitstring constant itself into however many expression elements are | |
376 | needed to hold it, and then writing another expression element that | |
0df8b418 | 377 | contains the length of the bitstring. I.e. an expression element at |
c906108c SS |
378 | each end of the bitstring records the bitstring length, so you can skip |
379 | over the expression elements containing the actual bitstring bytes from | |
0df8b418 | 380 | either end of the bitstring. */ |
c906108c SS |
381 | |
382 | void | |
37eedb39 | 383 | write_exp_bitstring (struct expr_builder *ps, struct stoken str) |
c906108c | 384 | { |
f86f5ca3 PH |
385 | int bits = str.length; /* length in bits */ |
386 | int len = (bits + HOST_CHAR_BIT - 1) / HOST_CHAR_BIT; | |
410a0ff2 | 387 | size_t lenelt; |
f86f5ca3 | 388 | char *strdata; |
c906108c SS |
389 | |
390 | /* Compute the number of expression elements required to hold the bitstring, | |
391 | along with one expression element at each end to record the actual | |
0df8b418 | 392 | bitstring length in bits. */ |
c906108c SS |
393 | |
394 | lenelt = 2 + BYTES_TO_EXP_ELEM (len); | |
395 | ||
410a0ff2 | 396 | increase_expout_size (ps, lenelt); |
c906108c SS |
397 | |
398 | /* Write the leading length expression element (which advances the current | |
399 | expression element index), then write the bitstring constant, and then | |
0df8b418 | 400 | write the trailing length expression element. */ |
c906108c | 401 | |
410a0ff2 SDJ |
402 | write_exp_elt_longcst (ps, (LONGEST) bits); |
403 | strdata = (char *) &ps->expout->elts[ps->expout_ptr]; | |
c906108c | 404 | memcpy (strdata, str.ptr, len); |
410a0ff2 SDJ |
405 | ps->expout_ptr += lenelt - 2; |
406 | write_exp_elt_longcst (ps, (LONGEST) bits); | |
c906108c SS |
407 | } |
408 | ||
74ea4be4 PA |
409 | /* Return the type of MSYMBOL, a minimal symbol of OBJFILE. If |
410 | ADDRESS_P is not NULL, set it to the MSYMBOL's resolved | |
411 | address. */ | |
c906108c | 412 | |
74ea4be4 PA |
413 | type * |
414 | find_minsym_type_and_address (minimal_symbol *msymbol, | |
415 | struct objfile *objfile, | |
416 | CORE_ADDR *address_p) | |
c906108c | 417 | { |
74ea4be4 | 418 | bound_minimal_symbol bound_msym = {msymbol, objfile}; |
efd66ac6 | 419 | struct obj_section *section = MSYMBOL_OBJ_SECTION (objfile, msymbol); |
712f90be | 420 | enum minimal_symbol_type type = MSYMBOL_TYPE (msymbol); |
bccdca4a | 421 | |
fbd1b771 JK |
422 | bool is_tls = (section != NULL |
423 | && section->the_bfd_section->flags & SEC_THREAD_LOCAL); | |
424 | ||
bccdca4a UW |
425 | /* The minimal symbol might point to a function descriptor; |
426 | resolve it to the actual code address instead. */ | |
f50776aa PA |
427 | CORE_ADDR addr; |
428 | if (is_tls) | |
bccdca4a | 429 | { |
f50776aa PA |
430 | /* Addresses of TLS symbols are really offsets into a |
431 | per-objfile/per-thread storage block. */ | |
432 | addr = MSYMBOL_VALUE_RAW_ADDRESS (bound_msym.minsym); | |
433 | } | |
434 | else if (msymbol_is_function (objfile, msymbol, &addr)) | |
435 | { | |
436 | if (addr != BMSYMBOL_VALUE_ADDRESS (bound_msym)) | |
0875794a | 437 | { |
f50776aa PA |
438 | /* This means we resolved a function descriptor, and we now |
439 | have an address for a code/text symbol instead of a data | |
440 | symbol. */ | |
441 | if (MSYMBOL_TYPE (msymbol) == mst_data_gnu_ifunc) | |
442 | type = mst_text_gnu_ifunc; | |
443 | else | |
444 | type = mst_text; | |
445 | section = NULL; | |
0875794a | 446 | } |
bccdca4a | 447 | } |
f50776aa PA |
448 | else |
449 | addr = BMSYMBOL_VALUE_ADDRESS (bound_msym); | |
bccdca4a UW |
450 | |
451 | if (overlay_debugging) | |
714835d5 | 452 | addr = symbol_overlayed_address (addr, section); |
c906108c | 453 | |
fbd1b771 | 454 | if (is_tls) |
9e35dae4 | 455 | { |
74ea4be4 PA |
456 | /* Skip translation if caller does not need the address. */ |
457 | if (address_p != NULL) | |
458 | *address_p = target_translate_tls_address (objfile, addr); | |
459 | return objfile_type (objfile)->nodebug_tls_symbol; | |
9e35dae4 DJ |
460 | } |
461 | ||
74ea4be4 PA |
462 | if (address_p != NULL) |
463 | *address_p = addr; | |
464 | ||
bccdca4a | 465 | switch (type) |
c906108c SS |
466 | { |
467 | case mst_text: | |
468 | case mst_file_text: | |
469 | case mst_solib_trampoline: | |
74ea4be4 | 470 | return objfile_type (objfile)->nodebug_text_symbol; |
c906108c | 471 | |
0875794a | 472 | case mst_text_gnu_ifunc: |
74ea4be4 | 473 | return objfile_type (objfile)->nodebug_text_gnu_ifunc_symbol; |
0875794a | 474 | |
c906108c SS |
475 | case mst_data: |
476 | case mst_file_data: | |
477 | case mst_bss: | |
478 | case mst_file_bss: | |
74ea4be4 | 479 | return objfile_type (objfile)->nodebug_data_symbol; |
c906108c | 480 | |
0875794a | 481 | case mst_slot_got_plt: |
74ea4be4 | 482 | return objfile_type (objfile)->nodebug_got_plt_symbol; |
0875794a | 483 | |
c906108c | 484 | default: |
74ea4be4 | 485 | return objfile_type (objfile)->nodebug_unknown_symbol; |
c906108c | 486 | } |
74ea4be4 PA |
487 | } |
488 | ||
489 | /* Add the appropriate elements for a minimal symbol to the end of | |
490 | the expression. */ | |
491 | ||
492 | void | |
37eedb39 | 493 | write_exp_msymbol (struct expr_builder *ps, |
74ea4be4 PA |
494 | struct bound_minimal_symbol bound_msym) |
495 | { | |
496 | write_exp_elt_opcode (ps, OP_VAR_MSYM_VALUE); | |
497 | write_exp_elt_objfile (ps, bound_msym.objfile); | |
498 | write_exp_elt_msym (ps, bound_msym.minsym); | |
499 | write_exp_elt_opcode (ps, OP_VAR_MSYM_VALUE); | |
c906108c | 500 | } |
65d12d83 | 501 | |
2a612529 | 502 | /* See parser-defs.h. */ |
65d12d83 TT |
503 | |
504 | void | |
2a612529 | 505 | parser_state::mark_struct_expression () |
65d12d83 | 506 | { |
2f68a895 | 507 | gdb_assert (parse_completion |
2a612529 TT |
508 | && (m_completion_state.expout_tag_completion_type |
509 | == TYPE_CODE_UNDEF)); | |
510 | m_completion_state.expout_last_struct = expout_ptr; | |
65d12d83 TT |
511 | } |
512 | ||
2f68a895 TT |
513 | /* Indicate that the current parser invocation is completing a tag. |
514 | TAG is the type code of the tag, and PTR and LENGTH represent the | |
515 | start of the tag name. */ | |
516 | ||
517 | void | |
2a612529 TT |
518 | parser_state::mark_completion_tag (enum type_code tag, const char *ptr, |
519 | int length) | |
2f68a895 TT |
520 | { |
521 | gdb_assert (parse_completion | |
2a612529 TT |
522 | && (m_completion_state.expout_tag_completion_type |
523 | == TYPE_CODE_UNDEF) | |
524 | && m_completion_state.expout_completion_name == NULL | |
525 | && m_completion_state.expout_last_struct == -1); | |
2f68a895 TT |
526 | gdb_assert (tag == TYPE_CODE_UNION |
527 | || tag == TYPE_CODE_STRUCT | |
2f68a895 | 528 | || tag == TYPE_CODE_ENUM); |
2a612529 TT |
529 | m_completion_state.expout_tag_completion_type = tag; |
530 | m_completion_state.expout_completion_name.reset (xstrndup (ptr, length)); | |
2f68a895 TT |
531 | } |
532 | ||
c906108c SS |
533 | \f |
534 | /* Recognize tokens that start with '$'. These include: | |
535 | ||
c5aa993b JM |
536 | $regname A native register name or a "standard |
537 | register name". | |
c906108c | 538 | |
c5aa993b JM |
539 | $variable A convenience variable with a name chosen |
540 | by the user. | |
c906108c | 541 | |
c5aa993b JM |
542 | $digits Value history with index <digits>, starting |
543 | from the first value which has index 1. | |
c906108c | 544 | |
c5aa993b | 545 | $$digits Value history with index <digits> relative |
0df8b418 | 546 | to the last value. I.e. $$0 is the last |
c5aa993b JM |
547 | value, $$1 is the one previous to that, $$2 |
548 | is the one previous to $$1, etc. | |
c906108c | 549 | |
c5aa993b | 550 | $ | $0 | $$0 The last value in the value history. |
c906108c | 551 | |
c5aa993b | 552 | $$ An abbreviation for the second to the last |
0df8b418 | 553 | value in the value history, I.e. $$1 */ |
c906108c SS |
554 | |
555 | void | |
1e58a4a4 | 556 | write_dollar_variable (struct parser_state *ps, struct stoken str) |
c906108c | 557 | { |
d12307c1 | 558 | struct block_symbol sym; |
7c7b6655 | 559 | struct bound_minimal_symbol msym; |
c4a3d09a | 560 | struct internalvar *isym = NULL; |
61f4b350 | 561 | std::string copy; |
d7318818 | 562 | |
c906108c | 563 | /* Handle the tokens $digits; also $ (short for $0) and $$ (short for $$1) |
0df8b418 | 564 | and $$digits (equivalent to $<-digits> if you could type that). */ |
c906108c | 565 | |
c906108c SS |
566 | int negate = 0; |
567 | int i = 1; | |
568 | /* Double dollar means negate the number and add -1 as well. | |
569 | Thus $$ alone means -1. */ | |
570 | if (str.length >= 2 && str.ptr[1] == '$') | |
571 | { | |
572 | negate = 1; | |
573 | i = 2; | |
574 | } | |
575 | if (i == str.length) | |
576 | { | |
0df8b418 | 577 | /* Just dollars (one or two). */ |
c5aa993b | 578 | i = -negate; |
c906108c SS |
579 | goto handle_last; |
580 | } | |
581 | /* Is the rest of the token digits? */ | |
582 | for (; i < str.length; i++) | |
583 | if (!(str.ptr[i] >= '0' && str.ptr[i] <= '9')) | |
584 | break; | |
585 | if (i == str.length) | |
586 | { | |
587 | i = atoi (str.ptr + 1 + negate); | |
588 | if (negate) | |
c5aa993b | 589 | i = -i; |
c906108c SS |
590 | goto handle_last; |
591 | } | |
c5aa993b | 592 | |
c906108c SS |
593 | /* Handle tokens that refer to machine registers: |
594 | $ followed by a register name. */ | |
fa9f5be6 | 595 | i = user_reg_map_name_to_regnum (ps->gdbarch (), |
029a67e4 | 596 | str.ptr + 1, str.length - 1); |
c5aa993b | 597 | if (i >= 0) |
c906108c SS |
598 | goto handle_register; |
599 | ||
c4a3d09a MF |
600 | /* Any names starting with $ are probably debugger internal variables. */ |
601 | ||
61f4b350 TT |
602 | copy = copy_name (str); |
603 | isym = lookup_only_internalvar (copy.c_str () + 1); | |
c4a3d09a MF |
604 | if (isym) |
605 | { | |
410a0ff2 SDJ |
606 | write_exp_elt_opcode (ps, OP_INTERNALVAR); |
607 | write_exp_elt_intern (ps, isym); | |
608 | write_exp_elt_opcode (ps, OP_INTERNALVAR); | |
c4a3d09a MF |
609 | return; |
610 | } | |
611 | ||
d7318818 | 612 | /* On some systems, such as HP-UX and hppa-linux, certain system routines |
0df8b418 | 613 | have names beginning with $ or $$. Check for those, first. */ |
d7318818 | 614 | |
61f4b350 | 615 | sym = lookup_symbol (copy.c_str (), NULL, VAR_DOMAIN, NULL); |
d12307c1 | 616 | if (sym.symbol) |
d7318818 | 617 | { |
410a0ff2 | 618 | write_exp_elt_opcode (ps, OP_VAR_VALUE); |
d12307c1 PMR |
619 | write_exp_elt_block (ps, sym.block); |
620 | write_exp_elt_sym (ps, sym.symbol); | |
410a0ff2 | 621 | write_exp_elt_opcode (ps, OP_VAR_VALUE); |
d7318818 RC |
622 | return; |
623 | } | |
61f4b350 | 624 | msym = lookup_bound_minimal_symbol (copy.c_str ()); |
7c7b6655 | 625 | if (msym.minsym) |
c906108c | 626 | { |
410a0ff2 | 627 | write_exp_msymbol (ps, msym); |
d7318818 | 628 | return; |
c906108c | 629 | } |
c5aa993b | 630 | |
c4a3d09a | 631 | /* Any other names are assumed to be debugger internal variables. */ |
c906108c | 632 | |
410a0ff2 | 633 | write_exp_elt_opcode (ps, OP_INTERNALVAR); |
61f4b350 | 634 | write_exp_elt_intern (ps, create_internalvar (copy.c_str () + 1)); |
410a0ff2 | 635 | write_exp_elt_opcode (ps, OP_INTERNALVAR); |
c906108c | 636 | return; |
c5aa993b | 637 | handle_last: |
410a0ff2 SDJ |
638 | write_exp_elt_opcode (ps, OP_LAST); |
639 | write_exp_elt_longcst (ps, (LONGEST) i); | |
640 | write_exp_elt_opcode (ps, OP_LAST); | |
c906108c | 641 | return; |
c5aa993b | 642 | handle_register: |
410a0ff2 | 643 | write_exp_elt_opcode (ps, OP_REGISTER); |
67f3407f DJ |
644 | str.length--; |
645 | str.ptr++; | |
410a0ff2 SDJ |
646 | write_exp_string (ps, str); |
647 | write_exp_elt_opcode (ps, OP_REGISTER); | |
699bd4cf TT |
648 | ps->block_tracker->update (ps->expression_context_block, |
649 | INNERMOST_BLOCK_FOR_REGISTERS); | |
c906108c SS |
650 | return; |
651 | } | |
652 | ||
653 | ||
d7561cbb KS |
654 | const char * |
655 | find_template_name_end (const char *p) | |
c906108c SS |
656 | { |
657 | int depth = 1; | |
658 | int just_seen_right = 0; | |
659 | int just_seen_colon = 0; | |
660 | int just_seen_space = 0; | |
c5aa993b | 661 | |
c906108c SS |
662 | if (!p || (*p != '<')) |
663 | return 0; | |
664 | ||
665 | while (*++p) | |
666 | { | |
667 | switch (*p) | |
c5aa993b JM |
668 | { |
669 | case '\'': | |
670 | case '\"': | |
671 | case '{': | |
672 | case '}': | |
0df8b418 | 673 | /* In future, may want to allow these?? */ |
c5aa993b JM |
674 | return 0; |
675 | case '<': | |
676 | depth++; /* start nested template */ | |
677 | if (just_seen_colon || just_seen_right || just_seen_space) | |
678 | return 0; /* but not after : or :: or > or space */ | |
679 | break; | |
680 | case '>': | |
681 | if (just_seen_colon || just_seen_right) | |
682 | return 0; /* end a (nested?) template */ | |
683 | just_seen_right = 1; /* but not after : or :: */ | |
684 | if (--depth == 0) /* also disallow >>, insist on > > */ | |
685 | return ++p; /* if outermost ended, return */ | |
686 | break; | |
687 | case ':': | |
688 | if (just_seen_space || (just_seen_colon > 1)) | |
689 | return 0; /* nested class spec coming up */ | |
690 | just_seen_colon++; /* we allow :: but not :::: */ | |
691 | break; | |
692 | case ' ': | |
693 | break; | |
694 | default: | |
695 | if (!((*p >= 'a' && *p <= 'z') || /* allow token chars */ | |
696 | (*p >= 'A' && *p <= 'Z') || | |
697 | (*p >= '0' && *p <= '9') || | |
698 | (*p == '_') || (*p == ',') || /* commas for template args */ | |
699 | (*p == '&') || (*p == '*') || /* pointer and ref types */ | |
700 | (*p == '(') || (*p == ')') || /* function types */ | |
701 | (*p == '[') || (*p == ']'))) /* array types */ | |
702 | return 0; | |
703 | } | |
c906108c | 704 | if (*p != ' ') |
c5aa993b | 705 | just_seen_space = 0; |
c906108c | 706 | if (*p != ':') |
c5aa993b | 707 | just_seen_colon = 0; |
c906108c | 708 | if (*p != '>') |
c5aa993b | 709 | just_seen_right = 0; |
c906108c SS |
710 | } |
711 | return 0; | |
712 | } | |
c5aa993b | 713 | \f |
c906108c | 714 | |
1a4eeb98 | 715 | /* Return a null-terminated temporary copy of the name of a string token. |
c906108c | 716 | |
1a4eeb98 DE |
717 | Tokens that refer to names do so with explicit pointer and length, |
718 | so they can share the storage that lexptr is parsing. | |
719 | When it is necessary to pass a name to a function that expects | |
720 | a null-terminated string, the substring is copied out | |
61f4b350 | 721 | into a separate block of storage. */ |
1a4eeb98 | 722 | |
61f4b350 | 723 | std::string |
fba45db2 | 724 | copy_name (struct stoken token) |
c906108c | 725 | { |
61f4b350 | 726 | return std::string (token.ptr, token.length); |
c906108c SS |
727 | } |
728 | \f | |
55aa24fb SDJ |
729 | |
730 | /* See comments on parser-defs.h. */ | |
731 | ||
732 | int | |
2a612529 | 733 | prefixify_expression (struct expression *expr, int last_struct) |
c906108c | 734 | { |
5e70ee09 | 735 | gdb_assert (expr->nelts > 0); |
77bf7e99 TT |
736 | int len = EXP_ELEM_TO_BYTES (expr->nelts); |
737 | struct expression temp (expr->language_defn, expr->gdbarch, expr->nelts); | |
f86f5ca3 | 738 | int inpos = expr->nelts, outpos = 0; |
c906108c | 739 | |
c906108c | 740 | /* Copy the original expression into temp. */ |
77bf7e99 | 741 | memcpy (temp.elts, expr->elts, len); |
c906108c | 742 | |
77bf7e99 | 743 | return prefixify_subexp (&temp, expr, inpos, outpos, last_struct); |
c906108c SS |
744 | } |
745 | ||
24daaebc PH |
746 | /* Return the number of exp_elements in the postfix subexpression |
747 | of EXPR whose operator is at index ENDPOS - 1 in EXPR. */ | |
c906108c | 748 | |
cf81cf60 | 749 | static int |
f86f5ca3 | 750 | length_of_subexp (struct expression *expr, int endpos) |
24daaebc | 751 | { |
6b4398f7 | 752 | int oplen, args; |
24daaebc PH |
753 | |
754 | operator_length (expr, endpos, &oplen, &args); | |
755 | ||
756 | while (args > 0) | |
757 | { | |
758 | oplen += length_of_subexp (expr, endpos - oplen); | |
759 | args--; | |
760 | } | |
761 | ||
762 | return oplen; | |
763 | } | |
764 | ||
765 | /* Sets *OPLENP to the length of the operator whose (last) index is | |
766 | ENDPOS - 1 in EXPR, and sets *ARGSP to the number of arguments that | |
767 | operator takes. */ | |
768 | ||
769 | void | |
554794dc SDJ |
770 | operator_length (const struct expression *expr, int endpos, int *oplenp, |
771 | int *argsp) | |
5f9769d1 | 772 | { |
5aba6ebe AB |
773 | expr->language_defn->expression_ops ()->operator_length (expr, endpos, |
774 | oplenp, argsp); | |
5f9769d1 PH |
775 | } |
776 | ||
777 | /* Default value for operator_length in exp_descriptor vectors. */ | |
778 | ||
779 | void | |
554794dc | 780 | operator_length_standard (const struct expression *expr, int endpos, |
5f9769d1 | 781 | int *oplenp, int *argsp) |
c906108c | 782 | { |
f86f5ca3 PH |
783 | int oplen = 1; |
784 | int args = 0; | |
f2d8e4c5 | 785 | enum range_flag range_flag; |
f86f5ca3 | 786 | int i; |
c906108c SS |
787 | |
788 | if (endpos < 1) | |
8a3fe4f8 | 789 | error (_("?error in operator_length_standard")); |
c906108c SS |
790 | |
791 | i = (int) expr->elts[endpos - 1].opcode; | |
792 | ||
793 | switch (i) | |
794 | { | |
795 | /* C++ */ | |
796 | case OP_SCOPE: | |
797 | oplen = longest_to_int (expr->elts[endpos - 2].longconst); | |
798 | oplen = 5 + BYTES_TO_EXP_ELEM (oplen + 1); | |
799 | break; | |
800 | ||
801 | case OP_LONG: | |
edd079d9 | 802 | case OP_FLOAT: |
c906108c | 803 | case OP_VAR_VALUE: |
74ea4be4 | 804 | case OP_VAR_MSYM_VALUE: |
c906108c SS |
805 | oplen = 4; |
806 | break; | |
807 | ||
858be34c PA |
808 | case OP_FUNC_STATIC_VAR: |
809 | oplen = longest_to_int (expr->elts[endpos - 2].longconst); | |
810 | oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); | |
811 | args = 1; | |
812 | break; | |
813 | ||
c906108c SS |
814 | case OP_TYPE: |
815 | case OP_BOOL: | |
816 | case OP_LAST: | |
c906108c | 817 | case OP_INTERNALVAR: |
36b11add | 818 | case OP_VAR_ENTRY_VALUE: |
c906108c SS |
819 | oplen = 3; |
820 | break; | |
821 | ||
822 | case OP_COMPLEX: | |
c806c55a | 823 | oplen = 3; |
c906108c | 824 | args = 2; |
c5aa993b | 825 | break; |
c906108c SS |
826 | |
827 | case OP_FUNCALL: | |
c906108c SS |
828 | oplen = 3; |
829 | args = 1 + longest_to_int (expr->elts[endpos - 2].longconst); | |
830 | break; | |
831 | ||
072bba3b | 832 | case TYPE_INSTANCE: |
3693fdb3 | 833 | oplen = 5 + longest_to_int (expr->elts[endpos - 2].longconst); |
072bba3b KS |
834 | args = 1; |
835 | break; | |
836 | ||
0df8b418 | 837 | case OP_OBJC_MSGCALL: /* Objective C message (method) call. */ |
53c551b7 AF |
838 | oplen = 4; |
839 | args = 1 + longest_to_int (expr->elts[endpos - 2].longconst); | |
840 | break; | |
841 | ||
c906108c SS |
842 | case UNOP_MAX: |
843 | case UNOP_MIN: | |
844 | oplen = 3; | |
845 | break; | |
846 | ||
9eaf6705 | 847 | case UNOP_CAST_TYPE: |
4e8f195d TT |
848 | case UNOP_DYNAMIC_CAST: |
849 | case UNOP_REINTERPRET_CAST: | |
9eaf6705 TT |
850 | case UNOP_MEMVAL_TYPE: |
851 | oplen = 1; | |
852 | args = 2; | |
853 | break; | |
854 | ||
855 | case BINOP_VAL: | |
856 | case UNOP_CAST: | |
c5aa993b | 857 | case UNOP_MEMVAL: |
c906108c SS |
858 | oplen = 3; |
859 | args = 1; | |
860 | break; | |
861 | ||
862 | case UNOP_ABS: | |
863 | case UNOP_CAP: | |
864 | case UNOP_CHR: | |
865 | case UNOP_FLOAT: | |
866 | case UNOP_HIGH: | |
867 | case UNOP_ODD: | |
868 | case UNOP_ORD: | |
869 | case UNOP_TRUNC: | |
608b4967 TT |
870 | case OP_TYPEOF: |
871 | case OP_DECLTYPE: | |
6e72ca20 | 872 | case OP_TYPEID: |
c906108c SS |
873 | oplen = 1; |
874 | args = 1; | |
875 | break; | |
876 | ||
7322dca9 SW |
877 | case OP_ADL_FUNC: |
878 | oplen = longest_to_int (expr->elts[endpos - 2].longconst); | |
879 | oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); | |
880 | oplen++; | |
881 | oplen++; | |
882 | break; | |
883 | ||
c906108c SS |
884 | case STRUCTOP_STRUCT: |
885 | case STRUCTOP_PTR: | |
886 | args = 1; | |
887 | /* fall through */ | |
67f3407f | 888 | case OP_REGISTER: |
c906108c SS |
889 | case OP_M2_STRING: |
890 | case OP_STRING: | |
3e43a32a | 891 | case OP_OBJC_NSSTRING: /* Objective C Foundation Class |
0df8b418 MS |
892 | NSString constant. */ |
893 | case OP_OBJC_SELECTOR: /* Objective C "@selector" pseudo-op. */ | |
c906108c | 894 | case OP_NAME: |
c906108c SS |
895 | oplen = longest_to_int (expr->elts[endpos - 2].longconst); |
896 | oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); | |
897 | break; | |
898 | ||
c906108c SS |
899 | case OP_ARRAY: |
900 | oplen = 4; | |
901 | args = longest_to_int (expr->elts[endpos - 2].longconst); | |
902 | args -= longest_to_int (expr->elts[endpos - 3].longconst); | |
903 | args += 1; | |
904 | break; | |
905 | ||
906 | case TERNOP_COND: | |
907 | case TERNOP_SLICE: | |
c906108c SS |
908 | args = 3; |
909 | break; | |
910 | ||
911 | /* Modula-2 */ | |
c5aa993b | 912 | case MULTI_SUBSCRIPT: |
c906108c | 913 | oplen = 3; |
c5aa993b | 914 | args = 1 + longest_to_int (expr->elts[endpos - 2].longconst); |
c906108c SS |
915 | break; |
916 | ||
917 | case BINOP_ASSIGN_MODIFY: | |
918 | oplen = 3; | |
919 | args = 2; | |
920 | break; | |
921 | ||
922 | /* C++ */ | |
923 | case OP_THIS: | |
924 | oplen = 2; | |
925 | break; | |
926 | ||
01739a3b | 927 | case OP_RANGE: |
0b4e1325 | 928 | oplen = 3; |
f2d8e4c5 | 929 | range_flag = (enum range_flag) |
aead7601 | 930 | longest_to_int (expr->elts[endpos - 2].longconst); |
0b4e1325 | 931 | |
2f1b18db AB |
932 | /* Assume the range has 2 arguments (low bound and high bound), then |
933 | reduce the argument count if any bounds are set to default. */ | |
934 | args = 2; | |
6b4c676c AB |
935 | if (range_flag & RANGE_HAS_STRIDE) |
936 | ++args; | |
f2d8e4c5 | 937 | if (range_flag & RANGE_LOW_BOUND_DEFAULT) |
2f1b18db | 938 | --args; |
f2d8e4c5 | 939 | if (range_flag & RANGE_HIGH_BOUND_DEFAULT) |
2f1b18db | 940 | --args; |
0b4e1325 WZ |
941 | |
942 | break; | |
943 | ||
c906108c SS |
944 | default: |
945 | args = 1 + (i < (int) BINOP_END); | |
946 | } | |
947 | ||
24daaebc PH |
948 | *oplenp = oplen; |
949 | *argsp = args; | |
c906108c SS |
950 | } |
951 | ||
952 | /* Copy the subexpression ending just before index INEND in INEXPR | |
953 | into OUTEXPR, starting at index OUTBEG. | |
65d12d83 | 954 | In the process, convert it from suffix to prefix form. |
2a612529 | 955 | If LAST_STRUCT is -1, then this function always returns -1. |
65d12d83 | 956 | Otherwise, it returns the index of the subexpression which is the |
2a612529 | 957 | left-hand-side of the expression at LAST_STRUCT. */ |
c906108c | 958 | |
65d12d83 | 959 | static int |
f86f5ca3 | 960 | prefixify_subexp (struct expression *inexpr, |
2a612529 TT |
961 | struct expression *outexpr, int inend, int outbeg, |
962 | int last_struct) | |
c906108c | 963 | { |
24daaebc PH |
964 | int oplen; |
965 | int args; | |
f86f5ca3 | 966 | int i; |
c906108c | 967 | int *arglens; |
65d12d83 | 968 | int result = -1; |
c906108c | 969 | |
24daaebc | 970 | operator_length (inexpr, inend, &oplen, &args); |
c906108c SS |
971 | |
972 | /* Copy the final operator itself, from the end of the input | |
973 | to the beginning of the output. */ | |
974 | inend -= oplen; | |
975 | memcpy (&outexpr->elts[outbeg], &inexpr->elts[inend], | |
976 | EXP_ELEM_TO_BYTES (oplen)); | |
977 | outbeg += oplen; | |
978 | ||
2a612529 | 979 | if (last_struct == inend) |
65d12d83 TT |
980 | result = outbeg - oplen; |
981 | ||
c906108c SS |
982 | /* Find the lengths of the arg subexpressions. */ |
983 | arglens = (int *) alloca (args * sizeof (int)); | |
984 | for (i = args - 1; i >= 0; i--) | |
985 | { | |
986 | oplen = length_of_subexp (inexpr, inend); | |
987 | arglens[i] = oplen; | |
988 | inend -= oplen; | |
989 | } | |
990 | ||
991 | /* Now copy each subexpression, preserving the order of | |
992 | the subexpressions, but prefixifying each one. | |
993 | In this loop, inend starts at the beginning of | |
994 | the expression this level is working on | |
995 | and marches forward over the arguments. | |
996 | outbeg does similarly in the output. */ | |
997 | for (i = 0; i < args; i++) | |
998 | { | |
65d12d83 | 999 | int r; |
ad3bbd48 | 1000 | |
c906108c SS |
1001 | oplen = arglens[i]; |
1002 | inend += oplen; | |
2a612529 | 1003 | r = prefixify_subexp (inexpr, outexpr, inend, outbeg, last_struct); |
65d12d83 TT |
1004 | if (r != -1) |
1005 | { | |
1006 | /* Return immediately. We probably have only parsed a | |
1007 | partial expression, so we don't want to try to reverse | |
1008 | the other operands. */ | |
1009 | return r; | |
1010 | } | |
c906108c SS |
1011 | outbeg += oplen; |
1012 | } | |
65d12d83 TT |
1013 | |
1014 | return result; | |
c906108c SS |
1015 | } |
1016 | \f | |
c906108c | 1017 | /* Read an expression from the string *STRINGPTR points to, |
ae0c443d | 1018 | parse it, and return a pointer to a struct expression that we malloc. |
c906108c SS |
1019 | Use block BLOCK as the lexical context for variable names; |
1020 | if BLOCK is zero, use the block of the selected stack frame. | |
1021 | Meanwhile, advance *STRINGPTR to point after the expression, | |
1022 | at the first nonwhite character that is not part of the expression | |
1023 | (possibly a null character). | |
1024 | ||
1025 | If COMMA is nonzero, stop if a comma is reached. */ | |
1026 | ||
4d01a485 | 1027 | expression_up |
bbc13ae3 | 1028 | parse_exp_1 (const char **stringptr, CORE_ADDR pc, const struct block *block, |
699bd4cf | 1029 | int comma, innermost_block_tracker *tracker) |
6f937416 | 1030 | { |
35c1ab60 | 1031 | return parse_exp_in_context (stringptr, pc, block, comma, false, NULL, |
699bd4cf | 1032 | tracker, nullptr); |
e85c3284 PH |
1033 | } |
1034 | ||
1035 | /* As for parse_exp_1, except that if VOID_CONTEXT_P, then | |
65d12d83 TT |
1036 | no value is expected from the expression. |
1037 | OUT_SUBEXP is set when attempting to complete a field name; in this | |
1038 | case it is set to the index of the subexpression on the | |
1039 | left-hand-side of the struct op. If not doing such completion, it | |
1040 | is left untouched. */ | |
e85c3284 | 1041 | |
4d01a485 | 1042 | static expression_up |
7ad417dd TT |
1043 | parse_exp_in_context (const char **stringptr, CORE_ADDR pc, |
1044 | const struct block *block, | |
35c1ab60 | 1045 | int comma, bool void_context_p, int *out_subexp, |
699bd4cf | 1046 | innermost_block_tracker *tracker, |
2a612529 | 1047 | expr_completion_state *cstate) |
c906108c | 1048 | { |
0cce5bd9 | 1049 | const struct language_defn *lang = NULL; |
65d12d83 | 1050 | int subexp; |
c906108c | 1051 | |
5776fca3 | 1052 | if (*stringptr == 0 || **stringptr == 0) |
e2e0b3e5 | 1053 | error_no_arg (_("expression to compute")); |
c906108c | 1054 | |
1e58a4a4 TT |
1055 | const struct block *expression_context_block = block; |
1056 | CORE_ADDR expression_context_pc = 0; | |
59f92a09 | 1057 | |
699bd4cf TT |
1058 | innermost_block_tracker local_tracker; |
1059 | if (tracker == nullptr) | |
1060 | tracker = &local_tracker; | |
1061 | ||
d705c43c PA |
1062 | /* If no context specified, try using the current frame, if any. */ |
1063 | if (!expression_context_block) | |
1064 | expression_context_block = get_selected_block (&expression_context_pc); | |
1bb9788d | 1065 | else if (pc == 0) |
2b1ffcfd | 1066 | expression_context_pc = BLOCK_ENTRY_PC (expression_context_block); |
1bb9788d TT |
1067 | else |
1068 | expression_context_pc = pc; | |
59f92a09 | 1069 | |
d705c43c | 1070 | /* Fall back to using the current source static context, if any. */ |
59f92a09 | 1071 | |
d705c43c | 1072 | if (!expression_context_block) |
59f92a09 FF |
1073 | { |
1074 | struct symtab_and_line cursal = get_current_source_symtab_and_line (); | |
1075 | if (cursal.symtab) | |
d705c43c | 1076 | expression_context_block |
439247b6 DE |
1077 | = BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (cursal.symtab), |
1078 | STATIC_BLOCK); | |
d705c43c | 1079 | if (expression_context_block) |
2b1ffcfd | 1080 | expression_context_pc = BLOCK_ENTRY_PC (expression_context_block); |
84f0252a | 1081 | } |
c906108c | 1082 | |
0cce5bd9 JB |
1083 | if (language_mode == language_mode_auto && block != NULL) |
1084 | { | |
1085 | /* Find the language associated to the given context block. | |
dda83cd7 SM |
1086 | Default to the current language if it can not be determined. |
1087 | ||
1088 | Note that using the language corresponding to the current frame | |
1089 | can sometimes give unexpected results. For instance, this | |
1090 | routine is often called several times during the inferior | |
1091 | startup phase to re-parse breakpoint expressions after | |
1092 | a new shared library has been loaded. The language associated | |
1093 | to the current frame at this moment is not relevant for | |
1094 | the breakpoint. Using it would therefore be silly, so it seems | |
1095 | better to rely on the current language rather than relying on | |
1096 | the current frame language to parse the expression. That's why | |
1097 | we do the following language detection only if the context block | |
1098 | has been specifically provided. */ | |
0cce5bd9 JB |
1099 | struct symbol *func = block_linkage_function (block); |
1100 | ||
1101 | if (func != NULL) | |
dda83cd7 | 1102 | lang = language_def (func->language ()); |
0cce5bd9 | 1103 | if (lang == NULL || lang->la_language == language_unknown) |
dda83cd7 | 1104 | lang = current_language; |
0cce5bd9 JB |
1105 | } |
1106 | else | |
1107 | lang = current_language; | |
1108 | ||
5b12a61c JK |
1109 | /* get_current_arch may reset CURRENT_LANGUAGE via select_frame. |
1110 | While we need CURRENT_LANGUAGE to be set to LANG (for lookup_symbol | |
1111 | and others called from *.y) ensure CURRENT_LANGUAGE gets restored | |
1112 | to the value matching SELECTED_FRAME as set by get_current_arch. */ | |
410a0ff2 | 1113 | |
1e58a4a4 | 1114 | parser_state ps (lang, get_current_arch (), expression_context_block, |
2a612529 | 1115 | expression_context_pc, comma, *stringptr, |
c5c41205 | 1116 | cstate != nullptr, tracker, void_context_p); |
e3ad2841 TT |
1117 | |
1118 | scoped_restore_current_language lang_saver; | |
5b12a61c | 1119 | set_language (lang->la_language); |
c906108c | 1120 | |
a70b8144 | 1121 | try |
65d12d83 | 1122 | { |
87afa652 | 1123 | lang->parser (&ps); |
65d12d83 | 1124 | } |
230d2906 | 1125 | catch (const gdb_exception &except) |
65d12d83 | 1126 | { |
5e70ee09 TT |
1127 | /* If parsing for completion, allow this to succeed; but if no |
1128 | expression elements have been written, then there's nothing | |
1129 | to do, so fail. */ | |
2a612529 | 1130 | if (! ps.parse_completion || ps.expout_ptr == 0) |
eedc3f4f | 1131 | throw; |
65d12d83 | 1132 | } |
c906108c | 1133 | |
e9d9f57e TT |
1134 | /* We have to operate on an "expression *", due to la_post_parser, |
1135 | which explains this funny-looking double release. */ | |
1136 | expression_up result = ps.release (); | |
c906108c SS |
1137 | |
1138 | /* Convert expression from postfix form as generated by yacc | |
0df8b418 | 1139 | parser, to a prefix form. */ |
c906108c | 1140 | |
c906108c | 1141 | if (expressiondebug) |
e9d9f57e | 1142 | dump_raw_expression (result.get (), gdb_stdlog, |
24daaebc | 1143 | "before conversion to prefix form"); |
c906108c | 1144 | |
2a612529 TT |
1145 | subexp = prefixify_expression (result.get (), |
1146 | ps.m_completion_state.expout_last_struct); | |
65d12d83 TT |
1147 | if (out_subexp) |
1148 | *out_subexp = subexp; | |
c906108c | 1149 | |
c5c41205 | 1150 | lang->post_parser (&result, &ps); |
e85c3284 | 1151 | |
c906108c | 1152 | if (expressiondebug) |
e9d9f57e | 1153 | dump_prefix_expression (result.get (), gdb_stdlog); |
c906108c | 1154 | |
2a612529 TT |
1155 | if (cstate != nullptr) |
1156 | *cstate = std::move (ps.m_completion_state); | |
5776fca3 | 1157 | *stringptr = ps.lexptr; |
e9d9f57e | 1158 | return result; |
c906108c SS |
1159 | } |
1160 | ||
1161 | /* Parse STRING as an expression, and complain if this fails | |
1162 | to use up all of the contents of STRING. */ | |
1163 | ||
4d01a485 | 1164 | expression_up |
699bd4cf | 1165 | parse_expression (const char *string, innermost_block_tracker *tracker) |
c906108c | 1166 | { |
699bd4cf | 1167 | expression_up exp = parse_exp_1 (&string, 0, 0, 0, tracker); |
c906108c | 1168 | if (*string) |
8a3fe4f8 | 1169 | error (_("Junk after end of expression.")); |
c906108c SS |
1170 | return exp; |
1171 | } | |
e85c3284 | 1172 | |
429e1e81 JB |
1173 | /* Same as parse_expression, but using the given language (LANG) |
1174 | to parse the expression. */ | |
1175 | ||
4d01a485 | 1176 | expression_up |
429e1e81 JB |
1177 | parse_expression_with_language (const char *string, enum language lang) |
1178 | { | |
e3ad2841 | 1179 | gdb::optional<scoped_restore_current_language> lang_saver; |
429e1e81 JB |
1180 | if (current_language->la_language != lang) |
1181 | { | |
e3ad2841 | 1182 | lang_saver.emplace (); |
429e1e81 JB |
1183 | set_language (lang); |
1184 | } | |
1185 | ||
e3ad2841 | 1186 | return parse_expression (string); |
429e1e81 JB |
1187 | } |
1188 | ||
65d12d83 TT |
1189 | /* Parse STRING as an expression. If parsing ends in the middle of a |
1190 | field reference, return the type of the left-hand-side of the | |
1191 | reference; furthermore, if the parsing ends in the field name, | |
c92817ce TT |
1192 | return the field name in *NAME. If the parsing ends in the middle |
1193 | of a field reference, but the reference is somehow invalid, throw | |
3eac2b65 | 1194 | an exception. In all other cases, return NULL. */ |
65d12d83 TT |
1195 | |
1196 | struct type * | |
3eac2b65 TT |
1197 | parse_expression_for_completion (const char *string, |
1198 | gdb::unique_xmalloc_ptr<char> *name, | |
2f68a895 | 1199 | enum type_code *code) |
65d12d83 | 1200 | { |
4d01a485 | 1201 | expression_up exp; |
65d12d83 TT |
1202 | struct value *val; |
1203 | int subexp; | |
2a612529 | 1204 | expr_completion_state cstate; |
65d12d83 | 1205 | |
a70b8144 | 1206 | try |
65d12d83 | 1207 | { |
35c1ab60 | 1208 | exp = parse_exp_in_context (&string, 0, 0, 0, false, &subexp, |
699bd4cf | 1209 | nullptr, &cstate); |
65d12d83 | 1210 | } |
230d2906 | 1211 | catch (const gdb_exception_error &except) |
7556d4a4 PA |
1212 | { |
1213 | /* Nothing, EXP remains NULL. */ | |
1214 | } | |
1215 | ||
7556d4a4 | 1216 | if (exp == NULL) |
65d12d83 | 1217 | return NULL; |
2f68a895 | 1218 | |
2a612529 | 1219 | if (cstate.expout_tag_completion_type != TYPE_CODE_UNDEF) |
2f68a895 | 1220 | { |
2a612529 TT |
1221 | *code = cstate.expout_tag_completion_type; |
1222 | *name = std::move (cstate.expout_completion_name); | |
2f68a895 TT |
1223 | return NULL; |
1224 | } | |
1225 | ||
2a612529 | 1226 | if (cstate.expout_last_struct == -1) |
4d01a485 | 1227 | return NULL; |
65d12d83 | 1228 | |
3eac2b65 TT |
1229 | const char *fieldname = extract_field_op (exp.get (), &subexp); |
1230 | if (fieldname == NULL) | |
1231 | { | |
1232 | name->reset (); | |
1233 | return NULL; | |
1234 | } | |
a0b7aece | 1235 | |
3eac2b65 | 1236 | name->reset (xstrdup (fieldname)); |
c92817ce TT |
1237 | /* This might throw an exception. If so, we want to let it |
1238 | propagate. */ | |
4d01a485 | 1239 | val = evaluate_subexpression_type (exp.get (), subexp); |
65d12d83 TT |
1240 | |
1241 | return value_type (val); | |
1242 | } | |
1243 | ||
d30f5e1f | 1244 | /* Parse floating point value P of length LEN. |
edd079d9 UW |
1245 | Return false if invalid, true if valid. |
1246 | The successfully parsed number is stored in DATA in | |
1247 | target format for floating-point type TYPE. | |
d30f5e1f DE |
1248 | |
1249 | NOTE: This accepts the floating point syntax that sscanf accepts. */ | |
1250 | ||
edd079d9 UW |
1251 | bool |
1252 | parse_float (const char *p, int len, | |
1253 | const struct type *type, gdb_byte *data) | |
d30f5e1f | 1254 | { |
f69fdf9b | 1255 | return target_float_from_string (data, type, std::string (p, len)); |
d30f5e1f | 1256 | } |
c906108c | 1257 | \f |
f461f5cf PM |
1258 | /* This function avoids direct calls to fprintf |
1259 | in the parser generated debug code. */ | |
1260 | void | |
1261 | parser_fprintf (FILE *x, const char *y, ...) | |
1262 | { | |
1263 | va_list args; | |
ad3bbd48 | 1264 | |
f461f5cf PM |
1265 | va_start (args, y); |
1266 | if (x == stderr) | |
1267 | vfprintf_unfiltered (gdb_stderr, y, args); | |
1268 | else | |
1269 | { | |
1270 | fprintf_unfiltered (gdb_stderr, " Unknown FILE used.\n"); | |
1271 | vfprintf_unfiltered (gdb_stderr, y, args); | |
1272 | } | |
1273 | va_end (args); | |
1274 | } | |
1275 | ||
c0201579 JK |
1276 | /* Implementation of the exp_descriptor method operator_check. */ |
1277 | ||
1278 | int | |
1279 | operator_check_standard (struct expression *exp, int pos, | |
1280 | int (*objfile_func) (struct objfile *objfile, | |
1281 | void *data), | |
1282 | void *data) | |
1283 | { | |
1284 | const union exp_element *const elts = exp->elts; | |
1285 | struct type *type = NULL; | |
1286 | struct objfile *objfile = NULL; | |
1287 | ||
1288 | /* Extended operators should have been already handled by exp_descriptor | |
1289 | iterate method of its specific language. */ | |
1290 | gdb_assert (elts[pos].opcode < OP_EXTENDED0); | |
1291 | ||
1292 | /* Track the callers of write_exp_elt_type for this table. */ | |
1293 | ||
1294 | switch (elts[pos].opcode) | |
1295 | { | |
1296 | case BINOP_VAL: | |
1297 | case OP_COMPLEX: | |
edd079d9 | 1298 | case OP_FLOAT: |
c0201579 JK |
1299 | case OP_LONG: |
1300 | case OP_SCOPE: | |
1301 | case OP_TYPE: | |
1302 | case UNOP_CAST: | |
c0201579 JK |
1303 | case UNOP_MAX: |
1304 | case UNOP_MEMVAL: | |
1305 | case UNOP_MIN: | |
1306 | type = elts[pos + 1].type; | |
1307 | break; | |
1308 | ||
1309 | case TYPE_INSTANCE: | |
1310 | { | |
3693fdb3 | 1311 | LONGEST arg, nargs = elts[pos + 2].longconst; |
c0201579 JK |
1312 | |
1313 | for (arg = 0; arg < nargs; arg++) | |
1314 | { | |
b926417a TT |
1315 | struct type *inst_type = elts[pos + 3 + arg].type; |
1316 | struct objfile *inst_objfile = TYPE_OBJFILE (inst_type); | |
c0201579 | 1317 | |
b926417a | 1318 | if (inst_objfile && (*objfile_func) (inst_objfile, data)) |
c0201579 JK |
1319 | return 1; |
1320 | } | |
1321 | } | |
1322 | break; | |
1323 | ||
c0201579 JK |
1324 | case OP_VAR_VALUE: |
1325 | { | |
1326 | const struct block *const block = elts[pos + 1].block; | |
1327 | const struct symbol *const symbol = elts[pos + 2].symbol; | |
1328 | ||
1329 | /* Check objfile where the variable itself is placed. | |
1330 | SYMBOL_OBJ_SECTION (symbol) may be NULL. */ | |
08be3fe3 | 1331 | if ((*objfile_func) (symbol_objfile (symbol), data)) |
c0201579 JK |
1332 | return 1; |
1333 | ||
1334 | /* Check objfile where is placed the code touching the variable. */ | |
d6bc0792 | 1335 | objfile = block_objfile (block); |
c0201579 JK |
1336 | |
1337 | type = SYMBOL_TYPE (symbol); | |
1338 | } | |
1339 | break; | |
74ea4be4 PA |
1340 | case OP_VAR_MSYM_VALUE: |
1341 | objfile = elts[pos + 1].objfile; | |
1342 | break; | |
c0201579 JK |
1343 | } |
1344 | ||
1345 | /* Invoke callbacks for TYPE and OBJFILE if they were set as non-NULL. */ | |
1346 | ||
1347 | if (type && TYPE_OBJFILE (type) | |
1348 | && (*objfile_func) (TYPE_OBJFILE (type), data)) | |
1349 | return 1; | |
1350 | if (objfile && (*objfile_func) (objfile, data)) | |
1351 | return 1; | |
1352 | ||
1353 | return 0; | |
1354 | } | |
1355 | ||
a1c7835a YQ |
1356 | /* Call OBJFILE_FUNC for any objfile found being referenced by EXP. |
1357 | OBJFILE_FUNC is never called with NULL OBJFILE. OBJFILE_FUNC get | |
1358 | passed an arbitrary caller supplied DATA pointer. If OBJFILE_FUNC | |
1359 | returns non-zero value then (any other) non-zero value is immediately | |
1360 | returned to the caller. Otherwise zero is returned after iterating | |
1361 | through whole EXP. */ | |
c0201579 JK |
1362 | |
1363 | static int | |
1364 | exp_iterate (struct expression *exp, | |
1365 | int (*objfile_func) (struct objfile *objfile, void *data), | |
1366 | void *data) | |
1367 | { | |
1368 | int endpos; | |
c0201579 JK |
1369 | |
1370 | for (endpos = exp->nelts; endpos > 0; ) | |
1371 | { | |
1372 | int pos, args, oplen = 0; | |
1373 | ||
dc21167c | 1374 | operator_length (exp, endpos, &oplen, &args); |
c0201579 JK |
1375 | gdb_assert (oplen > 0); |
1376 | ||
1377 | pos = endpos - oplen; | |
5aba6ebe AB |
1378 | if (exp->language_defn->expression_ops ()->operator_check (exp, pos, |
1379 | objfile_func, | |
1380 | data)) | |
c0201579 JK |
1381 | return 1; |
1382 | ||
1383 | endpos = pos; | |
1384 | } | |
1385 | ||
1386 | return 0; | |
1387 | } | |
1388 | ||
1389 | /* Helper for exp_uses_objfile. */ | |
1390 | ||
1391 | static int | |
1392 | exp_uses_objfile_iter (struct objfile *exp_objfile, void *objfile_voidp) | |
1393 | { | |
19ba03f4 | 1394 | struct objfile *objfile = (struct objfile *) objfile_voidp; |
c0201579 JK |
1395 | |
1396 | if (exp_objfile->separate_debug_objfile_backlink) | |
1397 | exp_objfile = exp_objfile->separate_debug_objfile_backlink; | |
1398 | ||
1399 | return exp_objfile == objfile; | |
1400 | } | |
1401 | ||
1402 | /* Return 1 if EXP uses OBJFILE (and will become dangling when OBJFILE | |
1403 | is unloaded), otherwise return 0. OBJFILE must not be a separate debug info | |
1404 | file. */ | |
1405 | ||
1406 | int | |
1407 | exp_uses_objfile (struct expression *exp, struct objfile *objfile) | |
1408 | { | |
1409 | gdb_assert (objfile->separate_debug_objfile_backlink == NULL); | |
1410 | ||
1411 | return exp_iterate (exp, exp_uses_objfile_iter, objfile); | |
1412 | } | |
1413 | ||
e3980ce2 TT |
1414 | /* Reallocate the `expout' pointer inside PS so that it can accommodate |
1415 | at least LENELT expression elements. This function does nothing if | |
1416 | there is enough room for the elements. */ | |
410a0ff2 | 1417 | |
e3980ce2 | 1418 | static void |
37eedb39 | 1419 | increase_expout_size (struct expr_builder *ps, size_t lenelt) |
410a0ff2 SDJ |
1420 | { |
1421 | if ((ps->expout_ptr + lenelt) >= ps->expout_size) | |
1422 | { | |
325fac50 | 1423 | ps->expout_size = std::max (ps->expout_size * 2, |
e9d9f57e | 1424 | ps->expout_ptr + lenelt + 10); |
77bf7e99 | 1425 | ps->expout->resize (ps->expout_size); |
410a0ff2 SDJ |
1426 | } |
1427 | } | |
1428 | ||
6c265988 | 1429 | void _initialize_parse (); |
ac9a91a7 | 1430 | void |
6c265988 | 1431 | _initialize_parse () |
ac9a91a7 | 1432 | { |
ccce17b0 YQ |
1433 | add_setshow_zuinteger_cmd ("expression", class_maintenance, |
1434 | &expressiondebug, | |
1435 | _("Set expression debugging."), | |
1436 | _("Show expression debugging."), | |
1437 | _("When non-zero, the internal representation " | |
1438 | "of expressions will be printed."), | |
1439 | NULL, | |
1440 | show_expressiondebug, | |
1441 | &setdebuglist, &showdebuglist); | |
92981e24 | 1442 | add_setshow_boolean_cmd ("parser", class_maintenance, |
3e43a32a MS |
1443 | &parser_debug, |
1444 | _("Set parser debugging."), | |
1445 | _("Show parser debugging."), | |
1446 | _("When non-zero, expression parser " | |
1447 | "tracing will be enabled."), | |
92981e24 TT |
1448 | NULL, |
1449 | show_parserdebug, | |
1450 | &setdebuglist, &showdebuglist); | |
c906108c | 1451 | } |