From 92981e24467c4247c8bf16780cac90b340c0a4c2 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 10 Feb 2010 18:57:21 +0000 Subject: [PATCH] gdb * parser-defs.h (parser_debug): Declare. * parse.c (_initialize_parse): Install "debug parser" set/show command. (parser_debug): New global. (show_parserdebug): New function. * c-exp.y (c_parse): Set yydebug. gdb/testsuite * gdb.texinfo (Debugging Output): Document set debug parser and show debug parser. --- gdb/ChangeLog | 9 +++++++++ gdb/c-exp.y | 3 +++ gdb/doc/ChangeLog | 5 +++++ gdb/doc/gdb.texinfo | 9 +++++++++ gdb/parse.c | 20 ++++++++++++++++++++ gdb/parser-defs.h | 2 ++ 6 files changed, 48 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 431ba1c7fed..c5bf4f9ca1f 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,12 @@ +2010-02-10 Tom Tromey + + * parser-defs.h (parser_debug): Declare. + * parse.c (_initialize_parse): Install "debug parser" set/show + command. + (parser_debug): New global. + (show_parserdebug): New function. + * c-exp.y (c_parse): Set yydebug. + 2010-02-10 H.J. Lu * target-descriptions.c (tdesc_type): Add TDESC_TYPE_I387_EXT, diff --git a/gdb/c-exp.y b/gdb/c-exp.y index 8e00979ff8a..845771c9b96 100644 --- a/gdb/c-exp.y +++ b/gdb/c-exp.y @@ -2450,6 +2450,9 @@ c_parse (void) gdb_assert (! macro_original_text); make_cleanup (scan_macro_cleanup, 0); + make_cleanup_restore_integer (&yydebug); + yydebug = parser_debug; + /* Initialize some state used by the lexer. */ last_was_structop = 0; saw_name_at_eof = 0; diff --git a/gdb/doc/ChangeLog b/gdb/doc/ChangeLog index dbd12dffc13..b5bef2f5547 100644 --- a/gdb/doc/ChangeLog +++ b/gdb/doc/ChangeLog @@ -1,3 +1,8 @@ +2010-02-10 Tom Tromey + + * gdb.texinfo (Debugging Output): Document set debug parser and + show debug parser. + 2010-02-09 H.J. Lu * gdb.texinfo (Predefined Target Types): Add i387_ext, diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo index 81c0b6bebc0..4fc064dda5c 100644 --- a/gdb/doc/gdb.texinfo +++ b/gdb/doc/gdb.texinfo @@ -18848,6 +18848,15 @@ is off. @item show debug overload Displays the current state of displaying @value{GDBN} C@t{++} overload debugging info. +@cindex expression parser, debugging info +@cindex debug expression parser +@item set debug parser +Turns on or off the display of expression parser debugging output. +Internally, this sets the @code{yydebug} variable in the expression +parser. @xref{Tracing, , Tracing Your Parser, bison, Bison}, for +details. The default is off. +@item show debug parser +Show the current state of expression parser debugging. @cindex packets, reporting on stdout @cindex serial connections, debugging @cindex debug remote protocol diff --git a/gdb/parse.c b/gdb/parse.c index d5a199bfc55..aabc4616c84 100644 --- a/gdb/parse.c +++ b/gdb/parse.c @@ -109,6 +109,18 @@ show_expressiondebug (struct ui_file *file, int from_tty, fprintf_filtered (file, _("Expression debugging is %s.\n"), value); } + +/* Non-zero if an expression parser should set yydebug. */ +int parser_debug; + +static void +show_parserdebug (struct ui_file *file, int from_tty, + struct cmd_list_element *c, const char *value) +{ + fprintf_filtered (file, _("Parser debugging is %s.\n"), value); +} + + static void free_funcalls (void *ignore); static int prefixify_expression (struct expression *); @@ -1377,4 +1389,12 @@ When non-zero, the internal representation of expressions will be printed."), NULL, show_expressiondebug, &setdebuglist, &showdebuglist); + add_setshow_boolean_cmd ("parser", class_maintenance, + &parser_debug, _("\ +Set parser debugging."), _("\ +Show parser debugging."), _("\ +When non-zero, expression parser tracing will be enabled."), + NULL, + show_parserdebug, + &setdebuglist, &showdebuglist); } diff --git a/gdb/parser-defs.h b/gdb/parser-defs.h index 6fcf7ae5305..c4eb1a042a8 100644 --- a/gdb/parser-defs.h +++ b/gdb/parser-defs.h @@ -29,6 +29,8 @@ struct block; +extern int parser_debug; + extern struct expression *expout; extern int expout_size; extern int expout_ptr; -- 2.30.2