From d5d8cfb7aae27a953ef33d038288b3220f8bc16d Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Wed, 19 May 2004 14:01:14 +0000 Subject: [PATCH] * ldgram.y (sect_constraint): New. (ONLY_IF_RO, ONLY_IF_RW): New tokens. (section): Add sect_constraint. Pass additional argument to lang_enter_output_section_statement. * mri.c (mri_draw_tree): Pass additional argument to lang_enter_output_section_statement. * emultempl/pe.em (place_orphan): Likewise. (output_prev_sec_find): Disregard output section statements with constraint == -1. * emultempl/mmo.em (output_prev_sec_find): Likewise. (mmo_place_orphan): Pass additional argument to lang_enter_output_section_statement. * emultempl/elf32.em (output_prev_sec_find): Disregard output section statements with constraint == -1. (place_orphan): Pass additional argument to lang_enter_output_section_statement. * ldlang.c (lang_enter_overlay_section): Likewise. (lang_output_section_find_1): New. (lang_output_section_find): Use it. (lang_output_section_statement_lookup_1): New. (lang_output_section_statement_lookup): Use it. (check_section_callback, check_input_sections): New. (map_input_to_output_sections): Check if all input sections are readonly if ONLY_IF_RO or ONLY_IF_RW was seen. (strip_excluded_output_sections): Disregard output section statements with constraint == -1. (lang_record_phdrs): Likewise. (lang_enter_output_section_statement): Add constraint argument. Use lang_output_section_statement_lookup_1. * ldlang.h (lang_output_section_statement_type): Add constraint and all_input_readonly fields. (lang_enter_output_section_statement): Adjust prototype. * ldlex.l (ONLY_IF_RO, ONLY_IF_RW): New tokens. * scripttempl/elf.sc (.eh_frame, .gcc_except_table): Move into text segment if all input sections are readonly. --- ld/ChangeLog | 38 +++++++++++++++++ ld/emultempl/elf32.em | 5 ++- ld/emultempl/mmo.em | 4 +- ld/emultempl/pe.em | 4 +- ld/ldgram.y | 15 +++++-- ld/ldlang.c | 115 ++++++++++++++++++++++++++++++++++++++++++++++---- ld/ldlang.h | 4 +- ld/ldlex.l | 2 + ld/mri.c | 2 +- ld/scripttempl/elf.sc | 6 ++- 10 files changed, 174 insertions(+), 21 deletions(-) diff --git a/ld/ChangeLog b/ld/ChangeLog index 7bb176fbdc..a96006a65a 100644 --- a/ld/ChangeLog +++ b/ld/ChangeLog @@ -1,3 +1,41 @@ +2004-05-19 Jakub Jelinek + + * ldgram.y (sect_constraint): New. + (ONLY_IF_RO, ONLY_IF_RW): New tokens. + (section): Add sect_constraint. Pass additional argument + to lang_enter_output_section_statement. + * mri.c (mri_draw_tree): Pass additional argument to + lang_enter_output_section_statement. + * emultempl/pe.em (place_orphan): Likewise. + (output_prev_sec_find): Disregard output section statements with + constraint == -1. + * emultempl/mmo.em (output_prev_sec_find): Likewise. + (mmo_place_orphan): Pass additional argument to + lang_enter_output_section_statement. + * emultempl/elf32.em (output_prev_sec_find): Disregard output section + statements with constraint == -1. + (place_orphan): Pass additional argument to + lang_enter_output_section_statement. + * ldlang.c (lang_enter_overlay_section): Likewise. + (lang_output_section_find_1): New. + (lang_output_section_find): Use it. + (lang_output_section_statement_lookup_1): New. + (lang_output_section_statement_lookup): Use it. + (check_section_callback, check_input_sections): New. + (map_input_to_output_sections): Check if all input sections + are readonly if ONLY_IF_RO or ONLY_IF_RW was seen. + (strip_excluded_output_sections): Disregard output section statements + with constraint == -1. + (lang_record_phdrs): Likewise. + (lang_enter_output_section_statement): Add constraint argument. + Use lang_output_section_statement_lookup_1. + * ldlang.h (lang_output_section_statement_type): Add constraint + and all_input_readonly fields. + (lang_enter_output_section_statement): Adjust prototype. + * ldlex.l (ONLY_IF_RO, ONLY_IF_RW): New tokens. + * scripttempl/elf.sc (.eh_frame, .gcc_except_table): Move into text + segment if all input sections are readonly. + 2004-05-19 Adam Nemet * scripttempl/i386lynx.sc: Remove file. diff --git a/ld/emultempl/elf32.em b/ld/emultempl/elf32.em index 8e1c3190f5..cf002e5028 100644 --- a/ld/emultempl/elf32.em +++ b/ld/emultempl/elf32.em @@ -1032,7 +1032,8 @@ output_rel_find (asection *sec, int isdyn) for (u = lang_output_section_statement.head; u; u = lookup->next) { lookup = &u->output_section_statement; - if (strncmp (".rel", lookup->name, 4) == 0) + if (lookup->constraint != -1 + && strncmp (".rel", lookup->name, 4) == 0) { int lookrela = lookup->name[4] == 'a'; @@ -1279,7 +1280,7 @@ gld${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s) os = lang_enter_output_section_statement (secname, address, 0, (etree_type *) NULL, (etree_type *) NULL, - load_base); + load_base, 0); lang_add_section (&os->children, s, os, file); diff --git a/ld/emultempl/mmo.em b/ld/emultempl/mmo.em index 38f1dbf78e..d6d30e676c 100644 --- a/ld/emultempl/mmo.em +++ b/ld/emultempl/mmo.em @@ -47,6 +47,8 @@ output_prev_sec_find (lang_output_section_statement_type *os) u = lookup->next) { lookup = &u->output_section_statement; + if (lookup->constraint == -1) + continue; if (lookup == os) break; if (lookup->bfd_section != NULL @@ -129,7 +131,7 @@ mmo_place_orphan (lang_input_statement_type *file, asection *s) NULL, 0, (etree_type *) NULL, (etree_type *) NULL, - (etree_type *) NULL); + (etree_type *) NULL, 0); lang_add_section (&os->children, s, os, file); diff --git a/ld/emultempl/pe.em b/ld/emultempl/pe.em index a3b50afc71..4438afdee3 100644 --- a/ld/emultempl/pe.em +++ b/ld/emultempl/pe.em @@ -1501,6 +1501,8 @@ output_prev_sec_find (lang_output_section_statement_type *os) u = lookup->next) { lookup = &u->output_section_statement; + if (lookup->constraint == -1) + continue; if (lookup == os) return s; @@ -1664,7 +1666,7 @@ gld_${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s os = lang_enter_output_section_statement (outsecname, address, 0, (etree_type *) NULL, (etree_type *) NULL, - (etree_type *) NULL); + (etree_type *) NULL, 0); lang_add_section (&add_child, s, os, file); diff --git a/ld/ldgram.y b/ld/ldgram.y index 462bd42ec6..75f4e70089 100644 --- a/ld/ldgram.y +++ b/ld/ldgram.y @@ -143,14 +143,14 @@ static int error_index; %token ORIGIN FILL %token LENGTH CREATE_OBJECT_SYMBOLS INPUT GROUP OUTPUT CONSTRUCTORS %token ALIGNMOD AT SUBALIGN PROVIDE -%type assign_op atype attributes_opt +%type assign_op atype attributes_opt sect_constraint %type filename %token CHIP LIST SECT ABSOLUTE LOAD NEWLINE ENDWORD ORDER NAMEWORD ASSERT_K %token FORMAT PUBLIC DEFSYMEND BASE ALIAS TRUNCATE REL %token INPUT_SCRIPT INPUT_MRI_SCRIPT INPUT_DEFSYM CASE EXTERN START %token VERS_TAG VERS_IDENTIFIER %token GLOBAL LOCAL VERSIONK INPUT_VERSION_SCRIPT -%token KEEP +%token KEEP ONLY_IF_RO ONLY_IF_RW %token EXCLUDE_FILE %type vers_defns %type vers_tag @@ -840,22 +840,29 @@ opt_subalign: | { $$ = 0; } ; +sect_constraint: + ONLY_IF_RO { $$ = ONLY_IF_RO; } + | ONLY_IF_RW { $$ = ONLY_IF_RW; } + | { $$ = 0; } + ; + section: NAME { ldlex_expression(); } opt_exp_with_type opt_at opt_subalign { ldlex_popstate (); ldlex_script (); } + sect_constraint '{' { lang_enter_output_section_statement($1, $3, sectype, - 0, $5, $4); + 0, $5, $4, $7); } statement_list_opt '}' { ldlex_popstate (); ldlex_expression (); } memspec_opt memspec_at_opt phdr_opt fill_opt { ldlex_popstate (); - lang_leave_output_section_statement ($15, $12, $14, $13); + lang_leave_output_section_statement ($16, $13, $15, $14); } opt_comma {} diff --git a/ld/ldlang.c b/ld/ldlang.c index d0ceacf9ac..8bbf041a22 100644 --- a/ld/ldlang.c +++ b/ld/ldlang.c @@ -598,8 +598,8 @@ lang_memory_default (asection *section) return lang_memory_region_lookup (DEFAULT_MEMORY_REGION, FALSE); } -lang_output_section_statement_type * -lang_output_section_find (const char *const name) +static lang_output_section_statement_type * +lang_output_section_find_1 (const char *const name, int constraint) { lang_statement_union_type *u; lang_output_section_statement_type *lookup; @@ -607,18 +607,26 @@ lang_output_section_find (const char *const name) for (u = lang_output_section_statement.head; u != NULL; u = lookup->next) { lookup = &u->output_section_statement; - if (strcmp (name, lookup->name) == 0) + if (strcmp (name, lookup->name) == 0 + && lookup->constraint != -1 + && (constraint == 0 || constraint == lookup->constraint)) return lookup; } return NULL; } lang_output_section_statement_type * -lang_output_section_statement_lookup (const char *const name) +lang_output_section_find (const char *const name) +{ + return lang_output_section_find_1 (name, 0); +} + +static lang_output_section_statement_type * +lang_output_section_statement_lookup_1 (const char *const name, int constraint) { lang_output_section_statement_type *lookup; - lookup = lang_output_section_find (name); + lookup = lang_output_section_find_1 (name, constraint); if (lookup == NULL) { lookup = new_stat (lang_output_section_statement, stat_ptr); @@ -631,6 +639,7 @@ lang_output_section_statement_lookup (const char *const name) lookup->next = NULL; lookup->bfd_section = NULL; lookup->processed = 0; + lookup->constraint = constraint; lookup->sectype = normal_section; lookup->addr_tree = NULL; lang_list_init (&lookup->children); @@ -650,6 +659,12 @@ lang_output_section_statement_lookup (const char *const name) return lookup; } +lang_output_section_statement_type * +lang_output_section_statement_lookup (const char *const name) +{ + return lang_output_section_statement_lookup_1 (name, 0); +} + static void lang_map_flags (flagword flag) { @@ -1315,6 +1330,30 @@ output_section_callback (lang_wild_statement_type *ptr, } } +/* Check if all sections in a wild statement for a particular FILE + are readonly. */ + +static void +check_section_callback (lang_wild_statement_type *ptr ATTRIBUTE_UNUSED, + struct wildcard_list *sec ATTRIBUTE_UNUSED, + asection *section, + lang_input_statement_type *file ATTRIBUTE_UNUSED, + void *output) +{ + /* Exclude sections that match UNIQUE_SECTION_LIST. */ + if (unique_section_p (section)) + return; + + if (section->output_section == NULL) + { + flagword flags = bfd_get_section_flags (section->owner, section); + + if ((flags & SEC_READONLY) == 0) + ((lang_output_section_statement_type *) output)->all_input_readonly + = FALSE; + } +} + /* This is passed a file name which must have been seen already and added to the statement tree. We will see if it has been opened already and had its symbols read. If not then we'll read it. */ @@ -2068,6 +2107,40 @@ lang_place_undefineds (void) insert_undefined (ptr->name); } +/* Check for all readonly or some readwrite sections. */ + +static void +check_input_sections (lang_statement_union_type *s, + lang_output_section_statement_type *output_section_statement) +{ + for (; s != (lang_statement_union_type *) NULL; s = s->header.next) + { + switch (s->header.type) + { + case lang_wild_statement_enum: + walk_wild (&s->wild_statement, check_section_callback, + output_section_statement); + if (! output_section_statement->all_input_readonly) + return; + break; + case lang_constructors_statement_enum: + check_input_sections (constructor_list.head, + output_section_statement); + if (! output_section_statement->all_input_readonly) + return; + break; + case lang_group_statement_enum: + check_input_sections (s->group_statement.children.head, + output_section_statement); + if (! output_section_statement->all_input_readonly) + return; + break; + default: + break; + } + } +} + /* Open input files and attach to output sections. */ static void @@ -2088,6 +2161,23 @@ map_input_to_output_sections output_section_statement); break; case lang_output_section_statement_enum: + if (s->output_section_statement.constraint) + { + if (s->output_section_statement.constraint == -1) + break; + 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)) + { + s->output_section_statement.constraint = -1; + break; + } + } + map_input_to_output_sections (s->output_section_statement.children.head, target, &s->output_section_statement); @@ -2162,6 +2252,8 @@ strip_excluded_output_sections (void) asection *s; os = &u->output_section_statement; + if (os->constraint == -1) + continue; s = os->bfd_section; if (s != NULL && (s->flags & SEC_EXCLUDE) != 0) { @@ -4029,13 +4121,15 @@ lang_enter_output_section_statement (const char *output_section_statement_name, enum section_type sectype, etree_type *align, etree_type *subalign, - etree_type *ebase) + etree_type *ebase, + int constraint) { lang_output_section_statement_type *os; current_section = os = - lang_output_section_statement_lookup (output_section_statement_name); + lang_output_section_statement_lookup_1 (output_section_statement_name, + constraint); /* Add this statement to tree. */ #if 0 @@ -4737,6 +4831,8 @@ lang_record_phdrs (void) lang_output_section_phdr_list *pl; os = &u->output_section_statement; + if (os->constraint == -1) + continue; pl = os->phdrs; if (pl != NULL) @@ -4796,7 +4892,8 @@ lang_record_phdrs (void) { lang_output_section_phdr_list *pl; - if (u->output_section_statement.bfd_section == NULL) + if (u->output_section_statement.constraint == -1 + || u->output_section_statement.bfd_section == NULL) continue; for (pl = u->output_section_statement.phdrs; @@ -4868,7 +4965,7 @@ lang_enter_overlay_section (const char *name) etree_type *size; lang_enter_output_section_statement (name, overlay_vma, normal_section, - 0, overlay_subalign, 0); + 0, overlay_subalign, 0, 0); /* If this is the first section, then base the VMA of future sections on this one. This will work correctly even if `.' is diff --git a/ld/ldlang.h b/ld/ldlang.h index 0ba31bb2d3..0b56c276c3 100644 --- a/ld/ldlang.h +++ b/ld/ldlang.h @@ -146,6 +146,8 @@ typedef struct lang_output_section_statement_struct int subsection_alignment; /* Alignment of components. */ int section_alignment; /* Alignment of start of section. */ + int constraint; + bfd_boolean all_input_readonly; union etree_union *load_base; @@ -438,7 +440,7 @@ extern lang_output_section_statement_type *lang_enter_output_section_statement enum section_type sectype, etree_type *align, etree_type *subalign, - etree_type *); + etree_type *, int); extern void lang_final (void); extern void lang_process diff --git a/ld/ldlex.l b/ld/ldlex.l index 95455314bf..c0a85217bc 100644 --- a/ld/ldlex.l +++ b/ld/ldlex.l @@ -295,6 +295,8 @@ V_IDENTIFIER [*?.$_a-zA-Z\[\]\-\!\^\\]([*?.$_a-zA-Z0-9\[\]\-\!\^\\]|::)* "COPY" { RTOKEN(COPY);} "INFO" { RTOKEN(INFO);} "OVERLAY" { RTOKEN(OVERLAY);} +"ONLY_IF_RO" { RTOKEN(ONLY_IF_RO); } +"ONLY_IF_RW" { RTOKEN(ONLY_IF_RW); } "o" { RTOKEN(ORIGIN);} "org" { RTOKEN(ORIGIN);} "l" { RTOKEN( LENGTH);} diff --git a/ld/mri.c b/ld/mri.c index f7edd8817f..0e95ef2064 100644 --- a/ld/mri.c +++ b/ld/mri.c @@ -220,7 +220,7 @@ mri_draw_tree (void) lang_enter_output_section_statement (p->name, base, p->ok_to_load ? 0 : noload_section, - align, subalign, NULL); + align, subalign, NULL, 0); base = 0; tmp = xmalloc (sizeof *tmp); tmp->next = NULL; diff --git a/ld/scripttempl/elf.sc b/ld/scripttempl/elf.sc index 14728eee10..4d0279c73d 100644 --- a/ld/scripttempl/elf.sc +++ b/ld/scripttempl/elf.sc @@ -311,6 +311,8 @@ cat <