static bfd_boolean ldlang_sysrooted_script = FALSE;
/* Forward declarations. */
+static void exp_init_os (etree_type *);
static void init_map_userdata (bfd *, asection *, void *);
static lang_input_statement_type *lookup_name (const char *);
static struct bfd_hash_entry *lang_definedness_newfunc
/* Initialize an output section. */
static void
-init_os (lang_output_section_statement_type *s, asection *isec, flagword flags)
+init_os (lang_output_section_statement_type *s, asection *isec,
+ flagword flags)
{
+ if (s->bfd_section != NULL)
+ return;
+
if (strcmp (s->name, DISCARD_SECTION_NAME) == 0)
einfo (_("%P%F: Illegal use of `%s' section\n"), DISCARD_SECTION_NAME);
get_userdata (s->bfd_section) = new_userdata;
}
+ /* If there is a base address, make sure that any sections it might
+ mention are initialized. */
+ if (s->addr_tree != NULL)
+ exp_init_os (s->addr_tree);
+
+ if (s->load_base != NULL)
+ exp_init_os (s->load_base);
+
/* If supplied an alignment, set it. */
if (s->section_alignment != -1)
s->bfd_section->alignment_power = s->section_alignment;
(lang_statement_union_type *s, const char *target,
lang_output_section_statement_type *os)
{
+ flagword flags;
+
for (; s != NULL; s = s->header.next)
{
- lang_output_section_statement_type *tos;
-
switch (s->header.type)
{
case lang_wild_statement_enum:
os);
break;
case lang_output_section_statement_enum:
- tos = &s->output_section_statement;
- if (tos->constraint != 0)
+ if (s->output_section_statement.constraint)
{
- if (tos->constraint != ONLY_IF_RW
- && tos->constraint != ONLY_IF_RO)
+ if (s->output_section_statement.constraint != ONLY_IF_RW
+ && s->output_section_statement.constraint != ONLY_IF_RO)
break;
- tos->all_input_readonly = TRUE;
- check_input_sections (tos->children.head, tos);
- if (tos->all_input_readonly != (tos->constraint == ONLY_IF_RO))
+ s->output_section_statement.all_input_readonly = TRUE;
+ check_input_sections (s->output_section_statement.children.head,
+ &s->output_section_statement);
+ if ((s->output_section_statement.all_input_readonly
+ && s->output_section_statement.constraint == ONLY_IF_RW)
+ || (!s->output_section_statement.all_input_readonly
+ && s->output_section_statement.constraint == ONLY_IF_RO))
{
- tos->constraint = -1;
+ s->output_section_statement.constraint = -1;
break;
}
}
- map_input_to_output_sections (tos->children.head,
+
+ map_input_to_output_sections (s->output_section_statement.children.head,
target,
- tos);
+ &s->output_section_statement);
+ break;
+ case lang_output_statement_enum:
break;
case lang_target_statement_enum:
target = s->target_statement.target;
target,
os);
break;
- case lang_address_statement_enum:
- /* Mark the specified section with the supplied address.
- If this section was actually a segment marker, then the
- directive is ignored if the linker script explicitly
- processed the segment marker. Originally, the linker
- treated segment directives (like -Ttext on the
- command-line) as section directives. We honor the
- section directive semantics for backwards compatibilty;
- linker scripts that do not specifically check for
- SEGMENT_START automatically get the old semantics. */
- if (!s->address_statement.segment
- || !s->address_statement.segment->used)
- {
- const char *name = s->address_statement.section_name;
-
- /* Create the output section statement here rather than
- in create_other_output_sections so that orphans with
- a set address will be placed after other script
- sections. If we let the orphan placement code place
- them in amongst other sections then the address will
- affect following script sections, which is likely to
- surprise naive users. */
- tos = lang_output_section_statement_lookup (name, 0, TRUE);
- tos->addr_tree = s->address_statement.address;
- }
- break;
- case lang_output_statement_enum:
- case lang_data_statement_enum:
- case lang_input_section_enum:
- case lang_fill_statement_enum:
- case lang_object_symbols_statement_enum:
- case lang_reloc_statement_enum:
- case lang_padding_statement_enum:
- case lang_input_statement_enum:
- case lang_assignment_statement_enum:
- case lang_insert_statement_enum:
- break;
- }
- }
-}
-
-/* Create any other output sections, such as needed for data statements
- or those referenced in expressions. */
-
-static void
-create_other_output_sections
- (lang_statement_union_type *s,
- lang_output_section_statement_type *os)
-{
- lang_output_section_statement_type *tos;
- flagword flags;
-
- for (; s != NULL; s = s->header.next)
- {
- switch (s->header.type)
- {
- case lang_wild_statement_enum:
- break;
- case lang_constructors_statement_enum:
- create_other_output_sections (constructor_list.head, os);
- break;
- case lang_output_section_statement_enum:
- tos = &s->output_section_statement;
- if (tos->constraint != 0
- && tos->constraint != ONLY_IF_RW
- && tos->constraint != ONLY_IF_RO)
- break;
- create_other_output_sections (tos->children.head, tos);
- if (tos->bfd_section != NULL)
- {
- /* If there is a base address, make sure that any sections
- it might mention are initialized. */
- if (tos->addr_tree != NULL)
- exp_init_os (tos->addr_tree);
- if (tos->load_base != NULL)
- exp_init_os (tos->load_base);
- }
- break;
- case lang_output_statement_enum:
- case lang_target_statement_enum:
- break;
- case lang_group_statement_enum:
- create_other_output_sections (s->group_statement.children.head, os);
- break;
case lang_data_statement_enum:
/* Make sure that any sections mentioned in the expression
are initialized. */
exp_init_os (s->data_statement.exp);
- if (os->bfd_section == NULL)
- init_os (os, NULL, 0);
flags = SEC_HAS_CONTENTS;
/* The output section gets contents, and then we inspect for
any flags set in the input script which override any ALLOC. */
if (!(os->flags & SEC_NEVER_LOAD))
flags |= SEC_ALLOC | SEC_LOAD;
- os->bfd_section->flags |= flags;
+ if (os->bfd_section == NULL)
+ init_os (os, NULL, flags);
+ else
+ os->bfd_section->flags |= flags;
break;
case lang_input_section_enum:
break;
exp_init_os (s->assignment_statement.exp);
break;
case lang_address_statement_enum:
+ /* Mark the specified section with the supplied address.
+ If this section was actually a segment marker, then the
+ directive is ignored if the linker script explicitly
+ processed the segment marker. Originally, the linker
+ treated segment directives (like -Ttext on the
+ command-line) as section directives. We honor the
+ section directive semantics for backwards compatibilty;
+ linker scripts that do not specifically check for
+ SEGMENT_START automatically get the old semantics. */
if (!s->address_statement.segment
|| !s->address_statement.segment->used)
{
- const char *name = s->address_statement.section_name;
+ lang_output_section_statement_type *aos
+ = (lang_output_section_statement_lookup
+ (s->address_statement.section_name, 0, TRUE));
- tos = lang_output_section_find (name);
- if (tos->bfd_section == NULL)
- init_os (tos, NULL, 0);
+ if (aos->bfd_section == NULL)
+ init_os (aos, NULL, 0);
+ aos->addr_tree = s->address_statement.address;
}
break;
case lang_insert_statement_enum:
/* Find any sections not attached explicitly and handle them. */
lang_place_orphans ();
- /* Create sections for data statements and those referenced in
- expressions but otherwise empty. */
- create_other_output_sections (statement_list.head, NULL);
-
if (! link_info.relocatable)
{
asection *found;
projects / binutils-gdb.git / commitdiff