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

gcc/ChangeLog

+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

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

gcc/f/ChangeLog.egcs

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

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 ()
 {

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;
+{
+}
+
 
 static tree
 define_decl (declarator, declspecs)

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;
 	}