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
)
92 unsigned int things_printed
= 0;
96 /* If the string was not truncated due to `set print elements', and
97 the last byte of it is a null, we don't print that, in traditional C
101 && (extract_unsigned_integer (string
+ (length
- 1) * width
, width
)
107 fputs_filtered ("\"\"", stream
);
111 for (i
= 0; i
< length
&& things_printed
< print_max
; ++i
)
113 /* Position of the character we are examining
114 to see whether it is repeated. */
116 /* Number of repetitions we have detected so far. */
118 unsigned long current_char
;
124 fputs_filtered (", ", stream
);
128 current_char
= extract_unsigned_integer (string
+ i
* width
, width
);
133 && extract_unsigned_integer (string
+ rep1
* width
, width
)
140 if (reps
> repeat_count_threshold
)
145 fputs_filtered ("\\\", ", stream
);
147 fputs_filtered ("\", ", stream
);
150 LA_PRINT_CHAR (current_char
, stream
);
151 fprintf_filtered (stream
, _(" <repeats %u times>"), reps
);
153 things_printed
+= repeat_count_threshold
;
161 fputs_filtered ("\\\"", stream
);
163 fputs_filtered ("\"", stream
);
166 LA_EMIT_CHAR (current_char
, stream
, '"');
171 /* Terminate the quotes if necessary. */
175 fputs_filtered ("\\\"", stream
);
177 fputs_filtered ("\"", stream
);
180 if (force_ellipses
|| i
< length
)
181 fputs_filtered ("...", stream
);
184 /* Preprocessing and parsing C and C++ expressions. */
187 /* When we find that lexptr (the global var defined in parse.c) is
188 pointing at a macro invocation, we expand the invocation, and call
189 scan_macro_expansion to save the old lexptr here and point lexptr
190 into the expanded text. When we reach the end of that, we call
191 end_macro_expansion to pop back to the value we saved here. The
192 macro expansion code promises to return only fully-expanded text,
193 so we don't need to "push" more than one level.
195 This is disgusting, of course. It would be cleaner to do all macro
196 expansion beforehand, and then hand that to lexptr. But we don't
197 really know where the expression ends. Remember, in a command like
199 (gdb) break *ADDRESS if CONDITION
201 we evaluate ADDRESS in the scope of the current frame, but we
202 evaluate CONDITION in the scope of the breakpoint's location. So
203 it's simply wrong to try to macro-expand the whole thing at once. */
204 static char *macro_original_text
;
205 static char *macro_expanded_text
;
209 scan_macro_expansion (char *expansion
)
211 /* We'd better not be trying to push the stack twice. */
212 gdb_assert (! macro_original_text
);
213 gdb_assert (! macro_expanded_text
);
215 /* Save the old lexptr value, so we can return to it when we're done
216 parsing the expanded text. */
217 macro_original_text
= lexptr
;
220 /* Save the expanded text, so we can free it when we're finished. */
221 macro_expanded_text
= expansion
;
226 scanning_macro_expansion (void)
228 return macro_original_text
!= 0;
233 finished_macro_expansion (void)
235 /* There'd better be something to pop back to, and we better have
236 saved a pointer to the start of the expanded text. */
237 gdb_assert (macro_original_text
);
238 gdb_assert (macro_expanded_text
);
240 /* Pop back to the original text. */
241 lexptr
= macro_original_text
;
242 macro_original_text
= 0;
244 /* Free the expanded text. */
245 xfree (macro_expanded_text
);
246 macro_expanded_text
= 0;
251 scan_macro_cleanup (void *dummy
)
253 if (macro_original_text
)
254 finished_macro_expansion ();
258 /* We set these global variables before calling c_parse, to tell it
259 how it to find macro definitions for the expression at hand. */
260 macro_lookup_ftype
*expression_macro_lookup_func
;
261 void *expression_macro_lookup_baton
;
265 c_preprocess_and_parse (void)
267 /* Set up a lookup function for the macro expander. */
268 struct macro_scope
*scope
= 0;
269 struct cleanup
*back_to
= make_cleanup (free_current_contents
, &scope
);
271 if (expression_context_block
)
272 scope
= sal_macro_scope (find_pc_line (expression_context_pc
, 0));
274 scope
= default_macro_scope ();
276 scope
= user_macro_scope ();
278 expression_macro_lookup_func
= standard_macro_lookup
;
279 expression_macro_lookup_baton
= (void *) scope
;
281 gdb_assert (! macro_original_text
);
282 make_cleanup (scan_macro_cleanup
, 0);
285 int result
= c_parse ();
286 do_cleanups (back_to
);
293 /* Table mapping opcodes into strings for printing operators
294 and precedences of the operators. */
296 const struct op_print c_op_print_tab
[] =
298 {",", BINOP_COMMA
, PREC_COMMA
, 0},
299 {"=", BINOP_ASSIGN
, PREC_ASSIGN
, 1},
300 {"||", BINOP_LOGICAL_OR
, PREC_LOGICAL_OR
, 0},
301 {"&&", BINOP_LOGICAL_AND
, PREC_LOGICAL_AND
, 0},
302 {"|", BINOP_BITWISE_IOR
, PREC_BITWISE_IOR
, 0},
303 {"^", BINOP_BITWISE_XOR
, PREC_BITWISE_XOR
, 0},
304 {"&", BINOP_BITWISE_AND
, PREC_BITWISE_AND
, 0},
305 {"==", BINOP_EQUAL
, PREC_EQUAL
, 0},
306 {"!=", BINOP_NOTEQUAL
, PREC_EQUAL
, 0},
307 {"<=", BINOP_LEQ
, PREC_ORDER
, 0},
308 {">=", BINOP_GEQ
, PREC_ORDER
, 0},
309 {">", BINOP_GTR
, PREC_ORDER
, 0},
310 {"<", BINOP_LESS
, PREC_ORDER
, 0},
311 {">>", BINOP_RSH
, PREC_SHIFT
, 0},
312 {"<<", BINOP_LSH
, PREC_SHIFT
, 0},
313 {"+", BINOP_ADD
, PREC_ADD
, 0},
314 {"-", BINOP_SUB
, PREC_ADD
, 0},
315 {"*", BINOP_MUL
, PREC_MUL
, 0},
316 {"/", BINOP_DIV
, PREC_MUL
, 0},
317 {"%", BINOP_REM
, PREC_MUL
, 0},
318 {"@", BINOP_REPEAT
, PREC_REPEAT
, 0},
319 {"-", UNOP_NEG
, PREC_PREFIX
, 0},
320 {"!", UNOP_LOGICAL_NOT
, PREC_PREFIX
, 0},
321 {"~", UNOP_COMPLEMENT
, PREC_PREFIX
, 0},
322 {"*", UNOP_IND
, PREC_PREFIX
, 0},
323 {"&", UNOP_ADDR
, PREC_PREFIX
, 0},
324 {"sizeof ", UNOP_SIZEOF
, PREC_PREFIX
, 0},
325 {"++", UNOP_PREINCREMENT
, PREC_PREFIX
, 0},
326 {"--", UNOP_PREDECREMENT
, PREC_PREFIX
, 0},
330 enum c_primitive_types
{
331 c_primitive_type_int
,
332 c_primitive_type_long
,
333 c_primitive_type_short
,
334 c_primitive_type_char
,
335 c_primitive_type_float
,
336 c_primitive_type_double
,
337 c_primitive_type_void
,
338 c_primitive_type_long_long
,
339 c_primitive_type_signed_char
,
340 c_primitive_type_unsigned_char
,
341 c_primitive_type_unsigned_short
,
342 c_primitive_type_unsigned_int
,
343 c_primitive_type_unsigned_long
,
344 c_primitive_type_unsigned_long_long
,
345 c_primitive_type_long_double
,
346 c_primitive_type_complex
,
347 c_primitive_type_double_complex
,
348 c_primitive_type_decfloat
,
349 c_primitive_type_decdouble
,
350 c_primitive_type_declong
,
355 c_language_arch_info (struct gdbarch
*gdbarch
,
356 struct language_arch_info
*lai
)
358 const struct builtin_type
*builtin
= builtin_type (gdbarch
);
359 lai
->string_char_type
= builtin
->builtin_char
;
360 lai
->primitive_type_vector
361 = GDBARCH_OBSTACK_CALLOC (gdbarch
, nr_c_primitive_types
+ 1,
363 lai
->primitive_type_vector
[c_primitive_type_int
] = builtin
->builtin_int
;
364 lai
->primitive_type_vector
[c_primitive_type_long
] = builtin
->builtin_long
;
365 lai
->primitive_type_vector
[c_primitive_type_short
] = builtin
->builtin_short
;
366 lai
->primitive_type_vector
[c_primitive_type_char
] = builtin
->builtin_char
;
367 lai
->primitive_type_vector
[c_primitive_type_float
] = builtin
->builtin_float
;
368 lai
->primitive_type_vector
[c_primitive_type_double
] = builtin
->builtin_double
;
369 lai
->primitive_type_vector
[c_primitive_type_void
] = builtin
->builtin_void
;
370 lai
->primitive_type_vector
[c_primitive_type_long_long
] = builtin
->builtin_long_long
;
371 lai
->primitive_type_vector
[c_primitive_type_signed_char
] = builtin
->builtin_signed_char
;
372 lai
->primitive_type_vector
[c_primitive_type_unsigned_char
] = builtin
->builtin_unsigned_char
;
373 lai
->primitive_type_vector
[c_primitive_type_unsigned_short
] = builtin
->builtin_unsigned_short
;
374 lai
->primitive_type_vector
[c_primitive_type_unsigned_int
] = builtin
->builtin_unsigned_int
;
375 lai
->primitive_type_vector
[c_primitive_type_unsigned_long
] = builtin
->builtin_unsigned_long
;
376 lai
->primitive_type_vector
[c_primitive_type_unsigned_long_long
] = builtin
->builtin_unsigned_long_long
;
377 lai
->primitive_type_vector
[c_primitive_type_long_double
] = builtin
->builtin_long_double
;
378 lai
->primitive_type_vector
[c_primitive_type_complex
] = builtin
->builtin_complex
;
379 lai
->primitive_type_vector
[c_primitive_type_double_complex
] = builtin
->builtin_double_complex
;
380 lai
->primitive_type_vector
[c_primitive_type_decfloat
] = builtin
->builtin_decfloat
;
381 lai
->primitive_type_vector
[c_primitive_type_decdouble
] = builtin
->builtin_decdouble
;
382 lai
->primitive_type_vector
[c_primitive_type_declong
] = builtin
->builtin_declong
;
384 lai
->bool_type_default
= builtin
->builtin_int
;
387 const struct language_defn c_language_defn
=
389 "c", /* Language name */
395 &exp_descriptor_standard
,
396 c_preprocess_and_parse
,
399 c_printchar
, /* Print a character constant */
400 c_printstr
, /* Function to print string constant */
401 c_emit_char
, /* Print a single char */
402 c_print_type
, /* Print a type using appropriate syntax */
403 c_val_print
, /* Print a value using appropriate syntax */
404 c_value_print
, /* Print a top-level value */
405 NULL
, /* Language specific skip_trampoline */
406 NULL
, /* name_of_this */
407 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
408 basic_lookup_transparent_type
,/* lookup_transparent_type */
409 NULL
, /* Language specific symbol demangler */
410 NULL
, /* Language specific class_name_from_physname */
411 c_op_print_tab
, /* expression operators for printing */
412 1, /* c-style arrays */
413 0, /* String lower bound */
414 default_word_break_characters
,
415 default_make_symbol_completion_list
,
416 c_language_arch_info
,
417 default_print_array_index
,
418 default_pass_by_reference
,
422 enum cplus_primitive_types
{
423 cplus_primitive_type_int
,
424 cplus_primitive_type_long
,
425 cplus_primitive_type_short
,
426 cplus_primitive_type_char
,
427 cplus_primitive_type_float
,
428 cplus_primitive_type_double
,
429 cplus_primitive_type_void
,
430 cplus_primitive_type_long_long
,
431 cplus_primitive_type_signed_char
,
432 cplus_primitive_type_unsigned_char
,
433 cplus_primitive_type_unsigned_short
,
434 cplus_primitive_type_unsigned_int
,
435 cplus_primitive_type_unsigned_long
,
436 cplus_primitive_type_unsigned_long_long
,
437 cplus_primitive_type_long_double
,
438 cplus_primitive_type_complex
,
439 cplus_primitive_type_double_complex
,
440 cplus_primitive_type_bool
,
441 cplus_primitive_type_decfloat
,
442 cplus_primitive_type_decdouble
,
443 cplus_primitive_type_declong
,
444 nr_cplus_primitive_types
448 cplus_language_arch_info (struct gdbarch
*gdbarch
,
449 struct language_arch_info
*lai
)
451 const struct builtin_type
*builtin
= builtin_type (gdbarch
);
452 lai
->string_char_type
= builtin
->builtin_char
;
453 lai
->primitive_type_vector
454 = GDBARCH_OBSTACK_CALLOC (gdbarch
, nr_cplus_primitive_types
+ 1,
456 lai
->primitive_type_vector
[cplus_primitive_type_int
]
457 = builtin
->builtin_int
;
458 lai
->primitive_type_vector
[cplus_primitive_type_long
]
459 = builtin
->builtin_long
;
460 lai
->primitive_type_vector
[cplus_primitive_type_short
]
461 = builtin
->builtin_short
;
462 lai
->primitive_type_vector
[cplus_primitive_type_char
]
463 = builtin
->builtin_char
;
464 lai
->primitive_type_vector
[cplus_primitive_type_float
]
465 = builtin
->builtin_float
;
466 lai
->primitive_type_vector
[cplus_primitive_type_double
]
467 = builtin
->builtin_double
;
468 lai
->primitive_type_vector
[cplus_primitive_type_void
]
469 = builtin
->builtin_void
;
470 lai
->primitive_type_vector
[cplus_primitive_type_long_long
]
471 = builtin
->builtin_long_long
;
472 lai
->primitive_type_vector
[cplus_primitive_type_signed_char
]
473 = builtin
->builtin_signed_char
;
474 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_char
]
475 = builtin
->builtin_unsigned_char
;
476 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_short
]
477 = builtin
->builtin_unsigned_short
;
478 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_int
]
479 = builtin
->builtin_unsigned_int
;
480 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_long
]
481 = builtin
->builtin_unsigned_long
;
482 lai
->primitive_type_vector
[cplus_primitive_type_unsigned_long_long
]
483 = builtin
->builtin_unsigned_long_long
;
484 lai
->primitive_type_vector
[cplus_primitive_type_long_double
]
485 = builtin
->builtin_long_double
;
486 lai
->primitive_type_vector
[cplus_primitive_type_complex
]
487 = builtin
->builtin_complex
;
488 lai
->primitive_type_vector
[cplus_primitive_type_double_complex
]
489 = builtin
->builtin_double_complex
;
490 lai
->primitive_type_vector
[cplus_primitive_type_bool
]
491 = builtin
->builtin_bool
;
492 lai
->primitive_type_vector
[cplus_primitive_type_decfloat
]
493 = builtin
->builtin_decfloat
;
494 lai
->primitive_type_vector
[cplus_primitive_type_decdouble
]
495 = builtin
->builtin_decdouble
;
496 lai
->primitive_type_vector
[cplus_primitive_type_declong
]
497 = builtin
->builtin_declong
;
499 lai
->bool_type_symbol
= "bool";
500 lai
->bool_type_default
= builtin
->builtin_bool
;
503 const struct language_defn cplus_language_defn
=
505 "c++", /* Language name */
511 &exp_descriptor_standard
,
512 c_preprocess_and_parse
,
515 c_printchar
, /* Print a character constant */
516 c_printstr
, /* Function to print string constant */
517 c_emit_char
, /* Print a single char */
518 c_print_type
, /* Print a type using appropriate syntax */
519 c_val_print
, /* Print a value using appropriate syntax */
520 c_value_print
, /* Print a top-level value */
521 cplus_skip_trampoline
, /* Language specific skip_trampoline */
522 "this", /* name_of_this */
523 cp_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
524 cp_lookup_transparent_type
, /* lookup_transparent_type */
525 cplus_demangle
, /* Language specific symbol demangler */
526 cp_class_name_from_physname
, /* Language specific class_name_from_physname */
527 c_op_print_tab
, /* expression operators for printing */
528 1, /* c-style arrays */
529 0, /* String lower bound */
530 default_word_break_characters
,
531 default_make_symbol_completion_list
,
532 cplus_language_arch_info
,
533 default_print_array_index
,
534 cp_pass_by_reference
,
538 const struct language_defn asm_language_defn
=
540 "asm", /* Language name */
546 &exp_descriptor_standard
,
547 c_preprocess_and_parse
,
550 c_printchar
, /* Print a character constant */
551 c_printstr
, /* Function to print string constant */
552 c_emit_char
, /* Print a single char */
553 c_print_type
, /* Print a type using appropriate syntax */
554 c_val_print
, /* Print a value using appropriate syntax */
555 c_value_print
, /* Print a top-level value */
556 NULL
, /* Language specific skip_trampoline */
557 NULL
, /* name_of_this */
558 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
559 basic_lookup_transparent_type
,/* lookup_transparent_type */
560 NULL
, /* Language specific symbol demangler */
561 NULL
, /* Language specific class_name_from_physname */
562 c_op_print_tab
, /* expression operators for printing */
563 1, /* c-style arrays */
564 0, /* String lower bound */
565 default_word_break_characters
,
566 default_make_symbol_completion_list
,
567 c_language_arch_info
, /* FIXME: la_language_arch_info. */
568 default_print_array_index
,
569 default_pass_by_reference
,
573 /* The following language_defn does not represent a real language.
574 It just provides a minimal support a-la-C that should allow users
575 to do some simple operations when debugging applications that use
576 a language currently not supported by GDB. */
578 const struct language_defn minimal_language_defn
=
580 "minimal", /* Language name */
586 &exp_descriptor_standard
,
587 c_preprocess_and_parse
,
590 c_printchar
, /* Print a character constant */
591 c_printstr
, /* Function to print string constant */
592 c_emit_char
, /* Print a single char */
593 c_print_type
, /* Print a type using appropriate syntax */
594 c_val_print
, /* Print a value using appropriate syntax */
595 c_value_print
, /* Print a top-level value */
596 NULL
, /* Language specific skip_trampoline */
597 NULL
, /* name_of_this */
598 basic_lookup_symbol_nonlocal
, /* lookup_symbol_nonlocal */
599 basic_lookup_transparent_type
,/* lookup_transparent_type */
600 NULL
, /* Language specific symbol demangler */
601 NULL
, /* Language specific class_name_from_physname */
602 c_op_print_tab
, /* expression operators for printing */
603 1, /* c-style arrays */
604 0, /* String lower bound */
605 default_word_break_characters
,
606 default_make_symbol_completion_list
,
607 c_language_arch_info
,
608 default_print_array_index
,
609 default_pass_by_reference
,
614 _initialize_c_language (void)
616 add_language (&c_language_defn
);
617 add_language (&cplus_language_defn
);
618 add_language (&asm_language_defn
);
619 add_language (&minimal_language_defn
);