diff options
| author | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1994-11-10 23:02:50 +0000 |
|---|---|---|
| committer | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1994-11-10 23:02:50 +0000 |
| commit | 7bc652825478e604269a6a0da73fa14ba400c04c (patch) | |
| tree | 5d263a23ce43098806c480d27583602b344678d6 /gcc | |
| parent | 26790cbae976e47712f4695bc3939b8b5d7eb8af (diff) | |
| download | gcc-7bc652825478e604269a6a0da73fa14ba400c04c.tar.gz | |
(decl_attributes): Check for attributes with leading and trailing
double underscores.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@8412 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/c-common.c | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/gcc/c-common.c b/gcc/c-common.c index 56201a695ce..407203f161e 100644 --- a/gcc/c-common.c +++ b/gcc/c-common.c @@ -215,7 +215,8 @@ decl_attributes (decl, attributes) for (a = attributes; a; a = TREE_CHAIN (a)) if (!(name = TREE_VALUE (a))) continue; - else if (name == get_identifier ("packed")) + else if (name == get_identifier ("packed") + || name == get_identifier ("__packed__")) { if (TREE_CODE (decl) == FIELD_DECL) DECL_PACKED (decl) = 1; @@ -226,7 +227,9 @@ decl_attributes (decl, attributes) } else if (TREE_VALUE (a) == get_identifier ("noreturn") - || TREE_VALUE (a) == get_identifier ("volatile")) + || TREE_VALUE (a) == get_identifier ("__noreturn__") + || TREE_VALUE (a) == get_identifier ("volatile") + || TREE_VALUE (a) == get_identifier ("__volatile__")) { if (TREE_CODE (decl) == FUNCTION_DECL) TREE_THIS_VOLATILE (decl) = 1; @@ -240,7 +243,8 @@ decl_attributes (decl, attributes) warning_with_decl (decl, "`%s' attribute ignored", IDENTIFIER_POINTER (TREE_VALUE (a))); } - else if (TREE_VALUE (a) == get_identifier ("const")) + else if (TREE_VALUE (a) == get_identifier ("const") + || TREE_VALUE (a) == get_identifier ("__const__")) { if (TREE_CODE (decl) == FUNCTION_DECL) TREE_READONLY (decl) = 1; @@ -253,7 +257,8 @@ decl_attributes (decl, attributes) else warning_with_decl (decl, "`const' attribute ignored"); } - else if (TREE_VALUE (a) == get_identifier ("transparent_union")) + else if (TREE_VALUE (a) == get_identifier ("transparent_union") + || TREE_VALUE (a) == get_identifier ("__transparent_union__")) { if (TREE_CODE (decl) == PARM_DECL && TREE_CODE (type) == UNION_TYPE @@ -286,7 +291,8 @@ found_attr:; IDENTIFIER_POINTER (name)); } else if ( args = TREE_CHAIN(name), - !strcmp (IDENTIFIER_POINTER (name = TREE_PURPOSE (name)), "mode") + (!strcmp (IDENTIFIER_POINTER (name = TREE_PURPOSE (name)), "mode") + || !strcmp (IDENTIFIER_POINTER (name), "__mode__")) && list_length (args) == 1 && TREE_CODE (TREE_VALUE (args)) == IDENTIFIER_NODE) { @@ -313,7 +319,8 @@ found_attr:; if (i == NUM_MACHINE_MODES) error_with_decl (decl, "unknown machine mode `%s'", specified_name); } - else if (!strcmp (IDENTIFIER_POINTER (name), "section") + else if ((!strcmp (IDENTIFIER_POINTER (name), "section") + || !strcmp (IDENTIFIER_POINTER (name), "__section__")) && list_length (args) == 1 && TREE_CODE (TREE_VALUE (args)) == STRING_CST) { @@ -340,7 +347,8 @@ found_attr:; error_with_decl (decl, "section attributes are not supported for this target"); #endif } - else if (!strcmp (IDENTIFIER_POINTER (name), "aligned") + else if ((!strcmp (IDENTIFIER_POINTER (name), "aligned") + || !strcmp (IDENTIFIER_POINTER (name), "__aligned__")) && list_length (args) == 1 && TREE_CODE (TREE_VALUE (args)) == INTEGER_CST) { @@ -372,7 +380,8 @@ found_attr:; else DECL_ALIGN (decl) = align; } - else if (!strcmp (IDENTIFIER_POINTER (name), "format") + else if ((!strcmp (IDENTIFIER_POINTER (name), "format") + || !strcmp (IDENTIFIER_POINTER (name), "__format__")) && list_length (args) == 3 && TREE_CODE (TREE_VALUE (args)) == IDENTIFIER_NODE && TREE_CODE (TREE_VALUE (TREE_CHAIN (args))) == INTEGER_CST |