1 /* C language support routines for GDB, the GNU debugger.
3 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2002, 2003,
4 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
24 #include "expression.h"
25 #include "parser-defs.h"
29 #include "macroscope.h"
30 #include "gdb_assert.h"
32 #include "gdb_string.h"
35 #include "cp-support.h"
37 extern void _initialize_c_language (void);
38 static void c_emit_char (int c
, struct ui_file
* stream
, int quoter
);
40 /* Print the character C on STREAM as part of the contents of a literal
41 string whose delimiter is QUOTER. Note that that format for printing
42 characters and strings is language specific. */
45 c_emit_char (int c
, struct ui_file
*stream
, int quoter
)
50 c
&= 0xFF; /* Avoid sign bit follies */
52 escape
= c_target_char_has_backslash_escape (c
);
55 if (quoter
== '"' && strcmp (escape
, "0") == 0)
56 /* Print nulls embedded in double quoted strings as \000 to
58 fprintf_filtered (stream
, "\\000");
60 fprintf_filtered (stream
, "\\%s", escape
);
62 else if (target_char_to_host (c
, &host_char
)
63 && host_char_print_literally (host_char
))
65 if (host_char
== '\\' || host_char
== quoter
)
66 fputs_filtered ("\\", stream
);
67 fprintf_filtered (stream
, "%c", host_char
);
70 fprintf_filtered (stream
, "\\%.3o", (unsigned int) c
);
74 c_printchar (int c
, struct ui_file
*stream
)
76 fputc_filtered ('\'', stream
);
77 LA_EMIT_CHAR (c
, stream
, '\'');
78 fputc_filtered ('\'', stream
);
81 /* Print the character string STRING, printing at most LENGTH characters.
82 LENGTH is -1 if the string is nul terminated. Each character is WIDTH bytes
83 long. Printing stops early if the number hits print_max; repeat counts are
84 printed as appropriate. Print ellipses at the end if we had to stop before
85 printing LENGTH characters, or if FORCE_ELLIPSES. */
88 c_printstr (struct ui_file
*stream
, const gdb_byte
*string
,
89 unsigned int length
, int width
, int force_ellipses
,
90 const struct value_print_options
*options
)
93 unsigned int things_printed
= 0;
97 /* If the string was not truncated due to `set print elements', and
98 the last byte of it is a null, we don't print that, in traditional C
102 && (extract_unsigned_integer (string
+ (length
- 1) * width
, width
)
108 fputs_filtered ("\"\"", stream
);
112 for (i
= 0; i
< length
&& things_printed
< options
->print_max
; ++i
)
114 /* Position of the character we are examining
115 to see whether it is repeated. */
117 /* Number of repetitions we have detected so far. */
119 unsigned long current_char
;
125 fputs_filtered (", ", stream
);
129 current_char
= extract_unsigned_integer (string
+ i
* width
, width
);
134 && extract_unsigned_integer (string
+ rep1
* width
, width
)
141 if (reps
> options
->repeat_count_threshold
)
145 if (options
->inspect_it
)
146 fputs_filtered ("\\\", ", stream
);
148 fputs_filtered ("\", ", stream
);
151 LA_PRINT_CHAR (current_char
, stream
);
152 fprintf_filtered (stream
, _(" <repeats %u times>"), reps
);
154 things_printed
+= options
->repeat_count_threshold
;
161 if (options
->inspect_it
)
162 fputs_filtered ("\\\"", stream
);
164 fputs_filtered ("\"", stream
);
167 LA_EMIT_CHAR (current_char
, stream
, '"');
172 /* Terminate the quotes if necessary. */
175 if (options
->inspect_it
)
176 fputs_filtered ("\\\"", stream
);
178 fputs_filtered ("\"", stream
);
181 if (force_ellipses
|| i
< length
)
182 fputs_filtered ("...", stream
);
185 /* Preprocessing and parsing C and C++ expressions. */
188 /* When we find that lexptr (the global var defined in parse.c) is
189 pointing at a macro invocation, we expand the invocation, and call
190 scan_macro_expansion to save the old lexptr here and point lexptr
191 into the expanded text. When we reach the end of that, we call
192 end_macro_expansion to pop back to the value we saved here. The
193 macro expansion code promises to return only fully-expanded text,
194 so we don't need to "push" more than one level.
196 This is disgusting, of course. It would be cleaner to do all macro
197 expansion beforehand, and then hand that to lexptr. But we don't
198 really know where the expression ends. Remember, in a command like
200 (gdb) break *ADDRESS if CONDITION
202 we evaluate ADDRESS in the scope of the current frame, but we
203 evaluate CONDITION in the scope of the breakpoint's location. So
204 it's simply wrong to try to macro-expand the whole thing at once. */
205 static char *macro_original_text
;
206 static char *macro_expanded_text
;
210 scan_macro_expansion (char *expansion
)
212 /* We'd better not be trying to push the stack twice. */
213 gdb_assert (! macro_original_text
);
214 gdb_assert (! macro_expanded_text
);
216 /* Save the old lexptr value, so we can return to it when we're done
217 parsing the expanded text. */
218 macro_original_text
= lexptr
;
221 /* Save the expanded text, so we can free it when we're finished. */
222 macro_expanded_text
= expansion
;
227 scanning_macro_expansion (void)
229 return macro_original_text
!= 0;
234 finished_macro_expansion (void)
236 /* There'd better be something to pop back to, and we better have
237 saved a pointer to the start of the expanded text. */
238 gdb_assert (macro_original_text
);
239 gdb_assert (macro_expanded_text
);
241 /* Pop back to the original text. */
242 lexptr
= macro_original_text
;
243 macro_original_text
= 0;
245 /* Free the expanded text. */
246 xfree (macro_expanded_text
);
247 macro_expanded_text
= 0;
252 scan_macro_cleanup (void *dummy
)
254 if (macro_original_text
)
255 finished_macro_expansion ();
259 /* We set these global variables before calling c_parse, to tell it
260 how it to find macro definitions for the expression at hand. */
261 macro_lookup_ftype
*expression_macro_lookup_func
;
262 void *expression_macro_lookup_baton
;
266 c_preprocess_and_parse (void)
268 /* Set up a lookup function for the macro expander. */
269 struct macro_scope
*scope
= 0;
270 struct cleanup
*back_to
= make_cleanup (free_current_contents
, &scope
);
272 if (expression_context_block
)
273 scope
= sal_macro_scope (find_pc_line (expression_context_pc
, 0));
275 scope
= default_macro_scope ();
277 scope
= user_macro_scope ();
279 expression_macro_lookup_func
= standard_macro_lookup
;
280 expression_macro_lookup_baton
= (void *) scope
;
282 gdb_assert (! macro_original_text
);
283 make_cleanup (scan_macro_cleanup
, 0);
286 int result
= c_parse ();
287 do_cleanups (back_to
);
294 /* Table mapping opcodes into strings for printing operators
295 and precedences of the operators. */
297 const struct op_print c_op_print_tab
[] =
299 {",", BINOP_COMMA
, PREC_COMMA
, 0},
300 {"=", BINOP_ASSIGN
, PREC_ASSIGN
, 1},
301 {"||", BINOP_LOGICAL_OR
, PREC_LOGICAL_OR
, 0},
302 {"&&", BINOP_LOGICAL_AND
, PREC_LOGICAL_AND
, 0},
303 {"|", BINOP_BITWISE_IOR
, PREC_BITWISE_IOR
, 0},
304 {"^", BINOP_BITWISE_XOR
, PREC_BITWISE_XOR
, 0},
305 {"&", BINOP_BITWISE_AND
, PREC_BITWISE_AND
, 0},
306 {"==", BINOP_EQUAL
, PREC_EQUAL
, 0},
307 {"!=", BINOP_NOTEQUAL
, PREC_EQUAL
, 0},
308 {"<=", BINOP_LEQ
, PREC_ORDER
, 0},
309 {">=", BINOP_GEQ
, PREC_ORDER
, 0},
310 {">", BINOP_GTR
, PREC_ORDER
, 0},
311 {"<", BINOP_LESS
, PREC_ORDER
, 0},
312 {">>", BINOP_RSH
, PREC_SHIFT
, 0},
313 {"<<", BINOP_LSH
, PREC_SHIFT
, 0},
314 {"+", BINOP_ADD
, PREC_ADD
, 0},
315 {"-", BINOP_SUB
, PREC_ADD
, 0},
316 {"*", BINOP_MUL
, PREC_MUL
, 0},
317 {"/", BINOP_DIV
, PREC_MUL
, 0},
318 {"%", BINOP_REM
, PREC_MUL
, 0},
319 {"@", BINOP_REPEAT
, PREC_REPEAT
, 0},
320 {"-", UNOP_NEG
, PREC_PREFIX
, 0},
321 {"!", UNOP_LOGICAL_NOT
, PREC_PREFIX
, 0},
322 {"~", UNOP_COMPLEMENT
, PREC_PREFIX
, 0},
323 {"*", UNOP_IND
, PREC_PREFIX
, 0},
324 {"&", UNOP_ADDR
, PREC_PREFIX
, 0},
325 {"sizeof ", UNOP_SIZEOF
, PREC_PREFIX
, 0},
326 {"++", UNOP_PREINCREMENT
, PREC_PREFIX
, 0},
327 {"--", UNOP_PREDECREMENT
, PREC_PREFIX
, 0},
331 enum c_primitive_types
{
332 c_primitive_type_int
,
333 c_primitive_type_long
,
334 c_primitive_type_short
,
335 c_primitive_type_char
,
336 c_primitive_type_float
,
337 c_primitive_type_double
,
338 c_primitive_type_void
,
339 c_primitive_type_long_long
,
340 c_primitive_type_signed_char
,
341 c_primitive_type_unsigned_char
,
342 c_primitive_type_unsigned_short
,
343 c_primitive_type_unsigned_int
,
344 c_primitive_type_unsigned_long
,
345 c_primitive_type_unsigned_long_long
,
346 c_primitive_type_long_double
,
347 c_primitive_type_complex
,
348 c_primitive_type_double_complex
,
349 c_primitive_type_decfloat
,
350 c_primitive_type_decdouble
,
351 c_primitive_type_declong
,
356 c_language_arch_info (struct gdbarch
*gdbarch
,
357 struct language_arch_info
*lai
)
359 const struct builtin_type
*builtin
= builtin_type (gdbarch
);
360 lai
->string_char_type
= builtin
->builtin_char
;
361 lai
->primitive_type_vector
362 = GDBARCH_OBSTACK_CALLOC (gdbarch
, nr_c_primitive_types
+ 1,
364 lai
->primitive_type_vector
[c_primitive_type_int
] = builtin
->builtin_int
;
365 lai
->primitive_type_vector
[c_primitive_type_long
] = builtin
->builtin_long
;
366 lai
->primitive_type_vector
[c_primitive_type_short
] = builtin
->builtin_short
;
367 lai
->primitive_type_vector
[c_primitive_type_char
] = builtin
->builtin_char
;
368 lai
->primitive_type_vector
[c_primitive_type_float
] = builtin
->builtin_float
;
369 lai
->primitive_type_vector
[c_primitive_type_double
] = builtin
->builtin_double
;
370 lai
->primitive_type_vector
[c_primitive_type_void
] = builtin
->builtin_void
;
371 lai
->primitive_type_vector
[c_primitive_type_long_long
] = builtin
->builtin_long_long
;
372 lai
->primitive_type_vector
[c_primitive_type_signed_char
] = builtin
->builtin_signed_char
;
373 lai
->primitive_type_vector
[c_primitive_type_unsigned_char
] = builtin
->builtin_unsigned_char
;
374 lai
->primitive_type_vector
[c_primitive_type_unsigned_short
] = builtin
->builtin_unsigned_short
;
375 lai
->primitive_type_vector
[c_primitive_type_unsigned_int
] = builtin
->builtin_unsigned_int
;
376 lai
->primitive_type_vector
[c_primitive_type_unsigned_long
] = builtin
->builtin_unsigned_long
;
377 lai
->primitive_type_vector
[c_primitive_type_unsigned_long_long
] = builtin
->builtin_unsigned_long_long
;
378 lai
->primitive_type_vector
[c_primitive_type_long_double
] = builtin
->builtin_long_double
;
379 lai
->primitive_type_vector
[c_primitive_type_complex
] = builtin
->builtin_complex
;
380 lai
->primitive_type_vector
[c_primitive_type_double_complex
] = builtin
->builtin_double_complex
;
381 lai
->primitive_type_vector
[c_primitive_type_decfloat
] = builtin
->builtin_decfloat
;
382 lai
->primitive_type_vector
[c_primitive_type_decdouble
] = builtin
->builtin_decdouble
;
383 lai
->primitive_type_vector
[c_primitive_type_declong
] = builtin
->builtin_declong
;
385 lai
->bool_type_default
= builtin
->builtin_int
;
388 const struct language_defn c_language_defn
=
390 "c", /* Language name */
397 &exp_descriptor_standard
,
398 c_preprocess_and_parse
,
401 c_printchar
, /* Print a character constant */
402 c_printstr
, /* Function to print string constant */
403 c_emit_char
, /* Print a single char */
404 c_print_type
, /* Print a type using appropriate syntax */
405 c_print_typedef
, /* Print a typedef using appropriate syntax */
406 c_val_print
, /* Print a value using appropriate syntax */
407 c_value_print
, /* Print a top-level value */
408 NULL
, /* Language specific skip_trampoline */
409 NULL
, /* name_of_this */
410 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
411 basic_lookup_transparent_type
,/* lookup_transparent_type */
412 NULL
, /* Language specific symbol demangler */
413 NULL
, /* Language specific class_name_from_physname */
414 c_op_print_tab
, /* expression operators for printing */
415 1, /* c-style arrays */
416 0, /* String lower bound */
417 default_word_break_characters
,
418 default_make_symbol_completion_list
,
419 c_language_arch_info
,
420 default_print_array_index
,
421 default_pass_by_reference
,
425 enum cplus_primitive_types
{
426 cplus_primitive_type_int
,
427 cplus_primitive_type_long
,
428 cplus_primitive_type_short
,
429 cplus_primitive_type_char
,
430 cplus_primitive_type_float
,
431 cplus_primitive_type_double
,
432 cplus_primitive_type_void
,
433 cplus_primitive_type_long_long
,
434 cplus_primitive_type_signed_char
,
435 cplus_primitive_type_unsigned_char
,
436 cplus_primitive_type_unsigned_short
,
437 cplus_primitive_type_unsigned_int
,
438 cplus_primitive_type_unsigned_long
,
439 cplus_primitive_type_unsigned_long_long
,
440 cplus_primitive_type_long_double
,
441 cplus_primitive_type_complex
,
442 cplus_primitive_type_double_complex
,
443 cplus_primitive_type_bool
,
444 cplus_primitive_type_decfloat
,
445 cplus_primitive_type_decdouble
,
446 cplus_primitive_type_declong
,
447 nr_cplus_primitive_types
451 cplus_language_arch_info (struct gdbarch
*gdbarch
,
452 struct language_arch_info
*lai
)
454 const struct builtin_type
*builtin
= builtin_type (gdbarch
);
455 lai
->string_char_type
= builtin
->builtin_char
;
456 lai
->primitive_type_vector
457 = GDBARCH_OBSTACK_CALLOC (gdbarch
, nr_cplus_primitive_types
+ 1,
459 lai
->primitive_type_vector
[cplus_primitive_type_int
]
460 = builtin
->builtin_int
;
461 lai
->primitive_type_vector
[cplus_primitive_type_long
]
462 = builtin
->builtin_long
;
463 lai
->primitive_type_vector
[cplus_primitive_type_short
]
464 = builtin
->builtin_short
;
465 lai
->primitive_type_vector
[cplus_primitive_type_char
]
466 = builtin
->builtin_char
;
467 lai
->primitive_type_vector
[cplus_primitive_type_float
]
468 = builtin
->builtin_float
;
469 lai
->primitive_type_vector
[cplus_primitive_type_double
]
470 = builtin
->builtin_double
;
471 lai
->primitive_type_vector
[cplus_primitive_type_void
]
472 = builtin
->builtin_void
;
473 lai
->primitive_type_vector
[cplus_primitive_type_long_long
]
474 = builtin
->builtin_long_long
;
475 lai
->primitive_type_vector
[cplus_primitive_type_signed_char
]
476 = builtin
->builtin_signed_char
;
477 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_char
]
478 = builtin
->builtin_unsigned_char
;
479 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_short
]
480 = builtin
->builtin_unsigned_short
;
481 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_int
]
482 = builtin
->builtin_unsigned_int
;
483 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_long
]
484 = builtin
->builtin_unsigned_long
;
485 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_long_long
]
486 = builtin
->builtin_unsigned_long_long
;
487 lai
->primitive_type_vector
[cplus_primitive_type_long_double
]
488 = builtin
->builtin_long_double
;
489 lai
->primitive_type_vector
[cplus_primitive_type_complex
]
490 = builtin
->builtin_complex
;
491 lai
->primitive_type_vector
[cplus_primitive_type_double_complex
]
492 = builtin
->builtin_double_complex
;
493 lai
->primitive_type_vector
[cplus_primitive_type_bool
]
494 = builtin
->builtin_bool
;
495 lai
->primitive_type_vector
[cplus_primitive_type_decfloat
]
496 = builtin
->builtin_decfloat
;
497 lai
->primitive_type_vector
[cplus_primitive_type_decdouble
]
498 = builtin
->builtin_decdouble
;
499 lai
->primitive_type_vector
[cplus_primitive_type_declong
]
500 = builtin
->builtin_declong
;
502 lai
->bool_type_symbol
= "bool";
503 lai
->bool_type_default
= builtin
->builtin_bool
;
506 const struct language_defn cplus_language_defn
=
508 "c++", /* Language name */
515 &exp_descriptor_standard
,
516 c_preprocess_and_parse
,
519 c_printchar
, /* Print a character constant */
520 c_printstr
, /* Function to print string constant */
521 c_emit_char
, /* Print a single char */
522 c_print_type
, /* Print a type using appropriate syntax */
523 c_print_typedef
, /* Print a typedef using appropriate syntax */
524 c_val_print
, /* Print a value using appropriate syntax */
525 c_value_print
, /* Print a top-level value */
526 cplus_skip_trampoline
, /* Language specific skip_trampoline */
527 "this", /* name_of_this */
528 cp_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
529 cp_lookup_transparent_type
, /* lookup_transparent_type */
530 cplus_demangle
, /* Language specific symbol demangler */
531 cp_class_name_from_physname
, /* Language specific class_name_from_physname */
532 c_op_print_tab
, /* expression operators for printing */
533 1, /* c-style arrays */
534 0, /* String lower bound */
535 default_word_break_characters
,
536 default_make_symbol_completion_list
,
537 cplus_language_arch_info
,
538 default_print_array_index
,
539 cp_pass_by_reference
,
543 const struct language_defn asm_language_defn
=
545 "asm", /* Language name */
552 &exp_descriptor_standard
,
553 c_preprocess_and_parse
,
556 c_printchar
, /* Print a character constant */
557 c_printstr
, /* Function to print string constant */
558 c_emit_char
, /* Print a single char */
559 c_print_type
, /* Print a type using appropriate syntax */
560 c_print_typedef
, /* Print a typedef using appropriate syntax */
561 c_val_print
, /* Print a value using appropriate syntax */
562 c_value_print
, /* Print a top-level value */
563 NULL
, /* Language specific skip_trampoline */
564 NULL
, /* name_of_this */
565 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
566 basic_lookup_transparent_type
,/* lookup_transparent_type */
567 NULL
, /* Language specific symbol demangler */
568 NULL
, /* Language specific class_name_from_physname */
569 c_op_print_tab
, /* expression operators for printing */
570 1, /* c-style arrays */
571 0, /* String lower bound */
572 default_word_break_characters
,
573 default_make_symbol_completion_list
,
574 c_language_arch_info
, /* FIXME: la_language_arch_info. */
575 default_print_array_index
,
576 default_pass_by_reference
,
580 /* The following language_defn does not represent a real language.
581 It just provides a minimal support a-la-C that should allow users
582 to do some simple operations when debugging applications that use
583 a language currently not supported by GDB. */
585 const struct language_defn minimal_language_defn
=
587 "minimal", /* Language name */
594 &exp_descriptor_standard
,
595 c_preprocess_and_parse
,
598 c_printchar
, /* Print a character constant */
599 c_printstr
, /* Function to print string constant */
600 c_emit_char
, /* Print a single char */
601 c_print_type
, /* Print a type using appropriate syntax */
602 c_print_typedef
, /* Print a typedef using appropriate syntax */
603 c_val_print
, /* Print a value using appropriate syntax */
604 c_value_print
, /* Print a top-level value */
605 NULL
, /* Language specific skip_trampoline */
606 NULL
, /* name_of_this */
607 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
608 basic_lookup_transparent_type
,/* lookup_transparent_type */
609 NULL
, /* Language specific symbol demangler */
610 NULL
, /* Language specific class_name_from_physname */
611 c_op_print_tab
, /* expression operators for printing */
612 1, /* c-style arrays */
613 0, /* String lower bound */
614 default_word_break_characters
,
615 default_make_symbol_completion_list
,
616 c_language_arch_info
,
617 default_print_array_index
,
618 default_pass_by_reference
,
623 _initialize_c_language (void)
625 add_language (&c_language_defn
);
626 add_language (&cplus_language_defn
);
627 add_language (&asm_language_defn
);
628 add_language (&minimal_language_defn
);