re PR middle-end/60147 (ICE with -fdump-tree-original and NAMELIST)

2014-02-28  Tobias Burnus  <burnus@net-b.de>

        PR middle-end/60147
        * tree-pretty-print.c (dump_generic_node, print_declaration):
        Handle NAMELIST_DECL.

From-SVN: r208209

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 60e7d9e950bf8ec24f3231ee78a1bbb2b6d9e506..995957c447638c5c567c78f255cd5e836f38403a 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2014-02-28  Tobias Burnus  <burnus@net-b.de>
+
+       PR middle-end/60147
+       * tree-pretty-print.c (dump_generic_node, print_declaration): Handle
+       NAMELIST_DECL.
+
 2014-02-27  H.J. Lu  <hongjiu.lu@intel.com>
 
        * doc/tm.texi.in (Condition Code Status): Update documention for

diff --git a/gcc/tree-pretty-print.c b/gcc/tree-pretty-print.c
index 0595499ec25c0ae6497235da8596a09116fce80d..7ec4223d9e1923519e1b2968e63750c3e53ffe69 100644 (file)
--- a/gcc/tree-pretty-print.c
+++ b/gcc/tree-pretty-print.c
@@ -1390,6 +1390,7 @@ dump_generic_node (pretty_printer *buffer, tree node, int spc, int flags,
     case FIELD_DECL:
     case DEBUG_EXPR_DECL:
     case NAMESPACE_DECL:
+    case NAMELIST_DECL:
       dump_decl_name (buffer, node, flags);
       break;
 
@@ -2686,6 +2687,14 @@ print_declaration (pretty_printer *buffer, tree t, int spc, int flags)
 {
   INDENT (spc);
 
+  if (TREE_CODE(t) == NAMELIST_DECL)
+    {
+      pp_string(buffer, "namelist ");
+      dump_decl_name (buffer, t, flags);
+      pp_semicolon (buffer);
+      return;
+    }
+
   if (TREE_CODE (t) == TYPE_DECL)
     pp_string (buffer, "typedef ");