*insert = &files.head->input_statement;
files.head = (lang_statement_union_type *) *iter;
*iter = temp;
+ if (file_chain.tail == (lang_statement_union_type **) insert)
+ file_chain.tail = (lang_statement_union_type **) iter;
if (my_arch != NULL)
{
lang_input_statement_type *parent = bfd_usrdata (my_arch);
bfd_set_section_size (reloc_s, 0);
- /* FIXME: I am not sure if this is the right way to solve PR 29998.
- It might be better to change ldlang.c:lang_statement_append() so that it
- checks to see if *(list->tail) is non-NULL and if so, set element->next
- to its contents.
-
- The issue is that this function is called after lang_process().
- lang_process () will have gone through any input archives, and if the
- last input file is an archive then it will have left file_chain.tail
- pointing to the last used element of that archive. Calling
- ldlang_add_file() here then blows aaway the link to that archive element,
- effectively deleting it from the input. In order to prevent this, the
- assignment below fills in the next field of the statement that is about
- to appended to the file chain. */
- if (file_chain.tail != NULL)
- filler_file->next = & (* file_chain.tail)->input_statement;
-
ldlang_add_file (filler_file);
}