From: Tom Tromey <tromey@redhat.com>
Date: Wed, 10 Feb 2010 18:57:21 +0000 (+0000)
Subject: gdb
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=92981e24467c4247c8bf16780cac90b340c0a4c2;p=binutils-gdb.git

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.
---

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  <tromey@redhat.com>
+
+	* 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  <hongjiu.lu@intel.com>
 
 	* 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  <tromey@redhat.com>
+
+	* gdb.texinfo (Debugging Output): Document set debug parser and
+	show debug parser.
+
 2010-02-09  H.J. Lu  <hongjiu.lu@intel.com>
 
 	* 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;