1 /* Linker file opening and searching.
2 Copyright (C) 1991-2015 Free Software Foundation, Inc.
4 This file is part of the GNU Binutils.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
24 #include "safe-ctype.h"
34 #include "libiberty.h"
35 #include "filenames.h"
37 #include "plugin-api.h"
39 #endif /* ENABLE_PLUGINS */
41 bfd_boolean ldfile_assumed_script
= FALSE
;
42 const char * ldfile_output_machine_name
= "";
43 unsigned long ldfile_output_machine
;
44 enum bfd_architecture ldfile_output_architecture
;
45 search_dirs_type
* search_head
;
48 static char * slash
= "";
50 #if defined (_WIN32) && ! defined (__CYGWIN32__)
51 static char * slash
= "\\";
53 static char * slash
= "/";
57 typedef struct search_arch
60 struct search_arch
*next
;
63 static search_dirs_type
**search_tail_ptr
= &search_head
;
64 static search_arch_type
*search_arch_head
;
65 static search_arch_type
**search_arch_tail_ptr
= &search_arch_head
;
67 /* Test whether a pathname, after canonicalization, is the same or a
68 sub-directory of the sysroot directory. */
71 is_sysrooted_pathname (const char *name
)
77 if (ld_canon_sysroot
== NULL
)
80 realname
= lrealpath (name
);
81 len
= strlen (realname
);
83 if (len
> ld_canon_sysroot_len
84 && IS_DIR_SEPARATOR (realname
[ld_canon_sysroot_len
]))
86 realname
[ld_canon_sysroot_len
] = '\0';
87 result
= FILENAME_CMP (ld_canon_sysroot
, realname
) == 0;
94 /* Adds NAME to the library search path.
95 Makes a copy of NAME using xmalloc(). */
98 ldfile_add_library_path (const char *name
, bfd_boolean cmdline
)
100 search_dirs_type
*new_dirs
;
102 if (!cmdline
&& config
.only_cmd_line_lib_dirs
)
105 new_dirs
= (search_dirs_type
*) xmalloc (sizeof (search_dirs_type
));
106 new_dirs
->next
= NULL
;
107 new_dirs
->cmdline
= cmdline
;
108 *search_tail_ptr
= new_dirs
;
109 search_tail_ptr
= &new_dirs
->next
;
111 /* If a directory is marked as honoring sysroot, prepend the sysroot path
114 new_dirs
->name
= concat (ld_sysroot
, name
+ 1, (const char *) NULL
);
116 new_dirs
->name
= xstrdup (name
);
119 /* Try to open a BFD for a lang_input_statement. */
122 ldfile_try_open_bfd (const char *attempt
,
123 lang_input_statement_type
*entry
)
125 entry
->the_bfd
= bfd_openr (attempt
, entry
->target
);
129 if (entry
->the_bfd
== NULL
)
130 info_msg (_("attempt to open %s failed\n"), attempt
);
132 info_msg (_("attempt to open %s succeeded\n"), attempt
);
135 if (entry
->the_bfd
== NULL
)
137 if (bfd_get_error () == bfd_error_invalid_target
)
138 einfo (_("%F%P: invalid BFD target `%s'\n"), entry
->target
);
142 /* Linker needs to decompress sections. */
143 entry
->the_bfd
->flags
|= BFD_DECOMPRESS
;
145 /* If we are searching for this file, see if the architecture is
146 compatible with the output file. If it isn't, keep searching.
147 If we can't open the file as an object file, stop the search
148 here. If we are statically linking, ensure that we don't link
151 In the code below, it's OK to exit early if the check fails,
152 closing the checked BFD and returning FALSE, but if the BFD
153 checks out compatible, do not exit early returning TRUE, or
154 the plugins will not get a chance to claim the file. */
156 if (entry
->flags
.search_dirs
|| !entry
->flags
.dynamic
)
160 if (bfd_check_format (entry
->the_bfd
, bfd_archive
))
161 check
= bfd_openr_next_archived_file (entry
->the_bfd
, NULL
);
163 check
= entry
->the_bfd
;
167 if (! bfd_check_format (check
, bfd_object
))
169 if (check
== entry
->the_bfd
170 && entry
->flags
.search_dirs
171 && bfd_get_error () == bfd_error_file_not_recognized
172 && ! ldemul_unrecognized_file (entry
))
175 char *arg
, *arg1
, *arg2
, *arg3
;
178 /* Try to interpret the file as a linker script. */
179 ldfile_open_command_file (attempt
);
181 ldfile_assumed_script
= TRUE
;
182 parser_input
= input_selected
;
184 token
= INPUT_SCRIPT
;
190 if ((token
= yylex ()) != '(')
192 if ((token
= yylex ()) != NAME
)
200 if ((token
= yylex ()) != NAME
)
206 if ((token
= yylex ()) != ','
207 || (token
= yylex ()) != NAME
)
218 switch (command_line
.endian
)
224 arg
= arg2
? arg2
: arg1
; break;
226 arg
= arg3
? arg3
: arg1
; break;
228 if (strcmp (arg
, lang_get_output_target ()) != 0)
232 if (arg2
) free (arg2
);
233 if (arg3
) free (arg3
);
237 case VERS_IDENTIFIER
:
242 if (yylval
.bigint
.str
)
243 free (yylval
.bigint
.str
);
249 ldfile_assumed_script
= FALSE
;
254 if (command_line
.warn_search_mismatch
)
255 einfo (_("%P: skipping incompatible %s "
256 "when searching for %s\n"),
257 attempt
, entry
->local_sym_name
);
258 bfd_close (entry
->the_bfd
);
259 entry
->the_bfd
= NULL
;
266 if (!entry
->flags
.dynamic
&& (entry
->the_bfd
->flags
& DYNAMIC
) != 0)
268 einfo (_("%F%P: attempted static link of dynamic object `%s'\n"),
270 bfd_close (entry
->the_bfd
);
271 entry
->the_bfd
= NULL
;
275 if (entry
->flags
.search_dirs
276 && !bfd_arch_get_compatible (check
, link_info
.output_bfd
,
277 command_line
.accept_unknown_input_arch
)
278 /* XCOFF archives can have 32 and 64 bit objects. */
279 && ! (bfd_get_flavour (check
) == bfd_target_xcoff_flavour
280 && bfd_get_flavour (link_info
.output_bfd
) == bfd_target_xcoff_flavour
281 && bfd_check_format (entry
->the_bfd
, bfd_archive
)))
283 if (command_line
.warn_search_mismatch
)
284 einfo (_("%P: skipping incompatible %s "
285 "when searching for %s\n"),
286 attempt
, entry
->local_sym_name
);
287 bfd_close (entry
->the_bfd
);
288 entry
->the_bfd
= NULL
;
294 #ifdef ENABLE_PLUGINS
295 /* If plugins are active, they get first chance to claim
296 any successfully-opened input file. We skip archives
297 here; the plugin wants us to offer it the individual
298 members when we enumerate them, not the whole file. We
299 also ignore corefiles, because that's just weird. It is
300 a needed side-effect of calling bfd_check_format with
301 bfd_object that it sets the bfd's arch and mach, which
302 will be needed when and if we want to bfd_create a new
303 one using this one as a template. */
304 if (link_info
.lto_plugin_active
306 && bfd_check_format (entry
->the_bfd
, bfd_object
))
307 plugin_maybe_claim (entry
);
308 #endif /* ENABLE_PLUGINS */
310 /* It opened OK, the format checked out, and the plugins have had
311 their chance to claim it, so this is success. */
315 /* Search for and open the file specified by ENTRY. If it is an
316 archive, use ARCH, LIB and SUFFIX to modify the file name. */
319 ldfile_open_file_search (const char *arch
,
320 lang_input_statement_type
*entry
,
324 search_dirs_type
*search
;
326 /* If this is not an archive, try to open it in the current
328 if (! entry
->flags
.maybe_archive
)
330 if (entry
->flags
.sysrooted
&& IS_ABSOLUTE_PATH (entry
->filename
))
332 char *name
= concat (ld_sysroot
, entry
->filename
,
333 (const char *) NULL
);
334 if (ldfile_try_open_bfd (name
, entry
))
336 entry
->filename
= name
;
341 else if (ldfile_try_open_bfd (entry
->filename
, entry
))
344 if (IS_ABSOLUTE_PATH (entry
->filename
))
348 for (search
= search_head
; search
!= NULL
; search
= search
->next
)
352 if (entry
->flags
.dynamic
&& ! link_info
.relocatable
)
354 if (ldemul_open_dynamic_archive (arch
, search
, entry
))
358 if (entry
->flags
.maybe_archive
&& !entry
->flags
.full_name_provided
)
359 string
= concat (search
->name
, slash
, lib
, entry
->filename
,
360 arch
, suffix
, (const char *) NULL
);
362 string
= concat (search
->name
, slash
, entry
->filename
,
365 if (ldfile_try_open_bfd (string
, entry
))
367 entry
->filename
= string
;
377 /* Open the input file specified by ENTRY.
378 PR 4437: Do not stop on the first missing file, but
379 continue processing other input files in case there
380 are more errors to report. */
383 ldfile_open_file (lang_input_statement_type
*entry
)
385 if (entry
->the_bfd
!= NULL
)
388 if (! entry
->flags
.search_dirs
)
390 if (ldfile_try_open_bfd (entry
->filename
, entry
))
393 if (filename_cmp (entry
->filename
, entry
->local_sym_name
) != 0)
394 einfo (_("%P: cannot find %s (%s): %E\n"),
395 entry
->filename
, entry
->local_sym_name
);
397 einfo (_("%P: cannot find %s: %E\n"), entry
->local_sym_name
);
399 entry
->flags
.missing_file
= TRUE
;
400 input_flags
.missing_file
= TRUE
;
404 search_arch_type
*arch
;
405 bfd_boolean found
= FALSE
;
407 /* Try to open <filename><suffix> or lib<filename><suffix>.a */
408 for (arch
= search_arch_head
; arch
!= NULL
; arch
= arch
->next
)
410 found
= ldfile_open_file_search (arch
->name
, entry
, "lib", ".a");
414 found
= ldfile_open_file_search (arch
->name
, entry
, ":lib", ".a");
418 found
= ldemul_find_potential_libraries (arch
->name
, entry
);
423 /* If we have found the file, we don't need to search directories
426 entry
->flags
.search_dirs
= FALSE
;
429 if (entry
->flags
.sysrooted
431 && IS_ABSOLUTE_PATH (entry
->local_sym_name
))
432 einfo (_("%P: cannot find %s inside %s\n"),
433 entry
->local_sym_name
, ld_sysroot
);
435 einfo (_("%P: cannot find %s\n"), entry
->local_sym_name
);
436 entry
->flags
.missing_file
= TRUE
;
437 input_flags
.missing_file
= TRUE
;
442 /* Try to open NAME. */
445 try_open (const char *name
, bfd_boolean
*sysrooted
)
449 result
= fopen (name
, "r");
452 *sysrooted
= is_sysrooted_pathname (name
);
457 info_msg (_("cannot find script file %s\n"), name
);
459 info_msg (_("opened script file %s\n"), name
);
465 /* Return TRUE iff directory DIR contains an "ldscripts" subdirectory. */
468 check_for_scripts_dir (char *dir
)
474 buf
= concat (dir
, "/ldscripts", (const char *) NULL
);
475 res
= stat (buf
, &s
) == 0 && S_ISDIR (s
.st_mode
);
480 /* Return the default directory for finding script files.
481 We look for the "ldscripts" directory in:
483 SCRIPTDIR (passed from Makefile)
484 (adjusted according to the current location of the binary)
485 the dir where this program is (for using it from the build tree). */
488 find_scripts_dir (void)
492 dir
= make_relative_prefix (program_name
, BINDIR
, SCRIPTDIR
);
495 if (check_for_scripts_dir (dir
))
500 dir
= make_relative_prefix (program_name
, TOOLBINDIR
, SCRIPTDIR
);
503 if (check_for_scripts_dir (dir
))
508 /* Look for "ldscripts" in the dir where our binary is. */
509 dir
= make_relative_prefix (program_name
, ".", ".");
512 if (check_for_scripts_dir (dir
))
520 /* If DEFAULT_ONLY is false, try to open NAME; if that fails, look for
521 it in directories specified with -L, then in the default script
522 directory. If DEFAULT_ONLY is true, the search is restricted to
523 the default script location. */
526 ldfile_find_command_file (const char *name
,
527 bfd_boolean default_only
,
528 bfd_boolean
*sysrooted
)
530 search_dirs_type
*search
;
533 static search_dirs_type
*script_search
;
537 /* First try raw name. */
538 result
= try_open (name
, sysrooted
);
545 char *script_dir
= find_scripts_dir ();
548 search_dirs_type
**save_tail_ptr
= search_tail_ptr
;
549 search_tail_ptr
= &script_search
;
550 ldfile_add_library_path (script_dir
, TRUE
);
551 search_tail_ptr
= save_tail_ptr
;
555 /* Temporarily append script_search to the path list so that the
556 paths specified with -L will be searched first. */
557 *search_tail_ptr
= script_search
;
559 /* Try now prefixes. */
560 for (search
= default_only
? script_search
: search_head
;
562 search
= search
->next
)
564 path
= concat (search
->name
, slash
, name
, (const char *) NULL
);
565 result
= try_open (path
, sysrooted
);
571 /* Restore the original path list. */
572 *search_tail_ptr
= NULL
;
577 /* Open command file NAME. */
580 ldfile_open_command_file_1 (const char *name
, bfd_boolean default_only
)
582 FILE *ldlex_input_stack
;
583 bfd_boolean sysrooted
;
585 ldlex_input_stack
= ldfile_find_command_file (name
, default_only
, &sysrooted
);
587 if (ldlex_input_stack
== NULL
)
589 bfd_set_error (bfd_error_system_call
);
590 einfo (_("%P%F: cannot open linker script file %s: %E\n"), name
);
594 lex_push_file (ldlex_input_stack
, name
, sysrooted
);
598 saved_script_handle
= ldlex_input_stack
;
601 /* Open command file NAME in the current directory, -L directories,
602 the default script location, in that order. */
605 ldfile_open_command_file (const char *name
)
607 ldfile_open_command_file_1 (name
, FALSE
);
610 /* Open command file NAME at the default script location. */
613 ldfile_open_default_command_file (const char *name
)
615 ldfile_open_command_file_1 (name
, TRUE
);
619 ldfile_add_arch (const char *in_name
)
621 char *name
= xstrdup (in_name
);
622 search_arch_type
*new_arch
= (search_arch_type
*)
623 xmalloc (sizeof (search_arch_type
));
625 ldfile_output_machine_name
= in_name
;
627 new_arch
->name
= name
;
628 new_arch
->next
= NULL
;
631 *name
= TOLOWER (*name
);
634 *search_arch_tail_ptr
= new_arch
;
635 search_arch_tail_ptr
= &new_arch
->next
;
639 /* Set the output architecture. */
642 ldfile_set_output_arch (const char *string
, enum bfd_architecture defarch
)
644 const bfd_arch_info_type
*arch
= bfd_scan_arch (string
);
648 ldfile_output_architecture
= arch
->arch
;
649 ldfile_output_machine
= arch
->mach
;
650 ldfile_output_machine_name
= arch
->printable_name
;
652 else if (defarch
!= bfd_arch_unknown
)
653 ldfile_output_architecture
= defarch
;
655 einfo (_("%P%F: cannot represent machine `%s'\n"), string
);