aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorRichard Stallman <rms@gnu.org>1992-05-22 20:33:20 +0000
committerRichard Stallman <rms@gnu.org>1992-05-22 20:33:20 +0000
commit7da551a2e80eeb4f2b3fa8765e84b79e899d934c (patch)
tree7563cb6789d2ea397a02a4bbb6dc3acb789068d5 /gcc
parent88d92ca5b290f6bd966ebfa9ca98652763f61b18 (diff)
downloadgcc-7da551a2e80eeb4f2b3fa8765e84b79e899d934c.zip
gcc-7da551a2e80eeb4f2b3fa8765e84b79e899d934c.tar.gz
gcc-7da551a2e80eeb4f2b3fa8765e84b79e899d934c.tar.bz2
*** empty log message ***
From-SVN: r1052
Diffstat (limited to 'gcc')
-rw-r--r--gcc/c-common.c47
-rw-r--r--gcc/c-decl.c53
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. */