1 # This shell script emits a C file. -*- C -*-
2 # It does some substitutions.
3 cat >e${EMULATION_NAME}.c <<EOF
4 /* This file is is generated by a shell script. DO NOT EDIT! */
6 /* 32 bit ELF emulation code for ${EMULATION_NAME}
7 Copyright (C) 1991, 1993, 1994, 1995 Free Software Foundation, Inc.
8 Written by Steve Chamberlain <sac@cygnus.com>
9 ELF support by Ian Lance Taylor <ian@cygnus.com>
11 This file is part of GLD, the Gnu Linker.
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 2 of the License, or
16 (at your option) any later version.
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.
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
27 #define TARGET_IS_${EMULATION_NAME}
46 static void gld${EMULATION_NAME}_before_parse PARAMS ((void));
47 static boolean gld${EMULATION_NAME}_open_dynamic_archive
48 PARAMS ((const char *, lang_input_statement_type *));
49 static void gld${EMULATION_NAME}_before_allocation PARAMS ((void));
50 static void gld${EMULATION_NAME}_find_statement_assignment
51 PARAMS ((lang_statement_union_type *));
52 static void gld${EMULATION_NAME}_find_exp_assignment PARAMS ((etree_type *));
53 static boolean gld${EMULATION_NAME}_place_orphan
54 PARAMS ((lang_input_statement_type *, asection *));
55 static void gld${EMULATION_NAME}_place_section
56 PARAMS ((lang_statement_union_type *));
57 static char *gld${EMULATION_NAME}_get_script PARAMS ((int *isfile));
60 gld${EMULATION_NAME}_before_parse()
62 ldfile_output_architecture = bfd_arch_${ARCH};
63 config.dynamic_link = ${DYNAMIC_LINK-true};
66 /* Try to open a dynamic archive. This is where we know that ELF
67 dynamic libraries have an extension of .so. */
70 gld${EMULATION_NAME}_open_dynamic_archive (arch, entry)
72 lang_input_statement_type *entry;
76 filename = entry->filename;
78 if (! ldfile_open_file_search (arch, entry, "lib", ".so"))
81 /* We have found a dynamic object to include in the link. The ELF
82 backend linker will create a DT_NEEDED entry in the .dynamic
83 section naming this file. If this file includes a DT_SONAME
84 entry, it will be used. Otherwise, the ELF linker will just use
85 the name of the file. For an archive found by searching, like
86 this one, the DT_NEEDED entry should consist of just the name of
87 the file, without the path information used to find it. Note
88 that we only need to do this if we have a dynamic object; an
89 archive will never be referenced by a DT_NEEDED entry.
91 FIXME: This approach--using bfd_elf_set_dt_needed_name--is not
92 very pretty. I haven't been able to think of anything that is
94 if (bfd_check_format (entry->the_bfd, bfd_object)
95 && (entry->the_bfd->flags & DYNAMIC) != 0)
99 ASSERT (entry->is_archive && entry->search_dirs_flag);
100 needed_name = (char *) xmalloc (strlen (filename)
103 sprintf (needed_name, "lib%s%s.so", filename, arch);
104 bfd_elf_set_dt_needed_name (entry->the_bfd, needed_name);
110 /* This is called after the sections have been attached to output
111 sections, but before any sizes or addresses have been set. */
114 gld${EMULATION_NAME}_before_allocation ()
118 /* If we are going to make any variable assignments, we need to let
119 the ELF backend know about them in case the variables are
120 referred to by dynamic objects. */
121 lang_for_each_statement (gld${EMULATION_NAME}_find_statement_assignment);
123 /* Let the ELF backend work out the sizes of any sections required
124 by dynamic linking. */
125 if (! bfd_elf32_size_dynamic_sections (output_bfd,
128 command_line.export_dynamic,
131 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
133 /* Let the user override the dynamic linker we are using. */
134 if (command_line.interpreter != NULL
137 sinterp->contents = (bfd_byte *) command_line.interpreter;
138 sinterp->_raw_size = strlen (command_line.interpreter) + 1;
141 /* Look for any sections named .gnu.warning. As a GNU extensions,
142 we treat such sections as containing warning messages. We print
143 out the warning message, and then zero out the section size so
144 that it does not get copied into the output file. */
147 LANG_FOR_EACH_INPUT_STATEMENT (is)
154 if (is->just_syms_flag)
157 s = bfd_get_section_by_name (is->the_bfd, ".gnu.warning");
161 sz = bfd_section_size (is->the_bfd, s);
162 msg = xmalloc ((size_t) sz + 1);
163 if (! bfd_get_section_contents (is->the_bfd, s, msg, (file_ptr) 0, sz))
164 einfo ("%F%B: Can't read contents of section .gnu.warning: %E\n",
167 ret = link_info.callbacks->warning (&link_info, msg);
171 /* Clobber the section size, so that we don't waste copying the
172 warning into the output file. */
178 /* This is called by the before_allocation routine via
179 lang_for_each_statement. It locates any assignment statements, and
180 tells the ELF backend about them, in case they are assignments to
181 symbols which are referred to by dynamic objects. */
184 gld${EMULATION_NAME}_find_statement_assignment (s)
185 lang_statement_union_type *s;
187 if (s->header.type == lang_assignment_statement_enum)
188 gld${EMULATION_NAME}_find_exp_assignment (s->assignment_statement.exp);
191 /* Look through an expression for an assignment statement. */
194 gld${EMULATION_NAME}_find_exp_assignment (exp)
197 switch (exp->type.node_class)
200 if (strcmp (exp->assign.dst, ".") != 0)
202 if (! bfd_elf32_record_link_assignment (output_bfd, &link_info,
204 einfo ("%P%F: failed to record assignment to %s: %E\n",
207 gld${EMULATION_NAME}_find_exp_assignment (exp->assign.src);
211 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.lhs);
212 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.rhs);
216 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
217 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
218 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.rhs);
222 gld${EMULATION_NAME}_find_exp_assignment (exp->unary.child);
230 /* Place an orphan section. We use this to put random SHF_ALLOC
231 sections in the right segment. */
233 static asection *hold_section;
234 static lang_output_section_statement_type *hold_use;
235 static lang_output_section_statement_type *hold_text;
236 static lang_output_section_statement_type *hold_data;
237 static lang_output_section_statement_type *hold_bss;
241 gld${EMULATION_NAME}_place_orphan (file, s)
242 lang_input_statement_type *file;
245 lang_output_section_statement_type *place;
246 asection *snew, **pps;
247 lang_statement_list_type *old;
248 lang_statement_list_type add;
250 const char *secname, *ps;
251 lang_output_section_statement_type *os;
253 if ((s->flags & SEC_ALLOC) == 0)
256 /* Look through the script to see where to place this section. */
259 lang_for_each_statement (gld${EMULATION_NAME}_place_section);
261 if (hold_use != NULL)
263 /* We have already placed a section with this name. */
264 wild_doit (&hold_use->children, s, hold_use, file);
268 /* Decide which segment the section should go in based on the
271 if ((s->flags & SEC_HAS_CONTENTS) == 0
274 else if ((s->flags & SEC_READONLY) == 0
275 && hold_data != NULL)
277 else if ((s->flags & SEC_READONLY) != 0
278 && hold_text != NULL)
283 secname = bfd_get_section_name (s->owner, s);
285 /* When generating an object which is to be dynamically linked, we
286 do not support orphaned reloc sections. This is because all the
287 reloc sections must be contiguous in order to generate correct
288 DT_REL entries. When this case arises, you can just add the
289 appropriate reloc sections to the linker script. Note that the
290 .rel.plt section must always be the last reloc section. FIXME:
291 This should simply be handled correctly here. */
292 ASSERT (strncmp (secname, ".rel", 4) != 0
293 || bfd_get_section_by_name (output_bfd, ".dynamic") == NULL);
295 /* Create the section in the output file, and put it in the right
296 place. This shuffling to make the output file look neater, and
297 also means that the BFD backend does not have to sort the
298 sections in order by address. */
299 snew = bfd_make_section (output_bfd, secname);
301 einfo ("%P%F: output format %s cannot represent section called %s\n",
302 output_bfd->xvec->name, secname);
303 for (pps = &output_bfd->sections; *pps != snew; pps = &(*pps)->next)
306 snew->next = place->bfd_section->next;
307 place->bfd_section->next = snew;
309 /* Start building a list of statements for this section. */
312 lang_list_init (stat_ptr);
314 /* If the name of the section is representable in C, then create
315 symbols to mark the start and the end of the section. */
316 for (ps = secname; *ps != '\0'; ps++)
317 if (! isalnum (*ps) && *ps != '_')
319 if (*ps == '\0' && config.build_constructors)
323 symname = (char *) xmalloc (ps - secname + sizeof "__start_");
324 sprintf (symname, "__start_%s", secname);
325 lang_add_assignment (exp_assop ('=', symname,
326 exp_nameop (NAME, ".")));
329 if (! link_info.relocateable)
332 address = exp_intop ((bfd_vma) 0);
334 lang_enter_output_section_statement (secname, address, 0,
338 (etree_type *) NULL);
340 os = lang_output_section_statement_lookup (secname);
341 wild_doit (&os->children, s, os, file);
343 lang_leave_output_section_statement ((bfd_vma) 0, "*default*");
346 if (*ps == '\0' && config.build_constructors)
350 symname = (char *) xmalloc (ps - secname + sizeof "__stop_");
351 sprintf (symname, "__stop_%s", secname);
352 lang_add_assignment (exp_assop ('=', symname,
353 exp_nameop (NAME, ".")));
356 /* Now stick the new statement list right after PLACE. */
357 *add.tail = place->header.next;
358 place->header.next = add.head;
366 gld${EMULATION_NAME}_place_section (s)
367 lang_statement_union_type *s;
369 lang_output_section_statement_type *os;
371 if (s->header.type != lang_output_section_statement_enum)
374 os = &s->output_section_statement;
376 if (strcmp (os->name, hold_section->name) == 0)
379 if (strcmp (os->name, ".text") == 0)
381 else if (strcmp (os->name, ".data") == 0)
383 else if (strcmp (os->name, ".bss") == 0)
388 gld${EMULATION_NAME}_get_script(isfile)
392 if test -n "$COMPILE_IN"
394 # Scripts compiled in.
396 # sed commands to quote an ld script as a C string.
403 cat >>e${EMULATION_NAME}.c <<EOF
407 if (link_info.relocateable == true && config.build_constructors == true)
408 return `sed "$sc" ldscripts/${EMULATION_NAME}.xu`;
409 else if (link_info.relocateable == true)
410 return `sed "$sc" ldscripts/${EMULATION_NAME}.xr`;
411 else if (!config.text_read_only)
412 return `sed "$sc" ldscripts/${EMULATION_NAME}.xbn`;
413 else if (!config.magic_demand_paged)
414 return `sed "$sc" ldscripts/${EMULATION_NAME}.xn`;
415 else if (link_info.shared)
416 return `sed "$sc" ldscripts/${EMULATION_NAME}.xs`;
418 return `sed "$sc" ldscripts/${EMULATION_NAME}.x`;
423 # Scripts read from the filesystem.
425 cat >>e${EMULATION_NAME}.c <<EOF
429 if (link_info.relocateable == true && config.build_constructors == true)
430 return "ldscripts/${EMULATION_NAME}.xu";
431 else if (link_info.relocateable == true)
432 return "ldscripts/${EMULATION_NAME}.xr";
433 else if (!config.text_read_only)
434 return "ldscripts/${EMULATION_NAME}.xbn";
435 else if (!config.magic_demand_paged)
436 return "ldscripts/${EMULATION_NAME}.xn";
437 else if (link_info.shared)
438 return "ldscripts/${EMULATION_NAME}.xs";
440 return "ldscripts/${EMULATION_NAME}.x";
446 cat >>e${EMULATION_NAME}.c <<EOF
448 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
450 gld${EMULATION_NAME}_before_parse,
455 after_allocation_default,
456 set_output_arch_default,
457 ldemul_default_target,
458 gld${EMULATION_NAME}_before_allocation,
459 gld${EMULATION_NAME}_get_script,
464 gld${EMULATION_NAME}_open_dynamic_archive,
465 gld${EMULATION_NAME}_place_orphan