From: Richard Stallman <rms@gnu.org>
Date: Sat, 20 Mar 1993 09:06:17 +0000 (+0000)
Subject: (print_node): Print the chain of a STRING_CST.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=28d10ceaf5378573273250563b879c15296a77a4;p=gcc.git

(print_node): Print the chain of a STRING_CST.

From-SVN: r3799
---

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 9b3881883b4..cb8df0c6b49 100644
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -586,6 +586,11 @@ print_node (file, prefix, node, indent)
 
 	case STRING_CST:
 	  fprintf (file, " \"%s\"", TREE_STRING_POINTER (node));
+	  /* Print the chain at second level.  */
+	  if (indent == 4)
+	    print_node (file, "chain", TREE_CHAIN (node), indent + 4);
+	  else
+	    print_node_brief (file, "chain", TREE_CHAIN (node), indent + 4);
 	  break;
 
 	case IDENTIFIER_NODE: