1 # This shell script emits a C file. -*- C -*-
2 # It does some substitutions.
3 # This file is now misnamed, because it supports both 32 bit and 64 bit
5 test -z "${ELFSIZE}" && ELFSIZE=32
6 cat >e${EMULATION_NAME}.c <<EOF
7 /* This file is is generated by a shell script. DO NOT EDIT! */
9 /* ${ELFSIZE} bit ELF emulation code for ${EMULATION_NAME}
10 Copyright 1991, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
11 Free Software Foundation, Inc.
12 Written by Steve Chamberlain <sac@cygnus.com>
13 ELF support by Ian Lance Taylor <ian@cygnus.com>
15 This file is part of GLD, the Gnu Linker.
17 This program is free software; you can redistribute it and/or modify
18 it under the terms of the GNU General Public License as published by
19 the Free Software Foundation; either version 2 of the License, or
20 (at your option) any later version.
22 This program is distributed in the hope that it will be useful,
23 but WITHOUT ANY WARRANTY; without even the implied warranty of
24 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 GNU General Public License for more details.
27 You should have received a copy of the GNU General Public License
28 along with this program; if not, write to the Free Software
29 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
31 #define TARGET_IS_${EMULATION_NAME}
48 #include "elf/common.h"
50 static void gld${EMULATION_NAME}_before_parse PARAMS ((void));
51 static void gld${EMULATION_NAME}_vercheck
52 PARAMS ((lang_input_statement_type *));
53 static void gld${EMULATION_NAME}_stat_needed
54 PARAMS ((lang_input_statement_type *));
55 static boolean gld${EMULATION_NAME}_try_needed PARAMS ((const char *, int));
56 static boolean gld${EMULATION_NAME}_search_needed
57 PARAMS ((const char *, const char *, int));
58 static void gld${EMULATION_NAME}_check_needed
59 PARAMS ((lang_input_statement_type *));
60 static void gld${EMULATION_NAME}_after_open PARAMS ((void));
61 static void gld${EMULATION_NAME}_find_exp_assignment PARAMS ((etree_type *));
62 static void gld${EMULATION_NAME}_find_statement_assignment
63 PARAMS ((lang_statement_union_type *));
64 static void gld${EMULATION_NAME}_before_allocation PARAMS ((void));
65 static boolean gld${EMULATION_NAME}_open_dynamic_archive
66 PARAMS ((const char *, search_dirs_type *, lang_input_statement_type *));
67 static lang_output_section_statement_type *output_rel_find PARAMS ((void));
68 static boolean gld${EMULATION_NAME}_place_orphan
69 PARAMS ((lang_input_statement_type *, asection *));
70 static char *gld${EMULATION_NAME}_get_script PARAMS ((int *isfile));
74 # Import any needed special functions and/or overrides.
76 if test -n "$EXTRA_EM_FILE" ; then
77 . ${srcdir}/emultempl/${EXTRA_EM_FILE}.em
80 # Functions in this file can be overridden by setting the LDEMUL_* shell
81 # variables. If the name of the overriding function is the same as is
82 # defined in this file, then don't output this file's version.
83 # If a different overriding name is given then output the standard function
84 # as presumably it is called from the overriding function.
86 if test x"$LDEMUL_BEFORE_PARSE" != xgld"$EMULATION_NAME"_before_parse; then
87 cat >>e${EMULATION_NAME}.c <<EOF
90 gld${EMULATION_NAME}_before_parse ()
92 ldfile_output_architecture = bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`;
93 config.dynamic_link = ${DYNAMIC_LINK-true};
94 config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo true ; else echo false ; fi`;
100 cat >>e${EMULATION_NAME}.c <<EOF
102 /* These variables are required to pass information back and forth
103 between after_open and check_needed and stat_needed and vercheck. */
105 static struct bfd_link_needed_list *global_needed;
106 static struct stat global_stat;
107 static boolean global_found;
108 static struct bfd_link_needed_list *global_vercheck_needed;
109 static boolean global_vercheck_failed;
112 /* On Linux, it's possible to have different versions of the same
113 shared library linked against different versions of libc. The
114 dynamic linker somehow tags which libc version to use in
115 /etc/ld.so.cache, and, based on the libc that it sees in the
116 executable, chooses which version of the shared library to use.
118 We try to do a similar check here by checking whether this shared
119 library needs any other shared libraries which may conflict with
120 libraries we have already included in the link. If it does, we
121 skip it, and try to find another shared library farther on down the
124 This is called via lang_for_each_input_file.
125 GLOBAL_VERCHECK_NEEDED is the list of objects needed by the object
126 which we are checking. This sets GLOBAL_VERCHECK_FAILED if we find
127 a conflicting version. */
130 gld${EMULATION_NAME}_vercheck (s)
131 lang_input_statement_type *s;
133 const char *soname, *f;
134 struct bfd_link_needed_list *l;
136 if (global_vercheck_failed)
138 if (s->the_bfd == NULL
139 || (bfd_get_file_flags (s->the_bfd) & DYNAMIC) == 0)
142 soname = bfd_elf_get_dt_soname (s->the_bfd);
144 soname = bfd_get_filename (s->the_bfd);
146 f = strrchr (soname, '/');
152 for (l = global_vercheck_needed; l != NULL; l = l->next)
156 if (strcmp (f, l->name) == 0)
158 /* Probably can't happen, but it's an easy check. */
162 if (strchr (l->name, '/') != NULL)
165 suffix = strstr (l->name, ".so.");
169 suffix += sizeof ".so." - 1;
171 if (strncmp (f, l->name, suffix - l->name) == 0)
173 /* Here we know that S is a dynamic object FOO.SO.VER1, and
174 the object we are considering needs a dynamic object
175 FOO.SO.VER2, and VER1 and VER2 are different. This
176 appears to be a version mismatch, so we tell the caller
177 to try a different version of this library. */
178 global_vercheck_failed = true;
185 /* See if an input file matches a DT_NEEDED entry by running stat on
189 gld${EMULATION_NAME}_stat_needed (s)
190 lang_input_statement_type *s;
199 if (s->the_bfd == NULL)
202 if (bfd_stat (s->the_bfd, &st) != 0)
204 einfo ("%P:%B: bfd_stat failed: %E\n", s->the_bfd);
208 if (st.st_dev == global_stat.st_dev
209 && st.st_ino == global_stat.st_ino)
215 /* We issue a warning if it looks like we are including two
216 different versions of the same shared library. For example,
217 there may be a problem if -lc picks up libc.so.6 but some other
218 shared library has a DT_NEEDED entry of libc.so.5. This is a
219 heuristic test, and it will only work if the name looks like
220 NAME.so.VERSION. FIXME: Depending on file names is error-prone.
221 If we really want to issue warnings about mixing version numbers
222 of shared libraries, we need to find a better way. */
224 if (strchr (global_needed->name, '/') != NULL)
226 suffix = strstr (global_needed->name, ".so.");
229 suffix += sizeof ".so." - 1;
231 soname = bfd_elf_get_dt_soname (s->the_bfd);
233 soname = s->filename;
235 f = strrchr (soname, '/');
241 if (strncmp (f, global_needed->name, suffix - global_needed->name) == 0)
242 einfo ("%P: warning: %s, needed by %B, may conflict with %s\n",
243 global_needed->name, global_needed->by, f);
247 /* This function is called for each possible name for a dynamic object
248 named by a DT_NEEDED entry. The FORCE parameter indicates whether
249 to skip the check for a conflicting version. */
252 gld${EMULATION_NAME}_try_needed (name, force)
259 abfd = bfd_openr (name, bfd_get_target (output_bfd));
262 if (! bfd_check_format (abfd, bfd_object))
264 (void) bfd_close (abfd);
267 if ((bfd_get_file_flags (abfd) & DYNAMIC) == 0)
269 (void) bfd_close (abfd);
273 /* Check whether this object would include any conflicting library
274 versions. If FORCE is set, then we skip this check; we use this
275 the second time around, if we couldn't find any compatible
276 instance of the shared library. */
280 struct bfd_link_needed_list *needed;
282 if (! bfd_elf_get_bfd_needed_list (abfd, &needed))
283 einfo ("%F%P:%B: bfd_elf_get_bfd_needed_list failed: %E\n", abfd);
287 global_vercheck_needed = needed;
288 global_vercheck_failed = false;
289 lang_for_each_input_file (gld${EMULATION_NAME}_vercheck);
290 if (global_vercheck_failed)
292 (void) bfd_close (abfd);
293 /* Return false to force the caller to move on to try
294 another file on the search path. */
298 /* But wait! It gets much worse. On Linux, if a shared
299 library does not use libc at all, we are supposed to skip
300 it the first time around in case we encounter a shared
301 library later on with the same name which does use the
302 version of libc that we want. This is much too horrible
303 to use on any system other than Linux. */
308 cat >>e${EMULATION_NAME}.c <<EOF
310 struct bfd_link_needed_list *l;
312 for (l = needed; l != NULL; l = l->next)
313 if (strncmp (l->name, "libc.so", 7) == 0)
317 (void) bfd_close (abfd);
325 cat >>e${EMULATION_NAME}.c <<EOF
329 /* We've found a dynamic object matching the DT_NEEDED entry. */
331 /* We have already checked that there is no other input file of the
332 same name. We must now check again that we are not including the
333 same file twice. We need to do this because on many systems
334 libc.so is a symlink to, e.g., libc.so.1. The SONAME entry will
335 reference libc.so.1. If we have already included libc.so, we
336 don't want to include libc.so.1 if they are the same file, and we
337 can only check that using stat. */
339 if (bfd_stat (abfd, &global_stat) != 0)
340 einfo ("%F%P:%B: bfd_stat failed: %E\n", abfd);
342 /* First strip off everything before the last '/'. */
343 soname = strrchr (abfd->filename, '/');
347 soname = abfd->filename;
349 if (trace_file_tries)
350 info_msg (_("found %s at %s\n"), soname, name);
352 global_found = false;
353 lang_for_each_input_file (gld${EMULATION_NAME}_stat_needed);
356 /* Return true to indicate that we found the file, even though
357 we aren't going to do anything with it. */
361 /* Tell the ELF backend that we don't want the output file to have a
362 DT_NEEDED entry for this file. */
363 bfd_elf_set_dt_needed_name (abfd, "");
365 /* Tell the ELF backend that the output file needs a DT_NEEDED
366 entry for this file if it is used to resolve the reference in
368 bfd_elf_set_dt_needed_soname (abfd, soname);
370 /* Add this file into the symbol table. */
371 if (! bfd_link_add_symbols (abfd, &link_info))
372 einfo ("%F%B: could not read symbols: %E\n", abfd);
378 /* Search for a needed file in a path. */
381 gld${EMULATION_NAME}_search_needed (path, name, force)
390 return gld${EMULATION_NAME}_try_needed (name, force);
392 if (path == NULL || *path == '\0')
397 char *filename, *sset;
399 s = strchr (path, ':');
401 s = path + strlen (path);
403 filename = (char *) xmalloc (s - path + len + 2);
408 memcpy (filename, path, s - path);
409 filename[s - path] = '/';
410 sset = filename + (s - path) + 1;
414 if (gld${EMULATION_NAME}_try_needed (filename, force))
428 if [ "x${host}" = "x${target}" ] ; then
429 case " ${EMULATION_LIBPATH} " in
430 *" ${EMULATION_NAME} "*)
433 cat >>e${EMULATION_NAME}.c <<EOF
435 /* For a native linker, check the file /etc/ld.so.conf for directories
436 in which we may find shared libraries. /etc/ld.so.conf is really
437 only meaningful on Linux. */
439 static boolean gld${EMULATION_NAME}_check_ld_so_conf
440 PARAMS ((const char *, int));
443 gld${EMULATION_NAME}_check_ld_so_conf (name, force)
447 static boolean initialized;
448 static char *ld_so_conf;
454 f = fopen ("/etc/ld.so.conf", FOPEN_RT);
463 b = (char *) xmalloc (alloc);
465 while ((c = getc (f)) != EOF)
467 if (len + 1 >= alloc)
470 b = (char *) xrealloc (b, alloc);
483 if (len > 0 && b[len - 1] != ':')
491 if (len > 0 && b[len - 1] == ':')
510 if (ld_so_conf == NULL)
513 return gld${EMULATION_NAME}_search_needed (ld_so_conf, name, force);
522 cat >>e${EMULATION_NAME}.c <<EOF
524 /* See if an input file matches a DT_NEEDED entry by name. */
527 gld${EMULATION_NAME}_check_needed (s)
528 lang_input_statement_type *s;
533 if (s->filename != NULL)
537 if (strcmp (s->filename, global_needed->name) == 0)
543 if (s->search_dirs_flag)
545 f = strrchr (s->filename, '/');
547 && strcmp (f + 1, global_needed->name) == 0)
555 if (s->the_bfd != NULL)
559 soname = bfd_elf_get_dt_soname (s->the_bfd);
561 && strcmp (soname, global_needed->name) == 0)
571 if test x"$LDEMUL_AFTER_OPEN" != xgld"$EMULATION_NAME"_after_open; then
572 cat >>e${EMULATION_NAME}.c <<EOF
574 /* This is called after all the input files have been opened. */
577 gld${EMULATION_NAME}_after_open ()
579 struct bfd_link_needed_list *needed, *l;
581 /* We only need to worry about this when doing a final link. */
582 if (link_info.relocateable || link_info.shared)
585 /* Get the list of files which appear in DT_NEEDED entries in
586 dynamic objects included in the link (often there will be none).
587 For each such file, we want to track down the corresponding
588 library, and include the symbol table in the link. This is what
589 the runtime dynamic linker will do. Tracking the files down here
590 permits one dynamic object to include another without requiring
591 special action by the person doing the link. Note that the
592 needed list can actually grow while we are stepping through this
594 needed = bfd_elf_get_needed_list (output_bfd, &link_info);
595 for (l = needed; l != NULL; l = l->next)
597 struct bfd_link_needed_list *ll;
600 /* If we've already seen this file, skip it. */
601 for (ll = needed; ll != l; ll = ll->next)
602 if (strcmp (ll->name, l->name) == 0)
607 /* See if this file was included in the link explicitly. */
609 global_found = false;
610 lang_for_each_input_file (gld${EMULATION_NAME}_check_needed);
614 if (trace_file_tries)
615 info_msg (_("%s needed by %B\n"), l->name, l->by);
617 /* We need to find this file and include the symbol table. We
618 want to search for the file in the same way that the dynamic
619 linker will search. That means that we want to use
620 rpath_link, rpath, then the environment variable
621 LD_LIBRARY_PATH (native only), then the DT_RPATH/DT_RUNPATH
622 entries (native only), then the linker script LIB_SEARCH_DIRS.
623 We do not search using the -L arguments.
625 We search twice. The first time, we skip objects which may
626 introduce version mismatches. The second time, we force
627 their use. See gld${EMULATION_NAME}_vercheck comment. */
628 for (force = 0; force < 2; force++)
631 search_dirs_type *search;
633 if [ "x${host}" = "x${target}" ] ; then
634 case " ${EMULATION_LIBPATH} " in
635 *" ${EMULATION_NAME} "*)
636 cat >>e${EMULATION_NAME}.c <<EOF
637 const char *lib_path;
638 struct bfd_link_needed_list *rp;
644 cat >>e${EMULATION_NAME}.c <<EOF
646 if (gld${EMULATION_NAME}_search_needed (command_line.rpath_link,
650 if [ "x${host}" = "x${target}" ] ; then
651 case " ${EMULATION_LIBPATH} " in
652 *" ${EMULATION_NAME} "*)
653 cat >>e${EMULATION_NAME}.c <<EOF
654 if (gld${EMULATION_NAME}_search_needed (command_line.rpath,
657 if (command_line.rpath_link == NULL
658 && command_line.rpath == NULL)
660 lib_path = (const char *) getenv ("LD_RUN_PATH");
661 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name,
665 lib_path = (const char *) getenv ("LD_LIBRARY_PATH");
666 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name, force))
670 rp = bfd_elf_get_runpath_list (output_bfd, &link_info);
671 for (; !found && rp != NULL; rp = rp->next)
673 found = (rp->by == l->by
674 && gld${EMULATION_NAME}_search_needed (rp->name,
685 cat >>e${EMULATION_NAME}.c <<EOF
686 len = strlen (l->name);
687 for (search = search_head; search != NULL; search = search->next)
693 filename = (char *) xmalloc (strlen (search->name) + len + 2);
694 sprintf (filename, "%s/%s", search->name, l->name);
695 if (gld${EMULATION_NAME}_try_needed (filename, force))
702 if [ "x${host}" = "x${target}" ] ; then
703 case " ${EMULATION_LIBPATH} " in
704 *" ${EMULATION_NAME} "*)
707 cat >>e${EMULATION_NAME}.c <<EOF
708 if (gld${EMULATION_NAME}_check_ld_so_conf (l->name, force))
717 cat >>e${EMULATION_NAME}.c <<EOF
723 einfo ("%P: warning: %s, needed by %B, not found (try using -rpath or -rpath-link)\n",
731 cat >>e${EMULATION_NAME}.c <<EOF
733 /* Look through an expression for an assignment statement. */
736 gld${EMULATION_NAME}_find_exp_assignment (exp)
739 struct bfd_link_hash_entry *h;
741 switch (exp->type.node_class)
744 h = bfd_link_hash_lookup (link_info.hash, exp->assign.dst,
745 false, false, false);
749 /* We call record_link_assignment even if the symbol is defined.
750 This is because if it is defined by a dynamic object, we
751 actually want to use the value defined by the linker script,
752 not the value from the dynamic object (because we are setting
753 symbols like etext). If the symbol is defined by a regular
754 object, then, as it happens, calling record_link_assignment
759 if (strcmp (exp->assign.dst, ".") != 0)
761 if (! (bfd_elf${ELFSIZE}_record_link_assignment
762 (output_bfd, &link_info, exp->assign.dst,
763 exp->type.node_class == etree_provide ? true : false)))
764 einfo ("%P%F: failed to record assignment to %s: %E\n",
767 gld${EMULATION_NAME}_find_exp_assignment (exp->assign.src);
771 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.lhs);
772 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.rhs);
776 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.cond);
777 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
778 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.rhs);
782 gld${EMULATION_NAME}_find_exp_assignment (exp->unary.child);
791 /* This is called by the before_allocation routine via
792 lang_for_each_statement. It locates any assignment statements, and
793 tells the ELF backend about them, in case they are assignments to
794 symbols which are referred to by dynamic objects. */
797 gld${EMULATION_NAME}_find_statement_assignment (s)
798 lang_statement_union_type *s;
800 if (s->header.type == lang_assignment_statement_enum)
801 gld${EMULATION_NAME}_find_exp_assignment (s->assignment_statement.exp);
806 if test x"$LDEMUL_BEFORE_ALLOCATION" != xgld"$EMULATION_NAME"_before_allocation; then
807 cat >>e${EMULATION_NAME}.c <<EOF
809 /* This is called after the sections have been attached to output
810 sections, but before any sizes or addresses have been set. */
813 gld${EMULATION_NAME}_before_allocation ()
818 /* If we are going to make any variable assignments, we need to let
819 the ELF backend know about them in case the variables are
820 referred to by dynamic objects. */
821 lang_for_each_statement (gld${EMULATION_NAME}_find_statement_assignment);
823 /* Let the ELF backend work out the sizes of any sections required
824 by dynamic linking. */
825 rpath = command_line.rpath;
827 rpath = (const char *) getenv ("LD_RUN_PATH");
828 if (! (bfd_elf${ELFSIZE}_size_dynamic_sections
829 (output_bfd, command_line.soname, rpath,
830 command_line.export_dynamic, command_line.filter_shlib,
831 (const char * const *) command_line.auxiliary_filters,
832 &link_info, &sinterp, lang_elf_version_info)))
833 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
835 /* Let the user override the dynamic linker we are using. */
836 if (command_line.interpreter != NULL
839 sinterp->contents = (bfd_byte *) command_line.interpreter;
840 sinterp->_raw_size = strlen (command_line.interpreter) + 1;
843 /* Look for any sections named .gnu.warning. As a GNU extensions,
844 we treat such sections as containing warning messages. We print
845 out the warning message, and then zero out the section size so
846 that it does not get copied into the output file. */
849 LANG_FOR_EACH_INPUT_STATEMENT (is)
856 if (is->just_syms_flag)
859 s = bfd_get_section_by_name (is->the_bfd, ".gnu.warning");
863 sz = bfd_section_size (is->the_bfd, s);
864 msg = xmalloc ((size_t) sz + 1);
865 if (! bfd_get_section_contents (is->the_bfd, s, msg, (file_ptr) 0, sz))
866 einfo ("%F%B: Can't read contents of section .gnu.warning: %E\n",
869 ret = link_info.callbacks->warning (&link_info, msg,
871 is->the_bfd, (asection *) NULL,
876 /* Clobber the section size, so that we don't waste copying the
877 warning into the output file. */
886 if test x"$LDEMUL_OPEN_DYNAMIC_ARCHIVE" != xgld"$EMULATION_NAME"_open_dynamic_archive; then
887 cat >>e${EMULATION_NAME}.c <<EOF
889 /* Try to open a dynamic archive. This is where we know that ELF
890 dynamic libraries have an extension of .so (or .sl on oddball systems
894 gld${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
896 search_dirs_type *search;
897 lang_input_statement_type *entry;
899 const char *filename;
902 if (! entry->is_archive)
905 filename = entry->filename;
907 /* This allocates a few bytes too many when EXTRA_SHLIB_EXTENSION
908 is defined, but it does not seem worth the headache to optimize
909 away those two bytes of space. */
910 string = (char *) xmalloc (strlen (search->name)
913 #ifdef EXTRA_SHLIB_EXTENSION
914 + strlen (EXTRA_SHLIB_EXTENSION)
918 sprintf (string, "%s/lib%s%s.so", search->name, filename, arch);
920 #ifdef EXTRA_SHLIB_EXTENSION
921 /* Try the .so extension first. If that fails build a new filename
922 using EXTRA_SHLIB_EXTENSION. */
923 if (! ldfile_try_open_bfd (string, entry))
924 sprintf (string, "%s/lib%s%s%s", search->name,
925 filename, arch, EXTRA_SHLIB_EXTENSION);
928 if (! ldfile_try_open_bfd (string, entry))
934 entry->filename = string;
936 /* We have found a dynamic object to include in the link. The ELF
937 backend linker will create a DT_NEEDED entry in the .dynamic
938 section naming this file. If this file includes a DT_SONAME
939 entry, it will be used. Otherwise, the ELF linker will just use
940 the name of the file. For an archive found by searching, like
941 this one, the DT_NEEDED entry should consist of just the name of
942 the file, without the path information used to find it. Note
943 that we only need to do this if we have a dynamic object; an
944 archive will never be referenced by a DT_NEEDED entry.
946 FIXME: This approach--using bfd_elf_set_dt_needed_name--is not
947 very pretty. I haven't been able to think of anything that is
949 if (bfd_check_format (entry->the_bfd, bfd_object)
950 && (entry->the_bfd->flags & DYNAMIC) != 0)
954 ASSERT (entry->is_archive && entry->search_dirs_flag);
956 /* Rather than duplicating the logic above. Just use the
957 filename we recorded earlier.
959 First strip off everything before the last '/'. */
960 filename = strrchr (entry->filename, '/');
963 needed_name = (char *) xmalloc (strlen (filename) + 1);
964 strcpy (needed_name, filename);
965 bfd_elf_set_dt_needed_name (entry->the_bfd, needed_name);
973 cat >>e${EMULATION_NAME}.c <<EOF
975 /* A variant of lang_output_section_find. Used by place_orphan. */
977 static lang_output_section_statement_type *
980 lang_statement_union_type *u;
981 lang_output_section_statement_type *lookup;
983 for (u = lang_output_section_statement.head;
984 u != (lang_statement_union_type *) NULL;
987 lookup = &u->output_section_statement;
988 if (strncmp (".rel", lookup->name, 4) == 0
989 && lookup->bfd_section != NULL
990 && (lookup->bfd_section->flags & SEC_ALLOC) != 0)
995 return (lang_output_section_statement_type *) NULL;
1000 if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then
1001 cat >>e${EMULATION_NAME}.c <<EOF
1003 /* Place an orphan section. We use this to put random SHF_ALLOC
1004 sections in the right segment. */
1006 struct orphan_save {
1007 lang_output_section_statement_type *os;
1009 lang_statement_union_type **stmt;
1013 gld${EMULATION_NAME}_place_orphan (file, s)
1014 lang_input_statement_type *file;
1017 static struct orphan_save hold_text;
1018 static struct orphan_save hold_rodata;
1019 static struct orphan_save hold_data;
1020 static struct orphan_save hold_bss;
1021 static struct orphan_save hold_rel;
1022 static struct orphan_save hold_interp;
1023 static struct orphan_save hold_sdata;
1024 static int count = 1;
1025 struct orphan_save *place;
1026 lang_statement_list_type *old;
1027 lang_statement_list_type add;
1028 etree_type *address;
1029 const char *secname;
1030 const char *outsecname;
1031 const char *ps = NULL;
1032 lang_output_section_statement_type *os;
1034 secname = bfd_get_section_name (s->owner, s);
1036 if (! config.unique_orphan_sections && ! unique_section_p (secname))
1038 /* Look through the script to see where to place this section. */
1039 os = lang_output_section_find (secname);
1042 && os->bfd_section != NULL
1043 && ((s->flags ^ os->bfd_section->flags)
1044 & (SEC_LOAD | SEC_ALLOC)) == 0)
1046 /* We have already placed a section with this name. */
1047 wild_doit (&os->children, s, os, file);
1052 if (hold_text.os == NULL)
1053 hold_text.os = lang_output_section_find (".text");
1055 /* If this is a final link, then always put .gnu.warning.SYMBOL
1056 sections into the .text section to get them out of the way. */
1057 if (! link_info.shared
1058 && ! link_info.relocateable
1059 && strncmp (secname, ".gnu.warning.", sizeof ".gnu.warning." - 1) == 0
1060 && hold_text.os != NULL)
1062 wild_doit (&hold_text.os->children, s, hold_text.os, file);
1066 /* Decide which segment the section should go in based on the
1067 section name and section flags. We put loadable .note sections
1068 right after the .interp section, so that the PT_NOTE segment is
1069 stored right after the program headers where the OS can read it
1070 in the first page. */
1071 #define HAVE_SECTION(hold, name) \
1072 (hold.os != NULL || (hold.os = lang_output_section_find (name)) != NULL)
1074 if (s->flags & SEC_EXCLUDE)
1078 if ((s->flags & SEC_ALLOC) == 0)
1080 else if ((s->flags & SEC_LOAD) != 0
1081 && strncmp (secname, ".note", 5) == 0
1082 && HAVE_SECTION (hold_interp, ".interp"))
1083 place = &hold_interp;
1084 else if ((s->flags & SEC_HAS_CONTENTS) == 0
1085 && HAVE_SECTION (hold_bss, ".bss"))
1087 else if ((s->flags & SEC_SMALL_DATA) != 0
1088 && HAVE_SECTION (hold_sdata, ".sdata"))
1089 place = &hold_sdata;
1090 else if ((s->flags & SEC_READONLY) == 0
1091 && HAVE_SECTION (hold_data, ".data"))
1093 else if (strncmp (secname, ".rel", 4) == 0
1094 && (hold_rel.os != NULL
1095 || (hold_rel.os = output_rel_find ()) != NULL))
1097 else if ((s->flags & (SEC_CODE | SEC_READONLY)) == SEC_READONLY
1098 && HAVE_SECTION (hold_rodata, ".rodata"))
1099 place = &hold_rodata;
1100 else if ((s->flags & (SEC_CODE | SEC_READONLY)) == (SEC_CODE | SEC_READONLY)
1101 && hold_text.os != NULL)
1106 /* Choose a unique name for the section. This will be needed if the
1107 same section name appears in the input file with different
1108 loadable or allocatable characteristics. */
1109 outsecname = secname;
1110 if (bfd_get_section_by_name (output_bfd, outsecname) != NULL)
1112 outsecname = bfd_get_unique_section_name (output_bfd,
1115 if (outsecname == NULL)
1116 einfo ("%F%P: place_orphan failed: %E\n");
1119 /* Start building a list of statements for this section.
1120 First save the current statement pointer. */
1123 /* If we have found an appropriate place for the output section
1124 statements for this orphan, add them to our own private list,
1125 inserting them later into the global statement list. */
1129 lang_list_init (stat_ptr);
1132 if (config.build_constructors)
1134 /* If the name of the section is representable in C, then create
1135 symbols to mark the start and the end of the section. */
1136 for (ps = outsecname; *ps != '\0'; ps++)
1137 if (! isalnum ((unsigned char) *ps) && *ps != '_')
1142 etree_type *e_align;
1144 symname = (char *) xmalloc (ps - outsecname + sizeof "__start_");
1145 sprintf (symname, "__start_%s", outsecname);
1146 e_align = exp_unop (ALIGN_K,
1147 exp_intop ((bfd_vma) 1 << s->alignment_power));
1148 lang_add_assignment (exp_assop ('=', symname, e_align));
1152 if (link_info.relocateable || (s->flags & (SEC_LOAD | SEC_ALLOC)) == 0)
1153 address = exp_intop ((bfd_vma) 0);
1157 os = lang_enter_output_section_statement (outsecname, address, 0,
1159 (etree_type *) NULL,
1160 (etree_type *) NULL,
1161 (etree_type *) NULL);
1163 wild_doit (&os->children, s, os, file);
1165 lang_leave_output_section_statement
1166 ((bfd_vma) 0, "*default*",
1167 (struct lang_output_section_phdr_list *) NULL, "*default*");
1169 if (config.build_constructors && *ps == '\0')
1173 /* lang_leave_ouput_section_statement resets stat_ptr. Put
1174 stat_ptr back where we want it. */
1178 symname = (char *) xmalloc (ps - outsecname + sizeof "__stop_");
1179 sprintf (symname, "__stop_%s", outsecname);
1180 lang_add_assignment (exp_assop ('=', symname,
1181 exp_nameop (NAME, ".")));
1184 /* Restore the global list pointer. */
1189 asection *snew, **pps;
1191 snew = os->bfd_section;
1192 if (place->section != NULL
1193 || (place->os->bfd_section != NULL
1194 && place->os->bfd_section != snew))
1196 /* Shuffle the section to make the output file look neater.
1197 This is really only cosmetic. */
1198 if (place->section == NULL)
1201 /* Finding the end of the list is a little tricky. We
1202 make a wild stab at it by comparing section flags. */
1203 flagword first_flags = place->os->bfd_section->flags;
1204 for (pps = &place->os->bfd_section->next;
1205 *pps != NULL && (*pps)->flags == first_flags;
1206 pps = &(*pps)->next)
1208 place->section = pps;
1210 /* Put orphans after the first section on the list. */
1211 place->section = &place->os->bfd_section->next;
1215 /* Unlink the section. */
1216 for (pps = &output_bfd->sections; *pps != snew; pps = &(*pps)->next)
1220 /* Now tack it on to the "place->os" section list. */
1221 snew->next = *place->section;
1222 *place->section = snew;
1224 place->section = &snew->next; /* Save the end of this list. */
1226 if (add.head != NULL)
1228 /* We try to put the output statements in some sort of
1229 reasonable order here, because they determine the final
1230 load addresses of the orphan sections. */
1231 if (place->stmt == NULL)
1233 /* Put the new statement list right at the head. */
1234 *add.tail = place->os->header.next;
1235 place->os->header.next = add.head;
1239 /* Put it after the last orphan statement we added. */
1240 *add.tail = *place->stmt;
1241 *place->stmt = add.head;
1244 /* Fix the global list pointer if we happened to tack our
1245 new list at the tail. */
1246 if (*old->tail == add.head)
1247 old->tail = add.tail;
1249 /* Save the end of this list. */
1250 place->stmt = add.tail;
1260 if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then
1261 cat >>e${EMULATION_NAME}.c <<EOF
1264 gld${EMULATION_NAME}_get_script (isfile)
1268 if test -n "$COMPILE_IN"
1270 # Scripts compiled in.
1272 # sed commands to quote an ld script as a C string.
1273 sc="-f stringify.sed"
1275 cat >>e${EMULATION_NAME}.c <<EOF
1279 if (link_info.relocateable == true && config.build_constructors == true)
1282 sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
1283 echo ' ; else if (link_info.relocateable == true) return' >> e${EMULATION_NAME}.c
1284 sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
1285 echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
1286 sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
1287 echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
1288 sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
1290 if test -n "$GENERATE_SHLIB_SCRIPT" ; then
1291 echo ' ; else if (link_info.shared) return' >> e${EMULATION_NAME}.c
1292 sed $sc ldscripts/${EMULATION_NAME}.xs >> e${EMULATION_NAME}.c
1295 echo ' ; else return' >> e${EMULATION_NAME}.c
1296 sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
1297 echo '; }' >> e${EMULATION_NAME}.c
1300 # Scripts read from the filesystem.
1302 cat >>e${EMULATION_NAME}.c <<EOF
1306 if (link_info.relocateable == true && config.build_constructors == true)
1307 return "ldscripts/${EMULATION_NAME}.xu";
1308 else if (link_info.relocateable == true)
1309 return "ldscripts/${EMULATION_NAME}.xr";
1310 else if (!config.text_read_only)
1311 return "ldscripts/${EMULATION_NAME}.xbn";
1312 else if (!config.magic_demand_paged)
1313 return "ldscripts/${EMULATION_NAME}.xn";
1314 else if (link_info.shared)
1315 return "ldscripts/${EMULATION_NAME}.xs";
1317 return "ldscripts/${EMULATION_NAME}.x";
1324 if test -n "$PARSE_AND_LIST_ARGS_CASES" -o x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1326 if test x"$LDEMUL_PARSE_ARGS" != xgld"$EMULATION_NAME"_parse_args; then
1328 if test -n "$PARSE_AND_LIST_PROLOGUE" ; then
1329 cat >>e${EMULATION_NAME}.c <<EOF
1330 $PARSE_AND_LIST_PROLOGUE
1334 cat >>e${EMULATION_NAME}.c <<EOF
1338 #define OPTION_DISABLE_NEW_DTAGS (400)
1339 #define OPTION_ENABLE_NEW_DTAGS (OPTION_DISABLE_NEW_DTAGS + 1)
1340 #define OPTION_GROUP (OPTION_ENABLE_NEW_DTAGS + 1)
1342 static struct option longopts[] =
1346 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1347 cat >>e${EMULATION_NAME}.c <<EOF
1348 /* getopt allows abbreviations, so we do this to stop it from
1349 treating -d/-e as abbreviations for these options. */
1350 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1351 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1352 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1353 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1354 {"Bgroup", no_argument, NULL, OPTION_GROUP},
1355 {"Bgroup", no_argument, NULL, OPTION_GROUP},
1359 if test -n "$PARSE_AND_LIST_LONGOPTS" ; then
1360 cat >>e${EMULATION_NAME}.c <<EOF
1361 $PARSE_AND_LIST_LONGOPTS
1365 cat >>e${EMULATION_NAME}.c <<EOF
1366 {NULL, no_argument, NULL, 0}
1370 static int gld${EMULATION_NAME}_parse_args PARAMS ((int, char **));
1373 gld${EMULATION_NAME}_parse_args (argc, argv)
1379 static int prevoptind = -1;
1380 int prevopterr = opterr;
1383 if (prevoptind != optind)
1387 prevoptind = optind;
1389 optc = getopt_long_only (argc, argv,
1390 "-${PARSE_AND_LIST_SHORTOPTS}z:", longopts,
1392 opterr = prevopterr;
1399 optind = prevoptind;
1404 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1405 cat >>e${EMULATION_NAME}.c <<EOF
1406 case OPTION_DISABLE_NEW_DTAGS:
1407 link_info.new_dtags = false;
1410 case OPTION_ENABLE_NEW_DTAGS:
1411 link_info.new_dtags = true;
1415 link_info.flags_1 |= (bfd_vma) DF_1_GROUP;
1416 /* Groups must be self-contained. */
1417 link_info.no_undefined = true;
1421 if (strcmp (optarg, "initfirst") == 0)
1422 link_info.flags_1 |= (bfd_vma) DF_1_INITFIRST;
1423 else if (strcmp (optarg, "interpose") == 0)
1424 link_info.flags_1 |= (bfd_vma) DF_1_INTERPOSE;
1425 else if (strcmp (optarg, "loadfltr") == 0)
1426 link_info.flags_1 |= (bfd_vma) DF_1_LOADFLTR;
1427 else if (strcmp (optarg, "nodefaultlib") == 0)
1428 link_info.flags_1 |= (bfd_vma) DF_1_NODEFLIB;
1429 else if (strcmp (optarg, "nodelete") == 0)
1430 link_info.flags_1 |= (bfd_vma) DF_1_NODELETE;
1431 else if (strcmp (optarg, "nodlopen") == 0)
1432 link_info.flags_1 |= (bfd_vma) DF_1_NOOPEN;
1433 else if (strcmp (optarg, "nodump") == 0)
1434 link_info.flags_1 |= (bfd_vma) DF_1_NODUMP;
1435 else if (strcmp (optarg, "now") == 0)
1437 link_info.flags |= (bfd_vma) DF_BIND_NOW;
1438 link_info.flags_1 |= (bfd_vma) DF_1_NOW;
1440 else if (strcmp (optarg, "origin") == 0)
1442 link_info.flags |= (bfd_vma) DF_ORIGIN;
1443 link_info.flags_1 |= (bfd_vma) DF_1_ORIGIN;
1445 else if (strcmp (optarg, "defs") == 0)
1446 link_info.no_undefined = true;
1447 /* What about the other Solaris -z options? FIXME. */
1452 if test -n "$PARSE_AND_LIST_ARGS_CASES" ; then
1453 cat >>e${EMULATION_NAME}.c <<EOF
1454 $PARSE_AND_LIST_ARGS_CASES
1458 cat >>e${EMULATION_NAME}.c <<EOF
1467 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1468 cat >>e${EMULATION_NAME}.c <<EOF
1470 static void gld${EMULATION_NAME}_list_options PARAMS ((FILE * file));
1473 gld${EMULATION_NAME}_list_options (file)
1478 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1479 cat >>e${EMULATION_NAME}.c <<EOF
1480 fprintf (file, _(" -Bgroup\t\tSelects group name lookup rules for DSO\n"));
1481 fprintf (file, _(" --disable-new-dtags\tDisable new dynamic tags\n"));
1482 fprintf (file, _(" --enable-new-dtags\tEnable new dynamic tags\n"));
1483 fprintf (file, _(" -z defs\t\tDisallows undefined symbols\n"));
1484 fprintf (file, _(" -z initfirst\t\tMark DSO to be initialized first at runtime\n"));
1485 fprintf (file, _(" -z interpose\t\tMark object to interpose all DSOs but executable\n"));
1486 fprintf (file, _(" -z loadfltr\t\tMark object requiring immediate process\n"));
1487 fprintf (file, _(" -z nodefaultlib\tMark object not to use default search paths\n"));
1488 fprintf (file, _(" -z nodelete\t\tMark DSO non-deletable at runtime\n"));
1489 fprintf (file, _(" -z nodlopen\t\tMark DSO not available to dlopen\n"));
1490 fprintf (file, _(" -z nodump\t\tMark DSO not available to dldump\n"));
1491 fprintf (file, _(" -z now\t\tMark object non-lazy runtime binding\n"));
1492 fprintf (file, _(" -z origin\t\tMark object requiring immediate \$ORIGIN processing\n"));
1493 fprintf (file, _("\t\t\t at runtime\n"));
1494 fprintf (file, _(" -z KEYWORD\t\tIgnored for Solaris compatibility\n"));
1498 if test -n "$PARSE_AND_LIST_OPTIONS" ; then
1499 cat >>e${EMULATION_NAME}.c <<EOF
1500 $PARSE_AND_LIST_OPTIONS
1504 cat >>e${EMULATION_NAME}.c <<EOF
1508 if test -n "$PARSE_AND_LIST_EPILOGUE" ; then
1509 cat >>e${EMULATION_NAME}.c <<EOF
1510 $PARSE_AND_LIST_EPILOGUE
1515 if test x"$LDEMUL_PARSE_ARGS" != xgld"$EMULATION_NAME"_parse_args; then
1516 cat >>e${EMULATION_NAME}.c <<EOF
1517 #define gld${EMULATION_NAME}_parse_args NULL
1520 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1521 cat >>e${EMULATION_NAME}.c <<EOF
1522 #define gld${EMULATION_NAME}_list_options NULL
1527 cat >>e${EMULATION_NAME}.c <<EOF
1529 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
1531 ${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse},
1532 ${LDEMUL_SYSLIB-syslib_default},
1533 ${LDEMUL_HLL-hll_default},
1534 ${LDEMUL_AFTER_PARSE-after_parse_default},
1535 ${LDEMUL_AFTER_OPEN-gld${EMULATION_NAME}_after_open},
1536 ${LDEMUL_AFTER_ALLOCATION-after_allocation_default},
1537 ${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default},
1538 ${LDEMUL_CHOOSE_TARGET-ldemul_default_target},
1539 ${LDEMUL_BEFORE_ALLOCATION-gld${EMULATION_NAME}_before_allocation},
1540 ${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script},
1541 "${EMULATION_NAME}",
1543 ${LDEMUL_FINISH-NULL},
1544 ${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL},
1545 ${LDEMUL_OPEN_DYNAMIC_ARCHIVE-gld${EMULATION_NAME}_open_dynamic_archive},
1546 ${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan},
1547 ${LDEMUL_SET_SYMBOLS-NULL},
1548 ${LDEMUL_PARSE_ARGS-gld${EMULATION_NAME}_parse_args},
1549 ${LDEMUL_UNRECOGNIZED_FILE-NULL},
1550 ${LDEMUL_LIST_OPTIONS-gld${EMULATION_NAME}_list_options},
1551 ${LDEMUL_RECOGNIZED_FILE-NULL},
1552 ${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL},