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 (C) 1991, 93, 94, 95, 96, 97, 98, 99, 2000
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 overriden 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 ar 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 hueristic 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)
258 abfd = bfd_openr (name, bfd_get_target (output_bfd));
261 if (! bfd_check_format (abfd, bfd_object))
263 (void) bfd_close (abfd);
266 if ((bfd_get_file_flags (abfd) & DYNAMIC) == 0)
268 (void) bfd_close (abfd);
272 /* Check whether this object would include any conflicting library
273 versions. If FORCE is set, then we skip this check; we use this
274 the second time around, if we couldn't find any compatible
275 instance of the shared library. */
279 struct bfd_link_needed_list *needed;
281 if (! bfd_elf_get_bfd_needed_list (abfd, &needed))
282 einfo ("%F%P:%B: bfd_elf_get_bfd_needed_list failed: %E\n", abfd);
286 global_vercheck_needed = needed;
287 global_vercheck_failed = false;
288 lang_for_each_input_file (gld${EMULATION_NAME}_vercheck);
289 if (global_vercheck_failed)
291 (void) bfd_close (abfd);
292 /* Return false to force the caller to move on to try
293 another file on the search path. */
297 /* But wait! It gets much worse. On Linux, if a shared
298 library does not use libc at all, we are supposed to skip
299 it the first time around in case we encounter a shared
300 library later on with the same name which does use the
301 version of libc that we want. This is much too horrible
302 to use on any system other than Linux. */
307 cat >>e${EMULATION_NAME}.c <<EOF
309 struct bfd_link_needed_list *l;
311 for (l = needed; l != NULL; l = l->next)
312 if (strncmp (l->name, "libc.so", 7) == 0)
316 (void) bfd_close (abfd);
324 cat >>e${EMULATION_NAME}.c <<EOF
328 /* We've found a dynamic object matching the DT_NEEDED entry. */
330 /* We have already checked that there is no other input file of the
331 same name. We must now check again that we are not including the
332 same file twice. We need to do this because on many systems
333 libc.so is a symlink to, e.g., libc.so.1. The SONAME entry will
334 reference libc.so.1. If we have already included libc.so, we
335 don't want to include libc.so.1 if they are the same file, and we
336 can only check that using stat. */
338 if (bfd_stat (abfd, &global_stat) != 0)
339 einfo ("%F%P:%B: bfd_stat failed: %E\n", abfd);
340 global_found = false;
341 lang_for_each_input_file (gld${EMULATION_NAME}_stat_needed);
344 /* Return true to indicate that we found the file, even though
345 we aren't going to do anything with it. */
349 /* Tell the ELF backend that we don't want the output file to have a
350 DT_NEEDED entry for this file. */
351 bfd_elf_set_dt_needed_name (abfd, "");
353 /* First strip off everything before the last '/'. */
354 name = strrchr (abfd->filename, '/');
358 name = abfd->filename;
360 /* Tell the ELF backend that the output file needs a DT_NEEDED
361 entry for this file if it is used to resolve the reference in
363 bfd_elf_set_dt_needed_soname (abfd, name);
365 /* Add this file into the symbol table. */
366 if (! bfd_link_add_symbols (abfd, &link_info))
367 einfo ("%F%B: could not read symbols: %E\n", abfd);
373 /* Search for a needed file in a path. */
376 gld${EMULATION_NAME}_search_needed (path, name, force)
384 if (path == NULL || *path == '\0')
389 char *filename, *sset;
391 s = strchr (path, ':');
393 s = path + strlen (path);
395 filename = (char *) xmalloc (s - path + len + 2);
400 memcpy (filename, path, s - path);
401 filename[s - path] = '/';
402 sset = filename + (s - path) + 1;
406 if (gld${EMULATION_NAME}_try_needed (filename, force))
420 if [ "x${host}" = "x${target}" ] ; then
421 case " ${EMULATION_LIBPATH} " in
422 *" ${EMULATION_NAME} "*)
423 cat >>e${EMULATION_NAME}.c <<EOF
425 /* For a native linker, check the file /etc/ld.so.conf for directories
426 in which we may find shared libraries. /etc/ld.so.conf is really
427 only meaningful on Linux, but we check it on other systems anyhow. */
429 static boolean gld${EMULATION_NAME}_check_ld_so_conf
430 PARAMS ((const char *, int));
433 gld${EMULATION_NAME}_check_ld_so_conf (name, force)
437 static boolean initialized;
438 static char *ld_so_conf;
444 f = fopen ("/etc/ld.so.conf", FOPEN_RT);
453 b = (char *) xmalloc (alloc);
455 while ((c = getc (f)) != EOF)
457 if (len + 1 >= alloc)
460 b = (char *) xrealloc (b, alloc);
473 if (len > 0 && b[len - 1] != ':')
481 if (len > 0 && b[len - 1] == ':')
500 if (ld_so_conf == NULL)
503 return gld${EMULATION_NAME}_search_needed (ld_so_conf, name, force);
510 cat >>e${EMULATION_NAME}.c <<EOF
512 /* See if an input file matches a DT_NEEDED entry by name. */
515 gld${EMULATION_NAME}_check_needed (s)
516 lang_input_statement_type *s;
521 if (s->filename != NULL
522 && strcmp (s->filename, global_needed->name) == 0)
528 if (s->the_bfd != NULL)
532 soname = bfd_elf_get_dt_soname (s->the_bfd);
534 && strcmp (soname, global_needed->name) == 0)
541 if (s->search_dirs_flag
542 && s->filename != NULL
543 && strchr (global_needed->name, '/') == NULL)
547 f = strrchr (s->filename, '/');
549 && strcmp (f + 1, global_needed->name) == 0)
559 if test x"$LDEMUL_AFTER_OPEN" != xgld"$EMULATION_NAME"_after_open; then
560 cat >>e${EMULATION_NAME}.c <<EOF
562 /* This is called after all the input files have been opened. */
565 gld${EMULATION_NAME}_after_open ()
567 struct bfd_link_needed_list *needed, *l;
569 /* We only need to worry about this when doing a final link. */
570 if (link_info.relocateable || link_info.shared)
573 /* Get the list of files which appear in DT_NEEDED entries in
574 dynamic objects included in the link (often there will be none).
575 For each such file, we want to track down the corresponding
576 library, and include the symbol table in the link. This is what
577 the runtime dynamic linker will do. Tracking the files down here
578 permits one dynamic object to include another without requiring
579 special action by the person doing the link. Note that the
580 needed list can actually grow while we are stepping through this
582 needed = bfd_elf_get_needed_list (output_bfd, &link_info);
583 for (l = needed; l != NULL; l = l->next)
585 struct bfd_link_needed_list *ll;
588 /* If we've already seen this file, skip it. */
589 for (ll = needed; ll != l; ll = ll->next)
590 if (strcmp (ll->name, l->name) == 0)
595 /* See if this file was included in the link explicitly. */
597 global_found = false;
598 lang_for_each_input_file (gld${EMULATION_NAME}_check_needed);
602 /* We need to find this file and include the symbol table. We
603 want to search for the file in the same way that the dynamic
604 linker will search. That means that we want to use
605 rpath_link, rpath, then the environment variable
606 LD_LIBRARY_PATH (native only), then the linker script
607 LIB_SEARCH_DIRS. We do not search using the -L arguments.
609 We search twice. The first time, we skip objects which may
610 introduce version mismatches. The second time, we force
611 their use. See gld${EMULATION_NAME}_vercheck comment. */
612 for (force = 0; force < 2; force++)
614 const char *lib_path;
616 search_dirs_type *search;
618 if (gld${EMULATION_NAME}_search_needed (command_line.rpath_link,
621 if (gld${EMULATION_NAME}_search_needed (command_line.rpath,
624 if (command_line.rpath_link == NULL
625 && command_line.rpath == NULL)
627 lib_path = (const char *) getenv ("LD_RUN_PATH");
628 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name,
633 if [ "x${host}" = "x${target}" ] ; then
634 case " ${EMULATION_LIBPATH} " in
635 *" ${EMULATION_NAME} "*)
636 cat >>e${EMULATION_NAME}.c <<EOF
637 lib_path = (const char *) getenv ("LD_LIBRARY_PATH");
638 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name, force))
644 cat >>e${EMULATION_NAME}.c <<EOF
645 len = strlen (l->name);
646 for (search = search_head; search != NULL; search = search->next)
652 filename = (char *) xmalloc (strlen (search->name) + len + 2);
653 sprintf (filename, "%s/%s", search->name, l->name);
654 if (gld${EMULATION_NAME}_try_needed (filename, force))
661 if [ "x${host}" = "x${target}" ] ; then
662 case " ${EMULATION_LIBPATH} " in
663 *" ${EMULATION_NAME} "*)
664 cat >>e${EMULATION_NAME}.c <<EOF
665 if (gld${EMULATION_NAME}_check_ld_so_conf (l->name, force))
671 cat >>e${EMULATION_NAME}.c <<EOF
677 einfo ("%P: warning: %s, needed by %B, not found (try using -rpath or -rpath-link)\n",
685 cat >>e${EMULATION_NAME}.c <<EOF
687 /* Look through an expression for an assignment statement. */
690 gld${EMULATION_NAME}_find_exp_assignment (exp)
693 struct bfd_link_hash_entry *h;
695 switch (exp->type.node_class)
698 h = bfd_link_hash_lookup (link_info.hash, exp->assign.dst,
699 false, false, false);
703 /* We call record_link_assignment even if the symbol is defined.
704 This is because if it is defined by a dynamic object, we
705 actually want to use the value defined by the linker script,
706 not the value from the dynamic object (because we are setting
707 symbols like etext). If the symbol is defined by a regular
708 object, then, as it happens, calling record_link_assignment
713 if (strcmp (exp->assign.dst, ".") != 0)
715 if (! (bfd_elf${ELFSIZE}_record_link_assignment
716 (output_bfd, &link_info, exp->assign.dst,
717 exp->type.node_class == etree_provide ? true : false)))
718 einfo ("%P%F: failed to record assignment to %s: %E\n",
721 gld${EMULATION_NAME}_find_exp_assignment (exp->assign.src);
725 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.lhs);
726 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.rhs);
730 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.cond);
731 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
732 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.rhs);
736 gld${EMULATION_NAME}_find_exp_assignment (exp->unary.child);
745 /* This is called by the before_allocation routine via
746 lang_for_each_statement. It locates any assignment statements, and
747 tells the ELF backend about them, in case they are assignments to
748 symbols which are referred to by dynamic objects. */
751 gld${EMULATION_NAME}_find_statement_assignment (s)
752 lang_statement_union_type *s;
754 if (s->header.type == lang_assignment_statement_enum)
755 gld${EMULATION_NAME}_find_exp_assignment (s->assignment_statement.exp);
760 if test x"$LDEMUL_BEFORE_ALLOCATION" != xgld"$EMULATION_NAME"_before_allocation; then
761 cat >>e${EMULATION_NAME}.c <<EOF
763 /* This is called after the sections have been attached to output
764 sections, but before any sizes or addresses have been set. */
767 gld${EMULATION_NAME}_before_allocation ()
772 /* If we are going to make any variable assignments, we need to let
773 the ELF backend know about them in case the variables are
774 referred to by dynamic objects. */
775 lang_for_each_statement (gld${EMULATION_NAME}_find_statement_assignment);
777 /* Let the ELF backend work out the sizes of any sections required
778 by dynamic linking. */
779 rpath = command_line.rpath;
781 rpath = (const char *) getenv ("LD_RUN_PATH");
782 if (! (bfd_elf${ELFSIZE}_size_dynamic_sections
783 (output_bfd, command_line.soname, rpath,
784 command_line.export_dynamic, command_line.filter_shlib,
785 (const char * const *) command_line.auxiliary_filters,
786 &link_info, &sinterp, lang_elf_version_info)))
787 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
789 /* Let the user override the dynamic linker we are using. */
790 if (command_line.interpreter != NULL
793 sinterp->contents = (bfd_byte *) command_line.interpreter;
794 sinterp->_raw_size = strlen (command_line.interpreter) + 1;
797 /* Look for any sections named .gnu.warning. As a GNU extensions,
798 we treat such sections as containing warning messages. We print
799 out the warning message, and then zero out the section size so
800 that it does not get copied into the output file. */
803 LANG_FOR_EACH_INPUT_STATEMENT (is)
810 if (is->just_syms_flag)
813 s = bfd_get_section_by_name (is->the_bfd, ".gnu.warning");
817 sz = bfd_section_size (is->the_bfd, s);
818 msg = xmalloc ((size_t) sz + 1);
819 if (! bfd_get_section_contents (is->the_bfd, s, msg, (file_ptr) 0, sz))
820 einfo ("%F%B: Can't read contents of section .gnu.warning: %E\n",
823 ret = link_info.callbacks->warning (&link_info, msg,
825 is->the_bfd, (asection *) NULL,
830 /* Clobber the section size, so that we don't waste copying the
831 warning into the output file. */
840 if test x"$LDEMUL_OPEN_DYNAMIC_ARCHIVE" != xgld"$EMULATION_NAME"_open_dynamic_archive; then
841 cat >>e${EMULATION_NAME}.c <<EOF
843 /* Try to open a dynamic archive. This is where we know that ELF
844 dynamic libraries have an extension of .so (or .sl on oddball systems
848 gld${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
850 search_dirs_type *search;
851 lang_input_statement_type *entry;
853 const char *filename;
856 if (! entry->is_archive)
859 filename = entry->filename;
861 /* This allocates a few bytes too many when EXTRA_SHLIB_EXTENSION
862 is defined, but it does not seem worth the headache to optimize
863 away those two bytes of space. */
864 string = (char *) xmalloc (strlen (search->name)
867 #ifdef EXTRA_SHLIB_EXTENSION
868 + strlen (EXTRA_SHLIB_EXTENSION)
872 sprintf (string, "%s/lib%s%s.so", search->name, filename, arch);
874 #ifdef EXTRA_SHLIB_EXTENSION
875 /* Try the .so extension first. If that fails build a new filename
876 using EXTRA_SHLIB_EXTENSION. */
877 if (! ldfile_try_open_bfd (string, entry))
878 sprintf (string, "%s/lib%s%s%s", search->name,
879 filename, arch, EXTRA_SHLIB_EXTENSION);
882 if (! ldfile_try_open_bfd (string, entry))
888 entry->filename = string;
890 /* We have found a dynamic object to include in the link. The ELF
891 backend linker will create a DT_NEEDED entry in the .dynamic
892 section naming this file. If this file includes a DT_SONAME
893 entry, it will be used. Otherwise, the ELF linker will just use
894 the name of the file. For an archive found by searching, like
895 this one, the DT_NEEDED entry should consist of just the name of
896 the file, without the path information used to find it. Note
897 that we only need to do this if we have a dynamic object; an
898 archive will never be referenced by a DT_NEEDED entry.
900 FIXME: This approach--using bfd_elf_set_dt_needed_name--is not
901 very pretty. I haven't been able to think of anything that is
903 if (bfd_check_format (entry->the_bfd, bfd_object)
904 && (entry->the_bfd->flags & DYNAMIC) != 0)
908 ASSERT (entry->is_archive && entry->search_dirs_flag);
910 /* Rather than duplicating the logic above. Just use the
911 filename we recorded earlier.
913 First strip off everything before the last '/'. */
914 filename = strrchr (entry->filename, '/');
917 needed_name = (char *) xmalloc (strlen (filename) + 1);
918 strcpy (needed_name, filename);
919 bfd_elf_set_dt_needed_name (entry->the_bfd, needed_name);
927 cat >>e${EMULATION_NAME}.c <<EOF
929 /* A variant of lang_output_section_find. Used by place_orphan. */
931 static lang_output_section_statement_type *
934 lang_statement_union_type *u;
935 lang_output_section_statement_type *lookup;
937 for (u = lang_output_section_statement.head;
938 u != (lang_statement_union_type *) NULL;
941 lookup = &u->output_section_statement;
942 if (strncmp (".rel", lookup->name, 4) == 0
943 && lookup->bfd_section != NULL
944 && (lookup->bfd_section->flags & SEC_ALLOC) != 0)
949 return (lang_output_section_statement_type *) NULL;
954 if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then
955 cat >>e${EMULATION_NAME}.c <<EOF
957 /* Place an orphan section. We use this to put random SHF_ALLOC
958 sections in the right segment. */
961 lang_output_section_statement_type *os;
963 lang_statement_union_type **stmt;
967 gld${EMULATION_NAME}_place_orphan (file, s)
968 lang_input_statement_type *file;
971 static struct orphan_save hold_text;
972 static struct orphan_save hold_rodata;
973 static struct orphan_save hold_data;
974 static struct orphan_save hold_bss;
975 static struct orphan_save hold_rel;
976 static struct orphan_save hold_interp;
977 struct orphan_save *place;
978 lang_statement_list_type *old = NULL;
979 lang_statement_list_type add;
981 const char *secname, *ps = NULL;
982 const char *outsecname;
983 lang_output_section_statement_type *os;
985 secname = bfd_get_section_name (s->owner, s);
987 /* Look through the script to see where to place this section. */
988 os = lang_output_section_find (secname);
991 && os->bfd_section != NULL
992 && ((s->flags ^ os->bfd_section->flags) & (SEC_LOAD | SEC_ALLOC)) == 0)
994 /* We have already placed a section with this name. */
995 wild_doit (&os->children, s, os, file);
999 if (hold_text.os == NULL)
1000 hold_text.os = lang_output_section_find (".text");
1002 /* If this is a final link, then always put .gnu.warning.SYMBOL
1003 sections into the .text section to get them out of the way. */
1004 if (! link_info.shared
1005 && ! link_info.relocateable
1006 && strncmp (secname, ".gnu.warning.", sizeof ".gnu.warning." - 1) == 0
1007 && hold_text.os != NULL)
1009 wild_doit (&hold_text.os->children, s, hold_text.os, file);
1013 /* Decide which segment the section should go in based on the
1014 section name and section flags. We put loadable .note sections
1015 right after the .interp section, so that the PT_NOTE segment is
1016 stored right after the program headers where the OS can read it
1017 in the first page. */
1018 #define HAVE_SECTION(hold, name) \
1019 (hold.os != NULL || (hold.os = lang_output_section_find (name)) != NULL)
1021 if (s->flags & SEC_EXCLUDE)
1023 else if ((s->flags & SEC_ALLOC) == 0)
1025 else if ((s->flags & SEC_LOAD) != 0
1026 && strncmp (secname, ".note", 4) == 0
1027 && HAVE_SECTION (hold_interp, ".interp"))
1028 place = &hold_interp;
1029 else if ((s->flags & SEC_HAS_CONTENTS) == 0
1030 && HAVE_SECTION (hold_bss, ".bss"))
1032 else if ((s->flags & SEC_READONLY) == 0
1033 && HAVE_SECTION (hold_data, ".data"))
1035 else if (strncmp (secname, ".rel", 4) == 0
1036 && (hold_rel.os != NULL
1037 || (hold_rel.os = output_rel_find ()) != NULL))
1039 else if ((s->flags & SEC_CODE) == 0
1040 && (s->flags & SEC_READONLY) != 0
1041 && HAVE_SECTION (hold_rodata, ".rodata"))
1042 place = &hold_rodata;
1043 else if ((s->flags & SEC_READONLY) != 0
1044 && hold_text.os != NULL)
1051 /* Choose a unique name for the section. This will be needed if the
1052 same section name appears in the input file with different
1053 loadable or allocateable characteristics. */
1054 outsecname = secname;
1055 if (bfd_get_section_by_name (output_bfd, outsecname) != NULL)
1061 len = strlen (outsecname);
1062 newname = xmalloc (len + 5);
1063 strcpy (newname, outsecname);
1067 sprintf (newname + len, "%d", i);
1070 while (bfd_get_section_by_name (output_bfd, newname) != NULL);
1072 outsecname = newname;
1077 /* Start building a list of statements for this section. */
1080 lang_list_init (stat_ptr);
1082 /* If the name of the section is representable in C, then create
1083 symbols to mark the start and the end of the section. */
1084 for (ps = outsecname; *ps != '\0'; ps++)
1085 if (! isalnum ((unsigned char) *ps) && *ps != '_')
1087 if (*ps == '\0' && config.build_constructors)
1090 etree_type *e_align;
1092 symname = (char *) xmalloc (ps - outsecname + sizeof "__start_");
1093 sprintf (symname, "__start_%s", outsecname);
1094 e_align = exp_unop (ALIGN_K,
1095 exp_intop ((bfd_vma) 1 << s->alignment_power));
1096 lang_add_assignment (exp_assop ('=', symname, e_align));
1100 if (link_info.relocateable || (s->flags & (SEC_LOAD | SEC_ALLOC)) == 0)
1101 address = exp_intop ((bfd_vma) 0);
1105 os = lang_enter_output_section_statement (outsecname, address, 0,
1107 (etree_type *) NULL,
1108 (etree_type *) NULL,
1109 (etree_type *) NULL);
1111 wild_doit (&os->children, s, os, file);
1113 lang_leave_output_section_statement
1114 ((bfd_vma) 0, "*default*",
1115 (struct lang_output_section_phdr_list *) NULL, "*default*");
1119 asection *snew, **pps;
1123 if (*ps == '\0' && config.build_constructors)
1127 symname = (char *) xmalloc (ps - outsecname + sizeof "__stop_");
1128 sprintf (symname, "__stop_%s", outsecname);
1129 lang_add_assignment (exp_assop ('=', symname,
1130 exp_nameop (NAME, ".")));
1134 snew = os->bfd_section;
1135 if (place->os->bfd_section != NULL || place->section != NULL)
1137 /* Shuffle the section to make the output file look neater. */
1138 if (place->section == NULL)
1141 /* Finding the end of the list is a little tricky. We
1142 make a wild stab at it by comparing section flags. */
1143 flagword first_flags = place->os->bfd_section->flags;
1144 for (pps = &place->os->bfd_section->next;
1145 *pps != NULL && (*pps)->flags == first_flags;
1146 pps = &(*pps)->next)
1148 place->section = pps;
1150 /* Put orphans after the first section on the list. */
1151 place->section = &place->os->bfd_section->next;
1155 /* Unlink the section. */
1156 for (pps = &output_bfd->sections; *pps != snew; pps = &(*pps)->next)
1160 /* Now tack it on to the "place->os" section list. */
1161 snew->next = *place->section;
1162 *place->section = snew;
1164 place->section = &snew->next; /* Save the end of this list. */
1166 if (place->stmt == NULL)
1168 /* Put the new statement list right at the head. */
1169 *add.tail = place->os->header.next;
1170 place->os->header.next = add.head;
1174 /* Put it after the last orphan statement we added. */
1175 *add.tail = *place->stmt;
1176 *place->stmt = add.head;
1178 place->stmt = add.tail; /* Save the end of this list. */
1187 if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then
1188 cat >>e${EMULATION_NAME}.c <<EOF
1191 gld${EMULATION_NAME}_get_script (isfile)
1195 if test -n "$COMPILE_IN"
1197 # Scripts compiled in.
1199 # sed commands to quote an ld script as a C string.
1200 sc="-f stringify.sed"
1202 cat >>e${EMULATION_NAME}.c <<EOF
1206 if (link_info.relocateable == true && config.build_constructors == true)
1209 sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
1210 echo ' ; else if (link_info.relocateable == true) return' >> e${EMULATION_NAME}.c
1211 sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
1212 echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
1213 sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
1214 echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
1215 sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
1217 if test -n "$GENERATE_SHLIB_SCRIPT" ; then
1218 echo ' ; else if (link_info.shared) return' >> e${EMULATION_NAME}.c
1219 sed $sc ldscripts/${EMULATION_NAME}.xs >> e${EMULATION_NAME}.c
1222 echo ' ; else return' >> e${EMULATION_NAME}.c
1223 sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
1224 echo '; }' >> e${EMULATION_NAME}.c
1227 # Scripts read from the filesystem.
1229 cat >>e${EMULATION_NAME}.c <<EOF
1233 if (link_info.relocateable == true && config.build_constructors == true)
1234 return "ldscripts/${EMULATION_NAME}.xu";
1235 else if (link_info.relocateable == true)
1236 return "ldscripts/${EMULATION_NAME}.xr";
1237 else if (!config.text_read_only)
1238 return "ldscripts/${EMULATION_NAME}.xbn";
1239 else if (!config.magic_demand_paged)
1240 return "ldscripts/${EMULATION_NAME}.xn";
1241 else if (link_info.shared)
1242 return "ldscripts/${EMULATION_NAME}.xs";
1244 return "ldscripts/${EMULATION_NAME}.x";
1251 if test -n "$PARSE_AND_LIST_ARGS_CASES" -o x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1253 if test x"$LDEMUL_PARSE_ARGS" != xgld"$EMULATION_NAME"_parse_args; then
1255 if test -n "$PARSE_AND_LIST_PROLOGUE" ; then
1256 cat >>e${EMULATION_NAME}.c <<EOF
1257 $PARSE_AND_LIST_PROLOGUE
1261 cat >>e${EMULATION_NAME}.c <<EOF
1265 #define OPTION_DISABLE_NEW_DTAGS (400)
1266 #define OPTION_ENABLE_NEW_DTAGS (OPTION_DISABLE_NEW_DTAGS + 1)
1268 static struct option longopts[] =
1272 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1273 cat >>e${EMULATION_NAME}.c <<EOF
1274 /* getopt allows abbreviations, so we do this to stop it from
1275 treating -d/-e as abbreviations for these options. */
1276 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1277 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1278 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1279 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1283 if test -n "$PARSE_AND_LIST_LONGOPTS" ; then
1284 cat >>e${EMULATION_NAME}.c <<EOF
1285 $PARSE_AND_LIST_LONGOPTS
1289 cat >>e${EMULATION_NAME}.c <<EOF
1290 {NULL, no_argument, NULL, 0}
1294 static int gld${EMULATION_NAME}_parse_args PARAMS ((int, char **));
1297 gld${EMULATION_NAME}_parse_args (argc, argv)
1303 static int prevoptind = -1;
1304 int prevopterr = opterr;
1307 if (prevoptind != optind)
1311 prevoptind = optind;
1313 optc = getopt_long_only (argc, argv,
1314 "-${PARSE_AND_LIST_SHORTOPTS}z:", longopts,
1316 opterr = prevopterr;
1323 optind = prevoptind;
1328 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1329 cat >>e${EMULATION_NAME}.c <<EOF
1330 case OPTION_DISABLE_NEW_DTAGS:
1331 link_info.new_dtags = false;
1334 case OPTION_ENABLE_NEW_DTAGS:
1335 link_info.new_dtags = true;
1339 if (strcmp (optarg, "initfirst") == 0)
1340 link_info.flags_1 |= (bfd_vma) DF_1_INITFIRST;
1341 else if (strcmp (optarg, "interpose") == 0)
1342 link_info.flags_1 |= (bfd_vma) DF_1_INTERPOSE;
1343 else if (strcmp (optarg, "loadfltr") == 0)
1344 link_info.flags_1 |= (bfd_vma) DF_1_LOADFLTR;
1345 else if (strcmp (optarg, "nodefaultlib") == 0)
1346 link_info.flags_1 |= (bfd_vma) DF_1_NODEFLIB;
1347 else if (strcmp (optarg, "nodelete") == 0)
1348 link_info.flags_1 |= (bfd_vma) DF_1_NODELETE;
1349 else if (strcmp (optarg, "nodlopen") == 0)
1350 link_info.flags_1 |= (bfd_vma) DF_1_NOOPEN;
1351 else if (strcmp (optarg, "nodump") == 0)
1352 link_info.flags_1 |= (bfd_vma) DF_1_NODUMP;
1353 else if (strcmp (optarg, "now") == 0)
1355 link_info.flags |= (bfd_vma) DF_BIND_NOW;
1356 link_info.flags_1 |= (bfd_vma) DF_1_NOW;
1358 else if (strcmp (optarg, "origin") == 0)
1360 link_info.flags |= (bfd_vma) DF_ORIGIN;
1361 link_info.flags_1 |= (bfd_vma) DF_1_ORIGIN;
1363 /* What about the other Solaris -z options? FIXME. */
1368 if test -n "$PARSE_AND_LIST_ARGS_CASES" ; then
1369 cat >>e${EMULATION_NAME}.c <<EOF
1370 $PARSE_AND_LIST_ARGS_CASES
1374 cat >>e${EMULATION_NAME}.c <<EOF
1383 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1384 cat >>e${EMULATION_NAME}.c <<EOF
1386 static void gld${EMULATION_NAME}_list_options PARAMS ((FILE * file));
1389 gld${EMULATION_NAME}_list_options (file)
1394 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1395 cat >>e${EMULATION_NAME}.c <<EOF
1396 fprintf (file, _(" --disable-new-dtags\tDisable new dynamic tags\n"));
1397 fprintf (file, _(" --enable-new-dtags\tEnable new dynamic tags\n"));
1398 fprintf (file, _(" -z initfirst\t\tMark DSO to be initialized first at rutime\n"));
1399 fprintf (file, _(" -z interpose\t\tMark object to interpose all DSOs but execuable\n"));
1400 fprintf (file, _(" -z loadfltr\t\tMark object requiring immediate process\n"));
1401 fprintf (file, _(" -z nodefaultlib\tMark object not to use default search paths\n"));
1402 fprintf (file, _(" -z nodelete\t\tMark DSO non-deletable at runtime\n"));
1403 fprintf (file, _(" -z nodlopen\t\tMark DSO not availale to dlopen\n"));
1404 fprintf (file, _(" -z nodump\t\tMark DSO not availale to dldump\n"));
1405 fprintf (file, _(" -z now\t\tMark object non-lazy runtime binding\n"));
1406 fprintf (file, _(" -z origin\t\tMark object requiring immediate \$ORIGIN processing\n"));
1407 fprintf (file, _("\t\t\t at runtime\n"));
1408 fprintf (file, _(" -z KEYWORD\t\tIgnored for Solaris compatibility\n"));
1412 if test -n "$PARSE_AND_LIST_OPTIONS" ; then
1413 cat >>e${EMULATION_NAME}.c <<EOF
1414 $PARSE_AND_LIST_OPTIONS
1418 cat >>e${EMULATION_NAME}.c <<EOF
1422 if test -n "$PARSE_AND_LIST_EPILOGUE" ; then
1423 cat >>e${EMULATION_NAME}.c <<EOF
1424 $PARSE_AND_LIST_EPILOGUE
1429 if test x"$LDEMUL_PARSE_ARGS" != xgld"$EMULATION_NAME"_parse_args; then
1430 cat >>e${EMULATION_NAME}.c <<EOF
1431 #define gld${EMULATION_NAME}_parse_args NULL
1434 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1435 cat >>e${EMULATION_NAME}.c <<EOF
1436 #define gld${EMULATION_NAME}_list_options NULL
1441 cat >>e${EMULATION_NAME}.c <<EOF
1443 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
1445 ${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse},
1446 ${LDEMUL_SYSLIB-syslib_default},
1447 ${LDEMUL_HLL-hll_default},
1448 ${LDEMUL_AFTER_PARSE-after_parse_default},
1449 ${LDEMUL_AFTER_OPEN-gld${EMULATION_NAME}_after_open},
1450 ${LDEMUL_AFTER_ALLOCATION-after_allocation_default},
1451 ${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default},
1452 ${LDEMUL_CHOOSE_TARGET-ldemul_default_target},
1453 ${LDEMUL_BEFORE_ALLOCATION-gld${EMULATION_NAME}_before_allocation},
1454 ${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script},
1455 "${EMULATION_NAME}",
1457 ${LDEMUL_FINISH-NULL},
1458 ${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL},
1459 ${LDEMUL_OPEN_DYNAMIC_ARCHIVE-gld${EMULATION_NAME}_open_dynamic_archive},
1460 ${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan},
1461 ${LDEMUL_SET_SYMBOLS-NULL},
1462 ${LDEMUL_PARSE_ARGS-gld${EMULATION_NAME}_parse_args},
1463 ${LDEMUL_UNRECOGNIZED_FILE-NULL},
1464 ${LDEMUL_LIST_OPTIONS-gld${EMULATION_NAME}_list_options},
1465 ${LDEMUL_RECOGNIZED_FILE-NULL},
1466 ${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL},