#include "bfd.h"
#include "sysdep.h"
#include "getopt.h"
#include "ld.h"
#include "ldmisc.h"
#include "ldexp.h"
#include "ldlang.h"
#include "ldfile.h"
#include "ldemul.h"
#include "ldmain.h"
#include "ldemul-list.h"
ld_emulation_xfer_type *ld_emulation;
void
ldemul_hll (char *name)
{
ld_emulation->hll (name);
}
void
ldemul_syslib (char *name)
{
ld_emulation->syslib (name);
}
void
ldemul_after_parse (void)
{
ld_emulation->after_parse ();
}
void
ldemul_before_parse (void)
{
ld_emulation->before_parse ();
}
void
ldemul_after_open (void)
{
ld_emulation->after_open ();
}
void
ldemul_after_allocation (void)
{
ld_emulation->after_allocation ();
}
void
ldemul_before_allocation (void)
{
if (ld_emulation->before_allocation)
ld_emulation->before_allocation ();
}
void
ldemul_set_output_arch (void)
{
ld_emulation->set_output_arch ();
}
void
ldemul_finish (void)
{
if (ld_emulation->finish)
ld_emulation->finish ();
}
void
ldemul_set_symbols (void)
{
if (ld_emulation->set_symbols)
ld_emulation->set_symbols ();
}
void
ldemul_create_output_section_statements (void)
{
if (ld_emulation->create_output_section_statements)
ld_emulation->create_output_section_statements ();
}
char *
ldemul_get_script (int *isfile)
{
return ld_emulation->get_script (isfile);
}
bfd_boolean
ldemul_open_dynamic_archive (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);
return FALSE;
}
bfd_boolean
ldemul_place_orphan (lang_input_statement_type *file, asection *s)
{
if (ld_emulation->place_orphan)
return (*ld_emulation->place_orphan) (file, s);
return FALSE;
}
void
ldemul_add_options (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 (int optc)
{
if (ld_emulation->handle_option)
return (*ld_emulation->handle_option) (optc);
return FALSE;
}
bfd_boolean
ldemul_parse_args (int argc, char **argv)
{
if (ld_emulation->parse_args)
return (*ld_emulation->parse_args) (argc, argv);
return FALSE;
}
bfd_boolean
ldemul_unrecognized_file (lang_input_statement_type *entry)
{
if (ld_emulation->unrecognized_file)
return (*ld_emulation->unrecognized_file) (entry);
return FALSE;
}
bfd_boolean
ldemul_recognized_file (lang_input_statement_type *entry)
{
if (ld_emulation->recognized_file)
return (*ld_emulation->recognized_file) (entry);
return FALSE;
}
char *
ldemul_choose_target (int argc, char **argv)
{
return ld_emulation->choose_target (argc, argv);
}
char *
ldemul_default_target (int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED)
{
char *from_outside = getenv (TARGET_ENVIRON);
if (from_outside != (char *) NULL)
return from_outside;
return ld_emulation->target_name;
}
void
after_parse_default (void)
{
}
void
after_open_default (void)
{
}
void
after_allocation_default (void)
{
}
void
before_allocation_default (void)
{
}
void
set_output_arch_default (void)
{
bfd_set_arch_mach (output_bfd,
ldfile_output_architecture, ldfile_output_machine);
}
void
syslib_default (char *ignore ATTRIBUTE_UNUSED)
{
info_msg (_("%S SYSLIB ignored\n"));
}
void
hll_default (char *ignore ATTRIBUTE_UNUSED)
{
info_msg (_("%S HLL ignored\n"));
}
ld_emulation_xfer_type *ld_emulations[] = { EMULATION_LIST };
void
ldemul_choose_mode (char *target)
{
ld_emulation_xfer_type **eptr = ld_emulations;
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");
}
void
ldemul_list_emulations (FILE *f)
{
ld_emulation_xfer_type **eptr = ld_emulations;
bfd_boolean first = TRUE;
for (; *eptr; eptr++)
{
if (first)
first = FALSE;
else
fprintf (f, " ");
fprintf (f, "%s", (*eptr)->emulation_name);
}
}
void
ldemul_list_emulation_options (FILE *f)
{
ld_emulation_xfer_type **eptr;
int options_found = 0;
for (eptr = ld_emulations; *eptr; eptr++)
{
ld_emulation_xfer_type *emul = *eptr;
if (emul->list_options)
{
fprintf (f, "%s: \n", emul->emulation_name);
emul->list_options (f);
options_found = 1;
}
}
if (! options_found)
fprintf (f, _(" no emulation specific options.\n"));
}
int
ldemul_find_potential_libraries (char *name, lang_input_statement_type *entry)
{
if (ld_emulation->find_potential_libraries)
return ld_emulation->find_potential_libraries (name, entry);
return 0;
}
struct bfd_elf_version_expr *
ldemul_new_vers_pattern (struct bfd_elf_version_expr *entry)
{
if (ld_emulation->new_vers_pattern)
entry = (*ld_emulation->new_vers_pattern) (entry);
return entry;
}