Commit | Line | Data |
---|---|---|
a6152e39 DM |
1 | # This shell script emits a C file. -*- C -*- |
2 | # It does some substitutions. | |
3 | cat >em_${EMULATION_NAME}.c <<EOF | |
4 | /* intel coff loader emulation specific stuff | |
5 | Copyright (C) 1991 Free Software Foundation, Inc. | |
6 | Written by Steve Chamberlain steve@cygnus.com | |
7 | ||
8 | This file is part of GLD, the Gnu Linker. | |
9 | ||
10 | GLD is free software; you can redistribute it and/or modify | |
11 | it under the terms of the GNU General Public License as published by | |
12 | the Free Software Foundation; either version 2, or (at your option) | |
13 | any later version. | |
14 | ||
15 | GLD is distributed in the hope that it will be useful, | |
16 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | GNU General Public License for more details. | |
19 | ||
20 | You should have received a copy of the GNU General Public License | |
21 | along with GLD; see the file COPYING. If not, write to | |
22 | the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
23 | ||
24 | #include "bfd.h" | |
25 | #include "sysdep.h" | |
26 | ||
27 | /*#include "archures.h"*/ | |
28 | #include "ld.h" | |
29 | #include "config.h" | |
30 | #include "ldemul.h" | |
31 | #include "ldmisc.h" | |
32 | #include "ldlang.h" | |
33 | #include "ldfile.h" | |
34 | ||
35 | extern boolean lang_float_flag; | |
36 | extern bfd *output_bfd; | |
37 | ||
38 | ||
39 | ||
40 | extern enum bfd_architecture ldfile_output_architecture; | |
41 | extern unsigned long ldfile_output_machine; | |
42 | extern char *ldfile_output_machine_name; | |
43 | ||
44 | ||
45 | typedef struct lib_list { | |
46 | char *name; | |
47 | struct lib_list *next; | |
48 | } lib_list_type; | |
49 | ||
50 | static lib_list_type *hll_list; | |
51 | static lib_list_type **hll_list_tail = &hll_list; | |
52 | ||
53 | static lib_list_type *syslib_list; | |
54 | static lib_list_type **syslib_list_tail = &syslib_list; | |
55 | ||
56 | ||
57 | static void | |
58 | append(list, name) | |
59 | lib_list_type ***list; | |
60 | char *name; | |
61 | { | |
62 | lib_list_type *element = | |
63 | (lib_list_type *)(ldmalloc(sizeof(lib_list_type))); | |
64 | ||
65 | element->name = name; | |
66 | element->next = (lib_list_type *)NULL; | |
67 | **list = element; | |
68 | *list = &element->next; | |
69 | ||
70 | } | |
71 | ||
72 | static boolean had_hll = false; | |
73 | static boolean had_hll_name = false; | |
74 | static void | |
75 | lnk960_hll(name) | |
76 | char *name; | |
77 | { | |
78 | had_hll = true; | |
79 | if (name != (char *)NULL) { | |
80 | had_hll_name = true; | |
81 | append(&hll_list_tail, name); | |
82 | } | |
83 | } | |
84 | ||
85 | static void | |
86 | lnk960_syslib(name) | |
87 | char *name; | |
88 | { | |
89 | append(&syslib_list_tail,name); | |
90 | } | |
91 | ||
92 | ||
93 | ||
94 | #ifdef GNU960 | |
95 | ||
96 | static void | |
97 | lnk960_before_parse() | |
98 | { | |
99 | static char *env_variables[] = { "G960LIB", "G960BASE", 0 }; | |
100 | char **p; | |
101 | char *env ; | |
102 | ||
103 | for ( p = env_variables; *p; p++ ){ | |
104 | env = (char *) getenv(*p); | |
105 | if (env) { | |
106 | ldfile_add_library_path(concat(env,"/lib/libcoff","")); | |
107 | } | |
108 | } | |
109 | ||
110 | env= (char *) getenv("I960BASE"); | |
111 | if ( env ) { | |
112 | ldfile_add_library_path(concat(env,"/lib","")); | |
113 | } | |
114 | ||
115 | ldfile_output_architecture = bfd_arch_i960; | |
116 | ldfile_output_machine = bfd_mach_i960_core; | |
117 | } | |
118 | ||
119 | #else /* not GNU960 */ | |
120 | ||
121 | static void | |
122 | lnk960_before_parse() | |
123 | { | |
124 | char *name = getenv("I960BASE"); | |
125 | ||
126 | if (name == (char *)NULL) { | |
127 | name = getenv("G960BASE"); | |
128 | if (name == (char *)NULL) { | |
129 | einfo("%P%F I960BASE and G960BASE not set\n"); | |
130 | } | |
131 | } | |
132 | ||
133 | ||
134 | ldfile_add_library_path(concat(name,"/lib","")); | |
135 | ldfile_output_architecture = bfd_arch_i960; | |
136 | ldfile_output_machine = bfd_mach_i960_core; | |
137 | } | |
138 | ||
139 | #endif /* GNU960 */ | |
140 | ||
141 | ||
142 | static void | |
143 | add_on(list, search) | |
144 | lib_list_type *list; | |
145 | lang_input_file_enum_type search; | |
146 | { | |
147 | while (list) { | |
148 | lang_add_input_file(list->name, | |
149 | search, | |
150 | (char *)NULL); | |
151 | list = list->next; | |
152 | } | |
153 | } | |
154 | static void lnk960_after_parse() | |
155 | { | |
156 | ||
157 | /* If there has been no arch, default to -KB */ | |
158 | if (ldfile_output_machine_name[0] ==0) { | |
159 | ldfile_add_arch("KB"); | |
160 | } | |
161 | ||
162 | /* if there has been no hll list then add our own */ | |
163 | ||
164 | if(had_hll && !had_hll_name) { | |
165 | append(&hll_list_tail,"cg"); | |
166 | if (ldfile_output_machine == bfd_mach_i960_ka_sa || | |
167 | ldfile_output_machine == bfd_mach_i960_ca) { | |
168 | { | |
169 | append(&hll_list_tail,"fpg"); | |
170 | } | |
171 | } | |
172 | } | |
173 | ||
174 | add_on(hll_list, lang_input_file_is_l_enum); | |
175 | add_on(syslib_list, lang_input_file_is_search_file_enum); | |
176 | } | |
177 | ||
178 | static void | |
179 | lnk960_before_allocation() | |
180 | { | |
181 | } | |
182 | static void | |
183 | lnk960_after_allocation() | |
184 | { | |
185 | extern ld_config_type config; | |
186 | if (config.relocateable_output == false) { | |
187 | lang_abs_symbol_at_end_of(".text","_etext"); | |
188 | lang_abs_symbol_at_end_of(".data","_edata"); | |
189 | lang_abs_symbol_at_beginning_of(".bss","_bss_start"); | |
190 | lang_abs_symbol_at_end_of(".bss","_end"); | |
191 | } | |
192 | } | |
193 | ||
194 | ||
195 | static struct | |
196 | { | |
197 | unsigned long number; | |
198 | char *name; | |
199 | } | |
200 | machine_table[] = { | |
201 | bfd_mach_i960_core ,"CORE", | |
202 | bfd_mach_i960_kb_sb ,"KB", | |
203 | bfd_mach_i960_kb_sb ,"SB", | |
204 | bfd_mach_i960_mc ,"MC", | |
205 | bfd_mach_i960_xa ,"XA", | |
206 | bfd_mach_i960_ca ,"CA", | |
207 | bfd_mach_i960_ka_sa ,"KA", | |
208 | bfd_mach_i960_ka_sa ,"SA", | |
209 | ||
210 | bfd_mach_i960_core ,"core", | |
211 | bfd_mach_i960_kb_sb ,"kb", | |
212 | bfd_mach_i960_kb_sb ,"sb", | |
213 | bfd_mach_i960_mc ,"mc", | |
214 | bfd_mach_i960_xa ,"xa", | |
215 | bfd_mach_i960_ca ,"ca", | |
216 | bfd_mach_i960_ka_sa ,"ka", | |
217 | bfd_mach_i960_ka_sa ,"sa", | |
218 | 0,(char *)NULL | |
219 | }; | |
220 | ||
221 | static void | |
222 | lnk960_set_output_arch() | |
223 | { | |
224 | /* Set the output architecture and machine if possible */ | |
225 | unsigned int i; | |
226 | ldfile_output_machine = bfd_mach_i960_core; | |
227 | for (i= 0; machine_table[i].name != (char*)NULL; i++) { | |
228 | if (strcmp(ldfile_output_machine_name,machine_table[i].name)==0) { | |
229 | ldfile_output_machine = machine_table[i].number; | |
230 | break; | |
231 | } | |
232 | } | |
233 | bfd_set_arch_mach(output_bfd, ldfile_output_architecture, ldfile_output_machine); | |
234 | } | |
235 | ||
236 | static char * | |
237 | lnk960_choose_target() | |
238 | { | |
239 | #ifdef GNU960 | |
240 | ||
241 | return bfd_make_targ_name(BFD_COFF_FORMAT, 0); | |
242 | ||
243 | #else | |
244 | ||
245 | char *from_outside = getenv(TARGET_ENVIRON); | |
246 | if (from_outside != (char *)NULL) | |
247 | return from_outside; | |
248 | #ifdef LNK960_LITTLE | |
249 | return "coff-Intel-little"; | |
250 | #else | |
251 | return "coff-Intel-big"; | |
252 | #endif | |
253 | #endif | |
254 | ||
255 | } | |
256 | ||
257 | static char * | |
258 | lnk960_get_script(isfile) | |
259 | int *isfile; | |
260 | EOF | |
261 | ||
262 | if test "$DEFAULT_EMULATION" = "$EMULATION_NAME" | |
263 | then | |
264 | # Scripts compiled in. | |
265 | ||
266 | # sed commands to quote an ld script as a C string. | |
267 | sc='s/["\\]/\\&/g | |
268 | s/$/\\n\\/ | |
269 | 1s/^/"{/ | |
270 | $s/$/n}"/ | |
271 | ' | |
272 | ||
273 | cat >>em_${EMULATION_NAME}.c <<EOF | |
274 | extern ld_config_type config; | |
275 | ||
276 | *isfile = 0; | |
277 | ||
278 | if (config.relocateable_output == true && config.build_constructors == true) | |
279 | return `sed "$sc" ldscripts/${EMULATION_NAME}.xu`; | |
280 | else if (config.relocateable_output == true) | |
281 | return `sed "$sc" ldscripts/${EMULATION_NAME}.xr`; | |
282 | else if (!config.text_read_only) | |
283 | return `sed "$sc" ldscripts/${EMULATION_NAME}.xbn`; | |
284 | else if (!config.magic_demand_paged) | |
285 | return `sed "$sc" ldscripts/${EMULATION_NAME}.xn`; | |
286 | else | |
287 | return `sed "$sc" ldscripts/${EMULATION_NAME}.x`; | |
288 | } | |
289 | EOF | |
290 | ||
291 | else | |
292 | # Scripts read from the filesystem. | |
293 | ||
294 | cat >>em_${EMULATION_NAME}.c <<EOF | |
295 | { | |
296 | extern ld_config_type config; | |
297 | ||
298 | *isfile = 1; | |
299 | ||
300 | if (config.relocateable_output == true && config.build_constructors == true) | |
301 | return "ldscripts/${EMULATION_NAME}.xu"; | |
302 | else if (config.relocateable_output == true) | |
303 | return "ldscripts/${EMULATION_NAME}.xr"; | |
304 | else if (!config.text_read_only) | |
305 | return "ldscripts/${EMULATION_NAME}.xbn"; | |
306 | else if (!config.magic_demand_paged) | |
307 | return "ldscripts/${EMULATION_NAME}.xn"; | |
308 | else | |
309 | return "ldscripts/${EMULATION_NAME}.x"; | |
310 | } | |
311 | EOF | |
312 | ||
313 | fi | |
314 | ||
315 | cat >>em_${EMULATION_NAME}.c <<EOF | |
316 | ||
317 | struct ld_emulation_xfer_struct ld_lnk960_emulation = | |
318 | { | |
319 | lnk960_before_parse, | |
320 | lnk960_syslib, | |
321 | lnk960_hll, | |
322 | lnk960_after_parse, | |
323 | lnk960_after_allocation, | |
324 | lnk960_set_output_arch, | |
325 | lnk960_choose_target, | |
326 | lnk960_before_allocation, | |
327 | lnk960_get_script, | |
328 | "lnk960", | |
329 | "" | |
330 | }; | |
331 | EOF |