c-lang.c (lang_print_xnode): New function.

	* c-lang.c (lang_print_xnode): New function.
	* objc/objc-act.c (lang_print_xnode): Likewise.
	* print-tree.c (print_node): Call it
	* com.c (lang_print_xnode): New function.

From-SVN: r18789

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 32846c42f2d423b485e454fc0ce782467e36f3b3..896f0be059c00087dfa53285e13c71781e87283f 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+1998-03-24  Martin von Loewis  <loewis@informatik.hu-berlin.de>
+
+       * c-lang.c (lang_print_xnode): New function.
+       * objc/objc-act.c (lang_print_xnode): Likewise.
+       * print-tree.c (print_node): Call it
+
 Mon Mar 23 23:59:11 1998  H.J. Lu  (hjl@gnu.org)
 
        * c-parse.in: Recognize protocol qualifiers in class

diff --git a/gcc/c-lang.c b/gcc/c-lang.c
index 4b4a6840e35cf34dde08693ec3ff4ca3d3c7af54..326b97f90963919866ed1ec4976f132ba9220a9f 100644 (file)
--- a/gcc/c-lang.c
+++ b/gcc/c-lang.c
@@ -61,6 +61,16 @@ print_lang_statistics ()
 {
 }
 
+/* used by print-tree.c */
+
+void
+lang_print_xnode (file, node, indent)
+     FILE *file;
+     tree node;
+     int indent;
+{
+}
+
 /* Used by c-lex.c, but only for objc.  */
 
 tree

diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs
index f39a6f7fef934aa5da2abdc0bc079f59dce7d1f1..ead0d0dfebeb3804d025c6f1308e75f2959421f4 100644 (file)
--- a/gcc/f/ChangeLog.egcs
+++ b/gcc/f/ChangeLog.egcs
@@ -1,3 +1,7 @@
+1998-03-24  Martin von Loewis  <loewis@informatik.hu-berlin.de>
+
+       * com.c (lang_print_xnode): New function.
+
 Sun Mar 22 00:50:42 1998  Nick Clifton  <nickc@cygnus.com>
                           Geoff Noer    <noer@cygnus.com>
 

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 0f895a91a9e04a84e79b4a80bd3972cd6dce9304..5e5d4ef71258e4a60739e007f5a5865bc7ae4116 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -14842,6 +14842,16 @@ lang_decode_option (p)
   return ffe_decode_option (p);
 }
 
+/* used by print-tree.c */
+
+void
+lang_print_xnode (file, node, indent)
+     FILE *file UNUSED;
+     tree node UNUSED;
+     int indent UNUSED;
+{
+}
+
 void
 lang_finish ()
 {

diff --git a/gcc/objc/objc-act.c b/gcc/objc/objc-act.c
index f997ecbb19cafbe1a6627ba272e1799917020e82..1f755c8bfd6dfdf957a159bec2fcdab849118601 100644 (file)
--- a/gcc/objc/objc-act.c
+++ b/gcc/objc/objc-act.c
@@ -694,6 +694,17 @@ lang_decode_option (p)
 
   return 1;
 }
+
+/* used by print-tree.c */
+
+void
+lang_print_xnode (file, node, indent)
+     FILE *file;
+     tree node;
+     int indent;
+{
+}
+
 \f
 static tree
 define_decl (declarator, declspecs)

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 3d43d18b8a21dbc12b4d9a2c6664a09f934646f1..7f37e822809e05ed193197b113c6535765b80d2f 100644 (file)
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -672,6 +672,8 @@ print_node (file, prefix, node, indent)
          break;
 
        default:
+         if (TREE_CODE_CLASS (TREE_CODE (node)) == 'x')
+           lang_print_xnode (file, node, indent);
          break;
        }