1 /* ldemul.c -- clearing house for ld emulation states
2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2002
3 Free Software Foundation, Inc.
5 This file is part of GLD, the Gnu Linker.
7 GLD is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GLD is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GLD; see the file COPYING. If not, write to the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
32 #include "ldemul-list.h"
34 ld_emulation_xfer_type
*ld_emulation
;
40 ld_emulation
->hll (name
);
47 ld_emulation
->syslib (name
);
53 ld_emulation
->after_parse ();
57 ldemul_before_parse ()
59 ld_emulation
->before_parse ();
65 ld_emulation
->after_open ();
69 ldemul_after_allocation ()
71 ld_emulation
->after_allocation ();
75 ldemul_before_allocation ()
77 if (ld_emulation
->before_allocation
)
78 ld_emulation
->before_allocation ();
82 ldemul_set_output_arch ()
84 ld_emulation
->set_output_arch ();
90 if (ld_emulation
->finish
)
91 ld_emulation
->finish ();
97 if (ld_emulation
->set_symbols
)
98 ld_emulation
->set_symbols ();
102 ldemul_create_output_section_statements ()
104 if (ld_emulation
->create_output_section_statements
)
105 ld_emulation
->create_output_section_statements ();
109 ldemul_get_script (isfile
)
112 return ld_emulation
->get_script (isfile
);
116 ldemul_open_dynamic_archive (arch
, search
, entry
)
118 search_dirs_type
*search
;
119 lang_input_statement_type
*entry
;
121 if (ld_emulation
->open_dynamic_archive
)
122 return (*ld_emulation
->open_dynamic_archive
) (arch
, search
, entry
);
127 ldemul_place_orphan (file
, s
)
128 lang_input_statement_type
*file
;
131 if (ld_emulation
->place_orphan
)
132 return (*ld_emulation
->place_orphan
) (file
, s
);
137 ldemul_add_options (ns
, shortopts
, nl
, longopts
, nrl
, really_longopts
)
141 struct option
**longopts
;
143 struct option
**really_longopts
;
145 if (ld_emulation
->add_options
)
146 (*ld_emulation
->add_options
) (ns
, shortopts
, nl
, longopts
,
147 nrl
, really_longopts
);
151 ldemul_handle_option (optc
)
154 if (ld_emulation
->handle_option
)
155 return (*ld_emulation
->handle_option
) (optc
);
160 ldemul_parse_args (argc
, argv
)
164 /* Try and use the emulation parser if there is one. */
165 if (ld_emulation
->parse_args
)
166 return (*ld_emulation
->parse_args
) (argc
, argv
);
170 /* Let the emulation code handle an unrecognized file. */
173 ldemul_unrecognized_file (entry
)
174 lang_input_statement_type
*entry
;
176 if (ld_emulation
->unrecognized_file
)
177 return (*ld_emulation
->unrecognized_file
) (entry
);
181 /* Let the emulation code handle a recognized file. */
184 ldemul_recognized_file (entry
)
185 lang_input_statement_type
*entry
;
187 if (ld_emulation
->recognized_file
)
188 return (*ld_emulation
->recognized_file
) (entry
);
193 ldemul_choose_target (argc
, argv
)
197 return ld_emulation
->choose_target (argc
, argv
);
201 /* The default choose_target function. */
204 ldemul_default_target (argc
, argv
)
205 int argc ATTRIBUTE_UNUSED
;
206 char **argv ATTRIBUTE_UNUSED
;
208 char *from_outside
= getenv (TARGET_ENVIRON
);
209 if (from_outside
!= (char *) NULL
)
211 return ld_emulation
->target_name
;
215 after_parse_default ()
220 after_open_default ()
225 after_allocation_default ()
230 before_allocation_default ()
235 set_output_arch_default ()
237 /* Set the output architecture and machine if possible. */
238 bfd_set_arch_mach (output_bfd
,
239 ldfile_output_architecture
, ldfile_output_machine
);
243 syslib_default (ignore
)
244 char *ignore ATTRIBUTE_UNUSED
;
246 info_msg (_("%S SYSLIB ignored\n"));
251 char *ignore ATTRIBUTE_UNUSED
;
253 info_msg (_("%S HLL ignored\n"));
256 ld_emulation_xfer_type
*ld_emulations
[] = { EMULATION_LIST
};
259 ldemul_choose_mode (target
)
262 ld_emulation_xfer_type
**eptr
= ld_emulations
;
263 /* Ignore "gld" prefix. */
264 if (target
[0] == 'g' && target
[1] == 'l' && target
[2] == 'd')
266 for (; *eptr
; eptr
++)
268 if (strcmp (target
, (*eptr
)->emulation_name
) == 0)
270 ld_emulation
= *eptr
;
274 einfo (_("%P: unrecognised emulation mode: %s\n"), target
);
275 einfo (_("Supported emulations: "));
276 ldemul_list_emulations (stderr
);
281 ldemul_list_emulations (f
)
284 ld_emulation_xfer_type
**eptr
= ld_emulations
;
285 bfd_boolean first
= TRUE
;
287 for (; *eptr
; eptr
++)
293 fprintf (f
, "%s", (*eptr
)->emulation_name
);
298 ldemul_list_emulation_options (f
)
301 ld_emulation_xfer_type
**eptr
;
302 int options_found
= 0;
304 for (eptr
= ld_emulations
; *eptr
; eptr
++)
306 ld_emulation_xfer_type
*emul
= *eptr
;
308 if (emul
->list_options
)
310 fprintf (f
, "%s: \n", emul
->emulation_name
);
312 emul
->list_options (f
);
319 fprintf (f
, _(" no emulation specific options.\n"));
323 ldemul_find_potential_libraries (name
, entry
)
325 lang_input_statement_type
*entry
;
327 if (ld_emulation
->find_potential_libraries
)
328 return ld_emulation
->find_potential_libraries (name
, entry
);
333 struct bfd_elf_version_expr
*
334 ldemul_new_vers_pattern (entry
)
335 struct bfd_elf_version_expr
*entry
;
337 if (ld_emulation
->new_vers_pattern
)
338 entry
= (*ld_emulation
->new_vers_pattern
) (entry
);