From: Richard Stallman <rms@gnu.org>
Date: Tue, 7 Jul 1992 01:43:38 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3110a56ea54f7245a3f1deb97ed6ed9a4894bc81;p=gcc.git

*** empty log message ***

From-SVN: r1490
---

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index b7aaddef7b2..27d1591a541 100644
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -287,6 +287,8 @@ print_node (file, prefix, node, indent)
     fputs (" asm_written", file);
   if (TREE_USED (node))
     fputs (" used", file);
+  if (TREE_RAISES (node))
+    fputs (" raises", file);
   if (TREE_PERMANENT (node))
     fputs (" permanent", file);
   if (TREE_PUBLIC (node))
@@ -331,6 +333,8 @@ print_node (file, prefix, node, indent)
 	fputs (" from_inline", file);
       if (DECL_IGNORED_P (node))
 	fputs (" ignored", file);
+      if (DECL_IN_SYSTEM_HEADER (node))
+	fputs (" in_system_header", file);
       if (DECL_LANG_FLAG_0 (node))
 	fputs (" decl_0", file);
       if (DECL_LANG_FLAG_1 (node))
diff --git a/gcc/tree.c b/gcc/tree.c
index b5c50717fb8..93ebeac17f7 100644
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -856,6 +856,8 @@ make_node (code)
 
     case 'd':
       if (code != FUNCTION_DECL)
+      DECL_IN_SYSTEM_HEADER (t) =
+	in_system_header && (obstack == &permanent_obstack);
 	DECL_ALIGN (t) = 1;
       DECL_SOURCE_LINE (t) = lineno;
       DECL_SOURCE_FILE (t) = (input_filename) ? input_filename : "<built-in>";
diff --git a/gcc/tree.h b/gcc/tree.h
index 209fbf3df00..e632cdca841 100644
--- a/gcc/tree.h
+++ b/gcc/tree.h
@@ -733,6 +733,11 @@ struct tree_type
    for symbolic debug purposes.  */
 #define DECL_IGNORED_P(NODE) ((NODE)->decl.ignored_flag)
 
+/* Nonzero if a _DECL means that no warnings should be generated just
+   because this decl is unused.  */
+#define DECL_IN_SYSTEM_HEADER(NODE) ((NODE)->decl.in_system_header_flag)
+
+/* Language-specific decl information.  */
 #define DECL_LANG_SPECIFIC(NODE) ((NODE)->decl.lang_specific)
 
 /* In a VAR_DECL or FUNCTION_DECL,
@@ -810,6 +815,9 @@ struct tree_decl
   unsigned from_inline_flag : 1;
   unsigned ignored_flag : 1;
 
+  unsigned in_system_header_flag : 1;
+  /* room for seven more */
+
   unsigned lang_flag_0 : 1;
   unsigned lang_flag_1 : 1;
   unsigned lang_flag_2 : 1;