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}
35 #include "libiberty.h"
49 #include "elf/common.h"
51 static void gld${EMULATION_NAME}_before_parse PARAMS ((void));
52 static void gld${EMULATION_NAME}_vercheck
53 PARAMS ((lang_input_statement_type *));
54 static void gld${EMULATION_NAME}_stat_needed
55 PARAMS ((lang_input_statement_type *));
56 static boolean gld${EMULATION_NAME}_try_needed PARAMS ((const char *, int));
57 static boolean gld${EMULATION_NAME}_search_needed
58 PARAMS ((const char *, const char *, int));
59 static void gld${EMULATION_NAME}_check_needed
60 PARAMS ((lang_input_statement_type *));
61 static void gld${EMULATION_NAME}_after_open PARAMS ((void));
62 static void gld${EMULATION_NAME}_find_exp_assignment PARAMS ((etree_type *));
63 static void gld${EMULATION_NAME}_find_statement_assignment
64 PARAMS ((lang_statement_union_type *));
65 static void gld${EMULATION_NAME}_before_allocation PARAMS ((void));
66 static boolean gld${EMULATION_NAME}_open_dynamic_archive
67 PARAMS ((const char *, search_dirs_type *, lang_input_statement_type *));
68 static lang_output_section_statement_type *output_rel_find PARAMS ((void));
69 static boolean gld${EMULATION_NAME}_place_orphan
70 PARAMS ((lang_input_statement_type *, asection *));
71 static char *gld${EMULATION_NAME}_get_script PARAMS ((int *isfile));
75 # Import any needed special functions and/or overrides.
77 if test -n "$EXTRA_EM_FILE" ; then
78 . ${srcdir}/emultempl/${EXTRA_EM_FILE}.em
81 # Functions in this file can be overridden by setting the LDEMUL_* shell
82 # variables. If the name of the overriding function is the same as is
83 # defined in this file, then don't output this file's version.
84 # If a different overriding name is given then output the standard function
85 # as presumably it is called from the overriding function.
87 if test x"$LDEMUL_BEFORE_PARSE" != xgld"$EMULATION_NAME"_before_parse; then
88 cat >>e${EMULATION_NAME}.c <<EOF
91 gld${EMULATION_NAME}_before_parse ()
93 ldfile_output_architecture = bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`;
94 config.dynamic_link = ${DYNAMIC_LINK-true};
95 config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo true ; else echo false ; fi`;
101 cat >>e${EMULATION_NAME}.c <<EOF
103 /* These variables are required to pass information back and forth
104 between after_open and check_needed and stat_needed and vercheck. */
106 static struct bfd_link_needed_list *global_needed;
107 static struct stat global_stat;
108 static boolean global_found;
109 static struct bfd_link_needed_list *global_vercheck_needed;
110 static boolean global_vercheck_failed;
113 /* On Linux, it's possible to have different versions of the same
114 shared library linked against different versions of libc. The
115 dynamic linker somehow tags which libc version to use in
116 /etc/ld.so.cache, and, based on the libc that it sees in the
117 executable, chooses which version of the shared library to use.
119 We try to do a similar check here by checking whether this shared
120 library needs any other shared libraries which may conflict with
121 libraries we have already included in the link. If it does, we
122 skip it, and try to find another shared library farther on down the
125 This is called via lang_for_each_input_file.
126 GLOBAL_VERCHECK_NEEDED is the list of objects needed by the object
127 which we are checking. This sets GLOBAL_VERCHECK_FAILED if we find
128 a conflicting version. */
131 gld${EMULATION_NAME}_vercheck (s)
132 lang_input_statement_type *s;
135 struct bfd_link_needed_list *l;
137 if (global_vercheck_failed)
139 if (s->the_bfd == NULL
140 || (bfd_get_file_flags (s->the_bfd) & DYNAMIC) == 0)
143 soname = bfd_elf_get_dt_soname (s->the_bfd);
145 soname = basename (bfd_get_filename (s->the_bfd));
147 for (l = global_vercheck_needed; l != NULL; l = l->next)
151 if (strcmp (soname, l->name) == 0)
153 /* Probably can't happen, but it's an easy check. */
157 if (strchr (l->name, '/') != NULL)
160 suffix = strstr (l->name, ".so.");
164 suffix += sizeof ".so." - 1;
166 if (strncmp (soname, l->name, suffix - l->name) == 0)
168 /* Here we know that S is a dynamic object FOO.SO.VER1, and
169 the object we are considering needs a dynamic object
170 FOO.SO.VER2, and VER1 and VER2 are different. This
171 appears to be a version mismatch, so we tell the caller
172 to try a different version of this library. */
173 global_vercheck_failed = true;
180 /* See if an input file matches a DT_NEEDED entry by running stat on
184 gld${EMULATION_NAME}_stat_needed (s)
185 lang_input_statement_type *s;
193 if (s->the_bfd == NULL)
196 if (bfd_stat (s->the_bfd, &st) != 0)
198 einfo ("%P:%B: bfd_stat failed: %E\n", s->the_bfd);
202 if (st.st_dev == global_stat.st_dev
203 && st.st_ino == global_stat.st_ino)
209 /* We issue a warning if it looks like we are including two
210 different versions of the same shared library. For example,
211 there may be a problem if -lc picks up libc.so.6 but some other
212 shared library has a DT_NEEDED entry of libc.so.5. This is a
213 heuristic test, and it will only work if the name looks like
214 NAME.so.VERSION. FIXME: Depending on file names is error-prone.
215 If we really want to issue warnings about mixing version numbers
216 of shared libraries, we need to find a better way. */
218 if (strchr (global_needed->name, '/') != NULL)
220 suffix = strstr (global_needed->name, ".so.");
223 suffix += sizeof ".so." - 1;
225 soname = bfd_elf_get_dt_soname (s->the_bfd);
227 soname = basename (s->filename);
229 if (strncmp (soname, global_needed->name,
230 suffix - global_needed->name) == 0)
231 einfo ("%P: warning: %s, needed by %B, may conflict with %s\n",
232 global_needed->name, global_needed->by, soname);
236 /* This function is called for each possible name for a dynamic object
237 named by a DT_NEEDED entry. The FORCE parameter indicates whether
238 to skip the check for a conflicting version. */
241 gld${EMULATION_NAME}_try_needed (name, force)
248 abfd = bfd_openr (name, bfd_get_target (output_bfd));
251 if (! bfd_check_format (abfd, bfd_object))
253 (void) bfd_close (abfd);
256 if ((bfd_get_file_flags (abfd) & DYNAMIC) == 0)
258 (void) bfd_close (abfd);
262 /* Check whether this object would include any conflicting library
263 versions. If FORCE is set, then we skip this check; we use this
264 the second time around, if we couldn't find any compatible
265 instance of the shared library. */
269 struct bfd_link_needed_list *needed;
271 if (! bfd_elf_get_bfd_needed_list (abfd, &needed))
272 einfo ("%F%P:%B: bfd_elf_get_bfd_needed_list failed: %E\n", abfd);
276 global_vercheck_needed = needed;
277 global_vercheck_failed = false;
278 lang_for_each_input_file (gld${EMULATION_NAME}_vercheck);
279 if (global_vercheck_failed)
281 (void) bfd_close (abfd);
282 /* Return false to force the caller to move on to try
283 another file on the search path. */
287 /* But wait! It gets much worse. On Linux, if a shared
288 library does not use libc at all, we are supposed to skip
289 it the first time around in case we encounter a shared
290 library later on with the same name which does use the
291 version of libc that we want. This is much too horrible
292 to use on any system other than Linux. */
297 cat >>e${EMULATION_NAME}.c <<EOF
299 struct bfd_link_needed_list *l;
301 for (l = needed; l != NULL; l = l->next)
302 if (strncmp (l->name, "libc.so", 7) == 0)
306 (void) bfd_close (abfd);
314 cat >>e${EMULATION_NAME}.c <<EOF
318 /* We've found a dynamic object matching the DT_NEEDED entry. */
320 /* We have already checked that there is no other input file of the
321 same name. We must now check again that we are not including the
322 same file twice. We need to do this because on many systems
323 libc.so is a symlink to, e.g., libc.so.1. The SONAME entry will
324 reference libc.so.1. If we have already included libc.so, we
325 don't want to include libc.so.1 if they are the same file, and we
326 can only check that using stat. */
328 if (bfd_stat (abfd, &global_stat) != 0)
329 einfo ("%F%P:%B: bfd_stat failed: %E\n", abfd);
331 /* First strip off everything before the last '/'. */
332 soname = basename (abfd->filename);
334 if (trace_file_tries)
335 info_msg (_("found %s at %s\n"), soname, name);
337 global_found = false;
338 lang_for_each_input_file (gld${EMULATION_NAME}_stat_needed);
341 /* Return true to indicate that we found the file, even though
342 we aren't going to do anything with it. */
346 /* Tell the ELF backend that we don't want the output file to have a
347 DT_NEEDED entry for this file. */
348 bfd_elf_set_dt_needed_name (abfd, "");
350 /* Tell the ELF backend that the output file needs a DT_NEEDED
351 entry for this file if it is used to resolve the reference in
353 bfd_elf_set_dt_needed_soname (abfd, soname);
355 /* Add this file into the symbol table. */
356 if (! bfd_link_add_symbols (abfd, &link_info))
357 einfo ("%F%B: could not read symbols: %E\n", abfd);
363 /* Search for a needed file in a path. */
366 gld${EMULATION_NAME}_search_needed (path, name, force)
375 return gld${EMULATION_NAME}_try_needed (name, force);
377 if (path == NULL || *path == '\0')
382 char *filename, *sset;
384 s = strchr (path, ':');
386 s = path + strlen (path);
388 filename = (char *) xmalloc (s - path + len + 2);
393 memcpy (filename, path, s - path);
394 filename[s - path] = '/';
395 sset = filename + (s - path) + 1;
399 if (gld${EMULATION_NAME}_try_needed (filename, force))
413 if [ "x${host}" = "x${target}" ] ; then
414 case " ${EMULATION_LIBPATH} " in
415 *" ${EMULATION_NAME} "*)
418 cat >>e${EMULATION_NAME}.c <<EOF
420 /* For a native linker, check the file /etc/ld.so.conf for directories
421 in which we may find shared libraries. /etc/ld.so.conf is really
422 only meaningful on Linux. */
424 static boolean gld${EMULATION_NAME}_check_ld_so_conf
425 PARAMS ((const char *, int));
428 gld${EMULATION_NAME}_check_ld_so_conf (name, force)
432 static boolean initialized;
433 static char *ld_so_conf;
439 f = fopen ("/etc/ld.so.conf", FOPEN_RT);
448 b = (char *) xmalloc (alloc);
450 while ((c = getc (f)) != EOF)
452 if (len + 1 >= alloc)
455 b = (char *) xrealloc (b, alloc);
468 if (len > 0 && b[len - 1] != ':')
476 if (len > 0 && b[len - 1] == ':')
495 if (ld_so_conf == NULL)
498 return gld${EMULATION_NAME}_search_needed (ld_so_conf, name, force);
507 cat >>e${EMULATION_NAME}.c <<EOF
509 /* See if an input file matches a DT_NEEDED entry by name. */
512 gld${EMULATION_NAME}_check_needed (s)
513 lang_input_statement_type *s;
518 if (s->filename != NULL)
522 if (strcmp (s->filename, global_needed->name) == 0)
528 if (s->search_dirs_flag)
530 f = strrchr (s->filename, '/');
532 && strcmp (f + 1, global_needed->name) == 0)
540 if (s->the_bfd != NULL)
544 soname = bfd_elf_get_dt_soname (s->the_bfd);
546 && strcmp (soname, global_needed->name) == 0)
556 if test x"$LDEMUL_AFTER_OPEN" != xgld"$EMULATION_NAME"_after_open; then
557 cat >>e${EMULATION_NAME}.c <<EOF
559 /* This is called after all the input files have been opened. */
562 gld${EMULATION_NAME}_after_open ()
564 struct bfd_link_needed_list *needed, *l;
566 /* We only need to worry about this when doing a final link. */
567 if (link_info.relocateable || link_info.shared)
570 /* Get the list of files which appear in DT_NEEDED entries in
571 dynamic objects included in the link (often there will be none).
572 For each such file, we want to track down the corresponding
573 library, and include the symbol table in the link. This is what
574 the runtime dynamic linker will do. Tracking the files down here
575 permits one dynamic object to include another without requiring
576 special action by the person doing the link. Note that the
577 needed list can actually grow while we are stepping through this
579 needed = bfd_elf_get_needed_list (output_bfd, &link_info);
580 for (l = needed; l != NULL; l = l->next)
582 struct bfd_link_needed_list *ll;
585 /* If we've already seen this file, skip it. */
586 for (ll = needed; ll != l; ll = ll->next)
587 if (strcmp (ll->name, l->name) == 0)
592 /* See if this file was included in the link explicitly. */
594 global_found = false;
595 lang_for_each_input_file (gld${EMULATION_NAME}_check_needed);
599 if (trace_file_tries)
600 info_msg (_("%s needed by %B\n"), l->name, l->by);
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 DT_RPATH/DT_RUNPATH
607 entries (native only), then the linker script LIB_SEARCH_DIRS.
608 We do not search using the -L arguments.
610 We search twice. The first time, we skip objects which may
611 introduce version mismatches. The second time, we force
612 their use. See gld${EMULATION_NAME}_vercheck comment. */
613 for (force = 0; force < 2; force++)
616 search_dirs_type *search;
618 if [ "x${host}" = "x${target}" ] ; then
619 case " ${EMULATION_LIBPATH} " in
620 *" ${EMULATION_NAME} "*)
621 cat >>e${EMULATION_NAME}.c <<EOF
622 const char *lib_path;
623 struct bfd_link_needed_list *rp;
629 cat >>e${EMULATION_NAME}.c <<EOF
631 if (gld${EMULATION_NAME}_search_needed (command_line.rpath_link,
635 if [ "x${host}" = "x${target}" ] ; then
636 case " ${EMULATION_LIBPATH} " in
637 *" ${EMULATION_NAME} "*)
638 cat >>e${EMULATION_NAME}.c <<EOF
639 if (gld${EMULATION_NAME}_search_needed (command_line.rpath,
642 if (command_line.rpath_link == NULL
643 && command_line.rpath == NULL)
645 lib_path = (const char *) getenv ("LD_RUN_PATH");
646 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name,
650 lib_path = (const char *) getenv ("LD_LIBRARY_PATH");
651 if (gld${EMULATION_NAME}_search_needed (lib_path, l->name, force))
655 rp = bfd_elf_get_runpath_list (output_bfd, &link_info);
656 for (; !found && rp != NULL; rp = rp->next)
658 found = (rp->by == l->by
659 && gld${EMULATION_NAME}_search_needed (rp->name,
670 cat >>e${EMULATION_NAME}.c <<EOF
671 len = strlen (l->name);
672 for (search = search_head; search != NULL; search = search->next)
678 filename = (char *) xmalloc (strlen (search->name) + len + 2);
679 sprintf (filename, "%s/%s", search->name, l->name);
680 if (gld${EMULATION_NAME}_try_needed (filename, force))
687 if [ "x${host}" = "x${target}" ] ; then
688 case " ${EMULATION_LIBPATH} " in
689 *" ${EMULATION_NAME} "*)
692 cat >>e${EMULATION_NAME}.c <<EOF
693 if (gld${EMULATION_NAME}_check_ld_so_conf (l->name, force))
702 cat >>e${EMULATION_NAME}.c <<EOF
708 einfo ("%P: warning: %s, needed by %B, not found (try using -rpath or -rpath-link)\n",
716 cat >>e${EMULATION_NAME}.c <<EOF
718 /* Look through an expression for an assignment statement. */
721 gld${EMULATION_NAME}_find_exp_assignment (exp)
724 struct bfd_link_hash_entry *h;
726 switch (exp->type.node_class)
729 h = bfd_link_hash_lookup (link_info.hash, exp->assign.dst,
730 false, false, false);
734 /* We call record_link_assignment even if the symbol is defined.
735 This is because if it is defined by a dynamic object, we
736 actually want to use the value defined by the linker script,
737 not the value from the dynamic object (because we are setting
738 symbols like etext). If the symbol is defined by a regular
739 object, then, as it happens, calling record_link_assignment
744 if (strcmp (exp->assign.dst, ".") != 0)
746 if (! (bfd_elf${ELFSIZE}_record_link_assignment
747 (output_bfd, &link_info, exp->assign.dst,
748 exp->type.node_class == etree_provide ? true : false)))
749 einfo ("%P%F: failed to record assignment to %s: %E\n",
752 gld${EMULATION_NAME}_find_exp_assignment (exp->assign.src);
756 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.lhs);
757 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.rhs);
761 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.cond);
762 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
763 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.rhs);
767 gld${EMULATION_NAME}_find_exp_assignment (exp->unary.child);
776 /* This is called by the before_allocation routine via
777 lang_for_each_statement. It locates any assignment statements, and
778 tells the ELF backend about them, in case they are assignments to
779 symbols which are referred to by dynamic objects. */
782 gld${EMULATION_NAME}_find_statement_assignment (s)
783 lang_statement_union_type *s;
785 if (s->header.type == lang_assignment_statement_enum)
786 gld${EMULATION_NAME}_find_exp_assignment (s->assignment_statement.exp);
791 if test x"$LDEMUL_BEFORE_ALLOCATION" != xgld"$EMULATION_NAME"_before_allocation; then
792 if test x"${ELF_INTERPRETER_NAME+set}" = xset; then
793 ELF_INTERPRETER_SET_DEFAULT="
796 sinterp->contents = ${ELF_INTERPRETER_NAME};
797 sinterp->_raw_size = strlen (sinterp->contents) + 1;
802 ELF_INTERPRETER_SET_DEFAULT=
804 cat >>e${EMULATION_NAME}.c <<EOF
806 /* This is called after the sections have been attached to output
807 sections, but before any sizes or addresses have been set. */
810 gld${EMULATION_NAME}_before_allocation ()
815 /* If we are going to make any variable assignments, we need to let
816 the ELF backend know about them in case the variables are
817 referred to by dynamic objects. */
818 lang_for_each_statement (gld${EMULATION_NAME}_find_statement_assignment);
820 /* Let the ELF backend work out the sizes of any sections required
821 by dynamic linking. */
822 rpath = command_line.rpath;
824 rpath = (const char *) getenv ("LD_RUN_PATH");
825 if (! (bfd_elf${ELFSIZE}_size_dynamic_sections
826 (output_bfd, command_line.soname, rpath,
827 command_line.export_dynamic, command_line.filter_shlib,
828 (const char * const *) command_line.auxiliary_filters,
829 &link_info, &sinterp, lang_elf_version_info)))
830 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
831 ${ELF_INTERPRETER_SET_DEFAULT}
832 /* Let the user override the dynamic linker we are using. */
833 if (command_line.interpreter != NULL
836 sinterp->contents = (bfd_byte *) command_line.interpreter;
837 sinterp->_raw_size = strlen (command_line.interpreter) + 1;
840 /* Look for any sections named .gnu.warning. As a GNU extensions,
841 we treat such sections as containing warning messages. We print
842 out the warning message, and then zero out the section size so
843 that it does not get copied into the output file. */
846 LANG_FOR_EACH_INPUT_STATEMENT (is)
853 if (is->just_syms_flag)
856 s = bfd_get_section_by_name (is->the_bfd, ".gnu.warning");
860 sz = bfd_section_size (is->the_bfd, s);
861 msg = xmalloc ((size_t) sz + 1);
862 if (! bfd_get_section_contents (is->the_bfd, s, msg, (file_ptr) 0, sz))
863 einfo ("%F%B: Can't read contents of section .gnu.warning: %E\n",
866 ret = link_info.callbacks->warning (&link_info, msg,
868 is->the_bfd, (asection *) NULL,
873 /* Clobber the section size, so that we don't waste copying the
874 warning into the output file. */
883 if test x"$LDEMUL_OPEN_DYNAMIC_ARCHIVE" != xgld"$EMULATION_NAME"_open_dynamic_archive; then
884 cat >>e${EMULATION_NAME}.c <<EOF
886 /* Try to open a dynamic archive. This is where we know that ELF
887 dynamic libraries have an extension of .so (or .sl on oddball systems
891 gld${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
893 search_dirs_type *search;
894 lang_input_statement_type *entry;
896 const char *filename;
899 if (! entry->is_archive)
902 filename = entry->filename;
904 /* This allocates a few bytes too many when EXTRA_SHLIB_EXTENSION
905 is defined, but it does not seem worth the headache to optimize
906 away those two bytes of space. */
907 string = (char *) xmalloc (strlen (search->name)
910 #ifdef EXTRA_SHLIB_EXTENSION
911 + strlen (EXTRA_SHLIB_EXTENSION)
915 sprintf (string, "%s/lib%s%s.so", search->name, filename, arch);
917 #ifdef EXTRA_SHLIB_EXTENSION
918 /* Try the .so extension first. If that fails build a new filename
919 using EXTRA_SHLIB_EXTENSION. */
920 if (! ldfile_try_open_bfd (string, entry))
921 sprintf (string, "%s/lib%s%s%s", search->name,
922 filename, arch, EXTRA_SHLIB_EXTENSION);
925 if (! ldfile_try_open_bfd (string, entry))
931 entry->filename = string;
933 /* We have found a dynamic object to include in the link. The ELF
934 backend linker will create a DT_NEEDED entry in the .dynamic
935 section naming this file. If this file includes a DT_SONAME
936 entry, it will be used. Otherwise, the ELF linker will just use
937 the name of the file. For an archive found by searching, like
938 this one, the DT_NEEDED entry should consist of just the name of
939 the file, without the path information used to find it. Note
940 that we only need to do this if we have a dynamic object; an
941 archive will never be referenced by a DT_NEEDED entry.
943 FIXME: This approach--using bfd_elf_set_dt_needed_name--is not
944 very pretty. I haven't been able to think of anything that is
946 if (bfd_check_format (entry->the_bfd, bfd_object)
947 && (entry->the_bfd->flags & DYNAMIC) != 0)
949 ASSERT (entry->is_archive && entry->search_dirs_flag);
951 /* Rather than duplicating the logic above. Just use the
952 filename we recorded earlier. */
954 filename = xstrdup (basename (entry->filename));
955 bfd_elf_set_dt_needed_name (entry->the_bfd, filename);
963 cat >>e${EMULATION_NAME}.c <<EOF
965 /* A variant of lang_output_section_find. Used by place_orphan. */
967 static lang_output_section_statement_type *
970 lang_statement_union_type *u;
971 lang_output_section_statement_type *lookup;
973 for (u = lang_output_section_statement.head;
974 u != (lang_statement_union_type *) NULL;
977 lookup = &u->output_section_statement;
978 if (strncmp (".rel", lookup->name, 4) == 0
979 && lookup->bfd_section != NULL
980 && (lookup->bfd_section->flags & SEC_ALLOC) != 0)
985 return (lang_output_section_statement_type *) NULL;
990 if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then
991 cat >>e${EMULATION_NAME}.c <<EOF
993 /* Place an orphan section. We use this to put random SHF_ALLOC
994 sections in the right segment. */
997 lang_output_section_statement_type *os;
999 lang_statement_union_type **stmt;
1003 gld${EMULATION_NAME}_place_orphan (file, s)
1004 lang_input_statement_type *file;
1007 static struct orphan_save hold_text;
1008 static struct orphan_save hold_rodata;
1009 static struct orphan_save hold_data;
1010 static struct orphan_save hold_bss;
1011 static struct orphan_save hold_rel;
1012 static struct orphan_save hold_interp;
1013 static struct orphan_save hold_sdata;
1014 static int count = 1;
1015 struct orphan_save *place;
1016 lang_statement_list_type *old;
1017 lang_statement_list_type add;
1018 etree_type *address;
1019 const char *secname;
1020 const char *outsecname;
1021 const char *ps = NULL;
1022 lang_output_section_statement_type *os;
1024 secname = bfd_get_section_name (s->owner, s);
1026 if (! config.unique_orphan_sections && ! unique_section_p (secname))
1028 /* Look through the script to see where to place this section. */
1029 os = lang_output_section_find (secname);
1032 && os->bfd_section != NULL
1033 && ((s->flags ^ os->bfd_section->flags)
1034 & (SEC_LOAD | SEC_ALLOC)) == 0)
1036 /* We have already placed a section with this name. */
1037 wild_doit (&os->children, s, os, file);
1042 if (hold_text.os == NULL)
1043 hold_text.os = lang_output_section_find (".text");
1045 /* If this is a final link, then always put .gnu.warning.SYMBOL
1046 sections into the .text section to get them out of the way. */
1047 if (! link_info.shared
1048 && ! link_info.relocateable
1049 && strncmp (secname, ".gnu.warning.", sizeof ".gnu.warning." - 1) == 0
1050 && hold_text.os != NULL)
1052 wild_doit (&hold_text.os->children, s, hold_text.os, file);
1056 /* Decide which segment the section should go in based on the
1057 section name and section flags. We put loadable .note sections
1058 right after the .interp section, so that the PT_NOTE segment is
1059 stored right after the program headers where the OS can read it
1060 in the first page. */
1061 #define HAVE_SECTION(hold, name) \
1062 (hold.os != NULL || (hold.os = lang_output_section_find (name)) != NULL)
1064 if (s->flags & SEC_EXCLUDE)
1068 if ((s->flags & SEC_ALLOC) == 0)
1070 else if ((s->flags & SEC_LOAD) != 0
1071 && strncmp (secname, ".note", 5) == 0
1072 && HAVE_SECTION (hold_interp, ".interp"))
1073 place = &hold_interp;
1074 else if ((s->flags & SEC_HAS_CONTENTS) == 0
1075 && HAVE_SECTION (hold_bss, ".bss"))
1077 else if ((s->flags & SEC_SMALL_DATA) != 0
1078 && HAVE_SECTION (hold_sdata, ".sdata"))
1079 place = &hold_sdata;
1080 else if ((s->flags & SEC_READONLY) == 0
1081 && HAVE_SECTION (hold_data, ".data"))
1083 else if (strncmp (secname, ".rel", 4) == 0
1084 && (hold_rel.os != NULL
1085 || (hold_rel.os = output_rel_find ()) != NULL))
1087 else if ((s->flags & (SEC_CODE | SEC_READONLY)) == SEC_READONLY
1088 && HAVE_SECTION (hold_rodata, ".rodata"))
1089 place = &hold_rodata;
1090 else if ((s->flags & (SEC_CODE | SEC_READONLY)) == (SEC_CODE | SEC_READONLY)
1091 && hold_text.os != NULL)
1096 /* Choose a unique name for the section. This will be needed if the
1097 same section name appears in the input file with different
1098 loadable or allocatable characteristics. */
1099 outsecname = secname;
1100 if (bfd_get_section_by_name (output_bfd, outsecname) != NULL)
1102 outsecname = bfd_get_unique_section_name (output_bfd,
1105 if (outsecname == NULL)
1106 einfo ("%F%P: place_orphan failed: %E\n");
1109 /* Start building a list of statements for this section.
1110 First save the current statement pointer. */
1113 /* If we have found an appropriate place for the output section
1114 statements for this orphan, add them to our own private list,
1115 inserting them later into the global statement list. */
1119 lang_list_init (stat_ptr);
1122 if (config.build_constructors)
1124 /* If the name of the section is representable in C, then create
1125 symbols to mark the start and the end of the section. */
1126 for (ps = outsecname; *ps != '\0'; ps++)
1127 if (! isalnum ((unsigned char) *ps) && *ps != '_')
1132 etree_type *e_align;
1134 symname = (char *) xmalloc (ps - outsecname + sizeof "__start_");
1135 sprintf (symname, "__start_%s", outsecname);
1136 e_align = exp_unop (ALIGN_K,
1137 exp_intop ((bfd_vma) 1 << s->alignment_power));
1138 lang_add_assignment (exp_assop ('=', symname, e_align));
1142 if (link_info.relocateable || (s->flags & (SEC_LOAD | SEC_ALLOC)) == 0)
1143 address = exp_intop ((bfd_vma) 0);
1147 os = lang_enter_output_section_statement (outsecname, address, 0,
1149 (etree_type *) NULL,
1150 (etree_type *) NULL,
1151 (etree_type *) NULL);
1153 wild_doit (&os->children, s, os, file);
1155 lang_leave_output_section_statement
1156 ((bfd_vma) 0, "*default*",
1157 (struct lang_output_section_phdr_list *) NULL, "*default*");
1159 if (config.build_constructors && *ps == '\0')
1163 /* lang_leave_ouput_section_statement resets stat_ptr. Put
1164 stat_ptr back where we want it. */
1168 symname = (char *) xmalloc (ps - outsecname + sizeof "__stop_");
1169 sprintf (symname, "__stop_%s", outsecname);
1170 lang_add_assignment (exp_assop ('=', symname,
1171 exp_nameop (NAME, ".")));
1174 /* Restore the global list pointer. */
1179 asection *snew, **pps;
1181 snew = os->bfd_section;
1182 if (place->section != NULL
1183 || (place->os->bfd_section != NULL
1184 && place->os->bfd_section != snew))
1186 /* Shuffle the section to make the output file look neater.
1187 This is really only cosmetic. */
1188 if (place->section == NULL)
1191 /* Finding the end of the list is a little tricky. We
1192 make a wild stab at it by comparing section flags. */
1193 flagword first_flags = place->os->bfd_section->flags;
1194 for (pps = &place->os->bfd_section->next;
1195 *pps != NULL && (*pps)->flags == first_flags;
1196 pps = &(*pps)->next)
1198 place->section = pps;
1200 /* Put orphans after the first section on the list. */
1201 place->section = &place->os->bfd_section->next;
1205 /* Unlink the section. */
1206 for (pps = &output_bfd->sections; *pps != snew; pps = &(*pps)->next)
1210 /* Now tack it on to the "place->os" section list. */
1211 snew->next = *place->section;
1212 *place->section = snew;
1214 place->section = &snew->next; /* Save the end of this list. */
1216 if (add.head != NULL)
1218 /* We try to put the output statements in some sort of
1219 reasonable order here, because they determine the final
1220 load addresses of the orphan sections. */
1221 if (place->stmt == NULL)
1223 /* Put the new statement list right at the head. */
1224 *add.tail = place->os->header.next;
1225 place->os->header.next = add.head;
1229 /* Put it after the last orphan statement we added. */
1230 *add.tail = *place->stmt;
1231 *place->stmt = add.head;
1234 /* Fix the global list pointer if we happened to tack our
1235 new list at the tail. */
1236 if (*old->tail == add.head)
1237 old->tail = add.tail;
1239 /* Save the end of this list. */
1240 place->stmt = add.tail;
1250 if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then
1251 cat >>e${EMULATION_NAME}.c <<EOF
1254 gld${EMULATION_NAME}_get_script (isfile)
1258 if test -n "$COMPILE_IN"
1260 # Scripts compiled in.
1262 # sed commands to quote an ld script as a C string.
1263 sc="-f stringify.sed"
1265 cat >>e${EMULATION_NAME}.c <<EOF
1269 if (link_info.relocateable == true && config.build_constructors == true)
1272 sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
1273 echo ' ; else if (link_info.relocateable == true) return' >> e${EMULATION_NAME}.c
1274 sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
1275 echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
1276 sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
1277 echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
1278 sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
1280 if test -n "$GENERATE_SHLIB_SCRIPT" ; then
1281 echo ' ; else if (link_info.shared) return' >> e${EMULATION_NAME}.c
1282 sed $sc ldscripts/${EMULATION_NAME}.xs >> e${EMULATION_NAME}.c
1285 echo ' ; else return' >> e${EMULATION_NAME}.c
1286 sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
1287 echo '; }' >> e${EMULATION_NAME}.c
1290 # Scripts read from the filesystem.
1292 cat >>e${EMULATION_NAME}.c <<EOF
1296 if (link_info.relocateable == true && config.build_constructors == true)
1297 return "ldscripts/${EMULATION_NAME}.xu";
1298 else if (link_info.relocateable == true)
1299 return "ldscripts/${EMULATION_NAME}.xr";
1300 else if (!config.text_read_only)
1301 return "ldscripts/${EMULATION_NAME}.xbn";
1302 else if (!config.magic_demand_paged)
1303 return "ldscripts/${EMULATION_NAME}.xn";
1304 else if (link_info.shared)
1305 return "ldscripts/${EMULATION_NAME}.xs";
1307 return "ldscripts/${EMULATION_NAME}.x";
1314 if test -n "$PARSE_AND_LIST_ARGS_CASES" -o x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1316 if test x"$LDEMUL_PARSE_ARGS" != xgld"$EMULATION_NAME"_parse_args; then
1318 if test -n "$PARSE_AND_LIST_PROLOGUE" ; then
1319 cat >>e${EMULATION_NAME}.c <<EOF
1320 $PARSE_AND_LIST_PROLOGUE
1324 cat >>e${EMULATION_NAME}.c <<EOF
1328 #define OPTION_DISABLE_NEW_DTAGS (400)
1329 #define OPTION_ENABLE_NEW_DTAGS (OPTION_DISABLE_NEW_DTAGS + 1)
1330 #define OPTION_GROUP (OPTION_ENABLE_NEW_DTAGS + 1)
1332 static struct option longopts[] =
1336 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1337 cat >>e${EMULATION_NAME}.c <<EOF
1338 /* getopt allows abbreviations, so we do this to stop it from
1339 treating -d/-e as abbreviations for these options. */
1340 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1341 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1342 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1343 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1344 {"Bgroup", no_argument, NULL, OPTION_GROUP},
1345 {"Bgroup", no_argument, NULL, OPTION_GROUP},
1349 if test -n "$PARSE_AND_LIST_LONGOPTS" ; then
1350 cat >>e${EMULATION_NAME}.c <<EOF
1351 $PARSE_AND_LIST_LONGOPTS
1355 cat >>e${EMULATION_NAME}.c <<EOF
1356 {NULL, no_argument, NULL, 0}
1360 static int gld${EMULATION_NAME}_parse_args PARAMS ((int, char **));
1363 gld${EMULATION_NAME}_parse_args (argc, argv)
1369 static int prevoptind = -1;
1370 int prevopterr = opterr;
1373 if (prevoptind != optind)
1377 prevoptind = optind;
1379 optc = getopt_long_only (argc, argv,
1380 "-${PARSE_AND_LIST_SHORTOPTS}z:", longopts,
1382 opterr = prevopterr;
1389 optind = prevoptind;
1394 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1395 cat >>e${EMULATION_NAME}.c <<EOF
1396 case OPTION_DISABLE_NEW_DTAGS:
1397 link_info.new_dtags = false;
1400 case OPTION_ENABLE_NEW_DTAGS:
1401 link_info.new_dtags = true;
1405 link_info.flags_1 |= (bfd_vma) DF_1_GROUP;
1406 /* Groups must be self-contained. */
1407 link_info.no_undefined = true;
1411 if (strcmp (optarg, "initfirst") == 0)
1412 link_info.flags_1 |= (bfd_vma) DF_1_INITFIRST;
1413 else if (strcmp (optarg, "interpose") == 0)
1414 link_info.flags_1 |= (bfd_vma) DF_1_INTERPOSE;
1415 else if (strcmp (optarg, "loadfltr") == 0)
1416 link_info.flags_1 |= (bfd_vma) DF_1_LOADFLTR;
1417 else if (strcmp (optarg, "nodefaultlib") == 0)
1418 link_info.flags_1 |= (bfd_vma) DF_1_NODEFLIB;
1419 else if (strcmp (optarg, "nodelete") == 0)
1420 link_info.flags_1 |= (bfd_vma) DF_1_NODELETE;
1421 else if (strcmp (optarg, "nodlopen") == 0)
1422 link_info.flags_1 |= (bfd_vma) DF_1_NOOPEN;
1423 else if (strcmp (optarg, "nodump") == 0)
1424 link_info.flags_1 |= (bfd_vma) DF_1_NODUMP;
1425 else if (strcmp (optarg, "now") == 0)
1427 link_info.flags |= (bfd_vma) DF_BIND_NOW;
1428 link_info.flags_1 |= (bfd_vma) DF_1_NOW;
1430 else if (strcmp (optarg, "origin") == 0)
1432 link_info.flags |= (bfd_vma) DF_ORIGIN;
1433 link_info.flags_1 |= (bfd_vma) DF_1_ORIGIN;
1435 else if (strcmp (optarg, "defs") == 0)
1436 link_info.no_undefined = true;
1437 /* What about the other Solaris -z options? FIXME. */
1442 if test -n "$PARSE_AND_LIST_ARGS_CASES" ; then
1443 cat >>e${EMULATION_NAME}.c <<EOF
1444 $PARSE_AND_LIST_ARGS_CASES
1448 cat >>e${EMULATION_NAME}.c <<EOF
1457 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1458 cat >>e${EMULATION_NAME}.c <<EOF
1460 static void gld${EMULATION_NAME}_list_options PARAMS ((FILE * file));
1463 gld${EMULATION_NAME}_list_options (file)
1468 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1469 cat >>e${EMULATION_NAME}.c <<EOF
1470 fprintf (file, _(" -Bgroup\t\tSelects group name lookup rules for DSO\n"));
1471 fprintf (file, _(" --disable-new-dtags\tDisable new dynamic tags\n"));
1472 fprintf (file, _(" --enable-new-dtags\tEnable new dynamic tags\n"));
1473 fprintf (file, _(" -z defs\t\tDisallows undefined symbols\n"));
1474 fprintf (file, _(" -z initfirst\t\tMark DSO to be initialized first at runtime\n"));
1475 fprintf (file, _(" -z interpose\t\tMark object to interpose all DSOs but executable\n"));
1476 fprintf (file, _(" -z loadfltr\t\tMark object requiring immediate process\n"));
1477 fprintf (file, _(" -z nodefaultlib\tMark object not to use default search paths\n"));
1478 fprintf (file, _(" -z nodelete\t\tMark DSO non-deletable at runtime\n"));
1479 fprintf (file, _(" -z nodlopen\t\tMark DSO not available to dlopen\n"));
1480 fprintf (file, _(" -z nodump\t\tMark DSO not available to dldump\n"));
1481 fprintf (file, _(" -z now\t\tMark object non-lazy runtime binding\n"));
1482 fprintf (file, _(" -z origin\t\tMark object requiring immediate \$ORIGIN processing\n"));
1483 fprintf (file, _("\t\t\t at runtime\n"));
1484 fprintf (file, _(" -z KEYWORD\t\tIgnored for Solaris compatibility\n"));
1488 if test -n "$PARSE_AND_LIST_OPTIONS" ; then
1489 cat >>e${EMULATION_NAME}.c <<EOF
1490 $PARSE_AND_LIST_OPTIONS
1494 cat >>e${EMULATION_NAME}.c <<EOF
1498 if test -n "$PARSE_AND_LIST_EPILOGUE" ; then
1499 cat >>e${EMULATION_NAME}.c <<EOF
1500 $PARSE_AND_LIST_EPILOGUE
1505 if test x"$LDEMUL_PARSE_ARGS" != xgld"$EMULATION_NAME"_parse_args; then
1506 cat >>e${EMULATION_NAME}.c <<EOF
1507 #define gld${EMULATION_NAME}_parse_args NULL
1510 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1511 cat >>e${EMULATION_NAME}.c <<EOF
1512 #define gld${EMULATION_NAME}_list_options NULL
1517 cat >>e${EMULATION_NAME}.c <<EOF
1519 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
1521 ${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse},
1522 ${LDEMUL_SYSLIB-syslib_default},
1523 ${LDEMUL_HLL-hll_default},
1524 ${LDEMUL_AFTER_PARSE-after_parse_default},
1525 ${LDEMUL_AFTER_OPEN-gld${EMULATION_NAME}_after_open},
1526 ${LDEMUL_AFTER_ALLOCATION-after_allocation_default},
1527 ${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default},
1528 ${LDEMUL_CHOOSE_TARGET-ldemul_default_target},
1529 ${LDEMUL_BEFORE_ALLOCATION-gld${EMULATION_NAME}_before_allocation},
1530 ${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script},
1531 "${EMULATION_NAME}",
1533 ${LDEMUL_FINISH-NULL},
1534 ${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL},
1535 ${LDEMUL_OPEN_DYNAMIC_ARCHIVE-gld${EMULATION_NAME}_open_dynamic_archive},
1536 ${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan},
1537 ${LDEMUL_SET_SYMBOLS-NULL},
1538 ${LDEMUL_PARSE_ARGS-gld${EMULATION_NAME}_parse_args},
1539 ${LDEMUL_UNRECOGNIZED_FILE-NULL},
1540 ${LDEMUL_LIST_OPTIONS-gld${EMULATION_NAME}_list_options},
1541 ${LDEMUL_RECOGNIZED_FILE-NULL},
1542 ${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL},