1 /* Copyright (C) 1991 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. */
25 * Written by Steve Chamberlain steve@cygnus.com
39 extern boolean lang_float_flag;
42 extern enum bfd_architecture ldfile_output_architecture;
43 extern unsigned long ldfile_output_machine;
44 extern char *ldfile_output_machine_name;
46 extern bfd *output_bfd;
50 static void gldm88kbcs_before_parse()
57 gldm88kbcs_after_parse()
63 gldm88kbcs_after_allocation()
69 gldm88kbcs_before_allocation()
76 gldm88kbcs_set_output_arch()
78 /* Set the output architecture and machine if possible */
79 bfd_set_arch_mach(output_bfd, ldfile_output_architecture, ldfile_output_machine);
83 gldm88kbcs_choose_target()
85 char *from_outside = getenv(TARGET_ENVIRON);
86 if (from_outside != (char *)NULL)
88 return GLDM88KBCS_TARGET;
94 info("%S SYSLIB ignored\n");
98 gldm88kbcs_hll(ignore)
101 info("%S HLL ignored\n");
104 static char *gldm88kbcs_script =
105 #include "ld-gldm88kbcs.x"
108 static char *gldm88kbcs_script_option_Ur =
109 #include "ld-gldm88kbcs-Ur.x"
112 static char *gldm88kbcs_script_option_r =
113 #include "ld-gldm88kbcs-r.x"
116 static char *gldm88kbcs_get_script()
118 extern ld_config_type config;
119 if (config.relocateable_output == true &&
120 config.build_constructors == true) {
121 return gldm88kbcs_script_option_Ur;
123 if (config.relocateable_output) {
124 return gldm88kbcs_script_option_r;
127 return gldm88kbcs_script;
129 struct ld_emulation_xfer_struct ld_gldm88kbcs_emulation =
131 gldm88kbcs_before_parse,
134 gldm88kbcs_after_parse,
135 gldm88kbcs_after_allocation,
136 gldm88kbcs_set_output_arch,
137 gldm88kbcs_choose_target,
138 gldm88kbcs_before_allocation,
139 gldm88kbcs_get_script,