OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(decl_attributes): Add third argument prefix_attributes. 

(valid_machine_attribute): Deleted; moved to tree.c.

From-SVN: r8993
This commit is contained in:
Richard Kenner 1995-02-21 17:55:41 -05:00
parent 173712fb10
commit 1228e2a6b2
1 changed files with 25 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
gcc/c-common.c
View File

@ -199,18 +199,27 @@ combine_strings (strings)
return value;
}
/* Process the attributes listed in ATTRIBUTES
and install them in DECL. */
/* Process the attributes listed in ATTRIBUTES and PREFIX_ATTRIBUTES
and install them in DECL. PREFIX_ATTRIBUTES can appear after the
declaration specifiers and declaration modifiers but before the
declaration proper. */
void
decl_attributes (decl, attributes)
tree decl, attributes;
decl_attributes (decl, attributes, prefix_attributes)
tree decl, attributes, prefix_attributes;
{
tree a, name, args, type, new_attr;
tree a, name, args, type;
type = TREE_TYPE (decl);
new_attr = TYPE_ATTRIBUTES (type);
for (a = prefix_attributes; a; a = TREE_CHAIN (a))
if (!(name = TREE_VALUE (a)))
continue;
else if (valid_machine_attribute (name, decl, type))
;
else
warning ("`%s' attribute directive ignored",
IDENTIFIER_POINTER (name));
for (a = attributes; a; a = TREE_CHAIN (a))
if (!(name = TREE_VALUE (a)))
@ -273,8 +282,8 @@ decl_attributes (decl, attributes)
else
warning_with_decl (decl, "`transparent_union' attribute ignored");
}
else if (TREE_VALUE (a) == get_identifier ("constructor")
|| TREE_VALUE (a) == get_identifier ("__constructor__"))
else if (name == get_identifier ("constructor")
|| name == get_identifier ("__constructor__"))
{
if (TREE_CODE (decl) != FUNCTION_DECL
|| TREE_CODE (TREE_TYPE (decl)) != FUNCTION_TYPE
@ -286,8 +295,8 @@ decl_attributes (decl, attributes)
}
DECL_STATIC_CONSTRUCTOR (decl) = 1;
}
else if (TREE_VALUE (a) == get_identifier ("destructor")
|| TREE_VALUE (a) == get_identifier ("__destructor__"))
else if (name == get_identifier ("destructor")
|| name == get_identifier ("__destructor__"))
{
if (TREE_CODE (decl) != FUNCTION_DECL
|| TREE_CODE (TREE_TYPE (decl)) != FUNCTION_TYPE
@ -299,25 +308,6 @@ decl_attributes (decl, attributes)
}
DECL_STATIC_DESTRUCTOR (decl) = 1;
}
else if (TREE_CODE (name) != TREE_LIST)
{
#ifdef VALID_MACHINE_ATTRIBUTE
if (VALID_MACHINE_ATTRIBUTE (type, new_attr, name))
{
register tree atlist;
for (atlist = new_attr; atlist; atlist = TREE_CHAIN (atlist))
if (TREE_VALUE (atlist) == name)
goto found_attr;
new_attr = tree_cons (NULL_TREE, name, new_attr);
found_attr:;
}
else
#endif
warning ("`%s' attribute directive ignored",
IDENTIFIER_POINTER (name));
}
else if ( args = TREE_CHAIN (name),
(!strcmp (IDENTIFIER_POINTER (name = TREE_PURPOSE (name)), "mode")
|| !strcmp (IDENTIFIER_POINTER (name), "__mode__"))
@ -364,7 +354,8 @@ decl_attributes (decl, attributes)
#ifdef ASM_OUTPUT_SECTION_NAME
if (TREE_CODE (decl) == FUNCTION_DECL || TREE_CODE (decl) == VAR_DECL)
{
if (TREE_CODE (decl) == VAR_DECL && current_function_decl != NULL_TREE)
if (TREE_CODE (decl) == VAR_DECL
&& current_function_decl != NULL_TREE)
error_with_decl (decl,
"section attribute cannot be specified for local variables");
/* The decl may have already been given a section attribute from
@ -422,7 +413,8 @@ decl_attributes (decl, attributes)
&& list_length (args) == 3
&& TREE_CODE (TREE_VALUE (args)) == IDENTIFIER_NODE
&& TREE_CODE (TREE_VALUE (TREE_CHAIN (args))) == INTEGER_CST
&& TREE_CODE (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (args)))) == INTEGER_CST )
&& TREE_CODE (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (args))))
== INTEGER_CST )
{
tree format_type = TREE_VALUE (args);
tree format_num_expr = TREE_VALUE (TREE_CHAIN (args));
@ -519,24 +511,12 @@ decl_attributes (decl, attributes)
record_function_format (DECL_NAME (decl), DECL_ASSEMBLER_NAME (decl),
is_scan, format_num, first_arg_num);
}
#ifdef VALID_MACHINE_ATTRIBUTE
else if (VALID_MACHINE_ATTRIBUTE (type, new_attr, TREE_VALUE (a)))
{
register tree atlist;
for (atlist = new_attr; atlist; atlist = TREE_CHAIN (atlist))
if (TREE_VALUE (atlist) == TREE_VALUE (a))
goto found_attr2;
new_attr = tree_cons (NULL_TREE, TREE_VALUE (a), new_attr);
found_attr2:;
}
#endif
else if (valid_machine_attribute (name, decl, type))
;
else
warning ("`%s' attribute directive ignored",
IDENTIFIER_POINTER (name));
TREE_TYPE (decl) = build_type_attribute_variant (type, new_attr);
}
/* Check a printf/fprintf/sprintf/scanf/fscanf/sscanf format against