1 /* Copyright (C) 1991, 92, 93, 94 Free Software Foundation, Inc.
3 This file is part of GLD, the Gnu Linker.
5 GLD is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 1, or (at your option)
10 GLD is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GLD; see the file COPYING. If not, write to
17 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
22 look after all the file stuff
39 char *ldfile_input_filename;
40 const char *ldfile_output_machine_name = "";
41 unsigned long ldfile_output_machine;
42 enum bfd_architecture ldfile_output_architecture;
44 /* start-sanitize-mpw */
46 /* end-sanitize-mpw */
52 /* start-sanitize-mpw */
54 /* The MPW path char is a colon. */
57 /* end-sanitize-mpw */
63 typedef struct search_dirs
66 struct search_dirs *next;
69 static search_dirs_type *search_head;
70 static search_dirs_type **search_tail_ptr = &search_head;
72 typedef struct search_arch
75 struct search_arch *next;
78 static search_arch_type *search_arch_head;
79 static search_arch_type **search_arch_tail_ptr = &search_arch_head;
81 static bfd *cached_bfd_openr PARAMS ((const char *attempt,
82 lang_input_statement_type *entry));
83 static bfd *open_a PARAMS ((char *arch, lang_input_statement_type *entry,
84 char *lib, char *suffix));
85 static FILE *try_open PARAMS ((char *name, char *exten));
88 ldfile_add_library_path(name)
91 search_dirs_type *new =
92 (search_dirs_type *)xmalloc((bfd_size_type)(sizeof(search_dirs_type)));
94 new->next = (search_dirs_type*)NULL;
95 *search_tail_ptr = new;
96 search_tail_ptr = &new->next;
101 cached_bfd_openr(attempt,entry)
103 lang_input_statement_type *entry;
105 entry->the_bfd = bfd_openr(attempt, entry->target);
106 if (trace_file_tries == true ) {
107 info_msg ("attempt to open %s %s\n", attempt,
108 (entry->the_bfd == (bfd *)NULL) ? "failed" : "succeeded" );
110 return entry->the_bfd;
114 open_a(arch, entry, lib, suffix)
116 lang_input_statement_type *entry;
121 search_dirs_type *search ;
122 for (search = search_head;
123 search != (search_dirs_type *)NULL;
124 search = search->next)
128 if (entry->is_archive == true) {
134 entry->filename, arch, suffix);
137 if (entry->filename[0] == '/' || entry->filename[0] == '.') {
138 strcpy(buffer, entry->filename);
140 sprintf(buffer,"%s%s%s",search->name, slash, entry->filename);
143 string = buystring(buffer);
144 desc = cached_bfd_openr (string, entry);
147 entry->filename = string;
148 entry->search_dirs_flag = false;
149 entry->the_bfd = desc;
157 /* Open the input file specified by 'entry', and return a descriptor.
158 The open file is remembered; if the same file is opened twice in a row,
159 a new open is not actually done. */
162 ldfile_open_file (entry)
163 lang_input_statement_type *entry;
165 if (entry->superfile != NULL)
166 ldfile_open_file (entry->superfile);
168 if (! entry->search_dirs_flag)
169 entry->the_bfd = cached_bfd_openr (entry->filename, entry);
172 search_arch_type *arch;
174 /* Try to open <filename><suffix> or lib<filename><suffix>.a */
175 for (arch = search_arch_head;
176 arch != (search_arch_type *) NULL;
179 if (config.dynamic_link)
181 /* FIXME: Perhaps we will sometimes want something other
183 if (open_a (arch->name, entry, "lib", ".so") != (bfd *) NULL)
186 if (open_a (arch->name, entry, "lib", ".a") != (bfd *) NULL)
189 if (open_a (arch->name, entry, ":lib", ".a") != (bfd *) NULL)
195 if (entry->the_bfd == NULL)
196 einfo("%F%P: cannot open %s: %E\n", entry->local_sym_name);
199 /* Try to open NAME; if that fails, try NAME with EXTEN appended to it. */
202 try_open(name, exten)
209 result = fopen(name, "r");
210 if (trace_file_tries == true) {
211 if (result == (FILE *)NULL) {
212 info_msg ("cannot find ");
214 info_msg ("%s\n",name);
216 if (result != (FILE *)NULL) {
221 sprintf(buff, "%s%s", name, exten);
222 result = fopen(buff, "r");
223 if (trace_file_tries == true) {
224 if (result == (FILE *)NULL) {
225 info_msg ("cannot find ");
227 info_msg ("%s\n", buff);
233 /* Try to open NAME; if that fails, look for it in any directories
234 specified with -L, without and with EXTEND apppended. */
237 ldfile_find_command_file(name, extend)
241 search_dirs_type *search;
245 /* First try raw name */
246 result = try_open(name,"");
247 if (result == (FILE *)NULL) {
248 /* Try now prefixes */
249 for (search = search_head;
250 search != (search_dirs_type *)NULL;
251 search = search->next) {
252 sprintf(buffer,"%s/%s", search->name, name);
253 result = try_open(buffer, extend);
261 ldfile_open_command_file(name)
264 FILE *ldlex_input_stack;
265 ldlex_input_stack = ldfile_find_command_file(name, "");
267 if (ldlex_input_stack == (FILE *)NULL) {
268 bfd_set_error (bfd_error_system_call);
269 einfo("%P%F: cannot open linker script file %s: %E\n",name);
271 lex_push_file(ldlex_input_stack, name);
273 ldfile_input_filename = name;
284 gnu960_map_archname( name )
287 struct tabentry { char *cmd_switch; char *arch; };
288 static struct tabentry arch_tab[] = {
292 "KC", "mc", /* Synonym for MC */
295 "SA", "ka", /* Functionally equivalent to KA */
296 "SB", "kb", /* Functionally equivalent to KB */
302 for ( tp = arch_tab; tp->cmd_switch != NULL; tp++ ){
303 if ( !strcmp(name,tp->cmd_switch) ){
308 if ( tp->cmd_switch == NULL ){
309 einfo("%P%F: unknown architecture: %s\n",name);
317 ldfile_add_arch(name)
320 search_arch_type *new =
321 (search_arch_type *)xmalloc((bfd_size_type)(sizeof(search_arch_type)));
325 if (ldfile_output_machine_name[0] != '\0') {
326 einfo("%P%F: target architecture respecified\n");
329 ldfile_output_machine_name = name;
332 new->next = (search_arch_type*)NULL;
333 new->name = gnu960_map_archname( name );
334 *search_arch_tail_ptr = new;
335 search_arch_tail_ptr = &new->next;
339 #else /* not GNU960 */
343 ldfile_add_arch (in_name)
344 CONST char * in_name;
346 char *name = buystring(in_name);
347 search_arch_type *new =
348 (search_arch_type *)xmalloc((bfd_size_type)(sizeof(search_arch_type)));
350 ldfile_output_machine_name = in_name;
353 new->next = (search_arch_type*)NULL;
355 if (isupper(*name)) *name = tolower(*name);
358 *search_arch_tail_ptr = new;
359 search_arch_tail_ptr = &new->next;
364 /* Set the output architecture */
366 ldfile_set_output_arch (string)
369 bfd_arch_info_type *arch = bfd_scan_arch(string);
372 ldfile_output_architecture = arch->arch;
373 ldfile_output_machine = arch->mach;
374 ldfile_output_machine_name = arch->printable_name;
377 einfo("%P%F: cannot represent machine `%s'\n", string);