1999-05-03 15:29:11 +08:00
|
|
|
/* ldemul.c -- clearing house for ld emulation states
|
2003-03-01 06:55:11 +08:00
|
|
|
Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2002, 2003
|
1999-07-12 04:09:04 +08:00
|
|
|
Free Software Foundation, Inc.
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
This file is part of GLD, the Gnu Linker.
|
|
|
|
|
|
|
|
GLD is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
GLD is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
2000-09-29 19:18:18 +08:00
|
|
|
along with GLD; see the file COPYING. If not, write to the Free
|
|
|
|
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
|
|
02111-1307, USA. */
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
#include "bfd.h"
|
|
|
|
#include "sysdep.h"
|
2003-03-01 06:55:11 +08:00
|
|
|
#include "getopt.h"
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
#include "ld.h"
|
|
|
|
#include "ldmisc.h"
|
|
|
|
#include "ldexp.h"
|
|
|
|
#include "ldlang.h"
|
|
|
|
#include "ldfile.h"
|
2000-07-11 11:42:41 +08:00
|
|
|
#include "ldemul.h"
|
1999-05-03 15:29:11 +08:00
|
|
|
#include "ldmain.h"
|
|
|
|
#include "ldemul-list.h"
|
|
|
|
|
|
|
|
ld_emulation_xfer_type *ld_emulation;
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_hll (name)
|
1999-05-03 15:29:11 +08:00
|
|
|
char *name;
|
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->hll (name);
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
2000-09-29 19:18:18 +08:00
|
|
|
void
|
|
|
|
ldemul_syslib (name)
|
1999-05-03 15:29:11 +08:00
|
|
|
char *name;
|
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->syslib (name);
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_after_parse ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->after_parse ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_before_parse ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->before_parse ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ldemul_after_open ()
|
|
|
|
{
|
|
|
|
ld_emulation->after_open ();
|
|
|
|
}
|
|
|
|
|
2000-09-29 19:18:18 +08:00
|
|
|
void
|
|
|
|
ldemul_after_allocation ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->after_allocation ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
2000-09-29 19:18:18 +08:00
|
|
|
void
|
|
|
|
ldemul_before_allocation ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
if (ld_emulation->before_allocation)
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->before_allocation ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_set_output_arch ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->set_output_arch ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_finish ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
if (ld_emulation->finish)
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->finish ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_set_symbols ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
if (ld_emulation->set_symbols)
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->set_symbols ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_create_output_section_statements ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
if (ld_emulation->create_output_section_statements)
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation->create_output_section_statements ();
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
char *
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_get_script (isfile)
|
1999-05-03 15:29:11 +08:00
|
|
|
int *isfile;
|
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
return ld_emulation->get_script (isfile);
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
2002-11-30 16:39:46 +08:00
|
|
|
bfd_boolean
|
1999-05-03 15:29:11 +08:00
|
|
|
ldemul_open_dynamic_archive (arch, search, entry)
|
|
|
|
const char *arch;
|
|
|
|
search_dirs_type *search;
|
|
|
|
lang_input_statement_type *entry;
|
|
|
|
{
|
|
|
|
if (ld_emulation->open_dynamic_archive)
|
|
|
|
return (*ld_emulation->open_dynamic_archive) (arch, search, entry);
|
2002-11-30 16:39:46 +08:00
|
|
|
return FALSE;
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
2002-11-30 16:39:46 +08:00
|
|
|
bfd_boolean
|
1999-05-03 15:29:11 +08:00
|
|
|
ldemul_place_orphan (file, s)
|
|
|
|
lang_input_statement_type *file;
|
|
|
|
asection *s;
|
|
|
|
{
|
|
|
|
if (ld_emulation->place_orphan)
|
|
|
|
return (*ld_emulation->place_orphan) (file, s);
|
2002-11-30 16:39:46 +08:00
|
|
|
return FALSE;
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
2003-02-28 09:32:31 +08:00
|
|
|
void
|
|
|
|
ldemul_add_options (ns, shortopts, nl, longopts, nrl, really_longopts)
|
|
|
|
int ns;
|
|
|
|
char **shortopts;
|
|
|
|
int nl;
|
|
|
|
struct option **longopts;
|
|
|
|
int nrl;
|
|
|
|
struct option **really_longopts;
|
|
|
|
{
|
|
|
|
if (ld_emulation->add_options)
|
|
|
|
(*ld_emulation->add_options) (ns, shortopts, nl, longopts,
|
|
|
|
nrl, really_longopts);
|
|
|
|
}
|
|
|
|
|
|
|
|
bfd_boolean
|
|
|
|
ldemul_handle_option (optc)
|
|
|
|
int optc;
|
|
|
|
{
|
|
|
|
if (ld_emulation->handle_option)
|
|
|
|
return (*ld_emulation->handle_option) (optc);
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
bfd_boolean
|
1999-05-03 15:29:11 +08:00
|
|
|
ldemul_parse_args (argc, argv)
|
|
|
|
int argc;
|
|
|
|
char **argv;
|
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
/* Try and use the emulation parser if there is one. */
|
1999-05-03 15:29:11 +08:00
|
|
|
if (ld_emulation->parse_args)
|
2003-02-28 09:32:31 +08:00
|
|
|
return (*ld_emulation->parse_args) (argc, argv);
|
2003-02-28 10:10:06 +08:00
|
|
|
return FALSE;
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Let the emulation code handle an unrecognized file. */
|
|
|
|
|
2002-11-30 16:39:46 +08:00
|
|
|
bfd_boolean
|
1999-05-03 15:29:11 +08:00
|
|
|
ldemul_unrecognized_file (entry)
|
|
|
|
lang_input_statement_type *entry;
|
|
|
|
{
|
|
|
|
if (ld_emulation->unrecognized_file)
|
|
|
|
return (*ld_emulation->unrecognized_file) (entry);
|
2002-11-30 16:39:46 +08:00
|
|
|
return FALSE;
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Let the emulation code handle a recognized file. */
|
|
|
|
|
2002-11-30 16:39:46 +08:00
|
|
|
bfd_boolean
|
1999-05-03 15:29:11 +08:00
|
|
|
ldemul_recognized_file (entry)
|
|
|
|
lang_input_statement_type *entry;
|
|
|
|
{
|
|
|
|
if (ld_emulation->recognized_file)
|
|
|
|
return (*ld_emulation->recognized_file) (entry);
|
2002-11-30 16:39:46 +08:00
|
|
|
return FALSE;
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
char *
|
2001-12-04 07:15:28 +08:00
|
|
|
ldemul_choose_target (argc, argv)
|
2002-05-26 04:39:25 +08:00
|
|
|
int argc;
|
|
|
|
char **argv;
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2001-12-04 07:15:28 +08:00
|
|
|
return ld_emulation->choose_target (argc, argv);
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
2001-12-04 07:15:28 +08:00
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
/* The default choose_target function. */
|
|
|
|
|
|
|
|
char *
|
2001-12-04 07:15:28 +08:00
|
|
|
ldemul_default_target (argc, argv)
|
|
|
|
int argc ATTRIBUTE_UNUSED;
|
|
|
|
char **argv ATTRIBUTE_UNUSED;
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
char *from_outside = getenv (TARGET_ENVIRON);
|
2000-09-29 19:18:18 +08:00
|
|
|
if (from_outside != (char *) NULL)
|
1999-05-03 15:29:11 +08:00
|
|
|
return from_outside;
|
|
|
|
return ld_emulation->target_name;
|
|
|
|
}
|
|
|
|
|
2000-09-29 19:18:18 +08:00
|
|
|
void
|
|
|
|
after_parse_default ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
after_open_default ()
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
after_allocation_default ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
before_allocation_default ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
set_output_arch_default ()
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
/* Set the output architecture and machine if possible. */
|
|
|
|
bfd_set_arch_mach (output_bfd,
|
|
|
|
ldfile_output_architecture, ldfile_output_machine);
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
syslib_default (ignore)
|
|
|
|
char *ignore ATTRIBUTE_UNUSED;
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
info_msg (_("%S SYSLIB ignored\n"));
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
hll_default (ignore)
|
|
|
|
char *ignore ATTRIBUTE_UNUSED;
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
info_msg (_("%S HLL ignored\n"));
|
|
|
|
}
|
|
|
|
|
|
|
|
ld_emulation_xfer_type *ld_emulations[] = { EMULATION_LIST };
|
|
|
|
|
|
|
|
void
|
2000-09-29 19:18:18 +08:00
|
|
|
ldemul_choose_mode (target)
|
1999-05-03 15:29:11 +08:00
|
|
|
char *target;
|
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation_xfer_type **eptr = ld_emulations;
|
|
|
|
/* Ignore "gld" prefix. */
|
|
|
|
if (target[0] == 'g' && target[1] == 'l' && target[2] == 'd')
|
|
|
|
target += 3;
|
|
|
|
for (; *eptr; eptr++)
|
|
|
|
{
|
|
|
|
if (strcmp (target, (*eptr)->emulation_name) == 0)
|
|
|
|
{
|
|
|
|
ld_emulation = *eptr;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
einfo (_("%P: unrecognised emulation mode: %s\n"), target);
|
|
|
|
einfo (_("Supported emulations: "));
|
|
|
|
ldemul_list_emulations (stderr);
|
|
|
|
einfo ("%F\n");
|
1999-05-03 15:29:11 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ldemul_list_emulations (f)
|
|
|
|
FILE *f;
|
|
|
|
{
|
|
|
|
ld_emulation_xfer_type **eptr = ld_emulations;
|
2002-11-30 16:39:46 +08:00
|
|
|
bfd_boolean first = TRUE;
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
for (; *eptr; eptr++)
|
|
|
|
{
|
|
|
|
if (first)
|
2002-11-30 16:39:46 +08:00
|
|
|
first = FALSE;
|
1999-05-03 15:29:11 +08:00
|
|
|
else
|
|
|
|
fprintf (f, " ");
|
|
|
|
fprintf (f, "%s", (*eptr)->emulation_name);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ldemul_list_emulation_options (f)
|
2000-09-29 19:18:18 +08:00
|
|
|
FILE *f;
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation_xfer_type **eptr;
|
1999-05-03 15:29:11 +08:00
|
|
|
int options_found = 0;
|
2000-09-29 19:18:18 +08:00
|
|
|
|
|
|
|
for (eptr = ld_emulations; *eptr; eptr++)
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-09-29 19:18:18 +08:00
|
|
|
ld_emulation_xfer_type *emul = *eptr;
|
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
if (emul->list_options)
|
|
|
|
{
|
|
|
|
fprintf (f, "%s: \n", emul->emulation_name);
|
2000-09-29 19:18:18 +08:00
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
emul->list_options (f);
|
|
|
|
|
|
|
|
options_found = 1;
|
|
|
|
}
|
|
|
|
}
|
2000-09-29 19:18:18 +08:00
|
|
|
|
1999-05-03 15:29:11 +08:00
|
|
|
if (! options_found)
|
|
|
|
fprintf (f, _(" no emulation specific options.\n"));
|
|
|
|
}
|
2000-02-25 01:53:12 +08:00
|
|
|
|
|
|
|
int
|
|
|
|
ldemul_find_potential_libraries (name, entry)
|
2000-09-29 19:18:18 +08:00
|
|
|
char *name;
|
|
|
|
lang_input_statement_type *entry;
|
2000-02-25 01:53:12 +08:00
|
|
|
{
|
|
|
|
if (ld_emulation->find_potential_libraries)
|
|
|
|
return ld_emulation->find_potential_libraries (name, entry);
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
2002-05-22 17:04:48 +08:00
|
|
|
|
|
|
|
struct bfd_elf_version_expr *
|
|
|
|
ldemul_new_vers_pattern (entry)
|
|
|
|
struct bfd_elf_version_expr *entry;
|
|
|
|
{
|
|
|
|
if (ld_emulation->new_vers_pattern)
|
|
|
|
entry = (*ld_emulation->new_vers_pattern) (entry);
|
|
|
|
return entry;
|
|
|
|
}
|