Commit | Line | Data |
---|---|---|
5cd3dcff KR |
1 | #define BYTES_IN_WORD 4 |
2 | #define ARCH 32 | |
3 | /* #define ENTRY_CAN_BE_ZERO */ | |
4 | #define N_HEADER_IN_TEXT(x) 1 | |
5 | #define N_SHARED_LIB(x) 0 | |
6 | #define N_TXTADDR(x) \ | |
7 | (N_MAGIC(x) != ZMAGIC ? (x).a_entry : /* object file or NMAGIC */\ | |
8 | TEXT_START_ADDR + EXEC_BYTES_SIZE /* no padding */\ | |
9 | ) | |
10 | #define N_DATADDR(x) (N_TXTADDR(x)+N_TXTSIZE(x)) | |
11 | #define TEXT_START_ADDR 4096 | |
12 | #define PAGE_SIZE 4096 | |
13 | #define SEGMENT_SIZE PAGE_SIZE | |
14 | #define DEFAULT_ARCH bfd_arch_mips | |
15 | #define MY_symbol_leading_char '\0' | |
16 | ||
17 | #define MY(OP) CAT(mipsbsd_,OP) | |
18 | ||
19 | #include "bfd.h" | |
20 | #include "sysdep.h" | |
21 | #include "libbfd.h" | |
22 | #include "libaout.h" | |
23 | ||
24 | #define SET_ARCH_MACH(ABFD, EXEC) \ | |
25 | MY(set_arch_mach)(ABFD, N_MACHTYPE (EXEC)); \ | |
26 | MY(choose_reloc_size)(ABFD); | |
27 | void DEFUN(MY(set_arch_mach), (abfd, machtype), | |
28 | bfd *abfd AND int machtype); | |
29 | static void DEFUN(MY(choose_reloc_size),(abfd),bfd *abfd); | |
30 | ||
31 | #define MY_write_object_contents MY(write_object_contents) | |
32 | static boolean DEFUN(MY(write_object_contents), (abfd), bfd *abfd); | |
33 | ||
34 | #define MY_reloc_howto_type_lookup MY(reloc_howto_type_lookup) | |
35 | #define MY_canonicalize_reloc MY(canonicalize_reloc) | |
36 | ||
37 | #define MY_backend_data &MY(backend_data) | |
38 | #define MY_BFD_TARGET | |
39 | ||
40 | #include "aout-target.h" | |
41 | ||
42 | /* | |
43 | * These really should be common to all BSD systems. | |
44 | * Also, to reduce space, should ifdef the individual cases if MINIMIZE=1. | |
45 | */ | |
46 | void | |
47 | DEFUN(MY(set_arch_mach), (abfd, machtype), | |
48 | bfd *abfd AND int machtype) | |
49 | { | |
50 | enum bfd_architecture arch; | |
51 | long machine; | |
52 | ||
53 | /* Determine the architecture and machine type of the object file. */ | |
54 | switch (machtype) { | |
55 | ||
56 | case M_68010: | |
57 | case M_HP200: | |
58 | arch = bfd_arch_m68k; | |
59 | machine = 68010; | |
60 | break; | |
61 | ||
62 | case M_68020: | |
63 | case M_HP300: | |
64 | arch = bfd_arch_m68k; | |
65 | machine = 68020; | |
66 | break; | |
67 | ||
68 | case M_SPARC: | |
69 | arch = bfd_arch_sparc; | |
70 | machine = 0; | |
71 | break; | |
72 | ||
73 | case M_386: | |
74 | arch = bfd_arch_i386; | |
75 | machine = 0; | |
76 | break; | |
77 | ||
78 | case M_29K: | |
79 | arch = bfd_arch_a29k; | |
80 | machine = 0; | |
81 | break; | |
82 | ||
83 | case M_HPUX: | |
84 | arch = bfd_arch_m68k; | |
85 | machine = 0; | |
86 | break; | |
87 | ||
88 | case M_MIPS1: | |
89 | arch = bfd_arch_mips; | |
90 | machine = 3000; | |
91 | break; | |
92 | ||
93 | case M_MIPS2: | |
94 | arch = bfd_arch_mips; | |
95 | machine = 4000; | |
96 | break; | |
97 | ||
98 | default: | |
99 | arch = bfd_arch_obscure; | |
100 | machine = 0; | |
101 | break; | |
102 | } | |
103 | bfd_set_arch_mach(abfd, arch, machine); | |
104 | } | |
105 | ||
106 | /* Determine the size of a relocation entry, based on the architecture */ | |
107 | static void | |
108 | DEFUN(MY(choose_reloc_size),(abfd), | |
109 | bfd *abfd) | |
110 | { | |
111 | switch (bfd_get_arch(abfd)) { | |
112 | case bfd_arch_sparc: | |
113 | case bfd_arch_a29k: | |
114 | case bfd_arch_mips: | |
115 | obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; | |
116 | break; | |
117 | default: | |
118 | obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; | |
119 | break; | |
120 | } | |
121 | } | |
122 | ||
123 | /* Write an object file in BSD a.out format. | |
124 | Section contents have already been written. We write the | |
125 | file header, symbols, and relocation. */ | |
126 | ||
127 | static boolean | |
128 | DEFUN(MY(write_object_contents), (abfd), | |
129 | bfd *abfd) | |
130 | { | |
131 | struct external_exec exec_bytes; | |
132 | struct internal_exec *execp = exec_hdr (abfd); | |
133 | ||
134 | /* Magic number, maestro, please! */ | |
135 | switch (bfd_get_arch(abfd)) { | |
136 | case bfd_arch_m68k: | |
137 | switch (bfd_get_mach(abfd)) { | |
138 | case 68010: | |
139 | N_SET_MACHTYPE(*execp, M_68010); | |
140 | break; | |
141 | default: | |
142 | case 68020: | |
143 | N_SET_MACHTYPE(*execp, M_68020); | |
144 | break; | |
145 | } | |
146 | break; | |
147 | case bfd_arch_sparc: | |
148 | N_SET_MACHTYPE(*execp, M_SPARC); | |
149 | break; | |
150 | case bfd_arch_i386: | |
151 | N_SET_MACHTYPE(*execp, M_386); | |
152 | break; | |
153 | case bfd_arch_a29k: | |
154 | N_SET_MACHTYPE(*execp, M_29K); | |
155 | break; | |
156 | case bfd_arch_mips: | |
157 | switch (bfd_get_mach(abfd)) { | |
158 | case 4000: | |
159 | case 6000: | |
160 | N_SET_MACHTYPE(*execp, M_MIPS2); | |
161 | break; | |
162 | default: | |
163 | N_SET_MACHTYPE(*execp, M_MIPS1); | |
164 | break; | |
165 | } | |
166 | break; | |
167 | default: | |
168 | N_SET_MACHTYPE(*execp, M_UNKNOWN); | |
169 | } | |
170 | ||
171 | MY(choose_reloc_size)(abfd); | |
172 | ||
173 | WRITE_HEADERS(abfd, execp); | |
174 | ||
175 | return true; | |
176 | } | |
177 | ||
178 | /* | |
179 | * MIPS relocation types. | |
180 | */ | |
181 | #define MIPS_RELOC_32 0 | |
182 | #define MIPS_RELOC_JMP 1 | |
183 | #define MIPS_RELOC_WDISP16 2 | |
184 | #define MIPS_RELOC_HI16 3 | |
185 | #define MIPS_RELOC_HI16_S 4 | |
186 | #define MIPS_RELOC_LO16 5 | |
187 | ||
188 | /* | |
189 | * This is only called when performing a BFD_RELOC_HI16_S relocation. | |
190 | * We need to see if bit 15 is set in the result. If it is, we add | |
191 | * 0x10000 and continue normally. This will compensate for the sign extension | |
192 | * when the low bits are added at run time. | |
193 | */ | |
194 | bfd_reloc_status_type | |
195 | DEFUN(mips_fix_hi16_s, (abfd,reloc_entry,symbol,data,input_section,output_bfd), | |
196 | bfd *abfd AND | |
197 | arelent *reloc_entry AND | |
198 | struct symbol_cache_entry *symbol AND | |
199 | PTR data AND | |
200 | asection *input_section AND | |
201 | bfd *output_bfd) | |
202 | { | |
203 | bfd_vma relocation; | |
204 | ||
205 | /* If this is a partial relocation, just continue. */ | |
206 | if (output_bfd != (bfd *)NULL) | |
207 | return bfd_reloc_continue; | |
208 | ||
209 | /* | |
210 | * Work out which section the relocation is targetted at and the | |
211 | * initial relocation command value. | |
212 | */ | |
213 | if (symbol->section == &bfd_com_section) | |
214 | relocation = 0; | |
215 | else | |
216 | relocation = symbol->value; | |
217 | ||
218 | relocation += symbol->section->output_section->vma; | |
219 | relocation += symbol->section->output_offset; | |
220 | relocation += reloc_entry->addend; | |
221 | ||
222 | if (relocation & 0x8000) | |
223 | reloc_entry->addend += 0x10000; | |
224 | ||
225 | return bfd_reloc_continue; | |
226 | } | |
227 | ||
228 | static reloc_howto_type mips_howto_table_ext[] = { | |
229 | MIPS_RELOC_32, 0, 2, 32, false, 0, true, true, 0, | |
230 | "32", false, 0, 0xffffffff, false, | |
231 | MIPS_RELOC_JMP, 2, 2, 26, false, 0, false, true, 0, | |
232 | "MIPS_JMP", false, 0, 0x03ffffff, false, | |
233 | MIPS_RELOC_WDISP16, 2, 1, 16, true, 0, false, true, 0, | |
234 | "WDISP16", false, 0, 0x0000ffff, false, | |
235 | MIPS_RELOC_HI16, 16, 1, 16, false, 0, false, true, 0, | |
236 | "HI16", false, 0, 0x0000ffff, false, | |
237 | MIPS_RELOC_HI16_S, 16, 1, 16, false, 0, false, true, mips_fix_hi16_s, | |
238 | "HI16_S", false, 0, 0x0000ffff, false, | |
239 | MIPS_RELOC_LO16, 0, 1, 16, false, 0, false, true, 0, | |
240 | "LO16", false, 0, 0x0000ffff, false, | |
241 | }; | |
242 | ||
243 | static reloc_howto_type * | |
244 | MY(reloc_howto_type_lookup) (abfd, code) | |
245 | bfd *abfd; | |
246 | bfd_reloc_code_real_type code; | |
247 | { | |
248 | extern reloc_howto_type NAME(aout,ext_howto_table)[]; | |
249 | ||
250 | switch (bfd_get_arch (abfd)) | |
251 | { | |
252 | case bfd_arch_sparc: | |
253 | switch (code) | |
254 | { | |
255 | default: | |
256 | return 0; | |
257 | #define IDX(i,j) case i: return &NAME(aout,ext_howto_table)[j] | |
258 | IDX (BFD_RELOC_CTOR, 2); | |
259 | IDX (BFD_RELOC_32, 2); | |
260 | IDX (BFD_RELOC_HI22, 8); | |
261 | IDX (BFD_RELOC_LO10, 11); | |
262 | IDX (BFD_RELOC_32_PCREL_S2, 6); | |
263 | } | |
264 | case bfd_arch_mips: | |
265 | switch (code) | |
266 | { | |
267 | case BFD_RELOC_32: | |
268 | return (&mips_howto_table_ext[MIPS_RELOC_32]); | |
269 | case BFD_RELOC_MIPS_JMP: | |
270 | return (&mips_howto_table_ext[MIPS_RELOC_JMP]); | |
271 | case BFD_RELOC_16_PCREL_S2: | |
272 | return (&mips_howto_table_ext[MIPS_RELOC_WDISP16]); | |
273 | case BFD_RELOC_HI16: | |
274 | return (&mips_howto_table_ext[MIPS_RELOC_HI16]); | |
275 | case BFD_RELOC_HI16_S: | |
276 | return (&mips_howto_table_ext[MIPS_RELOC_HI16_S]); | |
277 | case BFD_RELOC_LO16: | |
278 | return (&mips_howto_table_ext[MIPS_RELOC_LO16]); | |
279 | default: | |
280 | return 0; | |
281 | } | |
282 | default: | |
283 | return 0; | |
284 | } | |
285 | } | |
286 | ||
287 | /* | |
288 | * This is just like the standard aoutx.h version but we need to do our | |
289 | * own mapping of external reloc type values to howto entries. | |
290 | */ | |
291 | unsigned int | |
292 | MY(canonicalize_reloc)(abfd, section, relptr, symbols) | |
293 | bfd *abfd; | |
294 | sec_ptr section; | |
295 | arelent **relptr; | |
296 | asymbol **symbols; | |
297 | { | |
298 | arelent *tblptr = section->relocation; | |
299 | unsigned int count, c; | |
300 | extern reloc_howto_type NAME(aout,ext_howto_table)[]; | |
301 | ||
302 | /* If we have already read in the relocation table, return the values. */ | |
303 | if (section->flags & SEC_CONSTRUCTOR) { | |
304 | arelent_chain *chain = section->constructor_chain; | |
305 | ||
306 | for (count = 0; count < section->reloc_count; count++) { | |
307 | *relptr++ = &chain->relent; | |
308 | chain = chain->next; | |
309 | } | |
310 | *relptr = 0; | |
311 | return section->reloc_count; | |
312 | } | |
313 | if (tblptr && section->reloc_count) { | |
314 | for (count = 0; count++ < section->reloc_count;) | |
315 | *relptr++ = tblptr++; | |
316 | *relptr = 0; | |
317 | return section->reloc_count; | |
318 | } | |
319 | ||
320 | if (!NAME(aout,slurp_reloc_table)(abfd, section, symbols)) | |
321 | return 0; | |
322 | tblptr = section->relocation; | |
323 | if (!tblptr) | |
324 | return 0; | |
325 | ||
326 | /* fix up howto entries */ | |
327 | for (count = 0; count++ < section->reloc_count;) | |
328 | { | |
329 | c = tblptr->howto - NAME(aout,ext_howto_table); | |
330 | tblptr->howto = &mips_howto_table_ext[c]; | |
331 | ||
332 | *relptr++ = tblptr++; | |
333 | } | |
334 | *relptr = 0; | |
335 | return section->reloc_count; | |
336 | } | |
337 | ||
338 | static CONST struct aout_backend_data MY(backend_data) = { | |
339 | 0, /* zmagic contiguous */ | |
340 | 1, /* text incl header */ | |
341 | PAGE_SIZE, /* text vma */ | |
342 | MY_set_sizes, | |
343 | 0, /* text size includes exec header */ | |
344 | }; | |
345 | ||
346 | bfd_target aout_mips_little_vec = | |
347 | { | |
348 | "aout-mips-little", /* name */ | |
349 | bfd_target_aout_flavour, | |
350 | false, /* target byte order (little) */ | |
351 | false, /* target headers byte order (little) */ | |
352 | (HAS_RELOC | EXEC_P | /* object flags */ | |
353 | HAS_LINENO | HAS_DEBUG | | |
354 | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), | |
355 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ | |
356 | MY_symbol_leading_char, | |
357 | ' ', /* ar_pad_char */ | |
358 | 15, /* ar_max_namelen */ | |
359 | 1, /* minimum alignment */ | |
360 | _do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* data */ | |
361 | _do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* hdrs */ | |
362 | {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ | |
363 | bfd_generic_archive_p, MY_core_file_p}, | |
364 | {bfd_false, MY_mkobject, /* bfd_set_format */ | |
365 | _bfd_generic_mkarchive, bfd_false}, | |
366 | {bfd_false, MY_write_object_contents, /* bfd_write_contents */ | |
367 | _bfd_write_archive_contents, bfd_false}, | |
368 | ||
369 | MY_core_file_failing_command, | |
370 | MY_core_file_failing_signal, | |
371 | MY_core_file_matches_executable_p, | |
372 | MY_slurp_armap, | |
373 | MY_slurp_extended_name_table, | |
374 | MY_truncate_arname, | |
375 | MY_write_armap, | |
376 | MY_close_and_cleanup, | |
377 | MY_set_section_contents, | |
378 | MY_get_section_contents, | |
379 | MY_new_section_hook, | |
380 | MY_get_symtab_upper_bound, | |
381 | MY_get_symtab, | |
382 | MY_get_reloc_upper_bound, | |
383 | MY_canonicalize_reloc, | |
384 | MY_make_empty_symbol, | |
385 | MY_print_symbol, | |
386 | MY_get_lineno, | |
387 | MY_set_arch_mach, | |
388 | MY_openr_next_archived_file, | |
389 | MY_find_nearest_line, | |
390 | MY_generic_stat_arch_elt, | |
391 | MY_sizeof_headers, | |
392 | MY_bfd_debug_info_start, | |
393 | MY_bfd_debug_info_end, | |
394 | MY_bfd_debug_info_accumulate, | |
395 | bfd_generic_get_relocated_section_contents, | |
396 | bfd_generic_relax_section, | |
397 | MY_reloc_howto_type_lookup, | |
398 | MY_make_debug_symbol, | |
399 | (PTR) MY_backend_data, | |
400 | }; | |
401 | ||
402 | bfd_target aout_mips_big_vec = | |
403 | { | |
404 | "aout-mips-big", /* name */ | |
405 | bfd_target_aout_flavour, | |
406 | true, /* target byte order (big) */ | |
407 | true, /* target headers byte order (big) */ | |
408 | (HAS_RELOC | EXEC_P | /* object flags */ | |
409 | HAS_LINENO | HAS_DEBUG | | |
410 | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), | |
411 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ | |
412 | MY_symbol_leading_char, | |
413 | ' ', /* ar_pad_char */ | |
414 | 15, /* ar_max_namelen */ | |
415 | 1, /* minimum alignment */ | |
416 | _do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */ | |
417 | _do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */ | |
418 | {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ | |
419 | bfd_generic_archive_p, MY_core_file_p}, | |
420 | {bfd_false, MY_mkobject, /* bfd_set_format */ | |
421 | _bfd_generic_mkarchive, bfd_false}, | |
422 | {bfd_false, MY_write_object_contents, /* bfd_write_contents */ | |
423 | _bfd_write_archive_contents, bfd_false}, | |
424 | ||
425 | MY_core_file_failing_command, | |
426 | MY_core_file_failing_signal, | |
427 | MY_core_file_matches_executable_p, | |
428 | MY_slurp_armap, | |
429 | MY_slurp_extended_name_table, | |
430 | MY_truncate_arname, | |
431 | MY_write_armap, | |
432 | MY_close_and_cleanup, | |
433 | MY_set_section_contents, | |
434 | MY_get_section_contents, | |
435 | MY_new_section_hook, | |
436 | MY_get_symtab_upper_bound, | |
437 | MY_get_symtab, | |
438 | MY_get_reloc_upper_bound, | |
439 | MY_canonicalize_reloc, | |
440 | MY_make_empty_symbol, | |
441 | MY_print_symbol, | |
442 | MY_get_lineno, | |
443 | MY_set_arch_mach, | |
444 | MY_openr_next_archived_file, | |
445 | MY_find_nearest_line, | |
446 | MY_generic_stat_arch_elt, | |
447 | MY_sizeof_headers, | |
448 | MY_bfd_debug_info_start, | |
449 | MY_bfd_debug_info_end, | |
450 | MY_bfd_debug_info_accumulate, | |
451 | bfd_generic_get_relocated_section_contents, | |
452 | bfd_generic_relax_section, | |
453 | MY_reloc_howto_type_lookup, | |
454 | MY_make_debug_symbol, | |
455 | (PTR) MY_backend_data, | |
456 | }; |