From: Andrew Burgess <andrew.burgess@embecosm.com>
Date: Thu, 17 Jan 2019 14:42:15 +0000 (+0000)
Subject: gdb/fortran: Enable debugging of the Fortran parser
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e454224fa82aa52a1288a3d6a2e26e8d224d732a;p=binutils-gdb.git

gdb/fortran: Enable debugging of the Fortran parser

This commit allows 'set debug parser on' to work for the Fortran
parser.

gdb/ChangeLog:

	* f-exp.y (f_parse): Set yydebug.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a632de69c37..806847a5e6f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2019-03-06  Andrew Burgess  <andrew.burgess@embecosm.com>
+
+	* f-exp.y (f_parse): Set yydebug.
+
 2019-03-06  Andrew Burgess  <andrew.burgess@embecosm.com>
 
 	* f-lang.c (evaluate_subexp_f): New function.
diff --git a/gdb/f-exp.y b/gdb/f-exp.y
index 5e980944b19..c223d366db3 100644
--- a/gdb/f-exp.y
+++ b/gdb/f-exp.y
@@ -1211,6 +1211,8 @@ f_parse (struct parser_state *par_state)
 {
   /* Setting up the parser state.  */
   scoped_restore pstate_restore = make_scoped_restore (&pstate);
+  scoped_restore restore_yydebug = make_scoped_restore (&yydebug,
+							parser_debug);
   gdb_assert (par_state != NULL);
   pstate = par_state;