diff options
author | Doug Evans <dje@gnu.org> | 1996-10-12 18:18:13 +0000 |
---|---|---|
committer | Doug Evans <dje@gnu.org> | 1996-10-12 18:18:13 +0000 |
commit | 5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390 (patch) | |
tree | d5f278de13831be2e52f3bc8de4e9b90be0872cb | |
parent | 239c95d346c5a28c3af07c0064e52c6526a57cab (diff) | |
download | gcc-5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390.zip gcc-5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390.tar.gz gcc-5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390.tar.bz2 |
(split_specs_attrs): Delete.
From-SVN: r12958
-rw-r--r-- | gcc/cp/decl.c | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c index 5aca192..469b529 100644 --- a/gcc/cp/decl.c +++ b/gcc/cp/decl.c @@ -12619,73 +12619,6 @@ in_function_p () } /* FSF LOCAL dje prefix attributes */ -/* Split SPECS_ATTRS, a list of declspecs and prefix attributes, into two - lists. SPECS_ATTRS may also be just a typespec (eg: RECORD_TYPE). - - The head of the declspec list is stored in DECLSPECS. - The head of the attribute list is stored in PREFIX_ATTRIBUTES. - - Note that attributes in SPECS_ATTRS are stored in the TREE_PURPOSE of - the list elements. We drop the containing TREE_LIST nodes and link the - resulting attributes together the way decl_attributes expects them. */ - -void -split_specs_attrs (specs_attrs, declspecs, prefix_attributes) - tree specs_attrs; - tree *declspecs, *prefix_attributes; -{ - tree t, s, a, next, specs, attrs; - - /* This can happen in c++ (eg: decl: typespec initdecls ';'). */ - if (specs_attrs != NULL_TREE - && TREE_CODE (specs_attrs) != TREE_LIST) - { - *declspecs = specs_attrs; - *prefix_attributes = NULL_TREE; - return; - } - - /* Remember to keep the lists in the same order, element-wise. */ - - specs = s = NULL_TREE; - attrs = a = NULL_TREE; - for (t = specs_attrs; t; t = next) - { - next = TREE_CHAIN (t); - /* Declspecs have a non-NULL TREE_VALUE. */ - if (TREE_VALUE (t) != NULL_TREE) - { - if (specs == NULL_TREE) - specs = s = t; - else - { - TREE_CHAIN (s) = t; - s = t; - } - } - else - { - if (attrs == NULL_TREE) - attrs = a = TREE_PURPOSE (t); - else - { - TREE_CHAIN (a) = TREE_PURPOSE (t); - a = TREE_PURPOSE (t); - } - } - } - - /* Terminate the lists. */ - if (s != NULL_TREE) - TREE_CHAIN (s) = NULL_TREE; - if (a != NULL_TREE) - TREE_CHAIN (a) = NULL_TREE; - - /* All done. */ - *declspecs = specs; - *prefix_attributes = attrs; -} - /* Strip attributes from SPECS_ATTRS, a list of declspecs and attributes. This function is used by the parser when a rule will accept attributes in a particular position, but we don't want to support that just yet. |