* tree.h: Declare it.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151618
138bc75d-0d04-0410-961f-
82ee72b054a4
+2009-09-10 Jason Merrill <jason@redhat.com>
+
+ * tree.c (chain_index): New fn.
+ * tree.h: Declare it.
+
2009-09-10 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* config/sol2-c.c (cmn_err_length_specs): Initialize
return NULL_TREE;
}
+/* Returns element number IDX (zero-origin) of chain CHAIN, or
+ NULL_TREE. */
+
+tree
+chain_index (int idx, tree chain)
+{
+ for (; chain && idx > 0; --idx)
+ chain = TREE_CHAIN (chain);
+ return chain;
+}
+
/* Return nonzero if ELEM is part of the chain CHAIN. */
int
extern tree value_member (tree, tree);
extern tree purpose_member (const_tree, tree);
+extern tree chain_index (int, tree);
extern int attribute_list_equal (const_tree, const_tree);
extern int attribute_list_contained (const_tree, const_tree);