Commit | Line | Data |
---|---|---|
3c3bdf30 | 1 | # This shell script emits a C file. -*- C -*- |
b3adc24a | 2 | # Copyright (C) 2001-2020 Free Software Foundation, Inc. |
3c3bdf30 | 3 | # |
f96b4a7b | 4 | # This file is part of the GNU Binutils. |
3c3bdf30 NC |
5 | # |
6 | # This program is free software; you can redistribute it and/or modify | |
7 | # it under the terms of the GNU General Public License as published by | |
f96b4a7b | 8 | # the Free Software Foundation; either version 3 of the License, or |
3c3bdf30 NC |
9 | # (at your option) any later version. |
10 | # | |
11 | # This program is distributed in the hope that it will be useful, | |
12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | # GNU General Public License for more details. | |
15 | # | |
16 | # You should have received a copy of the GNU General Public License | |
17 | # along with this program; if not, write to the Free Software | |
f96b4a7b NC |
18 | # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, |
19 | # MA 02110-1301, USA. | |
3c3bdf30 NC |
20 | # |
21 | ||
a4308b79 | 22 | # This file is sourced from generic.em. |
3c3bdf30 | 23 | |
92b93329 | 24 | fragment <<EOF |
a4308b79 HPN |
25 | /* Need to have this macro defined before mmix-elfnmmo, which uses the |
26 | name for the before_allocation function, defined in ldemul.c (for | |
075a2b89 | 27 | the mmo "emulation") or in elf.em (for the elf64mmix |
a4308b79 | 28 | "emulation"). */ |
48fa4a5d | 29 | #define gldmmo_before_allocation before_allocation_default |
8ded5a0f | 30 | |
a4308b79 | 31 | /* We include this header *not* because we expect to handle ELF here |
d871d478 | 32 | but because we use the map_segments function. But this is only to |
a4308b79 HPN |
33 | get a weird testcase right; ld-mmix/bpo-22, forcing ELF to be |
34 | output from the mmo emulation: -m mmo --oformat elf64-mmix! */ | |
d871d478 | 35 | #include "ldelfgen.h" |
eaeb0a9d AM |
36 | |
37 | static void gld${EMULATION_NAME}_after_allocation (void); | |
48fa4a5d HPN |
38 | EOF |
39 | ||
92b93329 RM |
40 | source_em ${srcdir}/emultempl/elf-generic.em |
41 | source_em ${srcdir}/emultempl/mmix-elfnmmo.em | |
3c3bdf30 | 42 | |
92b93329 | 43 | fragment <<EOF |
3c3bdf30 | 44 | |
3c3bdf30 NC |
45 | /* Place an orphan section. We use this to put random SEC_CODE or |
46 | SEC_READONLY sections right after MMO_TEXT_SECTION_NAME. Much borrowed | |
075a2b89 | 47 | from elf.em. */ |
3c3bdf30 | 48 | |
c2edb4b8 | 49 | static lang_output_section_statement_type * |
8a99a385 AM |
50 | mmo_place_orphan (asection *s, |
51 | const char *secname, | |
52 | int constraint ATTRIBUTE_UNUSED) | |
3c3bdf30 | 53 | { |
a9ae0bda HPN |
54 | static struct |
55 | { | |
56 | flagword nonzero_flags; | |
57 | struct orphan_save orphansave; | |
58 | } holds[] = | |
59 | { | |
60 | { | |
61 | SEC_CODE | SEC_READONLY, | |
62 | { | |
63 | MMO_TEXT_SECTION_NAME, | |
64 | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE, | |
65 | 0, 0, 0, 0 | |
66 | } | |
67 | }, | |
68 | { | |
69 | SEC_LOAD | SEC_DATA, | |
70 | { | |
71 | MMO_DATA_SECTION_NAME, | |
72 | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA, | |
73 | 0, 0, 0, 0 | |
74 | } | |
75 | }, | |
76 | { | |
77 | SEC_ALLOC, | |
78 | { | |
79 | ".bss", | |
80 | SEC_ALLOC, | |
81 | 0, 0, 0, 0 | |
82 | } | |
83 | } | |
84 | }; | |
85 | ||
86 | struct orphan_save *place = NULL; | |
afd7a018 | 87 | lang_output_section_statement_type *after; |
3c3bdf30 | 88 | lang_output_section_statement_type *os; |
a9ae0bda | 89 | size_t i; |
93638471 AM |
90 | flagword flags; |
91 | asection *nexts; | |
3c3bdf30 | 92 | |
a9ae0bda HPN |
93 | /* We have nothing to say for anything other than a final link or |
94 | for sections that are excluded. */ | |
0e1862bb | 95 | if (bfd_link_relocatable (&link_info) |
a9ae0bda | 96 | || (s->flags & SEC_EXCLUDE) != 0) |
c2edb4b8 | 97 | return NULL; |
3c3bdf30 | 98 | |
afd7a018 | 99 | os = lang_output_section_find (secname); |
3c3bdf30 NC |
100 | |
101 | /* We have an output section by this name. Place the section inside it | |
102 | (regardless of whether the linker script lists it as input). */ | |
103 | if (os != NULL) | |
104 | { | |
b9c361e0 | 105 | lang_add_section (&os->children, s, NULL, os); |
c2edb4b8 | 106 | return os; |
3c3bdf30 NC |
107 | } |
108 | ||
523f4c92 L |
109 | flags = s->flags; |
110 | if (!bfd_link_relocatable (&link_info)) | |
111 | { | |
112 | nexts = s; | |
113 | while ((nexts = bfd_get_next_section_by_name (nexts->owner, nexts)) | |
114 | != NULL) | |
115 | if (nexts->output_section == NULL | |
116 | && (nexts->flags & SEC_EXCLUDE) == 0 | |
117 | && ((nexts->flags ^ flags) & (SEC_LOAD | SEC_ALLOC)) == 0 | |
118 | && (nexts->owner->flags & DYNAMIC) == 0 | |
00f93c44 | 119 | && !bfd_input_just_syms (nexts->owner)) |
523f4c92 L |
120 | flags = (((flags ^ SEC_READONLY) | (nexts->flags ^ SEC_READONLY)) |
121 | ^ SEC_READONLY); | |
122 | } | |
123 | ||
a9ae0bda HPN |
124 | /* Check for matching section type flags for sections we care about. |
125 | A section without contents can have SEC_LOAD == 0, but we still | |
126 | want it attached to a sane section so the symbols appear as | |
127 | expected. */ | |
523f4c92 | 128 | |
93638471 | 129 | if ((flags & (SEC_ALLOC | SEC_READONLY)) != SEC_READONLY) |
a9ae0bda | 130 | for (i = 0; i < sizeof (holds) / sizeof (holds[0]); i++) |
93638471 | 131 | if ((flags & holds[i].nonzero_flags) != 0) |
a9ae0bda HPN |
132 | { |
133 | place = &holds[i].orphansave; | |
134 | if (place->os == NULL) | |
135 | place->os = lang_output_section_find (place->name); | |
136 | break; | |
137 | } | |
138 | ||
139 | if (place == NULL) | |
140 | { | |
141 | /* For other combinations, we have to give up, except we make | |
142 | sure not to place the orphan section after the | |
143 | linker-generated register section; that'd make it continue | |
144 | the reg section and we never want that to happen for orphan | |
145 | sections. */ | |
146 | lang_output_section_statement_type *before; | |
147 | lang_output_section_statement_type *lookup; | |
148 | static struct orphan_save hold_nonreg = | |
149 | { | |
150 | NULL, | |
151 | SEC_READONLY, | |
152 | 0, 0, 0, 0 | |
153 | }; | |
154 | ||
155 | if (hold_nonreg.os == NULL) | |
156 | { | |
157 | before = lang_output_section_find (MMIX_REG_CONTENTS_SECTION_NAME); | |
158 | ||
159 | /* If we have no such section, all fine; we don't care where | |
160 | it's placed. */ | |
161 | if (before == NULL) | |
162 | return NULL; | |
163 | ||
164 | /* We have to find the oss before this one, so we can use that as | |
165 | "after". */ | |
8ce18f9c | 166 | for (lookup = (void *) lang_os_list.head; |
a9ae0bda HPN |
167 | lookup != NULL && lookup->next != before; |
168 | lookup = lookup->next) | |
169 | ; | |
170 | ||
171 | hold_nonreg.os = lookup; | |
172 | } | |
173 | ||
174 | place = &hold_nonreg; | |
175 | } | |
3c3bdf30 | 176 | |
a9ae0bda HPN |
177 | after = place->os; |
178 | if (after == NULL) | |
179 | return NULL; | |
3c3bdf30 | 180 | |
a9ae0bda | 181 | /* If there's an output section by *this* name, we'll use it, regardless |
075a2b89 | 182 | of actual section flags, in contrast to what's done in elf.em. */ |
8a99a385 | 183 | os = lang_insert_orphan (s, secname, 0, after, place, NULL, NULL); |
25844aae | 184 | |
c2edb4b8 | 185 | return os; |
3c3bdf30 NC |
186 | } |
187 | ||
188 | /* Remove the spurious settings of SEC_RELOC that make it to the output at | |
189 | link time. We are as confused as elflink.h:elf_bfd_final_link, and | |
190 | paper over the bug similarly. */ | |
191 | ||
192 | static void | |
fd361982 AM |
193 | mmo_wipe_sec_reloc_flag (bfd *abfd ATTRIBUTE_UNUSED, asection *sec, |
194 | void *ptr ATTRIBUTE_UNUSED) | |
3c3bdf30 | 195 | { |
fd361982 | 196 | bfd_set_section_flags (sec, bfd_section_flags (sec) & ~SEC_RELOC); |
3c3bdf30 NC |
197 | } |
198 | ||
199 | /* Iterate with bfd_map_over_sections over mmo_wipe_sec_reloc_flag... */ | |
200 | ||
201 | static void | |
eaeb0a9d | 202 | gld${EMULATION_NAME}_after_allocation (void) |
3c3bdf30 | 203 | { |
f13a99db | 204 | bfd_map_over_sections (link_info.output_bfd, mmo_wipe_sec_reloc_flag, NULL); |
d871d478 | 205 | ldelf_map_segments (FALSE); |
3c3bdf30 | 206 | } |
48fa4a5d HPN |
207 | \f |
208 | /* To get on-demand global register allocation right, we need to parse the | |
209 | relocs, like what happens when linking to ELF. It needs to be done | |
210 | before all input sections are supposed to be present. When linking to | |
211 | ELF, it's done when reading symbols. When linking to mmo, we do it | |
212 | when all input files are seen, which is equivalent. */ | |
3c3bdf30 | 213 | |
48fa4a5d | 214 | static void |
0c7a8e5a | 215 | mmo_after_open (void) |
48fa4a5d | 216 | { |
1c5e6447 HPN |
217 | /* When there's a mismatch between the output format and the emulation |
218 | (using weird combinations like "-m mmo --oformat elf64-mmix" for | |
219 | example), we'd count relocs twice because they'd also be counted | |
220 | along the usual route for ELF-only linking, which would lead to an | |
221 | internal accounting error. */ | |
f13a99db | 222 | if (bfd_get_flavour (link_info.output_bfd) != bfd_target_elf_flavour) |
48fa4a5d | 223 | { |
1c5e6447 HPN |
224 | LANG_FOR_EACH_INPUT_STATEMENT (is) |
225 | { | |
226 | if (bfd_get_flavour (is->the_bfd) == bfd_target_elf_flavour | |
227 | && !_bfd_mmix_check_all_relocs (is->the_bfd, &link_info)) | |
df5f2391 | 228 | einfo (_("%X%P: internal problems scanning %pB after opening it"), |
1c5e6447 HPN |
229 | is->the_bfd); |
230 | } | |
48fa4a5d | 231 | } |
5c3049d2 | 232 | after_open_default (); |
48fa4a5d | 233 | } |
3c3bdf30 NC |
234 | EOF |
235 | ||
236 | LDEMUL_PLACE_ORPHAN=mmo_place_orphan | |
48fa4a5d | 237 | LDEMUL_AFTER_OPEN=mmo_after_open |