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, 93, 94, 95, 1996 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27 #define TARGET_IS_${EMULATION_NAME}
45 static void gld${EMULATION_NAME}_before_parse PARAMS ((void));
46 static boolean gld${EMULATION_NAME}_open_dynamic_archive
47 PARAMS ((const char *, search_dirs_type *, lang_input_statement_type *));
48 static void gld${EMULATION_NAME}_after_open PARAMS ((void));
49 static void gld${EMULATION_NAME}_check_needed
50 PARAMS ((lang_input_statement_type *));
51 static void gld${EMULATION_NAME}_stat_needed
52 PARAMS ((lang_input_statement_type *));
53 static boolean gld${EMULATION_NAME}_search_needed
54 PARAMS ((const char *, const char *));
55 static boolean gld${EMULATION_NAME}_try_needed PARAMS ((const char *));
56 static void gld${EMULATION_NAME}_before_allocation PARAMS ((void));
57 static void gld${EMULATION_NAME}_find_statement_assignment
58 PARAMS ((lang_statement_union_type *));
59 static void gld${EMULATION_NAME}_find_exp_assignment PARAMS ((etree_type *));
60 static boolean gld${EMULATION_NAME}_place_orphan
61 PARAMS ((lang_input_statement_type *, asection *));
62 static void gld${EMULATION_NAME}_place_section
63 PARAMS ((lang_statement_union_type *));
64 static char *gld${EMULATION_NAME}_get_script PARAMS ((int *isfile));
67 gld${EMULATION_NAME}_before_parse()
69 ldfile_output_architecture = bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`;
70 config.dynamic_link = ${DYNAMIC_LINK-true};
73 /* Try to open a dynamic archive. This is where we know that ELF
74 dynamic libraries have an extension of .so. */
77 gld${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
79 search_dirs_type *search;
80 lang_input_statement_type *entry;
85 if (! entry->is_archive)
88 filename = entry->filename;
90 string = (char *) xmalloc (strlen (search->name)
95 sprintf (string, "%s/lib%s%s.so", search->name, filename, arch);
97 if (! ldfile_try_open_bfd (string, entry))
103 entry->filename = string;
105 /* We have found a dynamic object to include in the link. The ELF
106 backend linker will create a DT_NEEDED entry in the .dynamic
107 section naming this file. If this file includes a DT_SONAME
108 entry, it will be used. Otherwise, the ELF linker will just use
109 the name of the file. For an archive found by searching, like
110 this one, the DT_NEEDED entry should consist of just the name of
111 the file, without the path information used to find it. Note
112 that we only need to do this if we have a dynamic object; an
113 archive will never be referenced by a DT_NEEDED entry.
115 FIXME: This approach--using bfd_elf_set_dt_needed_name--is not
116 very pretty. I haven't been able to think of anything that is
118 if (bfd_check_format (entry->the_bfd, bfd_object)
119 && (entry->the_bfd->flags & DYNAMIC) != 0)
123 ASSERT (entry->is_archive && entry->search_dirs_flag);
124 needed_name = (char *) xmalloc (strlen (filename)
127 sprintf (needed_name, "lib%s%s.so", filename, arch);
128 bfd_elf_set_dt_needed_name (entry->the_bfd, needed_name);
134 /* These variables are required to pass information back and forth
135 between after_open and check_needed and stat_needed. */
137 static struct bfd_link_needed_list *global_needed;
138 static struct stat global_stat;
139 static boolean global_found;
141 /* This is called after all the input files have been opened. */
144 gld${EMULATION_NAME}_after_open ()
146 struct bfd_link_needed_list *needed, *l;
148 /* We only need to worry about this when doing a final link. */
149 if (link_info.relocateable || link_info.shared)
152 /* Get the list of files which appear in DT_NEEDED entries in
153 dynamic objects included in the link (often there will be none).
154 For each such file, we want to track down the corresponding
155 library, and include the symbol table in the link. This is what
156 the runtime dynamic linker will do. Tracking the files down here
157 permits one dynamic object to include another without requiring
158 special action by the person doing the link. Note that the
159 needed list can actually grow while we are stepping through this
161 needed = bfd_elf_get_needed_list (output_bfd, &link_info);
162 for (l = needed; l != NULL; l = l->next)
164 struct bfd_link_needed_list *ll;
165 const char *lib_path;
167 search_dirs_type *search;
169 /* If we've already seen this file, skip it. */
170 for (ll = needed; ll != l; ll = ll->next)
171 if (strcmp (ll->name, l->name) == 0)
176 /* See if this file was included in the link explicitly. */
178 global_found = false;
179 lang_for_each_input_file (gld${EMULATION_NAME}_check_needed);
183 /* We need to find this file and include the symbol table. We
184 want to search for the file in the same way that the dynamic
185 linker will search. That means that we want to use
186 rpath_link, rpath, then the environment variable
187 LD_LIBRARY_PATH (native only), then the linker script
188 LIB_SEARCH_DIRS. We do not search using the -L arguments. */
189 if (gld${EMULATION_NAME}_search_needed (command_line.rpath_link,
192 if (gld${EMULATION_NAME}_search_needed (command_line.rpath, l->name))
194 if (command_line.rpath_link == NULL
195 && command_line.rpath == NULL)
197 lib_path = (const char *) getenv ("LD_RUN_PATH");
198 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name))
202 if [ "x${host}" = "x${target}" ] ; then
203 cat >>e${EMULATION_NAME}.c <<EOF
204 lib_path = (const char *) getenv ("LD_LIBRARY_PATH");
205 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name))
209 cat >>e${EMULATION_NAME}.c <<EOF
210 len = strlen (l->name);
211 for (search = search_head; search != NULL; search = search->next)
217 filename = (char *) xmalloc (strlen (search->name) + len + 2);
218 sprintf (filename, "%s/%s", search->name, l->name);
219 if (gld${EMULATION_NAME}_try_needed (filename))
226 einfo ("%P: warning: %s, needed by %B, not found\n",
231 /* Search for a needed file in a path. */
234 gld${EMULATION_NAME}_search_needed (path, name)
241 if (path == NULL || *path == '\0')
246 char *filename, *sset;
248 s = strchr (path, ':');
250 s = path + strlen (path);
252 filename = (char *) xmalloc (s - path + len + 2);
257 memcpy (filename, path, s - path);
258 filename[s - path] = '/';
259 sset = filename + (s - path) + 1;
263 if (gld${EMULATION_NAME}_try_needed (filename))
276 /* This function is called for each possible name for a dynamic object
277 named by a DT_NEEDED entry. */
280 gld${EMULATION_NAME}_try_needed (name)
285 abfd = bfd_openr (name, bfd_get_target (output_bfd));
288 if (! bfd_check_format (abfd, bfd_object))
290 (void) bfd_close (abfd);
293 if ((bfd_get_file_flags (abfd) & DYNAMIC) == 0)
295 (void) bfd_close (abfd);
299 /* We've found a dynamic object matching the DT_NEEDED entry. */
301 /* We have already checked that there is no other input file of the
302 same name. We must now check again that we are not including the
303 same file twice. We need to do this because on many systems
304 libc.so is a symlink to, e.g., libc.so.1. The SONAME entry will
305 reference libc.so.1. If we have already included libc.so, we
306 don't want to include libc.so.1 if they are the same file, and we
307 can only check that using stat. */
309 if (bfd_stat (abfd, &global_stat) != 0)
310 einfo ("%F%P:%B: bfd_stat failed: %E\n", abfd);
311 global_found = false;
312 lang_for_each_input_file (gld${EMULATION_NAME}_stat_needed);
315 /* Return true to indicate that we found the file, even though
316 we aren't going to do anything with it. */
320 /* Tell the ELF backend that don't want the output file to have a
321 DT_NEEDED entry for this file. */
322 bfd_elf_set_dt_needed_name (abfd, "");
324 /* Add this file into the symbol table. */
325 if (! bfd_link_add_symbols (abfd, &link_info))
326 einfo ("%F%B: could not read symbols: %E\n", abfd);
331 /* See if an input file matches a DT_NEEDED entry by name. */
334 gld${EMULATION_NAME}_check_needed (s)
335 lang_input_statement_type *s;
340 if (s->filename != NULL
341 && strcmp (s->filename, global_needed->name) == 0)
347 if (s->the_bfd != NULL)
351 soname = bfd_elf_get_dt_soname (s->the_bfd);
353 && strcmp (soname, global_needed->name) == 0)
360 if (s->search_dirs_flag
361 && s->filename != NULL
362 && strchr (global_needed->name, '/') == NULL)
366 f = strrchr (s->filename, '/');
368 && strcmp (f + 1, global_needed->name) == 0)
376 /* See if an input file matches a DT_NEEDED entry by running stat on
380 gld${EMULATION_NAME}_stat_needed (s)
381 lang_input_statement_type *s;
390 if (s->the_bfd == NULL)
393 if (bfd_stat (s->the_bfd, &st) != 0)
395 einfo ("%P:%B: bfd_stat failed: %E\n", s->the_bfd);
399 if (st.st_dev == global_stat.st_dev
400 && st.st_ino == global_stat.st_ino)
406 /* We issue a warning if it looks like we are including two
407 different versions of the same shared library. For example,
408 there may be a problem if -lc picks up libc.so.6 but some other
409 shared library has a DT_NEEDED entry of libc.so.5. This is a
410 hueristic test, and it will only work if the name looks like
411 NAME.so.VERSION. FIXME: Depending on file names is error-prone.
412 If we really want to issue warnings about mixing version numbers
413 of shared libraries, we need to find a better way. */
415 if (strchr (global_needed->name, '/') != NULL)
417 suffix = strstr (global_needed->name, ".so.");
420 suffix += sizeof ".so." - 1;
422 soname = bfd_elf_get_dt_soname (s->the_bfd);
424 soname = s->filename;
426 f = strrchr (soname, '/');
432 if (strncmp (f, global_needed->name, suffix - global_needed->name) == 0)
433 einfo ("%P: warning: %s, needed by %B, may conflict with %s\n",
434 global_needed->name, global_needed->by, f);
437 /* This is called after the sections have been attached to output
438 sections, but before any sizes or addresses have been set. */
441 gld${EMULATION_NAME}_before_allocation ()
446 /* If we are going to make any variable assignments, we need to let
447 the ELF backend know about them in case the variables are
448 referred to by dynamic objects. */
449 lang_for_each_statement (gld${EMULATION_NAME}_find_statement_assignment);
451 /* Let the ELF backend work out the sizes of any sections required
452 by dynamic linking. */
453 rpath = command_line.rpath;
455 rpath = (const char *) getenv ("LD_RUN_PATH");
456 if (! bfd_elf32_size_dynamic_sections (output_bfd,
459 command_line.export_dynamic,
462 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
464 /* Let the user override the dynamic linker we are using. */
465 if (command_line.interpreter != NULL
468 sinterp->contents = (bfd_byte *) command_line.interpreter;
469 sinterp->_raw_size = strlen (command_line.interpreter) + 1;
472 /* Look for any sections named .gnu.warning. As a GNU extensions,
473 we treat such sections as containing warning messages. We print
474 out the warning message, and then zero out the section size so
475 that it does not get copied into the output file. */
478 LANG_FOR_EACH_INPUT_STATEMENT (is)
485 if (is->just_syms_flag)
488 s = bfd_get_section_by_name (is->the_bfd, ".gnu.warning");
492 sz = bfd_section_size (is->the_bfd, s);
493 msg = xmalloc ((size_t) sz + 1);
494 if (! bfd_get_section_contents (is->the_bfd, s, msg, (file_ptr) 0, sz))
495 einfo ("%F%B: Can't read contents of section .gnu.warning: %E\n",
498 ret = link_info.callbacks->warning (&link_info, msg,
500 is->the_bfd, (asection *) NULL,
505 /* Clobber the section size, so that we don't waste copying the
506 warning into the output file. */
511 #if defined (TARGET_IS_elf32bmip) || defined (TARGET_IS_elf32lmip)
512 /* For MIPS ELF the .reginfo section requires special handling.
513 Each input section is 24 bytes, and the final output section must
514 also be 24 bytes. We handle this by clobbering all but the first
515 input section size to 0. The .reginfo section is handled
516 specially by the backend code anyhow. */
518 boolean found = false;
519 LANG_FOR_EACH_INPUT_STATEMENT (is)
523 if (is->just_syms_flag)
526 s = bfd_get_section_by_name (is->the_bfd, ".reginfo");
543 /* This is called by the before_allocation routine via
544 lang_for_each_statement. It locates any assignment statements, and
545 tells the ELF backend about them, in case they are assignments to
546 symbols which are referred to by dynamic objects. */
549 gld${EMULATION_NAME}_find_statement_assignment (s)
550 lang_statement_union_type *s;
552 if (s->header.type == lang_assignment_statement_enum)
553 gld${EMULATION_NAME}_find_exp_assignment (s->assignment_statement.exp);
556 /* Look through an expression for an assignment statement. */
559 gld${EMULATION_NAME}_find_exp_assignment (exp)
562 struct bfd_link_hash_entry *h;
564 switch (exp->type.node_class)
567 h = bfd_link_hash_lookup (link_info.hash, exp->assign.dst,
568 false, false, false);
572 /* We call record_link_assignment even if the symbol is defined.
573 This is because if it is defined by a dynamic object, we
574 actually want to use the value defined by the linker script,
575 not the value from the dynamic object (because we are setting
576 symbols like etext). If the symbol is defined by a regular
577 object, then, as it happens, calling record_link_assignment
582 if (strcmp (exp->assign.dst, ".") != 0)
584 if (! (bfd_elf32_record_link_assignment
585 (output_bfd, &link_info, exp->assign.dst,
586 exp->type.node_class == etree_provide ? true : false)))
587 einfo ("%P%F: failed to record assignment to %s: %E\n",
590 gld${EMULATION_NAME}_find_exp_assignment (exp->assign.src);
594 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.lhs);
595 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.rhs);
599 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
600 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
601 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.rhs);
605 gld${EMULATION_NAME}_find_exp_assignment (exp->unary.child);
613 /* Place an orphan section. We use this to put random SHF_ALLOC
614 sections in the right segment. */
616 static asection *hold_section;
617 static lang_output_section_statement_type *hold_use;
618 static lang_output_section_statement_type *hold_text;
619 static lang_output_section_statement_type *hold_data;
620 static lang_output_section_statement_type *hold_bss;
621 static lang_output_section_statement_type *hold_rel;
625 gld${EMULATION_NAME}_place_orphan (file, s)
626 lang_input_statement_type *file;
629 lang_output_section_statement_type *place;
630 asection *snew, **pps;
631 lang_statement_list_type *old;
632 lang_statement_list_type add;
634 const char *secname, *ps;
635 lang_output_section_statement_type *os;
637 if ((s->flags & SEC_ALLOC) == 0)
640 /* Look through the script to see where to place this section. */
643 lang_for_each_statement (gld${EMULATION_NAME}_place_section);
645 if (hold_use != NULL)
647 /* We have already placed a section with this name. */
648 wild_doit (&hold_use->children, s, hold_use, file);
652 secname = bfd_get_section_name (s->owner, s);
654 /* If this is a final link, then always put .gnu.warning.SYMBOL
655 sections into the .text section to get them out of the way. */
656 if (! link_info.shared
657 && ! link_info.relocateable
658 && strncmp (secname, ".gnu.warning.", sizeof ".gnu.warning." - 1) == 0
659 && hold_text != NULL)
661 wild_doit (&hold_text->children, s, hold_text, file);
665 /* Decide which segment the section should go in based on the
666 section name and section flags. */
668 if ((s->flags & SEC_HAS_CONTENTS) == 0
671 else if ((s->flags & SEC_READONLY) == 0
672 && hold_data != NULL)
674 else if (strncmp (secname, ".rel", 4) == 0
677 else if ((s->flags & SEC_READONLY) != 0
678 && hold_text != NULL)
683 /* Create the section in the output file, and put it in the right
684 place. This shuffling is to make the output file look neater. */
685 snew = bfd_make_section (output_bfd, secname);
687 einfo ("%P%F: output format %s cannot represent section called %s\n",
688 output_bfd->xvec->name, secname);
689 if (place->bfd_section != NULL)
691 for (pps = &output_bfd->sections; *pps != snew; pps = &(*pps)->next)
694 snew->next = place->bfd_section->next;
695 place->bfd_section->next = snew;
698 /* Start building a list of statements for this section. */
701 lang_list_init (stat_ptr);
703 /* If the name of the section is representable in C, then create
704 symbols to mark the start and the end of the section. */
705 for (ps = secname; *ps != '\0'; ps++)
706 if (! isalnum (*ps) && *ps != '_')
708 if (*ps == '\0' && config.build_constructors)
712 symname = (char *) xmalloc (ps - secname + sizeof "__start_");
713 sprintf (symname, "__start_%s", secname);
714 lang_add_assignment (exp_assop ('=', symname,
715 exp_nameop (NAME, ".")));
718 if (! link_info.relocateable)
721 address = exp_intop ((bfd_vma) 0);
723 lang_enter_output_section_statement (secname, address, 0,
727 (etree_type *) NULL);
729 os = lang_output_section_statement_lookup (secname);
730 wild_doit (&os->children, s, os, file);
732 lang_leave_output_section_statement ((bfd_vma) 0, "*default*");
735 if (*ps == '\0' && config.build_constructors)
739 symname = (char *) xmalloc (ps - secname + sizeof "__stop_");
740 sprintf (symname, "__stop_%s", secname);
741 lang_add_assignment (exp_assop ('=', symname,
742 exp_nameop (NAME, ".")));
745 /* Now stick the new statement list right after PLACE. */
746 *add.tail = place->header.next;
747 place->header.next = add.head;
755 gld${EMULATION_NAME}_place_section (s)
756 lang_statement_union_type *s;
758 lang_output_section_statement_type *os;
760 if (s->header.type != lang_output_section_statement_enum)
763 os = &s->output_section_statement;
765 if (strcmp (os->name, hold_section->name) == 0)
768 if (strcmp (os->name, ".text") == 0)
770 else if (strcmp (os->name, ".data") == 0)
772 else if (strcmp (os->name, ".bss") == 0)
774 else if (hold_rel == NULL
775 && strncmp (os->name, ".rel", 4) == 0)
780 gld${EMULATION_NAME}_get_script(isfile)
784 if test -n "$COMPILE_IN"
786 # Scripts compiled in.
788 # sed commands to quote an ld script as a C string.
795 cat >>e${EMULATION_NAME}.c <<EOF
799 if (link_info.relocateable == true && config.build_constructors == true)
800 return `sed "$sc" ldscripts/${EMULATION_NAME}.xu`;
801 else if (link_info.relocateable == true)
802 return `sed "$sc" ldscripts/${EMULATION_NAME}.xr`;
803 else if (!config.text_read_only)
804 return `sed "$sc" ldscripts/${EMULATION_NAME}.xbn`;
805 else if (!config.magic_demand_paged)
806 return `sed "$sc" ldscripts/${EMULATION_NAME}.xn`;
807 else if (link_info.shared)
808 return `sed "$sc" ldscripts/${EMULATION_NAME}.xs`;
810 return `sed "$sc" ldscripts/${EMULATION_NAME}.x`;
815 # Scripts read from the filesystem.
817 cat >>e${EMULATION_NAME}.c <<EOF
821 if (link_info.relocateable == true && config.build_constructors == true)
822 return "ldscripts/${EMULATION_NAME}.xu";
823 else if (link_info.relocateable == true)
824 return "ldscripts/${EMULATION_NAME}.xr";
825 else if (!config.text_read_only)
826 return "ldscripts/${EMULATION_NAME}.xbn";
827 else if (!config.magic_demand_paged)
828 return "ldscripts/${EMULATION_NAME}.xn";
829 else if (link_info.shared)
830 return "ldscripts/${EMULATION_NAME}.xs";
832 return "ldscripts/${EMULATION_NAME}.x";
838 cat >>e${EMULATION_NAME}.c <<EOF
840 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
842 gld${EMULATION_NAME}_before_parse,
846 gld${EMULATION_NAME}_after_open,
847 after_allocation_default,
848 set_output_arch_default,
849 ldemul_default_target,
850 gld${EMULATION_NAME}_before_allocation,
851 gld${EMULATION_NAME}_get_script,
856 gld${EMULATION_NAME}_open_dynamic_archive,
857 gld${EMULATION_NAME}_place_orphan