aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDoug Evans <dje@gnu.org>1996-10-12 18:18:13 +0000
committerDoug Evans <dje@gnu.org>1996-10-12 18:18:13 +0000
commit5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390 (patch)
treed5f278de13831be2e52f3bc8de4e9b90be0872cb
parent239c95d346c5a28c3af07c0064e52c6526a57cab (diff)
downloadgcc-5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390.zip
gcc-5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390.tar.gz
gcc-5e918f1d5d5b1b8fa9ffc85a1ba7fdd079dbf390.tar.bz2
(split_specs_attrs): Delete.
From-SVN: r12958
-rw-r--r--gcc/cp/decl.c67
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.