From 7da551a2e80eeb4f2b3fa8765e84b79e899d934c Mon Sep 17 00:00:00 2001
From: Richard Stallman <rms@gnu.org>
Date: Fri, 22 May 1992 20:33:20 +0000
Subject: [PATCH] *** empty log message ***

From-SVN: r1052
---
 gcc/c-common.c | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 gcc/c-decl.c   | 53 +++++++----------------------------------------------
 2 files changed, 54 insertions(+), 46 deletions(-)

diff --git a/gcc/c-common.c b/gcc/c-common.c
index e01b37f..0c8118e 100644
--- a/gcc/c-common.c
+++ b/gcc/c-common.c
@@ -27,6 +27,53 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #undef NULL
 #define NULL 0
 
+/* Make bindings for __NAME__ and __PRINTABLE_NAME__.  */
+
+void
+declare_function_name ()
+{
+  tree decl, init;
+  char *name, *printable_name;
+
+  if (current_function_decl == NULL)
+    {
+      name = "";
+      printable_name = "top level";
+    }
+  else
+    {
+      char *kind = "function";
+      if (TREE_CODE (TREE_TYPE (current_function_decl)) == METHOD_TYPE)
+	kind = "method";
+      name = IDENTIFIER_POINTER (DECL_NAME (current_function_decl));
+      printable_name = (*decl_printable_name) (current_function_decl, &kind);
+    }
+
+  push_obstacks_nochange ();
+  decl = build_decl (VAR_DECL, get_identifier ("__NAME__"),
+		     char_array_type_node);
+  TREE_STATIC (decl) = 1;
+  TREE_READONLY (decl) = 1;
+  TREE_NO_UNUSED_WARNING (decl) = 1;
+  DECL_IGNORED_P (decl) = 1;
+  init = build_string (strlen (name) + 1, name);
+  TREE_TYPE (init) = char_array_type_node;
+  DECL_INITIAL (decl) = init;
+  finish_decl (pushdecl (decl), init, NULL_TREE);
+
+  push_obstacks_nochange ();
+  decl = build_decl (VAR_DECL, get_identifier ("__PRINTABLE_NAME__"),
+		     char_array_type_node);
+  TREE_STATIC (decl) = 1;
+  TREE_READONLY (decl) = 1;
+  TREE_NO_UNUSED_WARNING (decl) = 1;
+  DECL_IGNORED_P (decl) = 1;
+  init = build_string (strlen (printable_name) + 1, printable_name);
+  TREE_TYPE (init) = char_array_type_node;
+  DECL_INITIAL (decl) = init;
+  finish_decl (pushdecl (decl), init, NULL_TREE);
+}
+
 /* Given a chain of STRING_CST nodes,
    concatenate them into one STRING_CST
    and give it a suitable array-of-chars data type.  */
diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index 7e502ec..5f90817 100644
--- a/gcc/c-decl.c
+++ b/gcc/c-decl.c
@@ -381,7 +381,6 @@ static struct binding_level *label_level_chain;
 static tree grokparms (), grokdeclarator ();
 tree pushdecl ();
 tree builtin_function ();
-static void declare_function_name ();
 
 static tree lookup_tag ();
 static tree lookup_tag_reverse ();
@@ -1790,7 +1789,10 @@ pushdecl (x)
 		   /* No shadow warnings for internally generated vars.  */
 		   && !DECL_IGNORED_P (x)
 		   /* No shadow warnings for vars made for inlining.  */
-		   && ! DECL_FROM_INLINE (x))
+		   && ! DECL_FROM_INLINE (x)
+		   /* No shadow warnings for user-invisible decls.  */
+		   && ! (TREE_CODE (x) == VAR_DECL
+			 && DECL_IGNORED_P (x) && TREE_READONLY (x)))
 	    {
 	      char *warnstring = 0;
 
@@ -2598,46 +2600,13 @@ init_decl_processing ()
 #endif
 
   /* Create the global bindings of __NAME__ and __PRINTABLE_NAME__.  */
-  declare_function_name ("", "top level");
+  declare_function_name ();
 
   start_identifier_warnings ();
 
   init_format_info_table ();
 }
 
-/* Make bindings for __NAME__ and __PRINTABLE_NAME__.  */
-
-static void
-declare_function_name (name, printable_name)
-     char *name, *printable_name;
-{
-  tree decl, init;
-
-  push_obstacks_nochange ();
-  decl = pushdecl (build_decl (VAR_DECL,
-			       get_identifier ("__NAME__"),
-			       char_array_type_node));
-  TREE_STATIC (decl) = 1;
-  TREE_READONLY (decl) = 1;
-  DECL_IGNORED_P (decl) = 1;
-  init = build_string (strlen (name) + 1, name);
-  TREE_TYPE (init) = char_array_type_node;
-  DECL_INITIAL (decl) = init;
-  finish_decl (decl, init, NULL_TREE);
-
-  push_obstacks_nochange ();
-  decl = pushdecl (build_decl (VAR_DECL,
-			       get_identifier ("__PRINTABLE_NAME__"),
-			       char_array_type_node));
-  TREE_STATIC (decl) = 1;
-  TREE_READONLY (decl) = 1;
-  DECL_IGNORED_P (decl) = 1;
-  init = build_string (strlen (printable_name) + 1, printable_name);
-  TREE_TYPE (init) = char_array_type_node;
-  DECL_INITIAL (decl) = init;
-  finish_decl (decl, init, NULL_TREE);
-}
-
 /* Return a definition for a builtin function named NAME and whose data type
    is TYPE.  TYPE should be a function type with argument types.
    FUNCTION_CODE tells later passes how to compile calls to this function.
@@ -5488,16 +5457,8 @@ store_parm_decls ()
     mark_varargs ();
 
   /* Declare __NAME__ and __PRINTABLE_NAME__ for this function.  */
-  {
-    char *kind = "function";
-    char *name;
-    if (current_function_decl != 0
-	&& TREE_CODE (TREE_TYPE (current_function_decl)) == METHOD_TYPE)
-      kind = "method";
-    name = (*decl_printable_name) (current_function_decl, &kind);
-    declare_function_name (name,
-			   IDENTIFIER_POINTER (DECL_NAME (current_function_decl)));
-  }
+
+  declare_function_name ();
 
   /* Set up parameters and prepare for return, for the function.  */
 
-- 
2.7.4