| blob | 703248a5ce4855e06f1166fcae0fa770b84996bf |
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
4 # ELF emulations.
5 test -z "${ELFSIZE}" && ELFSIZE=32
6 if [ -z "$MACHINE" ]; then
7 OUTPUT_ARCH=${ARCH}
8 else
9 OUTPUT_ARCH=${ARCH}:${MACHINE}
10 fi
11 cat >e${EMULATION_NAME}.c <<EOF
12 /* This file is is generated by a shell script. DO NOT EDIT! */
14 /* ${ELFSIZE} bit ELF emulation code for ${EMULATION_NAME}
15 Copyright 1991, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
16 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
17 Written by Steve Chamberlain <sac@cygnus.com>
18 ELF support by Ian Lance Taylor <ian@cygnus.com>
20 This file is part of GLD, the Gnu Linker.
22 This program is free software; you can redistribute it and/or modify
23 it under the terms of the GNU General Public License as published by
24 the Free Software Foundation; either version 2 of the License, or
25 (at your option) any later version.
27 This program is distributed in the hope that it will be useful,
28 but WITHOUT ANY WARRANTY; without even the implied warranty of
29 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
30 GNU General Public License for more details.
32 You should have received a copy of the GNU General Public License
33 along with this program; if not, write to the Free Software
34 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
36 #define TARGET_IS_${EMULATION_NAME}
38 #include "config.h"
39 #include "bfd.h"
40 #include "sysdep.h"
41 #include "libiberty.h"
42 #include "safe-ctype.h"
43 #include "getopt.h"
45 #include "bfdlink.h"
47 #include "ld.h"
48 #include "ldmain.h"
49 #include "ldmisc.h"
50 #include "ldexp.h"
51 #include "ldlang.h"
52 #include "ldfile.h"
53 #include "ldemul.h"
54 #include <ldgram.h>
55 #include "elf/common.h"
56 #include "elf-bfd.h"
58 /* Declare functions used by various EXTRA_EM_FILEs. */
59 static void gld${EMULATION_NAME}_before_parse (void);
60 static void gld${EMULATION_NAME}_after_open (void);
61 static void gld${EMULATION_NAME}_before_allocation (void);
62 static bfd_boolean gld${EMULATION_NAME}_place_orphan (asection *s);
63 static void gld${EMULATION_NAME}_layout_sections_again (void);
64 static void gld${EMULATION_NAME}_finish (void) ATTRIBUTE_UNUSED;
66 EOF
68 if [ "x${USE_LIBPATH}" = xyes ] ; then
69 case ${target} in
70 *-*-linux-* | *-*-k*bsd*-*)
71 cat >>e${EMULATION_NAME}.c <<EOF
72 #ifdef HAVE_GLOB
73 #include <glob.h>
74 #endif
75 EOF
76 ;;
77 esac
78 fi
80 # Import any needed special functions and/or overrides.
81 #
82 if test -n "$EXTRA_EM_FILE" ; then
83 . ${srcdir}/emultempl/${EXTRA_EM_FILE}.em
84 fi
86 # Functions in this file can be overridden by setting the LDEMUL_* shell
87 # variables. If the name of the overriding function is the same as is
88 # defined in this file, then don't output this file's version.
89 # If a different overriding name is given then output the standard function
90 # as presumably it is called from the overriding function.
91 #
92 if test x"$LDEMUL_BEFORE_PARSE" != xgld"$EMULATION_NAME"_before_parse; then
93 cat >>e${EMULATION_NAME}.c <<EOF
95 static void
96 gld${EMULATION_NAME}_before_parse (void)
97 {
98 ldfile_set_output_arch ("${OUTPUT_ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`);
99 config.dynamic_link = ${DYNAMIC_LINK-TRUE};
100 config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo TRUE ; else echo FALSE ; fi`;
101 }
103 EOF
104 fi
106 if test x"$LDEMUL_RECOGNIZED_FILE" != xgld"${EMULATION_NAME}"_load_symbols; then
107 cat >>e${EMULATION_NAME}.c <<EOF
108 /* Handle as_needed DT_NEEDED. */
110 static bfd_boolean
111 gld${EMULATION_NAME}_load_symbols (lang_input_statement_type *entry)
112 {
113 int class = 0;
115 /* Tell the ELF linker that we don't want the output file to have a
116 DT_NEEDED entry for this file, unless it is used to resolve
117 references in a regular object. */
118 if (entry->as_needed)
119 class = DYN_AS_NEEDED;
121 /* Tell the ELF linker that we don't want the output file to have a
122 DT_NEEDED entry for any dynamic library in DT_NEEDED tags from
123 this file at all. */
124 if (!entry->add_needed)
125 class |= DYN_NO_ADD_NEEDED;
127 if (entry->just_syms_flag
128 && (bfd_get_file_flags (entry->the_bfd) & DYNAMIC) != 0)
129 einfo (_("%P%F: --just-symbols may not be used on DSO: %B\n"),
130 entry->the_bfd);
132 if (!class
133 || (bfd_get_file_flags (entry->the_bfd) & DYNAMIC) == 0)
134 return FALSE;
136 bfd_elf_set_dyn_lib_class (entry->the_bfd, class);
138 /* Continue on with normal load_symbols processing. */
139 return FALSE;
140 }
141 EOF
142 fi
144 cat >>e${EMULATION_NAME}.c <<EOF
146 /* These variables are required to pass information back and forth
147 between after_open and check_needed and stat_needed and vercheck. */
149 static struct bfd_link_needed_list *global_needed;
150 static struct stat global_stat;
151 static bfd_boolean global_found;
152 static struct bfd_link_needed_list *global_vercheck_needed;
153 static bfd_boolean global_vercheck_failed;
156 /* On Linux, it's possible to have different versions of the same
157 shared library linked against different versions of libc. The
158 dynamic linker somehow tags which libc version to use in
159 /etc/ld.so.cache, and, based on the libc that it sees in the
160 executable, chooses which version of the shared library to use.
162 We try to do a similar check here by checking whether this shared
163 library needs any other shared libraries which may conflict with
164 libraries we have already included in the link. If it does, we
165 skip it, and try to find another shared library farther on down the
166 link path.
168 This is called via lang_for_each_input_file.
169 GLOBAL_VERCHECK_NEEDED is the list of objects needed by the object
170 which we are checking. This sets GLOBAL_VERCHECK_FAILED if we find
171 a conflicting version. */
173 static void
174 gld${EMULATION_NAME}_vercheck (lang_input_statement_type *s)
175 {
176 const char *soname;
177 struct bfd_link_needed_list *l;
179 if (global_vercheck_failed)
180 return;
181 if (s->the_bfd == NULL
182 || (bfd_get_file_flags (s->the_bfd) & DYNAMIC) == 0)
183 return;
185 soname = bfd_elf_get_dt_soname (s->the_bfd);
186 if (soname == NULL)
187 soname = lbasename (bfd_get_filename (s->the_bfd));
189 for (l = global_vercheck_needed; l != NULL; l = l->next)
190 {
191 const char *suffix;
193 if (strcmp (soname, l->name) == 0)
194 {
195 /* Probably can't happen, but it's an easy check. */
196 continue;
197 }
199 if (strchr (l->name, '/') != NULL)
200 continue;
202 suffix = strstr (l->name, ".so.");
203 if (suffix == NULL)
204 continue;
206 suffix += sizeof ".so." - 1;
208 if (strncmp (soname, l->name, suffix - l->name) == 0)
209 {
210 /* Here we know that S is a dynamic object FOO.SO.VER1, and
211 the object we are considering needs a dynamic object
212 FOO.SO.VER2, and VER1 and VER2 are different. This
213 appears to be a version mismatch, so we tell the caller
214 to try a different version of this library. */
215 global_vercheck_failed = TRUE;
216 return;
217 }
218 }
219 }
222 /* See if an input file matches a DT_NEEDED entry by running stat on
223 the file. */
225 static void
226 gld${EMULATION_NAME}_stat_needed (lang_input_statement_type *s)
227 {
228 struct stat st;
229 const char *suffix;
230 const char *soname;
232 if (global_found)
233 return;
234 if (s->the_bfd == NULL)
235 return;
236 if (s->as_needed
237 && (bfd_elf_get_dyn_lib_class (s->the_bfd) & DYN_AS_NEEDED) != 0)
238 return;
240 if (bfd_stat (s->the_bfd, &st) != 0)
241 {
242 einfo ("%P:%B: bfd_stat failed: %E\n", s->the_bfd);
243 return;
244 }
246 /* Some operating systems, e.g. Windows, do not provide a meaningful
247 st_ino; they always set it to zero. (Windows does provide a
248 meaningful st_dev.) Do not indicate a duplicate library in that
249 case. While there is no guarantee that a system that provides
250 meaningful inode numbers will never set st_ino to zero, this is
251 merely an optimization, so we do not need to worry about false
252 negatives. */
253 if (st.st_dev == global_stat.st_dev
254 && st.st_ino == global_stat.st_ino
255 && st.st_ino != 0)
256 {
257 global_found = TRUE;
258 return;
259 }
261 /* We issue a warning if it looks like we are including two
262 different versions of the same shared library. For example,
263 there may be a problem if -lc picks up libc.so.6 but some other
264 shared library has a DT_NEEDED entry of libc.so.5. This is a
265 heuristic test, and it will only work if the name looks like
266 NAME.so.VERSION. FIXME: Depending on file names is error-prone.
267 If we really want to issue warnings about mixing version numbers
268 of shared libraries, we need to find a better way. */
270 if (strchr (global_needed->name, '/') != NULL)
271 return;
272 suffix = strstr (global_needed->name, ".so.");
273 if (suffix == NULL)
274 return;
275 suffix += sizeof ".so." - 1;
277 soname = bfd_elf_get_dt_soname (s->the_bfd);
278 if (soname == NULL)
279 soname = lbasename (s->filename);
281 if (strncmp (soname, global_needed->name, suffix - global_needed->name) == 0)
282 einfo ("%P: warning: %s, needed by %B, may conflict with %s\n",
283 global_needed->name, global_needed->by, soname);
284 }
286 struct dt_needed
287 {
288 bfd *by;
289 const char *name;
290 };
292 /* This function is called for each possible name for a dynamic object
293 named by a DT_NEEDED entry. The FORCE parameter indicates whether
294 to skip the check for a conflicting version. */
296 static bfd_boolean
297 gld${EMULATION_NAME}_try_needed (struct dt_needed *needed,
298 int force)
299 {
300 bfd *abfd;
301 const char *name = needed->name;
302 const char *soname;
303 int class;
305 abfd = bfd_openr (name, bfd_get_target (output_bfd));
306 if (abfd == NULL)
307 return FALSE;
308 if (! bfd_check_format (abfd, bfd_object))
309 {
310 bfd_close (abfd);
311 return FALSE;
312 }
313 if ((bfd_get_file_flags (abfd) & DYNAMIC) == 0)
314 {
315 bfd_close (abfd);
316 return FALSE;
317 }
319 /* For DT_NEEDED, they have to match. */
320 if (abfd->xvec != output_bfd->xvec)
321 {
322 bfd_close (abfd);
323 return FALSE;
324 }
326 /* Check whether this object would include any conflicting library
327 versions. If FORCE is set, then we skip this check; we use this
328 the second time around, if we couldn't find any compatible
329 instance of the shared library. */
331 if (! force)
332 {
333 struct bfd_link_needed_list *needed;
335 if (! bfd_elf_get_bfd_needed_list (abfd, &needed))
336 einfo ("%F%P:%B: bfd_elf_get_bfd_needed_list failed: %E\n", abfd);
338 if (needed != NULL)
339 {
340 global_vercheck_needed = needed;
341 global_vercheck_failed = FALSE;
342 lang_for_each_input_file (gld${EMULATION_NAME}_vercheck);
343 if (global_vercheck_failed)
344 {
345 bfd_close (abfd);
346 /* Return FALSE to force the caller to move on to try
347 another file on the search path. */
348 return FALSE;
349 }
351 /* But wait! It gets much worse. On Linux, if a shared
352 library does not use libc at all, we are supposed to skip
353 it the first time around in case we encounter a shared
354 library later on with the same name which does use the
355 version of libc that we want. This is much too horrible
356 to use on any system other than Linux. */
358 EOF
359 case ${target} in
360 *-*-linux-* | *-*-k*bsd*-*)
361 cat >>e${EMULATION_NAME}.c <<EOF
362 {
363 struct bfd_link_needed_list *l;
365 for (l = needed; l != NULL; l = l->next)
366 if (strncmp (l->name, "libc.so", 7) == 0)
367 break;
368 if (l == NULL)
369 {
370 bfd_close (abfd);
371 return FALSE;
372 }
373 }
375 EOF
376 ;;
377 esac
378 cat >>e${EMULATION_NAME}.c <<EOF
379 }
380 }
382 /* We've found a dynamic object matching the DT_NEEDED entry. */
384 /* We have already checked that there is no other input file of the
385 same name. We must now check again that we are not including the
386 same file twice. We need to do this because on many systems
387 libc.so is a symlink to, e.g., libc.so.1. The SONAME entry will
388 reference libc.so.1. If we have already included libc.so, we
389 don't want to include libc.so.1 if they are the same file, and we
390 can only check that using stat. */
392 if (bfd_stat (abfd, &global_stat) != 0)
393 einfo ("%F%P:%B: bfd_stat failed: %E\n", abfd);
395 /* First strip off everything before the last '/'. */
396 soname = lbasename (abfd->filename);
398 if (trace_file_tries)
399 info_msg (_("found %s at %s\n"), soname, name);
401 global_found = FALSE;
402 lang_for_each_input_file (gld${EMULATION_NAME}_stat_needed);
403 if (global_found)
404 {
405 /* Return TRUE to indicate that we found the file, even though
406 we aren't going to do anything with it. */
407 return TRUE;
408 }
410 /* Specify the soname to use. */
411 bfd_elf_set_dt_needed_name (abfd, soname);
413 /* Tell the ELF linker that we don't want the output file to have a
414 DT_NEEDED entry for this file, unless it is used to resolve
415 references in a regular object. */
416 class = DYN_DT_NEEDED;
418 /* Tell the ELF linker that we don't want the output file to have a
419 DT_NEEDED entry for this file at all if the entry is from a file
420 with DYN_NO_ADD_NEEDED. */
421 if (needed->by != NULL
422 && (bfd_elf_get_dyn_lib_class (needed->by) & DYN_NO_ADD_NEEDED) != 0)
423 class |= DYN_NO_NEEDED | DYN_NO_ADD_NEEDED;
425 bfd_elf_set_dyn_lib_class (abfd, class);
427 /* Add this file into the symbol table. */
428 if (! bfd_link_add_symbols (abfd, &link_info))
429 einfo ("%F%B: could not read symbols: %E\n", abfd);
431 return TRUE;
432 }
435 /* Search for a needed file in a path. */
437 static bfd_boolean
438 gld${EMULATION_NAME}_search_needed (const char *path,
439 struct dt_needed *n, int force)
440 {
441 const char *s;
442 const char *name = n->name;
443 size_t len;
444 struct dt_needed needed;
446 if (name[0] == '/')
447 return gld${EMULATION_NAME}_try_needed (n, force);
449 if (path == NULL || *path == '\0')
450 return FALSE;
452 needed.by = n->by;
453 needed.name = n->name;
455 len = strlen (name);
456 while (1)
457 {
458 char *filename, *sset;
460 s = strchr (path, ':');
461 if (s == NULL)
462 s = path + strlen (path);
464 filename = (char *) xmalloc (s - path + len + 2);
465 if (s == path)
466 sset = filename;
467 else
468 {
469 memcpy (filename, path, s - path);
470 filename[s - path] = '/';
471 sset = filename + (s - path) + 1;
472 }
473 strcpy (sset, name);
475 needed.name = filename;
476 if (gld${EMULATION_NAME}_try_needed (&needed, force))
477 return TRUE;
479 free (filename);
481 if (*s == '\0')
482 break;
483 path = s + 1;
484 }
486 return FALSE;
487 }
489 EOF
490 if [ "x${USE_LIBPATH}" = xyes ] ; then
491 cat >>e${EMULATION_NAME}.c <<EOF
493 /* Add the sysroot to every entry in a colon-separated path. */
495 static char *
496 gld${EMULATION_NAME}_add_sysroot (const char *path)
497 {
498 int len, colons, i;
499 char *ret, *p;
501 len = strlen (path);
502 colons = 0;
503 i = 0;
504 while (path[i])
505 if (path[i++] == ':')
506 colons++;
508 if (path[i])
509 colons++;
511 len = len + (colons + 1) * strlen (ld_sysroot);
512 ret = xmalloc (len + 1);
513 strcpy (ret, ld_sysroot);
514 p = ret + strlen (ret);
515 i = 0;
516 while (path[i])
517 if (path[i] == ':')
518 {
519 *p++ = path[i++];
520 strcpy (p, ld_sysroot);
521 p = p + strlen (p);
522 }
523 else
524 *p++ = path[i++];
526 *p = 0;
527 return ret;
528 }
530 EOF
531 case ${target} in
532 *-*-linux-* | *-*-k*bsd*-*)
533 cat >>e${EMULATION_NAME}.c <<EOF
534 /* For a native linker, check the file /etc/ld.so.conf for directories
535 in which we may find shared libraries. /etc/ld.so.conf is really
536 only meaningful on Linux. */
538 struct gld${EMULATION_NAME}_ld_so_conf
539 {
540 char *path;
541 size_t len, alloc;
542 };
544 static void
545 gld${EMULATION_NAME}_parse_ld_so_conf
546 (struct gld${EMULATION_NAME}_ld_so_conf *info, const char *filename);
548 static void
549 gld${EMULATION_NAME}_parse_ld_so_conf_include
550 (struct gld${EMULATION_NAME}_ld_so_conf *info, const char *filename,
551 const char *pattern)
552 {
553 char *newp = NULL;
554 #ifdef HAVE_GLOB
555 glob_t gl;
556 #endif
558 if (pattern[0] != '/')
559 {
560 char *p = strrchr (filename, '/');
561 size_t patlen = strlen (pattern) + 1;
563 newp = xmalloc (p - filename + 1 + patlen);
564 memcpy (newp, filename, p - filename + 1);
565 memcpy (newp + (p - filename + 1), pattern, patlen);
566 pattern = newp;
567 }
569 #ifdef HAVE_GLOB
570 if (glob (pattern, 0, NULL, &gl) == 0)
571 {
572 size_t i;
574 for (i = 0; i < gl.gl_pathc; ++i)
575 gld${EMULATION_NAME}_parse_ld_so_conf (info, gl.gl_pathv[i]);
576 globfree (&gl);
577 }
578 #else
579 /* If we do not have glob, treat the pattern as a literal filename. */
580 gld${EMULATION_NAME}_parse_ld_so_conf (info, pattern);
581 #endif
583 if (newp)
584 free (newp);
585 }
587 static void
588 gld${EMULATION_NAME}_parse_ld_so_conf
589 (struct gld${EMULATION_NAME}_ld_so_conf *info, const char *filename)
590 {
591 FILE *f = fopen (filename, FOPEN_RT);
592 char *line;
593 size_t linelen;
595 if (f == NULL)
596 return;
598 linelen = 256;
599 line = xmalloc (linelen);
600 do
601 {
602 char *p = line, *q;
604 /* Normally this would use getline(3), but we need to be portable. */
605 while ((q = fgets (p, linelen - (p - line), f)) != NULL
606 && strlen (q) == linelen - (p - line) - 1
607 && line[linelen - 2] != '\n')
608 {
609 line = xrealloc (line, 2 * linelen);
610 p = line + linelen - 1;
611 linelen += linelen;
612 }
614 if (q == NULL && p == line)
615 break;
617 p = strchr (line, '\n');
618 if (p)
619 *p = '\0';
621 /* Because the file format does not know any form of quoting we
622 can search forward for the next '#' character and if found
623 make it terminating the line. */
624 p = strchr (line, '#');
625 if (p)
626 *p = '\0';
628 /* Remove leading whitespace. NUL is no whitespace character. */
629 p = line;
630 while (*p == ' ' || *p == '\f' || *p == '\r' || *p == '\t' || *p == '\v')
631 ++p;
633 /* If the line is blank it is ignored. */
634 if (p[0] == '\0')
635 continue;
637 if (!strncmp (p, "include", 7) && (p[7] == ' ' || p[7] == '\t'))
638 {
639 char *dir, c;
640 p += 8;
641 do
642 {
643 while (*p == ' ' || *p == '\t')
644 ++p;
646 if (*p == '\0')
647 break;
649 dir = p;
651 while (*p != ' ' && *p != '\t' && *p)
652 ++p;
654 c = *p;
655 *p++ = '\0';
656 if (dir[0] != '\0')
657 gld${EMULATION_NAME}_parse_ld_so_conf_include (info, filename,
658 dir);
659 }
660 while (c != '\0');
661 }
662 else
663 {
664 char *dir = p;
665 while (*p && *p != '=' && *p != ' ' && *p != '\t' && *p != '\f'
666 && *p != '\r' && *p != '\v')
667 ++p;
669 while (p != dir && p[-1] == '/')
670 --p;
671 if (info->path == NULL)
672 {
673 info->alloc = p - dir + 1 + 256;
674 info->path = xmalloc (info->alloc);
675 info->len = 0;
676 }
677 else
678 {
679 if (info->len + 1 + (p - dir) >= info->alloc)
680 {
681 info->alloc += p - dir + 256;
682 info->path = xrealloc (info->path, info->alloc);
683 }
684 info->path[info->len++] = ':';
685 }
686 memcpy (info->path + info->len, dir, p - dir);
687 info->len += p - dir;
688 info->path[info->len] = '\0';
689 }
690 }
691 while (! feof (f));
692 free (line);
693 fclose (f);
694 }
696 static bfd_boolean
697 gld${EMULATION_NAME}_check_ld_so_conf (const char *name, int force)
698 {
699 static bfd_boolean initialized;
700 static char *ld_so_conf;
701 struct dt_needed needed;
703 if (! initialized)
704 {
705 char *tmppath;
706 struct gld${EMULATION_NAME}_ld_so_conf info;
708 tmppath = concat (ld_sysroot, "/etc/ld.so.conf", NULL);
709 info.path = NULL;
710 info.len = info.alloc = 0;
711 gld${EMULATION_NAME}_parse_ld_so_conf (&info, tmppath);
712 free (tmppath);
713 if (info.path)
714 {
715 char *d = gld${EMULATION_NAME}_add_sysroot (info.path);
716 free (info.path);
717 ld_so_conf = d;
718 }
719 initialized = TRUE;
720 }
722 if (ld_so_conf == NULL)
723 return FALSE;
726 needed.by = NULL;
727 needed.name = name;
728 return gld${EMULATION_NAME}_search_needed (ld_so_conf, &needed, force);
729 }
731 EOF
732 # Linux
733 ;;
734 esac
735 fi
736 cat >>e${EMULATION_NAME}.c <<EOF
738 /* See if an input file matches a DT_NEEDED entry by name. */
740 static void
741 gld${EMULATION_NAME}_check_needed (lang_input_statement_type *s)
742 {
743 if (global_found)
744 return;
746 /* If this input file was an as-needed entry, and wasn't found to be
747 needed at the stage it was linked, then don't say we have loaded it. */
748 if (s->as_needed
749 && (s->the_bfd == NULL
750 || (bfd_elf_get_dyn_lib_class (s->the_bfd) & DYN_AS_NEEDED) != 0))
751 return;
753 if (s->filename != NULL)
754 {
755 const char *f;
757 if (strcmp (s->filename, global_needed->name) == 0)
758 {
759 global_found = TRUE;
760 return;
761 }
763 if (s->search_dirs_flag)
764 {
765 f = strrchr (s->filename, '/');
766 if (f != NULL
767 && strcmp (f + 1, global_needed->name) == 0)
768 {
769 global_found = TRUE;
770 return;
771 }
772 }
773 }
775 if (s->the_bfd != NULL)
776 {
777 const char *soname;
779 soname = bfd_elf_get_dt_soname (s->the_bfd);
780 if (soname != NULL
781 && strcmp (soname, global_needed->name) == 0)
782 {
783 global_found = TRUE;
784 return;
785 }
786 }
787 }
789 EOF
791 if test x"$LDEMUL_AFTER_OPEN" != xgld"$EMULATION_NAME"_after_open; then
792 cat >>e${EMULATION_NAME}.c <<EOF
794 /* This is called after all the input files have been opened. */
796 static void
797 gld${EMULATION_NAME}_after_open (void)
798 {
799 struct bfd_link_needed_list *needed, *l;
801 /* We only need to worry about this when doing a final link. */
802 if (link_info.relocatable || !link_info.executable)
803 return;
805 /* Get the list of files which appear in DT_NEEDED entries in
806 dynamic objects included in the link (often there will be none).
807 For each such file, we want to track down the corresponding
808 library, and include the symbol table in the link. This is what
809 the runtime dynamic linker will do. Tracking the files down here
810 permits one dynamic object to include another without requiring
811 special action by the person doing the link. Note that the
812 needed list can actually grow while we are stepping through this
813 loop. */
814 needed = bfd_elf_get_needed_list (output_bfd, &link_info);
815 for (l = needed; l != NULL; l = l->next)
816 {
817 struct bfd_link_needed_list *ll;
818 struct dt_needed n, nn;
819 int force;
821 /* If the lib that needs this one was --as-needed and wasn't
822 found to be needed, then this lib isn't needed either. */
823 if (l->by != NULL
824 && (bfd_elf_get_dyn_lib_class (l->by) & DYN_AS_NEEDED) != 0)
825 continue;
827 /* If we've already seen this file, skip it. */
828 for (ll = needed; ll != l; ll = ll->next)
829 if ((ll->by == NULL
830 || (bfd_elf_get_dyn_lib_class (ll->by) & DYN_AS_NEEDED) == 0)
831 && strcmp (ll->name, l->name) == 0)
832 break;
833 if (ll != l)
834 continue;
836 /* See if this file was included in the link explicitly. */
837 global_needed = l;
838 global_found = FALSE;
839 lang_for_each_input_file (gld${EMULATION_NAME}_check_needed);
840 if (global_found)
841 continue;
843 n.by = l->by;
844 n.name = l->name;
845 nn.by = l->by;
846 if (trace_file_tries)
847 info_msg (_("%s needed by %B\n"), l->name, l->by);
849 /* We need to find this file and include the symbol table. We
850 want to search for the file in the same way that the dynamic
851 linker will search. That means that we want to use
852 rpath_link, rpath, then the environment variable
853 LD_LIBRARY_PATH (native only), then the DT_RPATH/DT_RUNPATH
854 entries (native only), then the linker script LIB_SEARCH_DIRS.
855 We do not search using the -L arguments.
857 We search twice. The first time, we skip objects which may
858 introduce version mismatches. The second time, we force
859 their use. See gld${EMULATION_NAME}_vercheck comment. */
860 for (force = 0; force < 2; force++)
861 {
862 size_t len;
863 search_dirs_type *search;
864 EOF
865 if [ "x${NATIVE}" = xyes ] ; then
866 cat >>e${EMULATION_NAME}.c <<EOF
867 const char *lib_path;
868 EOF
869 fi
870 if [ "x${USE_LIBPATH}" = xyes ] ; then
871 cat >>e${EMULATION_NAME}.c <<EOF
872 struct bfd_link_needed_list *rp;
873 int found;
874 EOF
875 fi
876 cat >>e${EMULATION_NAME}.c <<EOF
878 if (gld${EMULATION_NAME}_search_needed (command_line.rpath_link,
879 &n, force))
880 break;
881 EOF
882 if [ "x${USE_LIBPATH}" = xyes ] ; then
883 cat >>e${EMULATION_NAME}.c <<EOF
884 if (gld${EMULATION_NAME}_search_needed (command_line.rpath,
885 &n, force))
886 break;
887 EOF
888 fi
889 if [ "x${NATIVE}" = xyes ] ; then
890 cat >>e${EMULATION_NAME}.c <<EOF
891 if (command_line.rpath_link == NULL
892 && command_line.rpath == NULL)
893 {
894 lib_path = (const char *) getenv ("LD_RUN_PATH");
895 if (gld${EMULATION_NAME}_search_needed (lib_path, &n,
896 force))
897 break;
898 }
899 lib_path = (const char *) getenv ("LD_LIBRARY_PATH");
900 if (gld${EMULATION_NAME}_search_needed (lib_path, &n, force))
901 break;
902 EOF
903 fi
904 if [ "x${USE_LIBPATH}" = xyes ] ; then
905 cat >>e${EMULATION_NAME}.c <<EOF
906 found = 0;
907 rp = bfd_elf_get_runpath_list (output_bfd, &link_info);
908 for (; !found && rp != NULL; rp = rp->next)
909 {
910 char *tmpname = gld${EMULATION_NAME}_add_sysroot (rp->name);
911 found = (rp->by == l->by
912 && gld${EMULATION_NAME}_search_needed (tmpname,
913 &n,
914 force));
915 free (tmpname);
916 }
917 if (found)
918 break;
920 EOF
921 fi
922 cat >>e${EMULATION_NAME}.c <<EOF
923 len = strlen (l->name);
924 for (search = search_head; search != NULL; search = search->next)
925 {
926 char *filename;
928 if (search->cmdline)
929 continue;
930 filename = (char *) xmalloc (strlen (search->name) + len + 2);
931 sprintf (filename, "%s/%s", search->name, l->name);
932 nn.name = filename;
933 if (gld${EMULATION_NAME}_try_needed (&nn, force))
934 break;
935 free (filename);
936 }
937 if (search != NULL)
938 break;
939 EOF
940 if [ "x${USE_LIBPATH}" = xyes ] ; then
941 case ${target} in
942 *-*-linux-* | *-*-k*bsd*-*)
943 cat >>e${EMULATION_NAME}.c <<EOF
944 if (gld${EMULATION_NAME}_check_ld_so_conf (l->name, force))
945 break;
946 EOF
947 # Linux
948 ;;
949 esac
950 fi
951 cat >>e${EMULATION_NAME}.c <<EOF
952 }
954 if (force < 2)
955 continue;
957 einfo ("%P: warning: %s, needed by %B, not found (try using -rpath or -rpath-link)\n",
958 l->name, l->by);
959 }
960 }
962 EOF
963 fi
965 cat >>e${EMULATION_NAME}.c <<EOF
967 /* Look through an expression for an assignment statement. */
969 static void
970 gld${EMULATION_NAME}_find_exp_assignment (etree_type *exp)
971 {
972 bfd_boolean provide = FALSE;
974 switch (exp->type.node_class)
975 {
976 case etree_provide:
977 provide = TRUE;
978 /* Fall thru */
979 case etree_assign:
980 /* We call record_link_assignment even if the symbol is defined.
981 This is because if it is defined by a dynamic object, we
982 actually want to use the value defined by the linker script,
983 not the value from the dynamic object (because we are setting
984 symbols like etext). If the symbol is defined by a regular
985 object, then, as it happens, calling record_link_assignment
986 will do no harm. */
987 if (strcmp (exp->assign.dst, ".") != 0)
988 {
989 if (!bfd_elf_record_link_assignment (output_bfd, &link_info,
990 exp->assign.dst, provide,
991 exp->assign.hidden))
992 einfo ("%P%F: failed to record assignment to %s: %E\n",
993 exp->assign.dst);
994 }
995 gld${EMULATION_NAME}_find_exp_assignment (exp->assign.src);
996 break;
998 case etree_binary:
999 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.lhs);
1000 gld${EMULATION_NAME}_find_exp_assignment (exp->binary.rhs);
1001 break;
1003 case etree_trinary:
1004 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.cond);
1005 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.lhs);
1006 gld${EMULATION_NAME}_find_exp_assignment (exp->trinary.rhs);
1007 break;
1009 case etree_unary:
1010 gld${EMULATION_NAME}_find_exp_assignment (exp->unary.child);
1011 break;
1013 default:
1014 break;
1015 }
1016 }
1019 /* This is called by the before_allocation routine via
1020 lang_for_each_statement. It locates any assignment statements, and
1021 tells the ELF backend about them, in case they are assignments to
1022 symbols which are referred to by dynamic objects. */
1024 static void
1025 gld${EMULATION_NAME}_find_statement_assignment (lang_statement_union_type *s)
1026 {
1027 if (s->header.type == lang_assignment_statement_enum)
1028 gld${EMULATION_NAME}_find_exp_assignment (s->assignment_statement.exp);
1029 }
1031 EOF
1033 if test x"$LDEMUL_BEFORE_ALLOCATION" != xgld"$EMULATION_NAME"_before_allocation; then
1034 if test x"${ELF_INTERPRETER_NAME+set}" = xset; then
1035 ELF_INTERPRETER_SET_DEFAULT="
1036 if (sinterp != NULL)
1037 {
1038 sinterp->contents = (unsigned char *) ${ELF_INTERPRETER_NAME};
1039 sinterp->size = strlen ((char *) sinterp->contents) + 1;
1040 }
1042 "
1043 else
1044 ELF_INTERPRETER_SET_DEFAULT=
1045 fi
1046 cat >>e${EMULATION_NAME}.c <<EOF
1048 /* This is called after the sections have been attached to output
1049 sections, but before any sizes or addresses have been set. */
1051 static void
1052 gld${EMULATION_NAME}_before_allocation (void)
1053 {
1054 const char *rpath;
1055 asection *sinterp;
1057 if (link_info.hash->type == bfd_link_elf_hash_table)
1058 _bfd_elf_tls_setup (output_bfd, &link_info);
1060 /* If we are going to make any variable assignments, we need to let
1061 the ELF backend know about them in case the variables are
1062 referred to by dynamic objects. */
1063 lang_for_each_statement (gld${EMULATION_NAME}_find_statement_assignment);
1065 /* Let the ELF backend work out the sizes of any sections required
1066 by dynamic linking. */
1067 rpath = command_line.rpath;
1068 if (rpath == NULL)
1069 rpath = (const char *) getenv ("LD_RUN_PATH");
1070 if (! (bfd_elf_size_dynamic_sections
1071 (output_bfd, command_line.soname, rpath,
1072 command_line.filter_shlib,
1073 (const char * const *) command_line.auxiliary_filters,
1074 &link_info, &sinterp, lang_elf_version_info)))
1075 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
1077 ${ELF_INTERPRETER_SET_DEFAULT}
1078 /* Let the user override the dynamic linker we are using. */
1079 if (command_line.interpreter != NULL
1080 && sinterp != NULL)
1081 {
1082 sinterp->contents = (bfd_byte *) command_line.interpreter;
1083 sinterp->size = strlen (command_line.interpreter) + 1;
1084 }
1086 /* Look for any sections named .gnu.warning. As a GNU extensions,
1087 we treat such sections as containing warning messages. We print
1088 out the warning message, and then zero out the section size so
1089 that it does not get copied into the output file. */
1091 {
1092 LANG_FOR_EACH_INPUT_STATEMENT (is)
1093 {
1094 asection *s;
1095 bfd_size_type sz;
1096 bfd_size_type prefix_len;
1097 char *msg;
1098 bfd_boolean ret;
1099 const char * gnu_warning_prefix = _("warning: ");
1101 if (is->just_syms_flag)
1102 continue;
1104 s = bfd_get_section_by_name (is->the_bfd, ".gnu.warning");
1105 if (s == NULL)
1106 continue;
1108 sz = s->size;
1109 prefix_len = strlen (gnu_warning_prefix);
1110 msg = xmalloc ((size_t) (prefix_len + sz + 1));
1111 strcpy (msg, gnu_warning_prefix);
1112 if (! bfd_get_section_contents (is->the_bfd, s, msg + prefix_len,
1113 (file_ptr) 0, sz))
1114 einfo ("%F%B: Can't read contents of section .gnu.warning: %E\n",
1115 is->the_bfd);
1116 msg[prefix_len + sz] = '\0';
1117 ret = link_info.callbacks->warning (&link_info, msg,
1118 (const char *) NULL,
1119 is->the_bfd, (asection *) NULL,
1120 (bfd_vma) 0);
1121 ASSERT (ret);
1122 free (msg);
1124 /* Clobber the section size, so that we don't waste copying the
1125 warning into the output file. */
1126 s->size = 0;
1128 /* Also set SEC_EXCLUDE, so that symbols defined in the warning
1129 section don't get copied to the output. */
1130 s->flags |= SEC_EXCLUDE;
1131 }
1132 }
1134 before_allocation_default ();
1136 if (!bfd_elf_size_dynsym_hash_dynstr (output_bfd, &link_info))
1137 einfo ("%P%F: failed to set dynamic section sizes: %E\n");
1138 }
1140 EOF
1141 fi
1143 if test x"$LDEMUL_OPEN_DYNAMIC_ARCHIVE" != xgld"$EMULATION_NAME"_open_dynamic_archive; then
1144 cat >>e${EMULATION_NAME}.c <<EOF
1146 /* Try to open a dynamic archive. This is where we know that ELF
1147 dynamic libraries have an extension of .so (or .sl on oddball systems
1148 like hpux). */
1150 static bfd_boolean
1151 gld${EMULATION_NAME}_open_dynamic_archive
1152 (const char *arch, search_dirs_type *search, lang_input_statement_type *entry)
1153 {
1154 const char *filename;
1155 char *string;
1157 if (! entry->is_archive)
1158 return FALSE;
1160 filename = entry->filename;
1162 /* This allocates a few bytes too many when EXTRA_SHLIB_EXTENSION
1163 is defined, but it does not seem worth the headache to optimize
1164 away those two bytes of space. */
1165 string = (char *) xmalloc (strlen (search->name)
1166 + strlen (filename)
1167 + strlen (arch)
1168 #ifdef EXTRA_SHLIB_EXTENSION
1169 + strlen (EXTRA_SHLIB_EXTENSION)
1170 #endif
1171 + sizeof "/lib.so");
1173 sprintf (string, "%s/lib%s%s.so", search->name, filename, arch);
1175 #ifdef EXTRA_SHLIB_EXTENSION
1176 /* Try the .so extension first. If that fails build a new filename
1177 using EXTRA_SHLIB_EXTENSION. */
1178 if (! ldfile_try_open_bfd (string, entry))
1179 sprintf (string, "%s/lib%s%s%s", search->name,
1180 filename, arch, EXTRA_SHLIB_EXTENSION);
1181 #endif
1183 if (! ldfile_try_open_bfd (string, entry))
1184 {
1185 free (string);
1186 return FALSE;
1187 }
1189 entry->filename = string;
1191 /* We have found a dynamic object to include in the link. The ELF
1192 backend linker will create a DT_NEEDED entry in the .dynamic
1193 section naming this file. If this file includes a DT_SONAME
1194 entry, it will be used. Otherwise, the ELF linker will just use
1195 the name of the file. For an archive found by searching, like
1196 this one, the DT_NEEDED entry should consist of just the name of
1197 the file, without the path information used to find it. Note
1198 that we only need to do this if we have a dynamic object; an
1199 archive will never be referenced by a DT_NEEDED entry.
1201 FIXME: This approach--using bfd_elf_set_dt_needed_name--is not
1202 very pretty. I haven't been able to think of anything that is
1203 pretty, though. */
1204 if (bfd_check_format (entry->the_bfd, bfd_object)
1205 && (entry->the_bfd->flags & DYNAMIC) != 0)
1206 {
1207 ASSERT (entry->is_archive && entry->search_dirs_flag);
1209 /* Rather than duplicating the logic above. Just use the
1210 filename we recorded earlier. */
1212 filename = lbasename (entry->filename);
1213 bfd_elf_set_dt_needed_name (entry->the_bfd, filename);
1214 }
1216 return TRUE;
1217 }
1219 EOF
1220 fi
1222 if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then
1223 cat >>e${EMULATION_NAME}.c <<EOF
1225 /* A variant of lang_output_section_find used by place_orphan. */
1227 static lang_output_section_statement_type *
1228 output_rel_find (asection *sec, int isdyn)
1229 {
1230 lang_output_section_statement_type *lookup;
1231 lang_output_section_statement_type *last = NULL;
1232 lang_output_section_statement_type *last_alloc = NULL;
1233 lang_output_section_statement_type *last_rel = NULL;
1234 lang_output_section_statement_type *last_rel_alloc = NULL;
1235 int rela = sec->name[4] == 'a';
1237 for (lookup = &lang_output_section_statement.head->output_section_statement;
1238 lookup != NULL;
1239 lookup = lookup->next)
1240 {
1241 if (lookup->constraint != -1
1242 && strncmp (".rel", lookup->name, 4) == 0)
1243 {
1244 int lookrela = lookup->name[4] == 'a';
1246 /* .rel.dyn must come before all other reloc sections, to suit
1247 GNU ld.so. */
1248 if (isdyn)
1249 break;
1251 /* Don't place after .rel.plt as doing so results in wrong
1252 dynamic tags. */
1253 if (strcmp (".plt", lookup->name + 4 + lookrela) == 0)
1254 break;
1256 if (rela == lookrela || last_rel == NULL)
1257 last_rel = lookup;
1258 if ((rela == lookrela || last_rel_alloc == NULL)
1259 && lookup->bfd_section != NULL
1260 && (lookup->bfd_section->flags & SEC_ALLOC) != 0)
1261 last_rel_alloc = lookup;
1262 }
1264 last = lookup;
1265 if (lookup->bfd_section != NULL
1266 && (lookup->bfd_section->flags & SEC_ALLOC) != 0)
1267 last_alloc = lookup;
1268 }
1270 if (last_rel_alloc)
1271 return last_rel_alloc;
1273 if (last_rel)
1274 return last_rel;
1276 if (last_alloc)
1277 return last_alloc;
1279 return last;
1280 }
1282 /* Place an orphan section. We use this to put random SHF_ALLOC
1283 sections in the right segment. */
1285 static bfd_boolean
1286 gld${EMULATION_NAME}_place_orphan (asection *s)
1287 {
1288 static struct orphan_save hold[] =
1289 {
1290 { ".text",
1291 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE,
1292 0, 0, 0, 0 },
1293 { ".rodata",
1294 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_DATA,
1295 0, 0, 0, 0 },
1296 { ".data",
1297 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA,
1298 0, 0, 0, 0 },
1299 { ".bss",
1300 SEC_ALLOC,
1301 0, 0, 0, 0 },
1302 { 0,
1303 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_DATA,
1304 0, 0, 0, 0 },
1305 { ".interp",
1306 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_DATA,
1307 0, 0, 0, 0 },
1308 { ".sdata",
1309 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_SMALL_DATA,
1310 0, 0, 0, 0 }
1311 };
1312 enum orphan_save_index
1313 {
1314 orphan_text = 0,
1315 orphan_rodata,
1316 orphan_data,
1317 orphan_bss,
1318 orphan_rel,
1319 orphan_interp,
1320 orphan_sdata
1321 };
1322 static int orphan_init_done = 0;
1323 struct orphan_save *place;
1324 const char *secname;
1325 lang_output_section_statement_type *after;
1326 lang_output_section_statement_type *os;
1327 int isdyn = 0;
1328 int iself = s->owner->xvec->flavour == bfd_target_elf_flavour;
1329 unsigned int sh_type = iself ? elf_section_type (s) : SHT_NULL;
1331 secname = bfd_get_section_name (s->owner, s);
1333 if (! link_info.relocatable
1334 && link_info.combreloc
1335 && (s->flags & SEC_ALLOC))
1336 {
1337 if (iself)
1338 switch (sh_type)
1339 {
1340 case SHT_RELA:
1341 secname = ".rela.dyn";
1342 isdyn = 1;
1343 break;
1344 case SHT_REL:
1345 secname = ".rel.dyn";
1346 isdyn = 1;
1347 break;
1348 default:
1349 break;
1350 }
1351 else if (strncmp (secname, ".rel", 4) == 0)
1352 {
1353 secname = secname[4] == 'a' ? ".rela.dyn" : ".rel.dyn";
1354 isdyn = 1;
1355 }
1356 }
1358 if (isdyn || (!config.unique_orphan_sections && !unique_section_p (s)))
1359 {
1360 /* Look through the script to see where to place this section. */
1361 os = lang_output_section_find (secname);
1363 if (os != NULL
1364 && (os->bfd_section == NULL
1365 || os->bfd_section->flags == 0
1366 || (_bfd_elf_match_sections_by_type (output_bfd,
1367 os->bfd_section,
1368 s->owner, s)
1369 && ((s->flags ^ os->bfd_section->flags)
1370 & (SEC_LOAD | SEC_ALLOC)) == 0)))
1371 {
1372 /* We already have an output section statement with this
1373 name, and its bfd section, if any, has compatible flags.
1374 If the section already exists but does not have any flags
1375 set, then it has been created by the linker, probably as a
1376 result of a --section-start command line switch. */
1377 lang_add_section (&os->children, s, os);
1378 return TRUE;
1379 }
1380 }
1382 if (!orphan_init_done)
1383 {
1384 struct orphan_save *ho;
1385 for (ho = hold; ho < hold + sizeof (hold) / sizeof (hold[0]); ++ho)
1386 if (ho->name != NULL)
1387 {
1388 ho->os = lang_output_section_find (ho->name);
1389 if (ho->os != NULL && ho->os->flags == 0)
1390 ho->os->flags = ho->flags;
1391 }
1392 orphan_init_done = 1;
1393 }
1395 /* If this is a final link, then always put .gnu.warning.SYMBOL
1396 sections into the .text section to get them out of the way. */
1397 if (link_info.executable
1398 && ! link_info.relocatable
1399 && strncmp (secname, ".gnu.warning.", sizeof ".gnu.warning." - 1) == 0
1400 && hold[orphan_text].os != NULL)
1401 {
1402 lang_add_section (&hold[orphan_text].os->children, s,
1403 hold[orphan_text].os);
1404 return TRUE;
1405 }
1407 /* Decide which segment the section should go in based on the
1408 section name and section flags. We put loadable .note sections
1409 right after the .interp section, so that the PT_NOTE segment is
1410 stored right after the program headers where the OS can read it
1411 in the first page. */
1413 place = NULL;
1414 if ((s->flags & SEC_ALLOC) == 0)
1415 ;
1416 else if ((s->flags & SEC_LOAD) != 0
1417 && ((iself && sh_type == SHT_NOTE)
1418 || (!iself && strncmp (secname, ".note", 5) == 0)))
1419 place = &hold[orphan_interp];
1420 else if ((s->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0)
1421 place = &hold[orphan_bss];
1422 else if ((s->flags & SEC_SMALL_DATA) != 0)
1423 place = &hold[orphan_sdata];
1424 else if ((s->flags & SEC_READONLY) == 0)
1425 place = &hold[orphan_data];
1426 else if (((iself && (sh_type == SHT_RELA || sh_type == SHT_REL))
1427 || (!iself && strncmp (secname, ".rel", 4) == 0))
1428 && (s->flags & SEC_LOAD) != 0)
1429 place = &hold[orphan_rel];
1430 else if ((s->flags & SEC_CODE) == 0)
1431 place = &hold[orphan_rodata];
1432 else
1433 place = &hold[orphan_text];
1435 after = NULL;
1436 if (place != NULL)
1437 {
1438 if (place->os == NULL)
1439 {
1440 if (place->name != NULL)
1441 place->os = lang_output_section_find (place->name);
1442 else
1443 place->os = output_rel_find (s, isdyn);
1444 }
1445 after = place->os;
1446 if (after == NULL)
1447 after = lang_output_section_find_by_flags
1448 (s, &place->os, _bfd_elf_match_sections_by_type);
1449 if (after == NULL)
1450 /* *ABS* is always the first output section statement. */
1451 after = &lang_output_section_statement.head->output_section_statement;
1452 }
1454 /* Choose a unique name for the section. This will be needed if the
1455 same section name appears in the input file with different
1456 loadable or allocatable characteristics. */
1457 if (bfd_get_section_by_name (output_bfd, secname) != NULL)
1458 {
1459 static int count = 1;
1460 secname = bfd_get_unique_section_name (output_bfd, secname, &count);
1461 if (secname == NULL)
1462 einfo ("%F%P: place_orphan failed: %E\n");
1463 }
1465 lang_insert_orphan (s, secname, after, place, NULL, NULL);
1467 return TRUE;
1468 }
1469 EOF
1470 fi
1472 if test x"$LDEMUL_FINISH" != xgld"$EMULATION_NAME"_finish; then
1473 cat >>e${EMULATION_NAME}.c <<EOF
1475 static void
1476 gld${EMULATION_NAME}_layout_sections_again (void)
1477 {
1478 lang_reset_memory_regions ();
1480 /* Resize the sections. */
1481 lang_size_sections (NULL, TRUE);
1483 /* Redo special stuff. */
1484 ldemul_after_allocation ();
1486 /* Do the assignments again. */
1487 lang_do_assignments ();
1488 }
1490 static void
1491 gld${EMULATION_NAME}_finish (void)
1492 {
1493 if (bfd_elf_discard_info (output_bfd, &link_info))
1494 gld${EMULATION_NAME}_layout_sections_again ();
1496 finish_default ();
1497 }
1498 EOF
1499 fi
1501 if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then
1502 cat >>e${EMULATION_NAME}.c <<EOF
1504 static char *
1505 gld${EMULATION_NAME}_get_script (int *isfile)
1506 EOF
1508 if test -n "$COMPILE_IN"
1509 then
1510 # Scripts compiled in.
1512 # sed commands to quote an ld script as a C string.
1513 sc="-f stringify.sed"
1515 cat >>e${EMULATION_NAME}.c <<EOF
1516 {
1517 *isfile = 0;
1519 if (link_info.relocatable && config.build_constructors)
1520 return
1521 EOF
1522 sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
1523 echo ' ; else if (link_info.relocatable) return' >> e${EMULATION_NAME}.c
1524 sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
1525 echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
1526 sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
1527 if cmp -s ldscripts/${EMULATION_NAME}.x ldscripts/${EMULATION_NAME}.xn; then : ; else
1528 echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
1529 sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
1530 fi
1531 if test -n "$GENERATE_PIE_SCRIPT" ; then
1532 if test -n "$GENERATE_COMBRELOC_SCRIPT" ; then
1533 echo ' ; else if (link_info.pie && link_info.combreloc' >> e${EMULATION_NAME}.c
1534 echo ' && link_info.relro' >> e${EMULATION_NAME}.c
1535 echo ' && (link_info.flags & DT_BIND_NOW)) return' >> e${EMULATION_NAME}.c
1536 sed $sc ldscripts/${EMULATION_NAME}.xdw >> e${EMULATION_NAME}.c
1537 echo ' ; else if (link_info.pie && link_info.combreloc) return' >> e${EMULATION_NAME}.c
1538 sed $sc ldscripts/${EMULATION_NAME}.xdc >> e${EMULATION_NAME}.c
1539 fi
1540 echo ' ; else if (link_info.pie) return' >> e${EMULATION_NAME}.c
1541 sed $sc ldscripts/${EMULATION_NAME}.xd >> e${EMULATION_NAME}.c
1542 fi
1543 if test -n "$GENERATE_SHLIB_SCRIPT" ; then
1544 if test -n "$GENERATE_COMBRELOC_SCRIPT" ; then
1545 echo ' ; else if (link_info.shared && link_info.combreloc' >> e${EMULATION_NAME}.c
1546 echo ' && link_info.relro' >> e${EMULATION_NAME}.c
1547 echo ' && (link_info.flags & DT_BIND_NOW)) return' >> e${EMULATION_NAME}.c
1548 sed $sc ldscripts/${EMULATION_NAME}.xsw >> e${EMULATION_NAME}.c
1549 echo ' ; else if (link_info.shared && link_info.combreloc) return' >> e${EMULATION_NAME}.c
1550 sed $sc ldscripts/${EMULATION_NAME}.xsc >> e${EMULATION_NAME}.c
1551 fi
1552 echo ' ; else if (link_info.shared) return' >> e${EMULATION_NAME}.c
1553 sed $sc ldscripts/${EMULATION_NAME}.xs >> e${EMULATION_NAME}.c
1554 fi
1555 if test -n "$GENERATE_COMBRELOC_SCRIPT" ; then
1556 echo ' ; else if (link_info.combreloc && link_info.relro' >> e${EMULATION_NAME}.c
1557 echo ' && (link_info.flags & DT_BIND_NOW)) return' >> e${EMULATION_NAME}.c
1558 sed $sc ldscripts/${EMULATION_NAME}.xw >> e${EMULATION_NAME}.c
1559 echo ' ; else if (link_info.combreloc) return' >> e${EMULATION_NAME}.c
1560 sed $sc ldscripts/${EMULATION_NAME}.xc >> e${EMULATION_NAME}.c
1561 fi
1562 echo ' ; else return' >> e${EMULATION_NAME}.c
1563 sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
1564 echo '; }' >> e${EMULATION_NAME}.c
1566 else
1567 # Scripts read from the filesystem.
1569 cat >>e${EMULATION_NAME}.c <<EOF
1570 {
1571 *isfile = 1;
1573 if (link_info.relocatable && config.build_constructors)
1574 return "ldscripts/${EMULATION_NAME}.xu";
1575 else if (link_info.relocatable)
1576 return "ldscripts/${EMULATION_NAME}.xr";
1577 else if (!config.text_read_only)
1578 return "ldscripts/${EMULATION_NAME}.xbn";
1579 EOF
1580 if cmp -s ldscripts/${EMULATION_NAME}.x ldscripts/${EMULATION_NAME}.xn; then :
1581 else
1582 cat >>e${EMULATION_NAME}.c <<EOF
1583 else if (!config.magic_demand_paged)
1584 return "ldscripts/${EMULATION_NAME}.xn";
1585 EOF
1586 fi
1587 if test -n "$GENERATE_PIE_SCRIPT" ; then
1588 if test -n "$GENERATE_COMBRELOC_SCRIPT" ; then
1589 cat >>e${EMULATION_NAME}.c <<EOF
1590 else if (link_info.pie && link_info.combreloc
1591 && link_info.relro && (link_info.flags & DT_BIND_NOW))
1592 return "ldscripts/${EMULATION_NAME}.xdw";
1593 else if (link_info.pie && link_info.combreloc)
1594 return "ldscripts/${EMULATION_NAME}.xdc";
1595 EOF
1596 fi
1597 cat >>e${EMULATION_NAME}.c <<EOF
1598 else if (link_info.pie)
1599 return "ldscripts/${EMULATION_NAME}.xd";
1600 EOF
1601 fi
1602 if test -n "$GENERATE_SHLIB_SCRIPT" ; then
1603 if test -n "$GENERATE_COMBRELOC_SCRIPT" ; then
1604 cat >>e${EMULATION_NAME}.c <<EOF
1605 else if (link_info.shared && link_info.combreloc
1606 && link_info.relro && (link_info.flags & DT_BIND_NOW))
1607 return "ldscripts/${EMULATION_NAME}.xsw";
1608 else if (link_info.shared && link_info.combreloc)
1609 return "ldscripts/${EMULATION_NAME}.xsc";
1610 EOF
1611 fi
1612 cat >>e${EMULATION_NAME}.c <<EOF
1613 else if (link_info.shared)
1614 return "ldscripts/${EMULATION_NAME}.xs";
1615 EOF
1616 fi
1617 if test -n "$GENERATE_COMBRELOC_SCRIPT" ; then
1618 cat >>e${EMULATION_NAME}.c <<EOF
1619 else if (link_info.combreloc && link_info.relro
1620 && (link_info.flags & DT_BIND_NOW))
1621 return "ldscripts/${EMULATION_NAME}.xw";
1622 else if (link_info.combreloc)
1623 return "ldscripts/${EMULATION_NAME}.xc";
1624 EOF
1625 fi
1626 cat >>e${EMULATION_NAME}.c <<EOF
1627 else
1628 return "ldscripts/${EMULATION_NAME}.x";
1629 }
1631 EOF
1632 fi
1633 fi
1635 if test -n "$PARSE_AND_LIST_ARGS_CASES" -o x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1637 if test -n "$PARSE_AND_LIST_PROLOGUE" ; then
1638 cat >>e${EMULATION_NAME}.c <<EOF
1639 $PARSE_AND_LIST_PROLOGUE
1640 EOF
1641 fi
1643 cat >>e${EMULATION_NAME}.c <<EOF
1645 #define OPTION_DISABLE_NEW_DTAGS (400)
1646 #define OPTION_ENABLE_NEW_DTAGS (OPTION_DISABLE_NEW_DTAGS + 1)
1647 #define OPTION_GROUP (OPTION_ENABLE_NEW_DTAGS + 1)
1648 #define OPTION_EH_FRAME_HDR (OPTION_GROUP + 1)
1649 #define OPTION_EXCLUDE_LIBS (OPTION_EH_FRAME_HDR + 1)
1651 static void
1652 gld${EMULATION_NAME}_add_options
1653 (int ns, char **shortopts, int nl, struct option **longopts,
1654 int nrl ATTRIBUTE_UNUSED, struct option **really_longopts ATTRIBUTE_UNUSED)
1655 {
1656 static const char xtra_short[] = "${PARSE_AND_LIST_SHORTOPTS}z:";
1657 static const struct option xtra_long[] = {
1658 EOF
1660 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1661 cat >>e${EMULATION_NAME}.c <<EOF
1662 {"disable-new-dtags", no_argument, NULL, OPTION_DISABLE_NEW_DTAGS},
1663 {"enable-new-dtags", no_argument, NULL, OPTION_ENABLE_NEW_DTAGS},
1664 {"eh-frame-hdr", no_argument, NULL, OPTION_EH_FRAME_HDR},
1665 {"exclude-libs", required_argument, NULL, OPTION_EXCLUDE_LIBS},
1666 {"Bgroup", no_argument, NULL, OPTION_GROUP},
1667 EOF
1668 fi
1670 if test -n "$PARSE_AND_LIST_LONGOPTS" ; then
1671 cat >>e${EMULATION_NAME}.c <<EOF
1672 $PARSE_AND_LIST_LONGOPTS
1673 EOF
1674 fi
1676 cat >>e${EMULATION_NAME}.c <<EOF
1677 {NULL, no_argument, NULL, 0}
1678 };
1680 *shortopts = (char *) xrealloc (*shortopts, ns + sizeof (xtra_short));
1681 memcpy (*shortopts + ns, &xtra_short, sizeof (xtra_short));
1682 *longopts = (struct option *)
1683 xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long));
1684 memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));
1685 }
1687 static bfd_boolean
1688 gld${EMULATION_NAME}_handle_option (int optc)
1689 {
1690 switch (optc)
1691 {
1692 default:
1693 return FALSE;
1695 EOF
1697 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1698 cat >>e${EMULATION_NAME}.c <<EOF
1699 case OPTION_DISABLE_NEW_DTAGS:
1700 link_info.new_dtags = FALSE;
1701 break;
1703 case OPTION_ENABLE_NEW_DTAGS:
1704 link_info.new_dtags = TRUE;
1705 break;
1707 case OPTION_EH_FRAME_HDR:
1708 link_info.eh_frame_hdr = TRUE;
1709 break;
1711 case OPTION_GROUP:
1712 link_info.flags_1 |= (bfd_vma) DF_1_GROUP;
1713 /* Groups must be self-contained. */
1714 link_info.unresolved_syms_in_objects = RM_GENERATE_ERROR;
1715 link_info.unresolved_syms_in_shared_libs = RM_GENERATE_ERROR;
1716 break;
1718 case OPTION_EXCLUDE_LIBS:
1719 add_excluded_libs (optarg);
1720 break;
1722 case 'z':
1723 if (strcmp (optarg, "initfirst") == 0)
1724 link_info.flags_1 |= (bfd_vma) DF_1_INITFIRST;
1725 else if (strcmp (optarg, "interpose") == 0)
1726 link_info.flags_1 |= (bfd_vma) DF_1_INTERPOSE;
1727 else if (strcmp (optarg, "loadfltr") == 0)
1728 link_info.flags_1 |= (bfd_vma) DF_1_LOADFLTR;
1729 else if (strcmp (optarg, "nodefaultlib") == 0)
1730 link_info.flags_1 |= (bfd_vma) DF_1_NODEFLIB;
1731 else if (strcmp (optarg, "nodelete") == 0)
1732 link_info.flags_1 |= (bfd_vma) DF_1_NODELETE;
1733 else if (strcmp (optarg, "nodlopen") == 0)
1734 link_info.flags_1 |= (bfd_vma) DF_1_NOOPEN;
1735 else if (strcmp (optarg, "nodump") == 0)
1736 link_info.flags_1 |= (bfd_vma) DF_1_NODUMP;
1737 else if (strcmp (optarg, "now") == 0)
1738 {
1739 link_info.flags |= (bfd_vma) DF_BIND_NOW;
1740 link_info.flags_1 |= (bfd_vma) DF_1_NOW;
1741 }
1742 else if (strcmp (optarg, "origin") == 0)
1743 {
1744 link_info.flags |= (bfd_vma) DF_ORIGIN;
1745 link_info.flags_1 |= (bfd_vma) DF_1_ORIGIN;
1746 }
1747 else if (strcmp (optarg, "defs") == 0)
1748 link_info.unresolved_syms_in_objects = RM_GENERATE_ERROR;
1749 else if (strcmp (optarg, "muldefs") == 0)
1750 link_info.allow_multiple_definition = TRUE;
1751 else if (strcmp (optarg, "combreloc") == 0)
1752 link_info.combreloc = TRUE;
1753 else if (strcmp (optarg, "nocombreloc") == 0)
1754 link_info.combreloc = FALSE;
1755 else if (strcmp (optarg, "nocopyreloc") == 0)
1756 link_info.nocopyreloc = TRUE;
1757 else if (strcmp (optarg, "execstack") == 0)
1758 {
1759 link_info.execstack = TRUE;
1760 link_info.noexecstack = FALSE;
1761 }
1762 else if (strcmp (optarg, "noexecstack") == 0)
1763 {
1764 link_info.noexecstack = TRUE;
1765 link_info.execstack = FALSE;
1766 }
1767 else if (strcmp (optarg, "relro") == 0)
1768 link_info.relro = TRUE;
1769 else if (strcmp (optarg, "norelro") == 0)
1770 link_info.relro = FALSE;
1771 /* What about the other Solaris -z options? FIXME. */
1772 break;
1773 EOF
1774 fi
1776 if test -n "$PARSE_AND_LIST_ARGS_CASES" ; then
1777 cat >>e${EMULATION_NAME}.c <<EOF
1778 $PARSE_AND_LIST_ARGS_CASES
1779 EOF
1780 fi
1782 cat >>e${EMULATION_NAME}.c <<EOF
1783 }
1785 return TRUE;
1786 }
1788 EOF
1790 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1791 cat >>e${EMULATION_NAME}.c <<EOF
1793 static void
1794 gld${EMULATION_NAME}_list_options (FILE * file)
1795 {
1796 EOF
1798 if test x"$GENERATE_SHLIB_SCRIPT" = xyes; then
1799 cat >>e${EMULATION_NAME}.c <<EOF
1800 fprintf (file, _(" -Bgroup\t\tSelects group name lookup rules for DSO\n"));
1801 fprintf (file, _(" --disable-new-dtags\tDisable new dynamic tags\n"));
1802 fprintf (file, _(" --enable-new-dtags\tEnable new dynamic tags\n"));
1803 fprintf (file, _(" --eh-frame-hdr\tCreate .eh_frame_hdr section\n"));
1804 fprintf (file, _(" -z combreloc\t\tMerge dynamic relocs into one section and sort\n"));
1805 fprintf (file, _(" -z defs\t\tReport unresolved symbols in object files.\n"));
1806 fprintf (file, _(" -z execstack\t\tMark executable as requiring executable stack\n"));
1807 fprintf (file, _(" -z initfirst\t\tMark DSO to be initialized first at runtime\n"));
1808 fprintf (file, _(" -z interpose\t\tMark object to interpose all DSOs but executable\n"));
1809 fprintf (file, _(" -z loadfltr\t\tMark object requiring immediate process\n"));
1810 fprintf (file, _(" -z muldefs\t\tAllow multiple definitions\n"));
1811 fprintf (file, _(" -z nocombreloc\tDon't merge dynamic relocs into one section\n"));
1812 fprintf (file, _(" -z nocopyreloc\tDon't create copy relocs\n"));
1813 fprintf (file, _(" -z nodefaultlib\tMark object not to use default search paths\n"));
1814 fprintf (file, _(" -z nodelete\t\tMark DSO non-deletable at runtime\n"));
1815 fprintf (file, _(" -z nodlopen\t\tMark DSO not available to dlopen\n"));
1816 fprintf (file, _(" -z nodump\t\tMark DSO not available to dldump\n"));
1817 fprintf (file, _(" -z noexecstack\tMark executable as not requiring executable stack\n"));
1818 fprintf (file, _(" -z norelro\t\tDon't create RELRO program header\n"));
1819 fprintf (file, _(" -z now\t\tMark object non-lazy runtime binding\n"));
1820 fprintf (file, _(" -z origin\t\tMark object requiring immediate \$ORIGIN processing\n\t\t\t at runtime\n"));
1821 fprintf (file, _(" -z relro\t\tCreate RELRO program header\n"));
1822 fprintf (file, _(" -z KEYWORD\t\tIgnored for Solaris compatibility\n"));
1823 EOF
1824 fi
1826 if test -n "$PARSE_AND_LIST_OPTIONS" ; then
1827 cat >>e${EMULATION_NAME}.c <<EOF
1828 $PARSE_AND_LIST_OPTIONS
1829 EOF
1830 fi
1832 cat >>e${EMULATION_NAME}.c <<EOF
1833 }
1834 EOF
1836 if test -n "$PARSE_AND_LIST_EPILOGUE" ; then
1837 cat >>e${EMULATION_NAME}.c <<EOF
1838 $PARSE_AND_LIST_EPILOGUE
1839 EOF
1840 fi
1841 fi
1842 else
1843 cat >>e${EMULATION_NAME}.c <<EOF
1844 #define gld${EMULATION_NAME}_add_options NULL
1845 #define gld${EMULATION_NAME}_handle_option NULL
1846 EOF
1847 if test x"$LDEMUL_LIST_OPTIONS" != xgld"$EMULATION_NAME"_list_options; then
1848 cat >>e${EMULATION_NAME}.c <<EOF
1849 #define gld${EMULATION_NAME}_list_options NULL
1850 EOF
1851 fi
1852 fi
1854 cat >>e${EMULATION_NAME}.c <<EOF
1856 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
1857 {
1858 ${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse},
1859 ${LDEMUL_SYSLIB-syslib_default},
1860 ${LDEMUL_HLL-hll_default},
1861 ${LDEMUL_AFTER_PARSE-after_parse_default},
1862 ${LDEMUL_AFTER_OPEN-gld${EMULATION_NAME}_after_open},
1863 ${LDEMUL_AFTER_ALLOCATION-after_allocation_default},
1864 ${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default},
1865 ${LDEMUL_CHOOSE_TARGET-ldemul_default_target},
1866 ${LDEMUL_BEFORE_ALLOCATION-gld${EMULATION_NAME}_before_allocation},
1867 ${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script},
1868 "${EMULATION_NAME}",
1869 "${OUTPUT_FORMAT}",
1870 ${LDEMUL_FINISH-gld${EMULATION_NAME}_finish},
1871 ${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL},
1872 ${LDEMUL_OPEN_DYNAMIC_ARCHIVE-gld${EMULATION_NAME}_open_dynamic_archive},
1873 ${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan},
1874 ${LDEMUL_SET_SYMBOLS-NULL},
1875 ${LDEMUL_PARSE_ARGS-NULL},
1876 gld${EMULATION_NAME}_add_options,
1877 gld${EMULATION_NAME}_handle_option,
1878 ${LDEMUL_UNRECOGNIZED_FILE-NULL},
1879 ${LDEMUL_LIST_OPTIONS-gld${EMULATION_NAME}_list_options},
1880 ${LDEMUL_RECOGNIZED_FILE-gld${EMULATION_NAME}_load_symbols},
1881 ${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL},
1882 ${LDEMUL_NEW_VERS_PATTERN-NULL}
1883 };
1884 EOF