-
-/* Copyright (C) 1991 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 92, 93, 94 Free Software Foundation, Inc.
This file is part of GLD, the Gnu Linker.
along with GLD; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
-/*
- $Id$
-
- $Log$
- Revision 1.1 1991/03/21 21:28:37 gumby
- Initial revision
-
- * Revision 1.2 1991/03/15 18:45:55 rich
- * foo
- *
- * Revision 1.1 1991/03/13 00:48:18 chrisb
- * Initial revision
- *
- * Revision 1.4 1991/03/10 09:31:24 rich
- * Modified Files:
- * Makefile config.h ld-emul.c ld-emul.h ld-gld.c ld-gld960.c
- * ld-lnk960.c ld.h lddigest.c ldexp.c ldexp.h ldfile.c ldfile.h
- * ldgram.y ldinfo.h ldlang.c ldlang.h ldlex.h ldlex.l ldmain.c
- * ldmain.h ldmisc.c ldmisc.h ldsym.c ldsym.h ldversion.c
- * ldversion.h ldwarn.h ldwrite.c ldwrite.h y.tab.h
- *
- * As of this round of changes, ld now builds on all hosts of (Intel960)
- * interest and copy passes my copy test on big endian hosts again.
- *
- * Revision 1.3 1991/02/22 17:15:00 sac
- * Added RCS keywords and copyrights
- *
-*/
-
/*
ldfile.c
*/
-#include "sysdep.h"
#include "bfd.h"
-
+#include "sysdep.h"
+#include "ld.h"
#include "ldmisc.h"
+#include "ldexp.h"
#include "ldlang.h"
#include "ldfile.h"
+#include "ldmain.h"
+#include "ldgram.h"
+#include "ldlex.h"
#include <ctype.h>
-/* EXPORT */
char *ldfile_input_filename;
-char *ldfile_output_machine_name;
+const char *ldfile_output_machine_name = "";
unsigned long ldfile_output_machine;
enum bfd_architecture ldfile_output_architecture;
-boolean had_script;
-
-/* IMPORT */
-
-extern boolean option_v;
-
-
-
-
+search_dirs_type *search_head;
+
+/* start-sanitize-mpw */
+#ifndef MPW
+/* end-sanitize-mpw */
+#ifdef VMS
+char *slash = "";
+#else
+char *slash = "/";
+#endif
+/* start-sanitize-mpw */
+#else /* MPW */
+/* The MPW path char is a colon. */
+char *slash = ":";
+#endif /* MPW */
+/* end-sanitize-mpw */
+
+/* LOCAL */
-/* LOACL */
-typedef struct search_dirs_struct
-{
- char *name;
- struct search_dirs_struct *next;
-} search_dirs_type;
-
-static search_dirs_type *search_head;
static search_dirs_type **search_tail_ptr = &search_head;
-typedef struct search_arch_struct
+typedef struct search_arch
{
char *name;
- struct search_arch_struct *next;
+ struct search_arch *next;
} search_arch_type;
static search_arch_type *search_arch_head;
static search_arch_type **search_arch_tail_ptr = &search_arch_head;
+static bfd *cached_bfd_openr PARAMS ((const char *attempt,
+ lang_input_statement_type *entry));
+static bfd *open_a PARAMS ((char *arch, lang_input_statement_type *entry,
+ char *lib, char *suffix));
+static FILE *try_open PARAMS ((char *name, char *exten));
+
void
-ldfile_add_library_path(name)
-char *name;
+ldfile_add_library_path (name, cmdline)
+ const char *name;
+ boolean cmdline;
{
- search_dirs_type *new =
- (search_dirs_type *)ldmalloc(sizeof(search_dirs_type));
+ search_dirs_type *new;
+
+ new = (search_dirs_type *) xmalloc (sizeof (search_dirs_type));
+ new->next = NULL;
new->name = name;
- new->next = (search_dirs_type*)NULL;
+ new->cmdline = cmdline;
*search_tail_ptr = new;
search_tail_ptr = &new->next;
}
-static bfd*
+static bfd *
cached_bfd_openr(attempt,entry)
-char *attempt;
-lang_input_statement_type *entry;
+ const char *attempt;
+ lang_input_statement_type *entry;
{
entry->the_bfd = bfd_openr(attempt, entry->target);
-
-
+ if (trace_file_tries == true ) {
+ info_msg ("attempt to open %s %s\n", attempt,
+ (entry->the_bfd == (bfd *)NULL) ? "failed" : "succeeded" );
+ }
return entry->the_bfd;
}
static bfd *
open_a(arch, entry, lib, suffix)
-char *arch;
-lang_input_statement_type *entry;
-char *lib;
-char *suffix;
+ char *arch;
+ lang_input_statement_type *entry;
+ char *lib;
+ char *suffix;
{
bfd*desc;
search_dirs_type *search ;
+
+ /* If this is not an archive, try to open it in the current
+ directory first. */
+ if (! entry->is_archive)
+ {
+ desc = cached_bfd_openr (entry->filename, entry);
+ if (desc != NULL)
+ return desc;
+ }
+
for (search = search_head;
search != (search_dirs_type *)NULL;
search = search->next)
char *string;
if (entry->is_archive == true) {
sprintf(buffer,
- "%s/%s%s%s%s",
+ "%s%s%s%s%s%s",
search->name,
+ slash,
lib,
entry->filename, arch, suffix);
}
else {
- if (entry->filename[0] == '/') {
- strcpy(buffer, entry->filename);
- } else {
- sprintf(buffer,"%s/%s",search->name, entry->filename);
- } /* */
+ if (entry->filename[0] == '/' || entry->filename[0] == '.') {
+ strcpy(buffer, entry->filename);
+ } else {
+ sprintf(buffer,"%s%s%s",search->name, slash, entry->filename);
+ }
}
string = buystring(buffer);
desc = cached_bfd_openr (string, entry);
if (desc)
{
entry->filename = string;
- entry->search_dirs_flag = false;
entry->the_bfd = desc;
return desc;
}
void
ldfile_open_file (entry)
-lang_input_statement_type *entry;
+ lang_input_statement_type *entry;
{
+ ASSERT (entry->the_bfd == NULL);
- if (entry->superfile)
- ldfile_open_file (entry->superfile);
-
- if (entry->search_dirs_flag)
+ if (! entry->search_dirs_flag)
+ entry->the_bfd = cached_bfd_openr (entry->filename, entry);
+ else
{
search_arch_type *arch;
+
+ /* Try to open <filename><suffix> or lib<filename><suffix>.a */
for (arch = search_arch_head;
- arch != (search_arch_type *)NULL;
- arch = arch->next) {
- if (open_a(arch->name,entry,"","") != (bfd *)NULL) {
- return;
- }
- if (open_a(arch->name,entry,"lib",".a") != (bfd *)NULL) {
- return;
+ arch != (search_arch_type *) NULL;
+ arch = arch->next)
+ {
+ if (config.dynamic_link)
+ {
+ /* FIXME: Perhaps we will sometimes want something other
+ than .so. */
+ if (open_a (arch->name, entry, "lib", ".so") != (bfd *) NULL)
+ return;
+ }
+ if (open_a (arch->name, entry, "lib", ".a") != (bfd *) NULL)
+ return;
+#ifdef VMS
+ if (open_a (arch->name, entry, ":lib", ".a") != (bfd *) NULL)
+ return;
+#endif
}
-
- }
-
-
}
- else {
- entry->the_bfd = cached_bfd_openr (entry->filename, entry);
-
- }
- if (!entry->the_bfd) info("%F%P: %E %I\n", entry);
+ if (entry->the_bfd == NULL)
+ einfo("%F%P: cannot open %s: %E\n", entry->local_sym_name);
}
-
-
-
-
+/* Try to open NAME; if that fails, try NAME with EXTEN appended to it. */
static FILE *
try_open(name, exten)
-char *name;
-char *exten;
+ char *name;
+ char *exten;
{
FILE *result;
char buff[1000];
+
result = fopen(name, "r");
- if (result && option_v == true) {
- info("%s\n",name);
+ if (trace_file_tries == true) {
+ if (result == (FILE *)NULL) {
+ info_msg ("cannot find ");
+ }
+ info_msg ("%s\n",name);
+ }
+ if (result != (FILE *)NULL) {
return result;
}
- sprintf(buff, "%s%s", name, exten);
- result = fopen(buff, "r");
- if (result && option_v == true) {
- info("%s\n", buff);
+ if (*exten) {
+ sprintf(buff, "%s%s", name, exten);
+ result = fopen(buff, "r");
+ if (trace_file_tries == true) {
+ if (result == (FILE *)NULL) {
+ info_msg ("cannot find ");
+ }
+ info_msg ("%s\n", buff);
+ }
}
return result;
}
-static FILE *
-find_a_name(name, extend)
+
+/* Try to open NAME; if that fails, look for it in any directories
+ specified with -L, without and with EXTEND apppended. */
+
+FILE *
+ldfile_find_command_file(name, extend)
char *name;
char *extend;
{
search_dirs_type *search;
FILE *result;
char buffer[1000];
+
/* First try raw name */
result = try_open(name,"");
if (result == (FILE *)NULL) {
return result;
}
-void ldfile_open_command_file(name)
+void
+ldfile_open_command_file(name)
char *name;
{
- extern FILE *ldlex_input_stack;
- ldlex_input_stack = find_a_name(name, ".ld");
+ FILE *ldlex_input_stack;
+ ldlex_input_stack = ldfile_find_command_file(name, "");
if (ldlex_input_stack == (FILE *)NULL) {
- info("%P%F cannot open load script file %s\n",name);
+ bfd_set_error (bfd_error_system_call);
+ einfo("%P%F: cannot open linker script file %s: %E\n",name);
}
+ lex_push_file(ldlex_input_stack, name);
+
ldfile_input_filename = name;
had_script = true;
}
+
+#ifdef GNU960
+static
+char *
+gnu960_map_archname( name )
+char *name;
+{
+ struct tabentry { char *cmd_switch; char *arch; };
+ static struct tabentry arch_tab[] = {
+ "", "",
+ "KA", "ka",
+ "KB", "kb",
+ "KC", "mc", /* Synonym for MC */
+ "MC", "mc",
+ "CA", "ca",
+ "SA", "ka", /* Functionally equivalent to KA */
+ "SB", "kb", /* Functionally equivalent to KB */
+ NULL, ""
+ };
+ struct tabentry *tp;
+
+
+ for ( tp = arch_tab; tp->cmd_switch != NULL; tp++ ){
+ if ( !strcmp(name,tp->cmd_switch) ){
+ break;
+ }
+ }
+
+ if ( tp->cmd_switch == NULL ){
+ einfo("%P%F: unknown architecture: %s\n",name);
+ }
+ return tp->arch;
+}
+
+
+
void
ldfile_add_arch(name)
char *name;
{
search_arch_type *new =
- (search_arch_type *)ldmalloc(sizeof(search_arch_type));
- ldfile_output_machine_name = name;
+ (search_arch_type *)xmalloc((bfd_size_type)(sizeof(search_arch_type)));
+
+
+ if (*name != '\0') {
+ if (ldfile_output_machine_name[0] != '\0') {
+ einfo("%P%F: target architecture respecified\n");
+ return;
+ }
+ ldfile_output_machine_name = name;
+ }
+
+ new->next = (search_arch_type*)NULL;
+ new->name = gnu960_map_archname( name );
+ *search_arch_tail_ptr = new;
+ search_arch_tail_ptr = &new->next;
+
+}
+
+#else /* not GNU960 */
+
+
+void
+ldfile_add_arch (in_name)
+ CONST char * in_name;
+{
+ char *name = buystring(in_name);
+ search_arch_type *new =
+ (search_arch_type *)xmalloc((bfd_size_type)(sizeof(search_arch_type)));
+
+ ldfile_output_machine_name = in_name;
new->name = name;
new->next = (search_arch_type*)NULL;
search_arch_tail_ptr = &new->next;
}
+#endif
+
+/* Set the output architecture */
+void
+ldfile_set_output_arch (string)
+ CONST char *string;
+{
+ bfd_arch_info_type *arch = bfd_scan_arch(string);
+
+ if (arch) {
+ ldfile_output_architecture = arch->arch;
+ ldfile_output_machine = arch->mach;
+ ldfile_output_machine_name = arch->printable_name;
+ }
+ else {
+ einfo("%P%F: cannot represent machine `%s'\n", string);
+ }
+}
projects / binutils.git / blobdiff