Commit | Line | Data |
---|---|---|
837a17b3 NC |
1 | # This shell script emits a C file. -*- C -*- |
2 | # It does some substitutions. | |
3 | fragment <<EOF | |
4 | /* This file is is generated by a shell script. DO NOT EDIT! */ | |
5 | ||
6 | /* Emulate the original gld for the given ${EMULATION_NAME} | |
6f2750fe | 7 | Copyright (C) 2014-2016 Free Software Foundation, Inc. |
837a17b3 NC |
8 | Written by Steve Chamberlain steve@cygnus.com |
9 | Extended for the MSP430 by Nick Clifton nickc@redhat.com | |
10 | ||
11 | This file is part of the GNU Binutils. | |
12 | ||
13 | This program is free software; you can redistribute it and/or modify | |
14 | it under the terms of the GNU General Public License as published by | |
15 | the Free Software Foundation; either version 3 of the License, or | |
16 | (at your option) any later version. | |
17 | ||
18 | This program is distributed in the hope that it will be useful, | |
19 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 | GNU General Public License for more details. | |
22 | ||
23 | You should have received a copy of the GNU General Public License | |
24 | along with this program; if not, write to the Free Software | |
25 | Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, | |
26 | MA 02110-1301, USA. */ | |
27 | ||
28 | #define TARGET_IS_${EMULATION_NAME} | |
29 | ||
30 | #include "sysdep.h" | |
31 | #include "bfd.h" | |
32 | #include "bfdlink.h" | |
33 | ||
34 | #include "ld.h" | |
35 | #include "ldmain.h" | |
36 | #include "ldmisc.h" | |
37 | #include "ldexp.h" | |
38 | #include "ldlang.h" | |
39 | #include "ldfile.h" | |
40 | #include "ldemul.h" | |
41 | #include "libiberty.h" | |
42 | ||
43 | EOF | |
44 | ||
45 | # Import any needed special functions and/or overrides. | |
46 | # | |
47 | if test -n "$EXTRA_EM_FILE" ; then | |
48 | source_em ${srcdir}/emultempl/${EXTRA_EM_FILE}.em | |
49 | fi | |
50 | ||
51 | if test x"$LDEMUL_BEFORE_PARSE" != xgld"$EMULATION_NAME"_before_parse; then | |
52 | fragment <<EOF | |
53 | ||
54 | static void | |
55 | gld${EMULATION_NAME}_before_parse (void) | |
56 | { | |
57 | #ifndef TARGET_ /* I.e., if not generic. */ | |
58 | ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown); | |
59 | #endif /* not TARGET_ */ | |
60 | ||
61 | /* The MSP430 port *needs* linker relaxtion in order to cope with large | |
62 | functions where conditional branches do not fit into a +/- 1024 byte range. */ | |
0e1862bb | 63 | if (!bfd_link_relocatable (&link_info)) |
837a17b3 NC |
64 | TARGET_ENABLE_RELAXATION; |
65 | } | |
66 | ||
67 | EOF | |
68 | fi | |
69 | ||
70 | if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then | |
71 | fragment <<EOF | |
72 | ||
73 | static char * | |
74 | gld${EMULATION_NAME}_get_script (int *isfile) | |
75 | EOF | |
76 | ||
77 | if test x"$COMPILE_IN" = xyes | |
78 | then | |
79 | # Scripts compiled in. | |
80 | ||
81 | # sed commands to quote an ld script as a C string. | |
82 | sc="-f stringify.sed" | |
83 | ||
84 | fragment <<EOF | |
85 | { | |
86 | *isfile = 0; | |
87 | ||
0e1862bb | 88 | if (bfd_link_relocatable (&link_info) && config.build_constructors) |
837a17b3 NC |
89 | return |
90 | EOF | |
91 | sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c | |
0e1862bb | 92 | echo ' ; else if (bfd_link_relocatable (&link_info)) return' >> e${EMULATION_NAME}.c |
837a17b3 NC |
93 | sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c |
94 | echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c | |
95 | sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c | |
96 | echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c | |
97 | sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c | |
98 | echo ' ; else return' >> e${EMULATION_NAME}.c | |
99 | sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c | |
100 | echo '; }' >> e${EMULATION_NAME}.c | |
101 | ||
102 | else | |
103 | # Scripts read from the filesystem. | |
104 | ||
105 | fragment <<EOF | |
106 | { | |
107 | *isfile = 1; | |
108 | ||
0e1862bb | 109 | if (bfd_link_relocatable (&link_info) && config.build_constructors) |
837a17b3 | 110 | return "ldscripts/${EMULATION_NAME}.xu"; |
0e1862bb | 111 | else if (bfd_link_relocatable (&link_info)) |
837a17b3 NC |
112 | return "ldscripts/${EMULATION_NAME}.xr"; |
113 | else if (!config.text_read_only) | |
114 | return "ldscripts/${EMULATION_NAME}.xbn"; | |
115 | else if (!config.magic_demand_paged) | |
116 | return "ldscripts/${EMULATION_NAME}.xn"; | |
117 | else | |
118 | return "ldscripts/${EMULATION_NAME}.x"; | |
119 | } | |
120 | EOF | |
121 | fi | |
122 | fi | |
123 | ||
124 | if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then | |
125 | fragment <<EOF | |
126 | ||
127 | /* Helper function for place_orphan that computes the size | |
128 | of sections already mapped to the given statement. */ | |
129 | ||
130 | static bfd_size_type | |
131 | scan_children (lang_statement_union_type * l) | |
132 | { | |
133 | bfd_size_type amount = 0; | |
134 | ||
135 | while (l != NULL) | |
136 | { | |
137 | switch (l->header.type) | |
138 | { | |
139 | case lang_input_section_enum: | |
140 | if (l->input_section.section->flags & SEC_ALLOC) | |
141 | amount += l->input_section.section->size; | |
142 | break; | |
143 | ||
144 | case lang_constructors_statement_enum: | |
145 | case lang_assignment_statement_enum: | |
146 | break; | |
147 | ||
148 | case lang_wild_statement_enum: | |
149 | amount += scan_children (l->wild_statement.children.head); | |
150 | break; | |
151 | ||
152 | default: | |
153 | fprintf (stderr, "msp430 orphan placer: unhandled lang type %d\n", l->header.type); | |
154 | break; | |
155 | } | |
156 | ||
157 | l = l->header.next; | |
158 | } | |
159 | ||
160 | return amount; | |
161 | } | |
162 | ||
163 | /* Place an orphan section. We use this to put .either sections | |
164 | into either their lower or their upper equivalents. */ | |
165 | ||
166 | static lang_output_section_statement_type * | |
167 | gld${EMULATION_NAME}_place_orphan (asection * s, | |
168 | const char * secname, | |
169 | int constraint) | |
170 | { | |
171 | char * lower_name; | |
172 | char * upper_name; | |
173 | char * name; | |
e1fa0163 | 174 | char * buf = NULL; |
837a17b3 NC |
175 | lang_output_section_statement_type * lower; |
176 | lang_output_section_statement_type * upper; | |
177 | lang_output_section_statement_type * os; | |
178 | ||
179 | if ((s->flags & SEC_ALLOC) == 0) | |
180 | return NULL; | |
181 | ||
0e1862bb | 182 | if (bfd_link_relocatable (&link_info)) |
837a17b3 NC |
183 | return NULL; |
184 | ||
185 | /* If constraints are involved let the linker handle the placement normally. */ | |
186 | if (constraint != 0) | |
187 | return NULL; | |
188 | ||
189 | /* We only need special handling for .either sections. */ | |
190 | if (strncmp (secname, ".either.", 8) != 0) | |
191 | return NULL; | |
192 | ||
193 | /* Skip the .either prefix. */ | |
194 | secname += 7; | |
195 | ||
196 | /* Compute the names of the corresponding upper and lower | |
197 | sections. If the input section name contains another period, | |
198 | only use the part of the name before the second dot. */ | |
199 | if (strchr (secname + 1, '.') != NULL) | |
200 | { | |
e1fa0163 | 201 | buf = name = xstrdup (secname); |
837a17b3 NC |
202 | |
203 | * strchr (name + 1, '.') = 0; | |
204 | } | |
205 | else | |
206 | name = (char *) secname; | |
207 | ||
e1fa0163 NC |
208 | lower_name = concat (".lower", name, NULL); |
209 | upper_name = concat (".upper", name, NULL); | |
837a17b3 NC |
210 | |
211 | /* Find the corresponding lower and upper sections. */ | |
212 | lower = lang_output_section_find (lower_name); | |
213 | upper = lang_output_section_find (upper_name); | |
214 | /* If the upper section does not exist, try again without the suffix. */ | |
215 | if (upper == NULL) | |
216 | upper = lang_output_section_find (name); | |
217 | ||
218 | if (lower == NULL) | |
219 | { | |
220 | os = upper; | |
221 | if (upper == NULL) | |
222 | { | |
223 | einfo ("%P: error: no section named %s or %s in linker script\n", lower_name, upper_name); | |
e1fa0163 | 224 | goto end; |
837a17b3 NC |
225 | } |
226 | } | |
227 | else if (upper == NULL) | |
228 | os = lower; | |
229 | else if (lower->region == NULL) | |
230 | os = lower; | |
231 | /* If the section is too big for the region containing | |
232 | the lower section then do not even try to use it. */ | |
233 | else if (lower->region->length < s->size) | |
234 | os = upper; | |
235 | else | |
236 | { | |
237 | bfd_size_type amount = 0; | |
238 | struct lang_output_section_statement_struct * p; | |
239 | ||
240 | amount += scan_children (lower->children.head); | |
241 | ||
242 | /* Also check forwards for other statements assigned to the same region. */ | |
243 | for (p = lower->next; p != NULL; p = p->next) | |
244 | if (p->region == lower->region) | |
245 | amount += scan_children (p->children.head); | |
246 | ||
247 | /* Scan backwards as well. */ | |
248 | for (p = lower->prev; p != NULL; p = p->prev) | |
249 | if (p->region == lower->region) | |
250 | amount += scan_children (p->children.head); | |
251 | ||
252 | if (amount + s->size >= lower->region->length) | |
253 | os = upper; | |
254 | else | |
255 | os = lower; | |
256 | } | |
257 | ||
258 | lang_add_section (& os->children, s, NULL, os); | |
e1fa0163 NC |
259 | end: |
260 | free (upper_name); | |
261 | free (lower_name); | |
262 | if (buf) | |
263 | free (buf); | |
837a17b3 NC |
264 | return os; |
265 | } | |
266 | EOF | |
267 | fi | |
268 | ||
269 | fragment <<EOF | |
270 | ||
271 | struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation = | |
272 | { | |
273 | ${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse}, | |
274 | ${LDEMUL_SYSLIB-syslib_default}, | |
275 | ${LDEMUL_HLL-hll_default}, | |
276 | ${LDEMUL_AFTER_PARSE-after_parse_default}, | |
277 | ${LDEMUL_AFTER_OPEN-after_open_default}, | |
278 | ${LDEMUL_AFTER_ALLOCATION-after_allocation_default}, | |
279 | ${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default}, | |
280 | ${LDEMUL_CHOOSE_TARGET-ldemul_default_target}, | |
281 | ${LDEMUL_BEFORE_ALLOCATION-before_allocation_default}, | |
282 | ${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script}, | |
283 | "${EMULATION_NAME}", | |
284 | "${OUTPUT_FORMAT}", | |
285 | ${LDEMUL_FINISH-finish_default}, | |
286 | ${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL}, | |
287 | ${LDEMUL_OPEN_DYNAMIC_ARCHIVE-NULL}, | |
288 | ${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan}, | |
289 | ${LDEMUL_SET_SYMBOLS-NULL}, | |
290 | ${LDEMUL_PARSE_ARGS-NULL}, | |
291 | ${LDEMUL_ADD_OPTIONS-NULL}, | |
292 | ${LDEMUL_HANDLE_OPTION-NULL}, | |
293 | ${LDEMUL_UNRECOGNIZED_FILE-NULL}, | |
294 | ${LDEMUL_LIST_OPTIONS-NULL}, | |
295 | ${LDEMUL_RECOGNIZED_FILE-NULL}, | |
296 | ${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL}, | |
297 | ${LDEMUL_NEW_VERS_PATTERN-NULL}, | |
298 | ${LDEMUL_EXTRA_MAP_FILE_TEXT-NULL} | |
299 | }; | |
300 | EOF | |
301 | # \f | |
302 | # Local Variables: | |
303 | # mode: c | |
304 | # End: |