?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* emultempl/armelf.em (arm_elf_after_open): Move check for using a
[binutils.git] / bfd / mach-o.c
blobd3d3abc365b1e10c10b4afe7735e5bba4738c789
1 /* Mach-O support for BFD.
2 Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
3 Free Software Foundation, Inc.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program 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 3 of the License, or
10 (at your option) any later version.
11
12 This program 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.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22 #include "sysdep.h"
23 #include "mach-o.h"
24 #include "bfd.h"
25 #include "libbfd.h"
26 #include "libiberty.h"
27 #include <ctype.h>
28
29 #ifndef BFD_IO_FUNCS
30 #define BFD_IO_FUNCS 0
31 #endif
32
33 #define bfd_mach_o_mkarchive _bfd_noarchive_mkarchive
34 #define bfd_mach_o_read_ar_hdr _bfd_noarchive_read_ar_hdr
35 #define bfd_mach_o_slurp_armap _bfd_noarchive_slurp_armap
36 #define bfd_mach_o_slurp_extended_name_table _bfd_noarchive_slurp_extended_name_table
37 #define bfd_mach_o_construct_extended_name_table _bfd_noarchive_construct_extended_name_table
38 #define bfd_mach_o_truncate_arname _bfd_noarchive_truncate_arname
39 #define bfd_mach_o_write_armap _bfd_noarchive_write_armap
40 #define bfd_mach_o_get_elt_at_index _bfd_noarchive_get_elt_at_index
41 #define bfd_mach_o_generic_stat_arch_elt _bfd_noarchive_generic_stat_arch_elt
42 #define bfd_mach_o_update_armap_timestamp _bfd_noarchive_update_armap_timestamp
43 #define bfd_mach_o_close_and_cleanup _bfd_generic_close_and_cleanup
44 #define bfd_mach_o_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
45 #define bfd_mach_o_new_section_hook _bfd_generic_new_section_hook
46 #define bfd_mach_o_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
47 #define bfd_mach_o_bfd_is_local_label_name _bfd_nosymbols_bfd_is_local_label_name
48 #define bfd_mach_o_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
49 #define bfd_mach_o_bfd_is_local_label_name _bfd_nosymbols_bfd_is_local_label_name
50 #define bfd_mach_o_get_lineno _bfd_nosymbols_get_lineno
51 #define bfd_mach_o_find_nearest_line _bfd_nosymbols_find_nearest_line
52 #define bfd_mach_o_find_inliner_info _bfd_nosymbols_find_inliner_info
53 #define bfd_mach_o_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
54 #define bfd_mach_o_read_minisymbols _bfd_generic_read_minisymbols
55 #define bfd_mach_o_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
56 #define bfd_mach_o_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
57 #define bfd_mach_o_bfd_relax_section bfd_generic_relax_section
58 #define bfd_mach_o_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
59 #define bfd_mach_o_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
60 #define bfd_mach_o_bfd_link_add_symbols _bfd_generic_link_add_symbols
61 #define bfd_mach_o_bfd_link_just_syms _bfd_generic_link_just_syms
62 #define bfd_mach_o_bfd_final_link _bfd_generic_final_link
63 #define bfd_mach_o_bfd_link_split_section _bfd_generic_link_split_section
64 #define bfd_mach_o_set_arch_mach bfd_default_set_arch_mach
65 #define bfd_mach_o_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
66 #define bfd_mach_o_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
67 #define bfd_mach_o_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
68 #define bfd_mach_o_get_section_contents _bfd_generic_get_section_contents
69 #define bfd_mach_o_set_section_contents _bfd_generic_set_section_contents
70 #define bfd_mach_o_bfd_gc_sections bfd_generic_gc_sections
71 #define bfd_mach_o_bfd_merge_sections bfd_generic_merge_sections
72 #define bfd_mach_o_bfd_is_group_section bfd_generic_is_group_section
73 #define bfd_mach_o_bfd_discard_group bfd_generic_discard_group
74 #define bfd_mach_o_section_already_linked _bfd_generic_section_already_linked
75 #define bfd_mach_o_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
76 #define bfd_mach_o_core_file_matches_executable_p generic_core_file_matches_executable_p
77
78
79 /* The flags field of a section structure is separated into two parts a section
80 type and section attributes. The section types are mutually exclusive (it
81 can only have one type) but the section attributes are not (it may have more
82 than one attribute). */
83
84 #define SECTION_TYPE 0x000000ff /* 256 section types. */
85 #define SECTION_ATTRIBUTES 0xffffff00 /* 24 section attributes. */
86
87 /* Constants for the section attributes part of the flags field of a section
88 structure. */
89
90 #define SECTION_ATTRIBUTES_USR 0xff000000 /* User-settable attributes. */
91 #define S_ATTR_PURE_INSTRUCTIONS 0x80000000 /* Section contains only true machine instructions. */
92 #define SECTION_ATTRIBUTES_SYS 0x00ffff00 /* System setable attributes. */
93 #define S_ATTR_SOME_INSTRUCTIONS 0x00000400 /* Section contains some machine instructions. */
94 #define S_ATTR_EXT_RELOC 0x00000200 /* Section has external relocation entries. */
95 #define S_ATTR_LOC_RELOC 0x00000100 /* Section has local relocation entries. */
96
97 #define N_STAB 0xe0
98 #define N_TYPE 0x1e
99 #define N_EXT 0x01
100
101 #define N_UNDF 0x0
102 #define N_ABS 0x2
103 #define N_TEXT 0x4
104 #define N_DATA 0x6
105 #define N_BSS 0x8
106 #define N_SECT 0xe
107 #define N_INDR 0xa
108
109 static unsigned int
110 bfd_mach_o_version (bfd *abfd)
111 {
112 bfd_mach_o_data_struct *mdata = NULL;
113
114 BFD_ASSERT (bfd_mach_o_valid (abfd));
115 mdata = abfd->tdata.mach_o_data;
116
117 return mdata->header.version;
118 }
119
120 bfd_boolean
121 bfd_mach_o_valid (bfd *abfd)
122 {
123 if (abfd == NULL || abfd->xvec == NULL)
124 return 0;
125
126 if (! ((abfd->xvec == &mach_o_be_vec)
127 || (abfd->xvec == &mach_o_le_vec)
128 || (abfd->xvec == &mach_o_fat_vec)))
129 return 0;
130
131 if (abfd->tdata.mach_o_data == NULL)
132 return 0;
133 return 1;
134 }
135
136 /* Copy any private info we understand from the input symbol
137 to the output symbol. */
138
139 static bfd_boolean
140 bfd_mach_o_bfd_copy_private_symbol_data (bfd *ibfd ATTRIBUTE_UNUSED,
141 asymbol *isymbol ATTRIBUTE_UNUSED,
142 bfd *obfd ATTRIBUTE_UNUSED,
143 asymbol *osymbol ATTRIBUTE_UNUSED)
144 {
145 return TRUE;
146 }
147
148 /* Copy any private info we understand from the input section
149 to the output section. */
150
151 static bfd_boolean
152 bfd_mach_o_bfd_copy_private_section_data (bfd *ibfd ATTRIBUTE_UNUSED,
153 asection *isection ATTRIBUTE_UNUSED,
154 bfd *obfd ATTRIBUTE_UNUSED,
155 asection *osection ATTRIBUTE_UNUSED)
156 {
157 return TRUE;
158 }
159
160 /* Copy any private info we understand from the input bfd
161 to the output bfd. */
162
163 static bfd_boolean
164 bfd_mach_o_bfd_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
165 {
166 BFD_ASSERT (bfd_mach_o_valid (ibfd));
167 BFD_ASSERT (bfd_mach_o_valid (obfd));
168
169 obfd->tdata.mach_o_data = ibfd->tdata.mach_o_data;
170 obfd->tdata.mach_o_data->ibfd = ibfd;
171 return TRUE;
172 }
173
174 static long
175 bfd_mach_o_count_symbols (bfd *abfd)
176 {
177 bfd_mach_o_data_struct *mdata = NULL;
178 long nsyms = 0;
179 unsigned long i;
180
181 BFD_ASSERT (bfd_mach_o_valid (abfd));
182 mdata = abfd->tdata.mach_o_data;
183
184 for (i = 0; i < mdata->header.ncmds; i++)
185 if (mdata->commands[i].type == BFD_MACH_O_LC_SYMTAB)
186 {
187 bfd_mach_o_symtab_command *sym = &mdata->commands[i].command.symtab;
188 nsyms += sym->nsyms;
189 }
190
191 return nsyms;
192 }
193
194 static long
195 bfd_mach_o_get_symtab_upper_bound (bfd *abfd)
196 {
197 long nsyms = bfd_mach_o_count_symbols (abfd);
198
199 if (nsyms < 0)
200 return nsyms;
201
202 return ((nsyms + 1) * sizeof (asymbol *));
203 }
204
205 static long
206 bfd_mach_o_canonicalize_symtab (bfd *abfd, asymbol **alocation)
207 {
208 bfd_mach_o_data_struct *mdata = abfd->tdata.mach_o_data;
209 long nsyms = bfd_mach_o_count_symbols (abfd);
210 asymbol **csym = alocation;
211 unsigned long i, j;
212
213 if (nsyms < 0)
214 return nsyms;
215
216 for (i = 0; i < mdata->header.ncmds; i++)
217 {
218 if (mdata->commands[i].type == BFD_MACH_O_LC_SYMTAB)
219 {
220 bfd_mach_o_symtab_command *sym = &mdata->commands[i].command.symtab;
221
222 if (bfd_mach_o_scan_read_symtab_symbols (abfd, &mdata->commands[i].command.symtab) != 0)
223 {
224 fprintf (stderr, "bfd_mach_o_canonicalize_symtab: unable to load symbols for section %lu\n", i);
225 return 0;
226 }
227
228 BFD_ASSERT (sym->symbols != NULL);
229
230 for (j = 0; j < sym->nsyms; j++)
231 {
232 BFD_ASSERT (csym < (alocation + nsyms));
233 *csym++ = &sym->symbols[j];
234 }
235 }
236 }
237
238 *csym++ = NULL;
239
240 return nsyms;
241 }
242
243 static void
244 bfd_mach_o_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED,
245 asymbol *symbol,
246 symbol_info *ret)
247 {
248 bfd_symbol_info (symbol, ret);
249 }
250
251 static void
252 bfd_mach_o_print_symbol (bfd *abfd,
253 PTR afile,
254 asymbol *symbol,
255 bfd_print_symbol_type how)
256 {
257 FILE *file = (FILE *) afile;
258
259 switch (how)
260 {
261 case bfd_print_symbol_name:
262 fprintf (file, "%s", symbol->name);
263 break;
264 default:
265 bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
266 fprintf (file, " %-5s %s", symbol->section->name, symbol->name);
267 }
268 }
269
270 static void
271 bfd_mach_o_convert_architecture (bfd_mach_o_cpu_type mtype,
272 bfd_mach_o_cpu_subtype msubtype ATTRIBUTE_UNUSED,
273 enum bfd_architecture *type,
274 unsigned long *subtype)
275 {
276 *subtype = bfd_arch_unknown;
277
278 switch (mtype)
279 {
280 case BFD_MACH_O_CPU_TYPE_VAX: *type = bfd_arch_vax; break;
281 case BFD_MACH_O_CPU_TYPE_MC680x0: *type = bfd_arch_m68k; break;
282 case BFD_MACH_O_CPU_TYPE_I386:
283 *type = bfd_arch_i386;
284 *subtype = bfd_mach_i386_i386;
285 break;
286 case BFD_MACH_O_CPU_TYPE_X86_64:
287 *type = bfd_arch_i386;
288 *subtype = bfd_mach_x86_64;
289 break;
290 case BFD_MACH_O_CPU_TYPE_MIPS: *type = bfd_arch_mips; break;
291 case BFD_MACH_O_CPU_TYPE_MC98000: *type = bfd_arch_m98k; break;
292 case BFD_MACH_O_CPU_TYPE_HPPA: *type = bfd_arch_hppa; break;
293 case BFD_MACH_O_CPU_TYPE_ARM: *type = bfd_arch_arm; break;
294 case BFD_MACH_O_CPU_TYPE_MC88000: *type = bfd_arch_m88k; break;
295 case BFD_MACH_O_CPU_TYPE_SPARC:
296 *type = bfd_arch_sparc;
297 *subtype = bfd_mach_sparc;
298 break;
299 case BFD_MACH_O_CPU_TYPE_I860: *type = bfd_arch_i860; break;
300 case BFD_MACH_O_CPU_TYPE_ALPHA: *type = bfd_arch_alpha; break;
301 case BFD_MACH_O_CPU_TYPE_POWERPC:
302 *type = bfd_arch_powerpc;
303 *subtype = bfd_mach_ppc;
304 break;
305 case BFD_MACH_O_CPU_TYPE_POWERPC_64:
306 *type = bfd_arch_powerpc;
307 *subtype = bfd_mach_ppc64;
308 break;
309 default:
310 *type = bfd_arch_unknown;
311 break;
312 }
313 }
314
315 static int
316 bfd_mach_o_write_header (bfd *abfd, bfd_mach_o_header *header)
317 {
318 unsigned char buf[32];
319 unsigned int size;
320
321 size = (header->version == 2) ? 32 : 28;
322
323 bfd_h_put_32 (abfd, header->magic, buf + 0);
324 bfd_h_put_32 (abfd, header->cputype, buf + 4);
325 bfd_h_put_32 (abfd, header->cpusubtype, buf + 8);
326 bfd_h_put_32 (abfd, header->filetype, buf + 12);
327 bfd_h_put_32 (abfd, header->ncmds, buf + 16);
328 bfd_h_put_32 (abfd, header->sizeofcmds, buf + 20);
329 bfd_h_put_32 (abfd, header->flags, buf + 24);
330
331 if (header->version == 2)
332 bfd_h_put_32 (abfd, header->reserved, buf + 28);
333
334 bfd_seek (abfd, 0, SEEK_SET);
335 if (bfd_bwrite ((PTR) buf, size, abfd) != size)
336 return -1;
337
338 return 0;
339 }
340
341 static int
342 bfd_mach_o_scan_write_thread (bfd *abfd, bfd_mach_o_load_command *command)
343 {
344 bfd_mach_o_thread_command *cmd = &command->command.thread;
345 unsigned int i;
346 unsigned char buf[8];
347 bfd_vma offset;
348 unsigned int nflavours;
349
350 BFD_ASSERT ((command->type == BFD_MACH_O_LC_THREAD)
351 || (command->type == BFD_MACH_O_LC_UNIXTHREAD));
352
353 offset = 8;
354 nflavours = 0;
355 for (i = 0; i < cmd->nflavours; i++)
356 {
357 BFD_ASSERT ((cmd->flavours[i].size % 4) == 0);
358 BFD_ASSERT (cmd->flavours[i].offset == (command->offset + offset + 8));
359
360 bfd_h_put_32 (abfd, cmd->flavours[i].flavour, buf);
361 bfd_h_put_32 (abfd, (cmd->flavours[i].size / 4), buf + 4);
362
363 bfd_seek (abfd, command->offset + offset, SEEK_SET);
364 if (bfd_bwrite ((PTR) buf, 8, abfd) != 8)
365 return -1;
366
367 offset += cmd->flavours[i].size + 8;
368 }
369
370 return 0;
371 }
372
373 static int
374 bfd_mach_o_scan_write_section_32 (bfd *abfd,
375 bfd_mach_o_section *section,
376 bfd_vma offset)
377 {
378 unsigned char buf[68];
379
380 memcpy (buf, section->sectname, 16);
381 memcpy (buf + 16, section->segname, 16);
382 bfd_h_put_32 (abfd, section->addr, buf + 32);
383 bfd_h_put_32 (abfd, section->size, buf + 36);
384 bfd_h_put_32 (abfd, section->offset, buf + 40);
385 bfd_h_put_32 (abfd, section->align, buf + 44);
386 bfd_h_put_32 (abfd, section->reloff, buf + 48);
387 bfd_h_put_32 (abfd, section->nreloc, buf + 52);
388 bfd_h_put_32 (abfd, section->flags, buf + 56);
389 bfd_h_put_32 (abfd, section->reserved1, buf + 60);
390 bfd_h_put_32 (abfd, section->reserved2, buf + 64);
391
392 bfd_seek (abfd, offset, SEEK_SET);
393 if (bfd_bwrite ((PTR) buf, 68, abfd) != 68)
394 return -1;
395
396 return 0;
397 }
398
399 static int
400 bfd_mach_o_scan_write_section_64 (bfd *abfd,
401 bfd_mach_o_section *section,
402 bfd_vma offset)
403 {
404 unsigned char buf[80];
405
406 memcpy (buf, section->sectname, 16);
407 memcpy (buf + 16, section->segname, 16);
408 bfd_h_put_64 (abfd, section->addr, buf + 32);
409 bfd_h_put_64 (abfd, section->size, buf + 40);
410 bfd_h_put_32 (abfd, section->offset, buf + 48);
411 bfd_h_put_32 (abfd, section->align, buf + 52);
412 bfd_h_put_32 (abfd, section->reloff, buf + 56);
413 bfd_h_put_32 (abfd, section->nreloc, buf + 60);
414 bfd_h_put_32 (abfd, section->flags, buf + 64);
415 bfd_h_put_32 (abfd, section->reserved1, buf + 68);
416 bfd_h_put_32 (abfd, section->reserved2, buf + 72);
417 bfd_h_put_32 (abfd, section->reserved3, buf + 76);
418
419 bfd_seek (abfd, offset, SEEK_SET);
420 if (bfd_bwrite ((PTR) buf, 80, abfd) != 80)
421 return -1;
422
423 return 0;
424 }
425
426 static int
427 bfd_mach_o_scan_write_section (bfd *abfd,
428 bfd_mach_o_section *section,
429 bfd_vma offset,
430 unsigned int wide)
431 {
432 if (wide)
433 return bfd_mach_o_scan_write_section_64 (abfd, section, offset);
434 else
435 return bfd_mach_o_scan_write_section_32 (abfd, section, offset);
436 }
437
438 static int
439 bfd_mach_o_scan_write_segment (bfd *abfd,
440 bfd_mach_o_load_command *command,
441 unsigned int wide)
442 {
443 unsigned char buf[64];
444 bfd_mach_o_segment_command *seg = &command->command.segment;
445 unsigned long i;
446
447 if (wide)
448 {
449 BFD_ASSERT (command->type == BFD_MACH_O_LC_SEGMENT_64);
450
451 memcpy (buf, seg->segname, 16);
452
453 bfd_h_put_64 (abfd, seg->vmaddr, buf + 16);
454 bfd_h_put_64 (abfd, seg->vmsize, buf + 24);
455 bfd_h_put_64 (abfd, seg->fileoff, buf + 32);
456 bfd_h_put_64 (abfd, seg->filesize, buf + 40);
457 bfd_h_put_32 (abfd, seg->maxprot, buf + 48);
458 bfd_h_put_32 (abfd, seg->initprot, buf + 52);
459 bfd_h_put_32 (abfd, seg->nsects, buf + 56);
460 bfd_h_put_32 (abfd, seg->flags, buf + 60);
461
462 bfd_seek (abfd, command->offset + 8, SEEK_SET);
463 if (bfd_bwrite ((PTR) buf, 64, abfd) != 64)
464 return -1;
465 }
466 else
467 {
468 BFD_ASSERT (command->type == BFD_MACH_O_LC_SEGMENT);
469
470 memcpy (buf, seg->segname, 16);
471
472 bfd_h_put_32 (abfd, seg->vmaddr, buf + 16);
473 bfd_h_put_32 (abfd, seg->vmsize, buf + 20);
474 bfd_h_put_32 (abfd, seg->fileoff, buf + 24);
475 bfd_h_put_32 (abfd, seg->filesize, buf + 28);
476 bfd_h_put_32 (abfd, seg->maxprot, buf + 32);
477 bfd_h_put_32 (abfd, seg->initprot, buf + 36);
478 bfd_h_put_32 (abfd, seg->nsects, buf + 40);
479 bfd_h_put_32 (abfd, seg->flags, buf + 44);
480
481 bfd_seek (abfd, command->offset + 8, SEEK_SET);
482 if (bfd_bwrite ((PTR) buf, 48, abfd) != 48)
483 return -1;
484 }
485
486 {
487 char buf[1024];
488 bfd_vma nbytes = seg->filesize;
489 bfd_vma curoff = seg->fileoff;
490
491 while (nbytes > 0)
492 {
493 bfd_vma thiswrite = nbytes;
494
495 if (thiswrite > 1024)
496 thiswrite = 1024;
497
498 bfd_seek (abfd, curoff, SEEK_SET);
499 if (bfd_bread ((PTR) buf, thiswrite, abfd) != thiswrite)
500 return -1;
501
502 bfd_seek (abfd, curoff, SEEK_SET);
503 if (bfd_bwrite ((PTR) buf, thiswrite, abfd) != thiswrite)
504 return -1;
505
506 nbytes -= thiswrite;
507 curoff += thiswrite;
508 }
509 }
510
511 for (i = 0; i < seg->nsects; i++)
512 {
513 bfd_vma segoff;
514 if (wide)
515 segoff = command->offset + 64 + 8 + (i * 80);
516 else
517 segoff = command->offset + 48 + 8 + (i * 68);
518
519 if (bfd_mach_o_scan_write_section
520 (abfd, &seg->sections[i], segoff, wide) != 0)
521 return -1;
522 }
523
524 return 0;
525 }
526
527 static int
528 bfd_mach_o_scan_write_segment_32 (bfd *abfd, bfd_mach_o_load_command *command)
529 {
530 return bfd_mach_o_scan_write_segment (abfd, command, 0);
531 }
532
533 static int
534 bfd_mach_o_scan_write_segment_64 (bfd *abfd, bfd_mach_o_load_command *command)
535 {
536 return bfd_mach_o_scan_write_segment (abfd, command, 1);
537 }
538
539 static int
540 bfd_mach_o_scan_write_symtab_symbols (bfd *abfd, bfd_mach_o_load_command *command)
541 {
542 bfd_mach_o_symtab_command *sym = &command->command.symtab;
543 asymbol *s = NULL;
544 unsigned long i;
545
546 for (i = 0; i < sym->nsyms; i++)
547 {
548 unsigned char buf[12];
549 bfd_vma symoff = sym->symoff + (i * 12);
550 unsigned char ntype = 0;
551 unsigned char nsect = 0;
552 short ndesc = 0;
553
554 s = &sym->symbols[i];
555
556 /* Instead just set from the stored values. */
557 ntype = (s->udata.i >> 24) & 0xff;
558 nsect = (s->udata.i >> 16) & 0xff;
559 ndesc = s->udata.i & 0xffff;
560
561 bfd_h_put_32 (abfd, s->name - sym->strtab, buf);
562 bfd_h_put_8 (abfd, ntype, buf + 4);
563 bfd_h_put_8 (abfd, nsect, buf + 5);
564 bfd_h_put_16 (abfd, ndesc, buf + 6);
565 bfd_h_put_32 (abfd, s->section->vma + s->value, buf + 8);
566
567 bfd_seek (abfd, symoff, SEEK_SET);
568 if (bfd_bwrite ((PTR) buf, 12, abfd) != 12)
569 {
570 fprintf (stderr, "bfd_mach_o_scan_write_symtab_symbols: unable to write %d bytes at %lu\n",
571 12, (unsigned long) symoff);
572 return -1;
573 }
574 }
575
576 return 0;
577 }
578
579 static int
580 bfd_mach_o_scan_write_symtab (bfd *abfd, bfd_mach_o_load_command *command)
581 {
582 bfd_mach_o_symtab_command *seg = &command->command.symtab;
583 unsigned char buf[16];
584
585 BFD_ASSERT (command->type == BFD_MACH_O_LC_SYMTAB);
586
587 bfd_h_put_32 (abfd, seg->symoff, buf);
588 bfd_h_put_32 (abfd, seg->nsyms, buf + 4);
589 bfd_h_put_32 (abfd, seg->stroff, buf + 8);
590 bfd_h_put_32 (abfd, seg->strsize, buf + 12);
591
592 bfd_seek (abfd, command->offset + 8, SEEK_SET);
593 if (bfd_bwrite ((PTR) buf, 16, abfd) != 16)
594 return -1;
595
596 if (bfd_mach_o_scan_write_symtab_symbols (abfd, command) != 0)
597 return -1;
598
599 return 0;
600 }
601
602 static bfd_boolean
603 bfd_mach_o_write_contents (bfd *abfd)
604 {
605 unsigned int i;
606 asection *s;
607
608 bfd_mach_o_data_struct *mdata = abfd->tdata.mach_o_data;
609
610 /* Write data sections first in case they overlap header data to be
611 written later. */
612
613 for (s = abfd->sections; s != (asection *) NULL; s = s->next)
614 ;
615
616 /* Now write header information. */
617 if (bfd_mach_o_write_header (abfd, &mdata->header) != 0)
618 return FALSE;
619
620 for (i = 0; i < mdata->header.ncmds; i++)
621 {
622 unsigned char buf[8];
623 bfd_mach_o_load_command *cur = &mdata->commands[i];
624 unsigned long typeflag;
625
626 typeflag = cur->type_required ? cur->type & BFD_MACH_O_LC_REQ_DYLD : cur->type;
627
628 bfd_h_put_32 (abfd, typeflag, buf);
629 bfd_h_put_32 (abfd, cur->len, buf + 4);
630
631 bfd_seek (abfd, cur->offset, SEEK_SET);
632 if (bfd_bwrite ((PTR) buf, 8, abfd) != 8)
633 return FALSE;
634
635 switch (cur->type)
636 {
637 case BFD_MACH_O_LC_SEGMENT:
638 if (bfd_mach_o_scan_write_segment_32 (abfd, cur) != 0)
639 return FALSE;
640 break;
641 case BFD_MACH_O_LC_SEGMENT_64:
642 if (bfd_mach_o_scan_write_segment_64 (abfd, cur) != 0)
643 return FALSE;
644 break;
645 case BFD_MACH_O_LC_SYMTAB:
646 if (bfd_mach_o_scan_write_symtab (abfd, cur) != 0)
647 return FALSE;
648 break;
649 case BFD_MACH_O_LC_SYMSEG:
650 break;
651 case BFD_MACH_O_LC_THREAD:
652 case BFD_MACH_O_LC_UNIXTHREAD:
653 if (bfd_mach_o_scan_write_thread (abfd, cur) != 0)
654 return FALSE;
655 break;
656 case BFD_MACH_O_LC_LOADFVMLIB:
657 case BFD_MACH_O_LC_IDFVMLIB:
658 case BFD_MACH_O_LC_IDENT:
659 case BFD_MACH_O_LC_FVMFILE:
660 case BFD_MACH_O_LC_PREPAGE:
661 case BFD_MACH_O_LC_DYSYMTAB:
662 case BFD_MACH_O_LC_LOAD_DYLIB:
663 case BFD_MACH_O_LC_LOAD_WEAK_DYLIB:
664 case BFD_MACH_O_LC_ID_DYLIB:
665 case BFD_MACH_O_LC_LOAD_DYLINKER:
666 case BFD_MACH_O_LC_ID_DYLINKER:
667 case BFD_MACH_O_LC_PREBOUND_DYLIB:
668 case BFD_MACH_O_LC_ROUTINES:
669 case BFD_MACH_O_LC_SUB_FRAMEWORK:
670 break;
671 default:
672 fprintf (stderr,
673 "unable to write unknown load command 0x%lx\n",
674 (unsigned long) cur->type);
675 return FALSE;
676 }
677 }
678
679 return TRUE;
680 }
681
682 static int
683 bfd_mach_o_sizeof_headers (bfd *a ATTRIBUTE_UNUSED,
684 struct bfd_link_info *info ATTRIBUTE_UNUSED)
685 {
686 return 0;
687 }
688
689 /* Make an empty symbol. This is required only because
690 bfd_make_section_anyway wants to create a symbol for the section. */
691
692 static asymbol *
693 bfd_mach_o_make_empty_symbol (bfd *abfd)
694 {
695 asymbol *new;
696
697 new = bfd_zalloc (abfd, sizeof (* new));
698 if (new == NULL)
699 return new;
700 new->the_bfd = abfd;
701 return new;
702 }
703
704 static int
705 bfd_mach_o_read_header (bfd *abfd, bfd_mach_o_header *header)
706 {
707 unsigned char buf[32];
708 unsigned int size;
709 bfd_vma (*get32) (const void *) = NULL;
710
711 bfd_seek (abfd, 0, SEEK_SET);
712
713 /* Just read the magic number. */
714 if (bfd_bread ((PTR) buf, 4, abfd) != 4)
715 return -1;
716
717 if (bfd_getb32 (buf) == 0xfeedface)
718 {
719 header->byteorder = BFD_ENDIAN_BIG;
720 header->magic = 0xfeedface;
721 header->version = 1;
722 get32 = bfd_getb32;
723 }
724 else if (bfd_getl32 (buf) == 0xfeedface)
725 {
726 header->byteorder = BFD_ENDIAN_LITTLE;
727 header->magic = 0xfeedface;
728 header->version = 1;
729 get32 = bfd_getl32;
730 }
731 else if (bfd_getb32 (buf) == 0xfeedfacf)
732 {
733 header->byteorder = BFD_ENDIAN_BIG;
734 header->magic = 0xfeedfacf;
735 header->version = 2;
736 get32 = bfd_getb32;
737 }
738 else if (bfd_getl32 (buf) == 0xfeedfacf)
739 {
740 header->byteorder = BFD_ENDIAN_LITTLE;
741 header->magic = 0xfeedfacf;
742 header->version = 2;
743 get32 = bfd_getl32;
744 }
745 else
746 {
747 header->byteorder = BFD_ENDIAN_UNKNOWN;
748 return -1;
749 }
750
751 /* Once the size of the header is known, read the full header. */
752 size = (header->version == 2) ? 32 : 28;
753
754 bfd_seek (abfd, 0, SEEK_SET);
755 if (bfd_bread ((PTR) buf, size, abfd) != size)
756 return -1;
757
758 header->cputype = (*get32) (buf + 4);
759 header->cpusubtype = (*get32) (buf + 8);
760 header->filetype = (*get32) (buf + 12);
761 header->ncmds = (*get32) (buf + 16);
762 header->sizeofcmds = (*get32) (buf + 20);
763 header->flags = (*get32) (buf + 24);
764
765 if (header->version == 2)
766 header->reserved = (*get32) (buf + 28);
767
768 return 0;
769 }
770
771 static asection *
772 bfd_mach_o_make_bfd_section (bfd *abfd, bfd_mach_o_section *section)
773 {
774 asection *bfdsec;
775 char *sname;
776 const char *prefix = "LC_SEGMENT";
777 unsigned int snamelen;
778 flagword flags;
779
780 snamelen = strlen (prefix) + 1
781 + strlen (section->segname) + 1
782 + strlen (section->sectname) + 1;
783
784 sname = bfd_alloc (abfd, snamelen);
785 if (sname == NULL)
786 return NULL;
787 sprintf (sname, "%s.%s.%s", prefix, section->segname, section->sectname);
788
789 flags = SEC_ALLOC;
790 if ((section->flags & SECTION_TYPE) != BFD_MACH_O_S_ZEROFILL)
791 flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
792 bfdsec = bfd_make_section_anyway_with_flags (abfd, sname, flags);
793 if (bfdsec == NULL)
794 return NULL;
795
796 bfdsec->vma = section->addr;
797 bfdsec->lma = section->addr;
798 bfdsec->size = section->size;
799 bfdsec->filepos = section->offset;
800 bfdsec->alignment_power = section->align;
801 bfdsec->segment_mark = 0;
802
803 return bfdsec;
804 }
805
806 static int
807 bfd_mach_o_scan_read_section_32 (bfd *abfd,
808 bfd_mach_o_section *section,
809 bfd_vma offset)
810 {
811 unsigned char buf[68];
812
813 bfd_seek (abfd, offset, SEEK_SET);
814 if (bfd_bread ((PTR) buf, 68, abfd) != 68)
815 return -1;
816
817 memcpy (section->sectname, buf, 16);
818 section->sectname[16] = '\0';
819 memcpy (section->segname, buf + 16, 16);
820 section->segname[16] = '\0';
821 section->addr = bfd_h_get_32 (abfd, buf + 32);
822 section->size = bfd_h_get_32 (abfd, buf + 36);
823 section->offset = bfd_h_get_32 (abfd, buf + 40);
824 section->align = bfd_h_get_32 (abfd, buf + 44);
825 section->reloff = bfd_h_get_32 (abfd, buf + 48);
826 section->nreloc = bfd_h_get_32 (abfd, buf + 52);
827 section->flags = bfd_h_get_32 (abfd, buf + 56);
828 section->reserved1 = bfd_h_get_32 (abfd, buf + 60);
829 section->reserved2 = bfd_h_get_32 (abfd, buf + 64);
830 section->reserved3 = 0;
831 section->bfdsection = bfd_mach_o_make_bfd_section (abfd, section);
832
833 if (section->bfdsection == NULL)
834 return -1;
835
836 return 0;
837 }
838
839 static int
840 bfd_mach_o_scan_read_section_64 (bfd *abfd,
841 bfd_mach_o_section *section,
842 bfd_vma offset)
843 {
844 unsigned char buf[80];
845
846 bfd_seek (abfd, offset, SEEK_SET);
847 if (bfd_bread ((PTR) buf, 80, abfd) != 80)
848 return -1;
849
850 memcpy (section->sectname, buf, 16);
851 section->sectname[16] = '\0';
852 memcpy (section->segname, buf + 16, 16);
853 section->segname[16] = '\0';
854 section->addr = bfd_h_get_64 (abfd, buf + 32);
855 section->size = bfd_h_get_64 (abfd, buf + 40);
856 section->offset = bfd_h_get_32 (abfd, buf + 48);
857 section->align = bfd_h_get_32 (abfd, buf + 52);
858 section->reloff = bfd_h_get_32 (abfd, buf + 56);
859 section->nreloc = bfd_h_get_32 (abfd, buf + 60);
860 section->flags = bfd_h_get_32 (abfd, buf + 64);
861 section->reserved1 = bfd_h_get_32 (abfd, buf + 68);
862 section->reserved2 = bfd_h_get_32 (abfd, buf + 72);
863 section->reserved3 = bfd_h_get_32 (abfd, buf + 76);
864 section->bfdsection = bfd_mach_o_make_bfd_section (abfd, section);
865
866 if (section->bfdsection == NULL)
867 return -1;
868
869 return 0;
870 }
871
872 static int
873 bfd_mach_o_scan_read_section (bfd *abfd,
874 bfd_mach_o_section *section,
875 bfd_vma offset,
876 unsigned int wide)
877 {
878 if (wide)
879 return bfd_mach_o_scan_read_section_64 (abfd, section, offset);
880 else
881 return bfd_mach_o_scan_read_section_32 (abfd, section, offset);
882 }
883
884 int
885 bfd_mach_o_scan_read_symtab_symbol (bfd *abfd,
886 bfd_mach_o_symtab_command *sym,
887 asymbol *s,
888 unsigned long i)
889 {
890 bfd_mach_o_data_struct *mdata = abfd->tdata.mach_o_data;
891 unsigned int wide = (mdata->header.version == 2);
892 unsigned int symwidth = wide ? 16 : 12;
893 bfd_vma symoff = sym->symoff + (i * symwidth);
894 unsigned char buf[16];
895 unsigned char type = -1;
896 unsigned char section = -1;
897 short desc = -1;
898 symvalue value = -1;
899 unsigned long stroff = -1;
900 unsigned int symtype = -1;
901
902 BFD_ASSERT (sym->strtab != NULL);
903
904 bfd_seek (abfd, symoff, SEEK_SET);
905 if (bfd_bread ((PTR) buf, symwidth, abfd) != symwidth)
906 {
907 fprintf (stderr, "bfd_mach_o_scan_read_symtab_symbol: unable to read %d bytes at %lu\n",
908 symwidth, (unsigned long) symoff);
909 return -1;
910 }
911
912 stroff = bfd_h_get_32 (abfd, buf);
913 type = bfd_h_get_8 (abfd, buf + 4);
914 symtype = (type & 0x0e);
915 section = bfd_h_get_8 (abfd, buf + 5) - 1;
916 desc = bfd_h_get_16 (abfd, buf + 6);
917 if (wide)
918 value = bfd_h_get_64 (abfd, buf + 8);
919 else
920 value = bfd_h_get_32 (abfd, buf + 8);
921
922 if (stroff >= sym->strsize)
923 {
924 fprintf (stderr, "bfd_mach_o_scan_read_symtab_symbol: symbol name out of range (%lu >= %lu)\n",
925 (unsigned long) stroff, (unsigned long) sym->strsize);
926 return -1;
927 }
928
929 s->the_bfd = abfd;
930 s->name = sym->strtab + stroff;
931 s->value = value;
932 s->udata.i = (type << 24) | (section << 16) | desc;
933 s->flags = 0x0;
934
935 if (type & BFD_MACH_O_N_STAB)
936 {
937 s->flags |= BSF_DEBUGGING;
938 s->section = bfd_und_section_ptr;
939 }
940 else
941 {
942 if (type & BFD_MACH_O_N_PEXT)
943 {
944 type &= ~BFD_MACH_O_N_PEXT;
945 s->flags |= BSF_GLOBAL;
946 }
947
948 if (type & BFD_MACH_O_N_EXT)
949 {
950 type &= ~BFD_MACH_O_N_EXT;
951 s->flags |= BSF_GLOBAL;
952 }
953
954 switch (symtype)
955 {
956 case BFD_MACH_O_N_UNDF:
957 s->section = bfd_und_section_ptr;
958 break;
959 case BFD_MACH_O_N_PBUD:
960 s->section = bfd_und_section_ptr;
961 break;
962 case BFD_MACH_O_N_ABS:
963 s->section = bfd_abs_section_ptr;
964 break;
965 case BFD_MACH_O_N_SECT:
966 if ((section > 0) && (section <= mdata->nsects))
967 {
968 s->section = mdata->sections[section]->bfdsection;
969 s->value = s->value - mdata->sections[section]->addr;
970 }
971 else
972 {
973 /* Mach-O uses 0 to mean "no section"; not an error. */
974 if (section != 0)
975 {
976 fprintf (stderr, "bfd_mach_o_scan_read_symtab_symbol: "
977 "symbol \"%s\" specified invalid section %d (max %lu): setting to undefined\n",
978 s->name, section, mdata->nsects);
979 }
980 s->section = bfd_und_section_ptr;
981 }
982 break;
983 case BFD_MACH_O_N_INDR:
984 fprintf (stderr, "bfd_mach_o_scan_read_symtab_symbol: "
985 "symbol \"%s\" is unsupported 'indirect' reference: setting to undefined\n",
986 s->name);
987 s->section = bfd_und_section_ptr;
988 break;
989 default:
990 fprintf (stderr, "bfd_mach_o_scan_read_symtab_symbol: "
991 "symbol \"%s\" specified invalid type field 0x%x: setting to undefined\n",
992 s->name, symtype);
993 s->section = bfd_und_section_ptr;
994 break;
995 }
996 }
997
998 return 0;
999 }
1000
1001 int
1002 bfd_mach_o_scan_read_symtab_strtab (bfd *abfd,
1003 bfd_mach_o_symtab_command *sym)
1004 {
1005 BFD_ASSERT (sym->strtab == NULL);
1006
1007 if (abfd->flags & BFD_IN_MEMORY)
1008 {
1009 struct bfd_in_memory *b;
1010
1011 b = (struct bfd_in_memory *) abfd->iostream;
1012
1013 if ((sym->stroff + sym->strsize) > b->size)
1014 {
1015 bfd_set_error (bfd_error_file_truncated);
1016 return -1;
1017 }
1018 sym->strtab = (char *) b->buffer + sym->stroff;
1019 return 0;
1020 }
1021
1022 sym->strtab = bfd_alloc (abfd, sym->strsize);
1023 if (sym->strtab == NULL)
1024 return -1;
1025
1026 bfd_seek (abfd, sym->stroff, SEEK_SET);
1027 if (bfd_bread ((PTR) sym->strtab, sym->strsize, abfd) != sym->strsize)
1028 {
1029 fprintf (stderr, "bfd_mach_o_scan_read_symtab_strtab: unable to read %lu bytes at %lu\n",
1030 sym->strsize, sym->stroff);
1031 return -1;
1032 }
1033
1034 return 0;
1035 }
1036
1037 int
1038 bfd_mach_o_scan_read_symtab_symbols (bfd *abfd,
1039 bfd_mach_o_symtab_command *sym)
1040 {
1041 unsigned long i;
1042 int ret;
1043
1044 BFD_ASSERT (sym->symbols == NULL);
1045 sym->symbols = bfd_alloc (abfd, sym->nsyms * sizeof (asymbol));
1046
1047 if (sym->symbols == NULL)
1048 {
1049 fprintf (stderr, "bfd_mach_o_scan_read_symtab_symbols: unable to allocate memory for symbols\n");
1050 return -1;
1051 }
1052
1053 ret = bfd_mach_o_scan_read_symtab_strtab (abfd, sym);
1054 if (ret != 0)
1055 return ret;
1056
1057 for (i = 0; i < sym->nsyms; i++)
1058 {
1059 ret = bfd_mach_o_scan_read_symtab_symbol (abfd, sym, &sym->symbols[i], i);
1060 if (ret != 0)
1061 return ret;
1062 }
1063
1064 return 0;
1065 }
1066
1067 int
1068 bfd_mach_o_scan_read_dysymtab_symbol (bfd *abfd,
1069 bfd_mach_o_dysymtab_command *dysym,
1070 bfd_mach_o_symtab_command *sym,
1071 asymbol *s,
1072 unsigned long i)
1073 {
1074 unsigned long isymoff = dysym->indirectsymoff + (i * 4);
1075 unsigned long symindex;
1076 unsigned char buf[4];
1077
1078 BFD_ASSERT (i < dysym->nindirectsyms);
1079
1080 bfd_seek (abfd, isymoff, SEEK_SET);
1081 if (bfd_bread ((PTR) buf, 4, abfd) != 4)
1082 {
1083 fprintf (stderr, "bfd_mach_o_scan_read_dysymtab_symbol: unable to read %lu bytes at %lu\n",
1084 (unsigned long) 4, isymoff);
1085 return -1;
1086 }
1087 symindex = bfd_h_get_32 (abfd, buf);
1088
1089 return bfd_mach_o_scan_read_symtab_symbol (abfd, sym, s, symindex);
1090 }
1091
1092 static const char *
1093 bfd_mach_o_i386_flavour_string (unsigned int flavour)
1094 {
1095 switch ((int) flavour)
1096 {
1097 case BFD_MACH_O_i386_NEW_THREAD_STATE: return "i386_NEW_THREAD_STATE";
1098 case BFD_MACH_O_i386_FLOAT_STATE: return "i386_FLOAT_STATE";
1099 case BFD_MACH_O_i386_ISA_PORT_MAP_STATE: return "i386_ISA_PORT_MAP_STATE";
1100 case BFD_MACH_O_i386_V86_ASSIST_STATE: return "i386_V86_ASSIST_STATE";
1101 case BFD_MACH_O_i386_REGS_SEGS_STATE: return "i386_REGS_SEGS_STATE";
1102 case BFD_MACH_O_i386_THREAD_SYSCALL_STATE: return "i386_THREAD_SYSCALL_STATE";
1103 case BFD_MACH_O_i386_THREAD_STATE_NONE: return "i386_THREAD_STATE_NONE";
1104 case BFD_MACH_O_i386_SAVED_STATE: return "i386_SAVED_STATE";
1105 case BFD_MACH_O_i386_THREAD_STATE: return "i386_THREAD_STATE";
1106 case BFD_MACH_O_i386_THREAD_FPSTATE: return "i386_THREAD_FPSTATE";
1107 case BFD_MACH_O_i386_THREAD_EXCEPTSTATE: return "i386_THREAD_EXCEPTSTATE";
1108 case BFD_MACH_O_i386_THREAD_CTHREADSTATE: return "i386_THREAD_CTHREADSTATE";
1109 default: return "UNKNOWN";
1110 }
1111 }
1112
1113 static const char *
1114 bfd_mach_o_ppc_flavour_string (unsigned int flavour)
1115 {
1116 switch ((int) flavour)
1117 {
1118 case BFD_MACH_O_PPC_THREAD_STATE: return "PPC_THREAD_STATE";
1119 case BFD_MACH_O_PPC_FLOAT_STATE: return "PPC_FLOAT_STATE";
1120 case BFD_MACH_O_PPC_EXCEPTION_STATE: return "PPC_EXCEPTION_STATE";
1121 case BFD_MACH_O_PPC_VECTOR_STATE: return "PPC_VECTOR_STATE";
1122 default: return "UNKNOWN";
1123 }
1124 }
1125
1126 static int
1127 bfd_mach_o_scan_read_dylinker (bfd *abfd,
1128 bfd_mach_o_load_command *command)
1129 {
1130 bfd_mach_o_dylinker_command *cmd = &command->command.dylinker;
1131 unsigned char buf[4];
1132 unsigned int nameoff;
1133 asection *bfdsec;
1134 char *sname;
1135 const char *prefix;
1136
1137 BFD_ASSERT ((command->type == BFD_MACH_O_LC_ID_DYLINKER)
1138 || (command->type == BFD_MACH_O_LC_LOAD_DYLINKER));
1139
1140 bfd_seek (abfd, command->offset + 8, SEEK_SET);
1141 if (bfd_bread ((PTR) buf, 4, abfd) != 4)
1142 return -1;
1143
1144 nameoff = bfd_h_get_32 (abfd, buf + 0);
1145
1146 cmd->name_offset = command->offset + nameoff;
1147 cmd->name_len = command->len - nameoff;
1148
1149 if (command->type == BFD_MACH_O_LC_LOAD_DYLINKER)
1150 prefix = "LC_LOAD_DYLINKER";
1151 else if (command->type == BFD_MACH_O_LC_ID_DYLINKER)
1152 prefix = "LC_ID_DYLINKER";
1153 else
1154 abort ();
1155
1156 sname = bfd_alloc (abfd, strlen (prefix) + 1);
1157 if (sname == NULL)
1158 return -1;
1159 strcpy (sname, prefix);
1160
1161 bfdsec = bfd_make_section_anyway_with_flags (abfd, sname, SEC_HAS_CONTENTS);
1162 if (bfdsec == NULL)
1163 return -1;
1164
1165 bfdsec->vma = 0;
1166 bfdsec->lma = 0;
1167 bfdsec->size = command->len - 8;
1168 bfdsec->filepos = command->offset + 8;
1169 bfdsec->alignment_power = 0;
1170
1171 cmd->section = bfdsec;
1172
1173 return 0;
1174 }
1175
1176 static int
1177 bfd_mach_o_scan_read_dylib (bfd *abfd, bfd_mach_o_load_command *command)
1178 {
1179 bfd_mach_o_dylib_command *cmd = &command->command.dylib;
1180 unsigned char buf[16];
1181 unsigned int nameoff;
1182 asection *bfdsec;
1183 char *sname;
1184 const char *prefix;
1185
1186 BFD_ASSERT ((command->type == BFD_MACH_O_LC_ID_DYLIB)
1187 || (command->type == BFD_MACH_O_LC_LOAD_DYLIB)
1188 || (command->type == BFD_MACH_O_LC_LOAD_WEAK_DYLIB));
1189
1190 bfd_seek (abfd, command->offset + 8, SEEK_SET);
1191 if (bfd_bread ((PTR) buf, 16, abfd) != 16)
1192 return -1;
1193
1194 nameoff = bfd_h_get_32 (abfd, buf + 0);
1195 cmd->timestamp = bfd_h_get_32 (abfd, buf + 4);
1196 cmd->current_version = bfd_h_get_32 (abfd, buf + 8);
1197 cmd->compatibility_version = bfd_h_get_32 (abfd, buf + 12);
1198
1199 cmd->name_offset = command->offset + nameoff;
1200 cmd->name_len = command->len - nameoff;
1201
1202 if (command->type == BFD_MACH_O_LC_LOAD_DYLIB)
1203 prefix = "LC_LOAD_DYLIB";
1204 else if (command->type == BFD_MACH_O_LC_LOAD_WEAK_DYLIB)
1205 prefix = "LC_LOAD_WEAK_DYLIB";
1206 else if (command->type == BFD_MACH_O_LC_ID_DYLIB)
1207 prefix = "LC_ID_DYLIB";
1208 else
1209 abort ();
1210
1211 sname = bfd_alloc (abfd, strlen (prefix) + 1);
1212 if (sname == NULL)
1213 return -1;
1214 strcpy (sname, prefix);
1215
1216 bfdsec = bfd_make_section_anyway_with_flags (abfd, sname, SEC_HAS_CONTENTS);
1217 if (bfdsec == NULL)
1218 return -1;
1219
1220 bfdsec->vma = 0;
1221 bfdsec->lma = 0;
1222 bfdsec->size = command->len - 8;
1223 bfdsec->filepos = command->offset + 8;
1224 bfdsec->alignment_power = 0;
1225
1226 cmd->section = bfdsec;
1227
1228 return 0;
1229 }
1230
1231 static int
1232 bfd_mach_o_scan_read_prebound_dylib (bfd *abfd ATTRIBUTE_UNUSED,
1233 bfd_mach_o_load_command *command ATTRIBUTE_UNUSED)
1234 {
1235 /* bfd_mach_o_prebound_dylib_command *cmd = &command->command.prebound_dylib; */
1236
1237 BFD_ASSERT (command->type == BFD_MACH_O_LC_PREBOUND_DYLIB);
1238 return 0;
1239 }
1240
1241 static int
1242 bfd_mach_o_scan_read_thread (bfd *abfd, bfd_mach_o_load_command *command)
1243 {
1244 bfd_mach_o_data_struct *mdata = NULL;
1245 bfd_mach_o_thread_command *cmd = &command->command.thread;
1246 unsigned char buf[8];
1247 bfd_vma offset;
1248 unsigned int nflavours;
1249 unsigned int i;
1250
1251 BFD_ASSERT ((command->type == BFD_MACH_O_LC_THREAD)
1252 || (command->type == BFD_MACH_O_LC_UNIXTHREAD));
1253
1254 BFD_ASSERT (bfd_mach_o_valid (abfd));
1255 mdata = abfd->tdata.mach_o_data;
1256
1257 offset = 8;
1258 nflavours = 0;
1259 while (offset != command->len)
1260 {
1261 if (offset >= command->len)
1262 return -1;
1263
1264 bfd_seek (abfd, command->offset + offset, SEEK_SET);
1265
1266 if (bfd_bread ((PTR) buf, 8, abfd) != 8)
1267 return -1;
1268
1269 offset += 8 + bfd_h_get_32 (abfd, buf + 4) * 4;
1270 nflavours++;
1271 }
1272
1273 cmd->flavours = bfd_alloc (abfd, nflavours * sizeof (bfd_mach_o_thread_flavour));
1274 if (cmd->flavours == NULL)
1275 return -1;
1276 cmd->nflavours = nflavours;
1277
1278 offset = 8;
1279 nflavours = 0;
1280 while (offset != command->len)
1281 {
1282 if (offset >= command->len)
1283 return -1;
1284
1285 if (nflavours >= cmd->nflavours)
1286 return -1;
1287
1288 bfd_seek (abfd, command->offset + offset, SEEK_SET);
1289
1290 if (bfd_bread ((PTR) buf, 8, abfd) != 8)
1291 return -1;
1292
1293 cmd->flavours[nflavours].flavour = bfd_h_get_32 (abfd, buf);
1294 cmd->flavours[nflavours].offset = command->offset + offset + 8;
1295 cmd->flavours[nflavours].size = bfd_h_get_32 (abfd, buf + 4) * 4;
1296 offset += cmd->flavours[nflavours].size + 8;
1297 nflavours++;
1298 }
1299
1300 for (i = 0; i < nflavours; i++)
1301 {
1302 asection *bfdsec;
1303 unsigned int snamelen;
1304 char *sname;
1305 const char *flavourstr;
1306 const char *prefix = "LC_THREAD";
1307 unsigned int j = 0;
1308
1309 switch (mdata->header.cputype)
1310 {
1311 case BFD_MACH_O_CPU_TYPE_POWERPC:
1312 case BFD_MACH_O_CPU_TYPE_POWERPC_64:
1313 flavourstr = bfd_mach_o_ppc_flavour_string (cmd->flavours[i].flavour);
1314 break;
1315 case BFD_MACH_O_CPU_TYPE_I386:
1316 case BFD_MACH_O_CPU_TYPE_X86_64:
1317 flavourstr = bfd_mach_o_i386_flavour_string (cmd->flavours[i].flavour);
1318 break;
1319 default:
1320 flavourstr = "UNKNOWN_ARCHITECTURE";
1321 break;
1322 }
1323
1324 snamelen = strlen (prefix) + 1 + 20 + 1 + strlen (flavourstr) + 1;
1325 sname = bfd_alloc (abfd, snamelen);
1326 if (sname == NULL)
1327 return -1;
1328
1329 for (;;)
1330 {
1331 sprintf (sname, "%s.%s.%u", prefix, flavourstr, j);
1332 if (bfd_get_section_by_name (abfd, sname) == NULL)
1333 break;
1334 j++;
1335 }
1336
1337 bfdsec = bfd_make_section_with_flags (abfd, sname, SEC_HAS_CONTENTS);
1338
1339 bfdsec->vma = 0;
1340 bfdsec->lma = 0;
1341 bfdsec->size = cmd->flavours[i].size;
1342 bfdsec->filepos = cmd->flavours[i].offset;
1343 bfdsec->alignment_power = 0x0;
1344
1345 cmd->section = bfdsec;
1346 }
1347
1348 return 0;
1349 }
1350
1351 static int
1352 bfd_mach_o_scan_read_dysymtab (bfd *abfd, bfd_mach_o_load_command *command)
1353 {
1354 bfd_mach_o_dysymtab_command *seg = &command->command.dysymtab;
1355 unsigned char buf[72];
1356
1357 BFD_ASSERT (command->type == BFD_MACH_O_LC_DYSYMTAB);
1358
1359 bfd_seek (abfd, command->offset + 8, SEEK_SET);
1360 if (bfd_bread ((PTR) buf, 72, abfd) != 72)
1361 return -1;
1362
1363 seg->ilocalsym = bfd_h_get_32 (abfd, buf + 0);
1364 seg->nlocalsym = bfd_h_get_32 (abfd, buf + 4);
1365 seg->iextdefsym = bfd_h_get_32 (abfd, buf + 8);
1366 seg->nextdefsym = bfd_h_get_32 (abfd, buf + 12);
1367 seg->iundefsym = bfd_h_get_32 (abfd, buf + 16);
1368 seg->nundefsym = bfd_h_get_32 (abfd, buf + 20);
1369 seg->tocoff = bfd_h_get_32 (abfd, buf + 24);
1370 seg->ntoc = bfd_h_get_32 (abfd, buf + 28);
1371 seg->modtaboff = bfd_h_get_32 (abfd, buf + 32);
1372 seg->nmodtab = bfd_h_get_32 (abfd, buf + 36);
1373 seg->extrefsymoff = bfd_h_get_32 (abfd, buf + 40);
1374 seg->nextrefsyms = bfd_h_get_32 (abfd, buf + 44);
1375 seg->indirectsymoff = bfd_h_get_32 (abfd, buf + 48);
1376 seg->nindirectsyms = bfd_h_get_32 (abfd, buf + 52);
1377 seg->extreloff = bfd_h_get_32 (abfd, buf + 56);
1378 seg->nextrel = bfd_h_get_32 (abfd, buf + 60);
1379 seg->locreloff = bfd_h_get_32 (abfd, buf + 64);
1380 seg->nlocrel = bfd_h_get_32 (abfd, buf + 68);
1381
1382 return 0;
1383 }
1384
1385 static int
1386 bfd_mach_o_scan_read_symtab (bfd *abfd, bfd_mach_o_load_command *command)
1387 {
1388 bfd_mach_o_symtab_command *seg = &command->command.symtab;
1389 unsigned char buf[16];
1390 asection *bfdsec;
1391 char *sname;
1392 const char *prefix = "LC_SYMTAB.stabs";
1393 int nlist_size = (bfd_mach_o_version (abfd) > 1) ? 16 : 12;
1394
1395 BFD_ASSERT (command->type == BFD_MACH_O_LC_SYMTAB);
1396
1397 bfd_seek (abfd, command->offset + 8, SEEK_SET);
1398 if (bfd_bread ((PTR) buf, 16, abfd) != 16)
1399 return -1;
1400
1401 seg->symoff = bfd_h_get_32 (abfd, buf);
1402 seg->nsyms = bfd_h_get_32 (abfd, buf + 4);
1403 seg->stroff = bfd_h_get_32 (abfd, buf + 8);
1404 seg->strsize = bfd_h_get_32 (abfd, buf + 12);
1405 seg->symbols = NULL;
1406 seg->strtab = NULL;
1407
1408 sname = bfd_alloc (abfd, strlen (prefix) + 1);
1409 if (sname == NULL)
1410 return -1;
1411 strcpy (sname, prefix);
1412
1413 bfdsec = bfd_make_section_anyway_with_flags (abfd, sname, SEC_HAS_CONTENTS);
1414 if (bfdsec == NULL)
1415 return -1;
1416
1417 bfdsec->vma = 0;
1418 bfdsec->lma = 0;
1419 bfdsec->size = seg->nsyms * nlist_size;
1420 bfdsec->filepos = seg->symoff;
1421 bfdsec->alignment_power = 0;
1422
1423 seg->stabs_segment = bfdsec;
1424
1425 prefix = "LC_SYMTAB.stabstr";
1426 sname = bfd_alloc (abfd, strlen (prefix) + 1);
1427 if (sname == NULL)
1428 return -1;
1429 strcpy (sname, prefix);
1430
1431 bfdsec = bfd_make_section_anyway_with_flags (abfd, sname, SEC_HAS_CONTENTS);
1432 if (bfdsec == NULL)
1433 return -1;
1434
1435 bfdsec->vma = 0;
1436 bfdsec->lma = 0;
1437 bfdsec->size = seg->strsize;
1438 bfdsec->filepos = seg->stroff;
1439 bfdsec->alignment_power = 0;
1440
1441 seg->stabstr_segment = bfdsec;
1442
1443 return 0;
1444 }
1445
1446 static int
1447 bfd_mach_o_scan_read_segment (bfd *abfd,
1448 bfd_mach_o_load_command *command,
1449 unsigned int wide)
1450 {
1451 unsigned char buf[64];
1452 bfd_mach_o_segment_command *seg = &command->command.segment;
1453 unsigned long i;
1454 asection *bfdsec;
1455 char *sname;
1456 const char *prefix = "LC_SEGMENT";
1457 unsigned int snamelen;
1458
1459 if (wide)
1460 {
1461 BFD_ASSERT (command->type == BFD_MACH_O_LC_SEGMENT_64);
1462
1463 bfd_seek (abfd, command->offset + 8, SEEK_SET);
1464 if (bfd_bread ((PTR) buf, 64, abfd) != 64)
1465 return -1;
1466
1467 memcpy (seg->segname, buf, 16);
1468
1469 seg->vmaddr = bfd_h_get_64 (abfd, buf + 16);
1470 seg->vmsize = bfd_h_get_64 (abfd, buf + 24);
1471 seg->fileoff = bfd_h_get_64 (abfd, buf + 32);
1472 seg->filesize = bfd_h_get_64 (abfd, buf + 40);
1473 seg->maxprot = bfd_h_get_32 (abfd, buf + 48);
1474 seg->initprot = bfd_h_get_32 (abfd, buf + 52);
1475 seg->nsects = bfd_h_get_32 (abfd, buf + 56);
1476 seg->flags = bfd_h_get_32 (abfd, buf + 60);
1477 }
1478 else
1479 {
1480 BFD_ASSERT (command->type == BFD_MACH_O_LC_SEGMENT);
1481
1482 bfd_seek (abfd, command->offset + 8, SEEK_SET);
1483 if (bfd_bread ((PTR) buf, 48, abfd) != 48)
1484 return -1;
1485
1486 memcpy (seg->segname, buf, 16);
1487
1488 seg->vmaddr = bfd_h_get_32 (abfd, buf + 16);
1489 seg->vmsize = bfd_h_get_32 (abfd, buf + 20);
1490 seg->fileoff = bfd_h_get_32 (abfd, buf + 24);
1491 seg->filesize = bfd_h_get_32 (abfd, buf + 28);
1492 seg->maxprot = bfd_h_get_32 (abfd, buf + 32);
1493 seg->initprot = bfd_h_get_32 (abfd, buf + 36);
1494 seg->nsects = bfd_h_get_32 (abfd, buf + 40);
1495 seg->flags = bfd_h_get_32 (abfd, buf + 44);
1496 }
1497
1498 snamelen = strlen (prefix) + 1 + strlen (seg->segname) + 1;
1499 sname = bfd_alloc (abfd, snamelen);
1500 if (sname == NULL)
1501 return -1;
1502 sprintf (sname, "%s.%s", prefix, seg->segname);
1503
1504 bfdsec = bfd_make_section_anyway (abfd, sname);
1505 if (bfdsec == NULL)
1506 return -1;
1507
1508 bfdsec->vma = seg->vmaddr;
1509 bfdsec->lma = seg->vmaddr;
1510 bfdsec->size = seg->filesize;
1511 bfdsec->filepos = seg->fileoff;
1512 bfdsec->alignment_power = 0x0;
1513 bfdsec->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
1514 bfdsec->segment_mark = 1;
1515
1516 seg->segment = bfdsec;
1517
1518 if (seg->nsects != 0)
1519 {
1520 seg->sections = bfd_alloc (abfd, seg->nsects * sizeof (bfd_mach_o_section));
1521 if (seg->sections == NULL)
1522 return -1;
1523
1524 for (i = 0; i < seg->nsects; i++)
1525 {
1526 bfd_vma segoff;
1527 if (wide)
1528 segoff = command->offset + 64 + 8 + (i * 80);
1529 else
1530 segoff = command->offset + 48 + 8 + (i * 68);
1531
1532 if (bfd_mach_o_scan_read_section
1533 (abfd, &seg->sections[i], segoff, wide) != 0)
1534 return -1;
1535 }
1536 }
1537
1538 return 0;
1539 }
1540
1541 static int
1542 bfd_mach_o_scan_read_segment_32 (bfd *abfd, bfd_mach_o_load_command *command)
1543 {
1544 return bfd_mach_o_scan_read_segment (abfd, command, 0);
1545 }
1546
1547 static int
1548 bfd_mach_o_scan_read_segment_64 (bfd *abfd, bfd_mach_o_load_command *command)
1549 {
1550 return bfd_mach_o_scan_read_segment (abfd, command, 1);
1551 }
1552
1553 static int
1554 bfd_mach_o_scan_read_command (bfd *abfd, bfd_mach_o_load_command *command)
1555 {
1556 unsigned char buf[8];
1557
1558 bfd_seek (abfd, command->offset, SEEK_SET);
1559 if (bfd_bread ((PTR) buf, 8, abfd) != 8)
1560 return -1;
1561
1562 command->type = (bfd_h_get_32 (abfd, buf) & ~BFD_MACH_O_LC_REQ_DYLD);
1563 command->type_required = (bfd_h_get_32 (abfd, buf) & BFD_MACH_O_LC_REQ_DYLD
1564 ? 1 : 0);
1565 command->len = bfd_h_get_32 (abfd, buf + 4);
1566
1567 switch (command->type)
1568 {
1569 case BFD_MACH_O_LC_SEGMENT:
1570 if (bfd_mach_o_scan_read_segment_32 (abfd, command) != 0)
1571 return -1;
1572 break;
1573 case BFD_MACH_O_LC_SEGMENT_64:
1574 if (bfd_mach_o_scan_read_segment_64 (abfd, command) != 0)
1575 return -1;
1576 break;
1577 case BFD_MACH_O_LC_SYMTAB:
1578 if (bfd_mach_o_scan_read_symtab (abfd, command) != 0)
1579 return -1;
1580 break;
1581 case BFD_MACH_O_LC_SYMSEG:
1582 break;
1583 case BFD_MACH_O_LC_THREAD:
1584 case BFD_MACH_O_LC_UNIXTHREAD:
1585 if (bfd_mach_o_scan_read_thread (abfd, command) != 0)
1586 return -1;
1587 break;
1588 case BFD_MACH_O_LC_LOAD_DYLINKER:
1589 case BFD_MACH_O_LC_ID_DYLINKER:
1590 if (bfd_mach_o_scan_read_dylinker (abfd, command) != 0)
1591 return -1;
1592 break;
1593 case BFD_MACH_O_LC_LOAD_DYLIB:
1594 case BFD_MACH_O_LC_ID_DYLIB:
1595 case BFD_MACH_O_LC_LOAD_WEAK_DYLIB:
1596 if (bfd_mach_o_scan_read_dylib (abfd, command) != 0)
1597 return -1;
1598 break;
1599 case BFD_MACH_O_LC_PREBOUND_DYLIB:
1600 if (bfd_mach_o_scan_read_prebound_dylib (abfd, command) != 0)
1601 return -1;
1602 break;
1603 case BFD_MACH_O_LC_LOADFVMLIB:
1604 case BFD_MACH_O_LC_IDFVMLIB:
1605 case BFD_MACH_O_LC_IDENT:
1606 case BFD_MACH_O_LC_FVMFILE:
1607 case BFD_MACH_O_LC_PREPAGE:
1608 case BFD_MACH_O_LC_ROUTINES:
1609 case BFD_MACH_O_LC_SUB_FRAMEWORK:
1610 break;
1611 case BFD_MACH_O_LC_DYSYMTAB:
1612 if (bfd_mach_o_scan_read_dysymtab (abfd, command) != 0)
1613 return -1;
1614 break;
1615 case BFD_MACH_O_LC_SUB_UMBRELLA:
1616 case BFD_MACH_O_LC_SUB_CLIENT:
1617 case BFD_MACH_O_LC_SUB_LIBRARY:
1618 case BFD_MACH_O_LC_TWOLEVEL_HINTS:
1619 case BFD_MACH_O_LC_PREBIND_CKSUM:
1620 break;
1621 default:
1622 fprintf (stderr, "unable to read unknown load command 0x%lx\n",
1623 (unsigned long) command->type);
1624 break;
1625 }
1626
1627 return 0;
1628 }
1629
1630 static void
1631 bfd_mach_o_flatten_sections (bfd *abfd)
1632 {
1633 bfd_mach_o_data_struct *mdata = abfd->tdata.mach_o_data;
1634 long csect = 0;
1635 unsigned long i, j;
1636
1637 mdata->nsects = 0;
1638
1639 for (i = 0; i < mdata->header.ncmds; i++)
1640 {
1641 if (mdata->commands[i].type == BFD_MACH_O_LC_SEGMENT
1642 || mdata->commands[i].type == BFD_MACH_O_LC_SEGMENT_64)
1643 {
1644 bfd_mach_o_segment_command *seg;
1645
1646 seg = &mdata->commands[i].command.segment;
1647 mdata->nsects += seg->nsects;
1648 }
1649 }
1650
1651 mdata->sections = bfd_alloc (abfd,
1652 mdata->nsects * sizeof (bfd_mach_o_section *));
1653 csect = 0;
1654
1655 for (i = 0; i < mdata->header.ncmds; i++)
1656 {
1657 if (mdata->commands[i].type == BFD_MACH_O_LC_SEGMENT
1658 || mdata->commands[i].type == BFD_MACH_O_LC_SEGMENT_64)
1659 {
1660 bfd_mach_o_segment_command *seg;
1661
1662 seg = &mdata->commands[i].command.segment;
1663 BFD_ASSERT (csect + seg->nsects <= mdata->nsects);
1664
1665 for (j = 0; j < seg->nsects; j++)
1666 mdata->sections[csect++] = &seg->sections[j];
1667 }
1668 }
1669 }
1670
1671 int
1672 bfd_mach_o_scan_start_address (bfd *abfd)
1673 {
1674 bfd_mach_o_data_struct *mdata = abfd->tdata.mach_o_data;
1675 bfd_mach_o_thread_command *cmd = NULL;
1676 unsigned long i;
1677
1678 for (i = 0; i < mdata->header.ncmds; i++)
1679 {
1680 if ((mdata->commands[i].type == BFD_MACH_O_LC_THREAD) ||
1681 (mdata->commands[i].type == BFD_MACH_O_LC_UNIXTHREAD))
1682 {
1683 if (cmd == NULL)
1684 cmd = &mdata->commands[i].command.thread;
1685 else
1686 return 0;
1687 }
1688 }
1689
1690 if (cmd == NULL)
1691 return 0;
1692
1693 for (i = 0; i < cmd->nflavours; i++)
1694 {
1695 if ((mdata->header.cputype == BFD_MACH_O_CPU_TYPE_I386)
1696 && (cmd->flavours[i].flavour
1697 == (unsigned long) BFD_MACH_O_i386_THREAD_STATE))
1698 {
1699 unsigned char buf[4];
1700
1701 bfd_seek (abfd, cmd->flavours[i].offset + 40, SEEK_SET);
1702
1703 if (bfd_bread (buf, 4, abfd) != 4)
1704 return -1;
1705
1706 abfd->start_address = bfd_h_get_32 (abfd, buf);
1707 }
1708 else if ((mdata->header.cputype == BFD_MACH_O_CPU_TYPE_POWERPC)
1709 && (cmd->flavours[i].flavour == BFD_MACH_O_PPC_THREAD_STATE))
1710 {
1711 unsigned char buf[4];
1712
1713 bfd_seek (abfd, cmd->flavours[i].offset + 0, SEEK_SET);
1714
1715 if (bfd_bread (buf, 4, abfd) != 4)
1716 return -1;
1717
1718 abfd->start_address = bfd_h_get_32 (abfd, buf);
1719 }
1720 else if ((mdata->header.cputype == BFD_MACH_O_CPU_TYPE_POWERPC_64)
1721 && (cmd->flavours[i].flavour == BFD_MACH_O_PPC_THREAD_STATE_64))
1722 {
1723 unsigned char buf[8];
1724
1725 bfd_seek (abfd, cmd->flavours[i].offset + 0, SEEK_SET);
1726
1727 if (bfd_bread (buf, 8, abfd) != 8)
1728 return -1;
1729
1730 abfd->start_address = bfd_h_get_64 (abfd, buf);
1731 }
1732 else if ((mdata->header.cputype == BFD_MACH_O_CPU_TYPE_X86_64)
1733 && (cmd->flavours[i].flavour == BFD_MACH_O_x86_THREAD_STATE64))
1734 {
1735 unsigned char buf[8];
1736
1737 bfd_seek (abfd, cmd->flavours[i].offset + (16 * 8), SEEK_SET);
1738
1739 if (bfd_bread (buf, 8, abfd) != 8)
1740 return -1;
1741
1742 abfd->start_address = bfd_h_get_64 (abfd, buf);
1743 }
1744 }
1745
1746 return 0;
1747 }
1748
1749 int
1750 bfd_mach_o_scan (bfd *abfd,
1751 bfd_mach_o_header *header,
1752 bfd_mach_o_data_struct *mdata)
1753 {
1754 unsigned int i;
1755 enum bfd_architecture cputype;
1756 unsigned long cpusubtype;
1757 unsigned int hdrsize;
1758
1759 hdrsize = (header->version == 2) ? 32 : 28;
1760
1761 mdata->header = *header;
1762 mdata->symbols = NULL;
1763
1764 abfd->flags = (abfd->xvec->object_flags
1765 | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
1766 abfd->tdata.mach_o_data = mdata;
1767
1768 bfd_mach_o_convert_architecture (header->cputype, header->cpusubtype,
1769 &cputype, &cpusubtype);
1770 if (cputype == bfd_arch_unknown)
1771 {
1772 fprintf (stderr, "bfd_mach_o_scan: unknown architecture 0x%lx/0x%lx\n",
1773 header->cputype, header->cpusubtype);
1774 return -1;
1775 }
1776
1777 bfd_set_arch_mach (abfd, cputype, cpusubtype);
1778
1779 if (header->ncmds != 0)
1780 {
1781 mdata->commands = bfd_alloc (abfd, header->ncmds * sizeof (bfd_mach_o_load_command));
1782 if (mdata->commands == NULL)
1783 return -1;
1784
1785 for (i = 0; i < header->ncmds; i++)
1786 {
1787 bfd_mach_o_load_command *cur = &mdata->commands[i];
1788
1789 if (i == 0)
1790 cur->offset = hdrsize;
1791 else
1792 {
1793 bfd_mach_o_load_command *prev = &mdata->commands[i - 1];
1794 cur->offset = prev->offset + prev->len;
1795 }
1796
1797 if (bfd_mach_o_scan_read_command (abfd, cur) < 0)
1798 return -1;
1799 }
1800 }
1801
1802 if (bfd_mach_o_scan_start_address (abfd) < 0)
1803 return -1;
1804
1805 bfd_mach_o_flatten_sections (abfd);
1806 return 0;
1807 }
1808
1809 bfd_boolean
1810 bfd_mach_o_mkobject (bfd *abfd)
1811 {
1812 bfd_mach_o_data_struct *mdata = NULL;
1813
1814 mdata = bfd_alloc (abfd, sizeof (bfd_mach_o_data_struct));
1815 if (mdata == NULL)
1816 return FALSE;
1817 abfd->tdata.mach_o_data = mdata;
1818
1819 mdata->header.magic = 0;
1820 mdata->header.cputype = 0;
1821 mdata->header.cpusubtype = 0;
1822 mdata->header.filetype = 0;
1823 mdata->header.ncmds = 0;
1824 mdata->header.sizeofcmds = 0;
1825 mdata->header.flags = 0;
1826 mdata->header.byteorder = BFD_ENDIAN_UNKNOWN;
1827 mdata->commands = NULL;
1828 mdata->nsymbols = 0;
1829 mdata->symbols = NULL;
1830 mdata->nsects = 0;
1831 mdata->sections = NULL;
1832 mdata->ibfd = NULL;
1833
1834 return TRUE;
1835 }
1836
1837 const bfd_target *
1838 bfd_mach_o_object_p (bfd *abfd)
1839 {
1840 struct bfd_preserve preserve;
1841 bfd_mach_o_header header;
1842
1843 preserve.marker = NULL;
1844 if (bfd_mach_o_read_header (abfd, &header) != 0)
1845 goto wrong;
1846
1847 if (! (header.byteorder == BFD_ENDIAN_BIG
1848 || header.byteorder == BFD_ENDIAN_LITTLE))
1849 {
1850 fprintf (stderr, "unknown header byte-order value 0x%lx\n",
1851 (unsigned long) header.byteorder);
1852 goto wrong;
1853 }
1854
1855 if (! ((header.byteorder == BFD_ENDIAN_BIG
1856 && abfd->xvec->byteorder == BFD_ENDIAN_BIG
1857 && abfd->xvec->header_byteorder == BFD_ENDIAN_BIG)
1858 || (header.byteorder == BFD_ENDIAN_LITTLE
1859 && abfd->xvec->byteorder == BFD_ENDIAN_LITTLE
1860 && abfd->xvec->header_byteorder == BFD_ENDIAN_LITTLE)))
1861 goto wrong;
1862
1863 preserve.marker = bfd_zalloc (abfd, sizeof (bfd_mach_o_data_struct));
1864 if (preserve.marker == NULL
1865 || !bfd_preserve_save (abfd, &preserve))
1866 goto fail;
1867
1868 if (bfd_mach_o_scan (abfd, &header,
1869 (bfd_mach_o_data_struct *) preserve.marker) != 0)
1870 goto wrong;
1871
1872 bfd_preserve_finish (abfd, &preserve);
1873 return abfd->xvec;
1874
1875 wrong:
1876 bfd_set_error (bfd_error_wrong_format);
1877
1878 fail:
1879 if (preserve.marker != NULL)
1880 bfd_preserve_restore (abfd, &preserve);
1881 return NULL;
1882 }
1883
1884 const bfd_target *
1885 bfd_mach_o_core_p (bfd *abfd)
1886 {
1887 struct bfd_preserve preserve;
1888 bfd_mach_o_header header;
1889
1890 preserve.marker = NULL;
1891 if (bfd_mach_o_read_header (abfd, &header) != 0)
1892 goto wrong;
1893
1894 if (! (header.byteorder == BFD_ENDIAN_BIG
1895 || header.byteorder == BFD_ENDIAN_LITTLE))
1896 {
1897 fprintf (stderr, "unknown header byte-order value 0x%lx\n",
1898 (unsigned long) header.byteorder);
1899 abort ();
1900 }
1901
1902 if (! ((header.byteorder == BFD_ENDIAN_BIG
1903 && abfd->xvec->byteorder == BFD_ENDIAN_BIG
1904 && abfd->xvec->header_byteorder == BFD_ENDIAN_BIG)
1905 || (header.byteorder == BFD_ENDIAN_LITTLE
1906 && abfd->xvec->byteorder == BFD_ENDIAN_LITTLE
1907 && abfd->xvec->header_byteorder == BFD_ENDIAN_LITTLE)))
1908 goto wrong;
1909
1910 if (header.filetype != BFD_MACH_O_MH_CORE)
1911 goto wrong;
1912
1913 preserve.marker = bfd_zalloc (abfd, sizeof (bfd_mach_o_data_struct));
1914 if (preserve.marker == NULL
1915 || !bfd_preserve_save (abfd, &preserve))
1916 goto fail;
1917
1918 if (bfd_mach_o_scan (abfd, &header,
1919 (bfd_mach_o_data_struct *) preserve.marker) != 0)
1920 goto wrong;
1921
1922 bfd_preserve_finish (abfd, &preserve);
1923 return abfd->xvec;
1924
1925 wrong:
1926 bfd_set_error (bfd_error_wrong_format);
1927
1928 fail:
1929 if (preserve.marker != NULL)
1930 bfd_preserve_restore (abfd, &preserve);
1931 return NULL;
1932 }
1933
1934 typedef struct mach_o_fat_archentry
1935 {
1936 unsigned long cputype;
1937 unsigned long cpusubtype;
1938 unsigned long offset;
1939 unsigned long size;
1940 unsigned long align;
1941 bfd *abfd;
1942 } mach_o_fat_archentry;
1943
1944 typedef struct mach_o_fat_data_struct
1945 {
1946 unsigned long magic;
1947 unsigned long nfat_arch;
1948 mach_o_fat_archentry *archentries;
1949 } mach_o_fat_data_struct;
1950
1951 const bfd_target *
1952 bfd_mach_o_archive_p (bfd *abfd)
1953 {
1954 mach_o_fat_data_struct *adata = NULL;
1955 unsigned char buf[20];
1956 unsigned long i;
1957
1958 bfd_seek (abfd, 0, SEEK_SET);
1959 if (bfd_bread ((PTR) buf, 8, abfd) != 8)
1960 goto error;
1961
1962 adata = bfd_alloc (abfd, sizeof (mach_o_fat_data_struct));
1963 if (adata == NULL)
1964 goto error;
1965
1966 adata->magic = bfd_getb32 (buf);
1967 adata->nfat_arch = bfd_getb32 (buf + 4);
1968 if (adata->magic != 0xcafebabe)
1969 goto error;
1970
1971 adata->archentries =
1972 bfd_alloc (abfd, adata->nfat_arch * sizeof (mach_o_fat_archentry));
1973 if (adata->archentries == NULL)
1974 goto error;
1975
1976 for (i = 0; i < adata->nfat_arch; i++)
1977 {
1978 bfd_seek (abfd, 8 + 20 * i, SEEK_SET);
1979
1980 if (bfd_bread ((PTR) buf, 20, abfd) != 20)
1981 goto error;
1982 adata->archentries[i].cputype = bfd_getb32 (buf);
1983 adata->archentries[i].cpusubtype = bfd_getb32 (buf + 4);
1984 adata->archentries[i].offset = bfd_getb32 (buf + 8);
1985 adata->archentries[i].size = bfd_getb32 (buf + 12);
1986 adata->archentries[i].align = bfd_getb32 (buf + 16);
1987 adata->archentries[i].abfd = NULL;
1988 }
1989
1990 abfd->tdata.mach_o_fat_data = adata;
1991 return abfd->xvec;
1992
1993 error:
1994 if (adata != NULL)
1995 bfd_release (abfd, adata);
1996 bfd_set_error (bfd_error_wrong_format);
1997 return NULL;
1998 }
1999
2000 bfd *
2001 bfd_mach_o_openr_next_archived_file (bfd *archive, bfd *prev)
2002 {
2003 mach_o_fat_data_struct *adata;
2004 mach_o_fat_archentry *entry = NULL;
2005 unsigned long i;
2006
2007 adata = (mach_o_fat_data_struct *) archive->tdata.mach_o_fat_data;
2008 BFD_ASSERT (adata != NULL);
2009
2010 /* Find index of previous entry. */
2011 if (prev == NULL)
2012 i = 0; /* Start at first one. */
2013 else
2014 {
2015 for (i = 0; i < adata->nfat_arch; i++)
2016 {
2017 if (adata->archentries[i].abfd == prev)
2018 break;
2019 }
2020
2021 if (i == adata->nfat_arch)
2022 {
2023 /* Not found. */
2024 bfd_set_error (bfd_error_bad_value);
2025 return NULL;
2026 }
2027 i++; /* Get next entry. */
2028 }
2029
2030 if (i >= adata->nfat_arch)
2031 {
2032 bfd_set_error (bfd_error_no_more_archived_files);
2033 return NULL;
2034 }
2035
2036 entry = &adata->archentries[i];
2037 if (entry->abfd == NULL)
2038 {
2039 bfd *nbfd = _bfd_new_bfd_contained_in (archive);
2040 char *s = NULL;
2041
2042 if (nbfd == NULL)
2043 return NULL;
2044
2045 nbfd->origin = entry->offset;
2046 s = bfd_malloc (strlen (archive->filename) + 1);
2047 if (s == NULL)
2048 return NULL;
2049 strcpy (s, archive->filename);
2050 nbfd->filename = s;
2051 nbfd->iostream = NULL;
2052 entry->abfd = nbfd;
2053 }
2054
2055 return entry->abfd;
2056 }
2057
2058 int
2059 bfd_mach_o_lookup_section (bfd *abfd,
2060 asection *section,
2061 bfd_mach_o_load_command **mcommand,
2062 bfd_mach_o_section **msection)
2063 {
2064 struct mach_o_data_struct *md = abfd->tdata.mach_o_data;
2065 unsigned int i, j, num;
2066
2067 bfd_mach_o_load_command *ncmd = NULL;
2068 bfd_mach_o_section *nsect = NULL;
2069
2070 BFD_ASSERT (mcommand != NULL);
2071 BFD_ASSERT (msection != NULL);
2072
2073 num = 0;
2074 for (i = 0; i < md->header.ncmds; i++)
2075 {
2076 struct bfd_mach_o_load_command *cmd = &md->commands[i];
2077 struct bfd_mach_o_segment_command *seg = NULL;
2078
2079 if (cmd->type != BFD_MACH_O_LC_SEGMENT
2080 || cmd->type != BFD_MACH_O_LC_SEGMENT_64)
2081 continue;
2082 seg = &cmd->command.segment;
2083
2084 if (seg->segment == section)
2085 {
2086 if (num == 0)
2087 ncmd = cmd;
2088 num++;
2089 }
2090
2091 for (j = 0; j < seg->nsects; j++)
2092 {
2093 struct bfd_mach_o_section *sect = &seg->sections[j];
2094
2095 if (sect->bfdsection == section)
2096 {
2097 if (num == 0)
2098 nsect = sect;
2099 num++;
2100 }
2101 }
2102 }
2103
2104 *mcommand = ncmd;
2105 *msection = nsect;
2106 return num;
2107 }
2108
2109 int
2110 bfd_mach_o_lookup_command (bfd *abfd,
2111 bfd_mach_o_load_command_type type,
2112 bfd_mach_o_load_command **mcommand)
2113 {
2114 struct mach_o_data_struct *md = NULL;
2115 bfd_mach_o_load_command *ncmd = NULL;
2116 unsigned int i, num;
2117
2118 md = abfd->tdata.mach_o_data;
2119
2120 BFD_ASSERT (md != NULL);
2121 BFD_ASSERT (mcommand != NULL);
2122
2123 num = 0;
2124 for (i = 0; i < md->header.ncmds; i++)
2125 {
2126 struct bfd_mach_o_load_command *cmd = &md->commands[i];
2127
2128 if (cmd->type != type)
2129 continue;
2130
2131 if (num == 0)
2132 ncmd = cmd;
2133 num++;
2134 }
2135
2136 *mcommand = ncmd;
2137 return num;
2138 }
2139
2140 unsigned long
2141 bfd_mach_o_stack_addr (enum bfd_mach_o_cpu_type type)
2142 {
2143 switch (type)
2144 {
2145 case BFD_MACH_O_CPU_TYPE_MC680x0:
2146 return 0x04000000;
2147 case BFD_MACH_O_CPU_TYPE_MC88000:
2148 return 0xffffe000;
2149 case BFD_MACH_O_CPU_TYPE_POWERPC:
2150 return 0xc0000000;
2151 case BFD_MACH_O_CPU_TYPE_I386:
2152 return 0xc0000000;
2153 case BFD_MACH_O_CPU_TYPE_SPARC:
2154 return 0xf0000000;
2155 case BFD_MACH_O_CPU_TYPE_I860:
2156 return 0;
2157 case BFD_MACH_O_CPU_TYPE_HPPA:
2158 return 0xc0000000 - 0x04000000;
2159 default:
2160 return 0;
2161 }
2162 }
2163
2164 int
2165 bfd_mach_o_core_fetch_environment (bfd *abfd,
2166 unsigned char **rbuf,
2167 unsigned int *rlen)
2168 {
2169 bfd_mach_o_data_struct *mdata = abfd->tdata.mach_o_data;
2170 unsigned long stackaddr = bfd_mach_o_stack_addr (mdata->header.cputype);
2171 unsigned int i = 0;
2172
2173 for (i = 0; i < mdata->header.ncmds; i++)
2174 {
2175 bfd_mach_o_load_command *cur = &mdata->commands[i];
2176 bfd_mach_o_segment_command *seg = NULL;
2177
2178 if (cur->type != BFD_MACH_O_LC_SEGMENT)
2179 continue;
2180
2181 seg = &cur->command.segment;
2182
2183 if ((seg->vmaddr + seg->vmsize) == stackaddr)
2184 {
2185 unsigned long start = seg->fileoff;
2186 unsigned long end = seg->fileoff + seg->filesize;
2187 unsigned char *buf = bfd_malloc (1024);
2188 unsigned long size = 1024;
2189
2190 for (;;)
2191 {
2192 bfd_size_type nread = 0;
2193 unsigned long offset;
2194 int found_nonnull = 0;
2195
2196 if (size > (end - start))
2197 size = (end - start);
2198
2199 buf = bfd_realloc_or_free (buf, size);
2200 if (buf == NULL)
2201 return -1;
2202
2203 bfd_seek (abfd, end - size, SEEK_SET);
2204 nread = bfd_bread (buf, size, abfd);
2205
2206 if (nread != size)
2207 {
2208 free (buf);
2209 return -1;
2210 }
2211
2212 for (offset = 4; offset <= size; offset += 4)
2213 {
2214 unsigned long val;
2215
2216 val = *((unsigned long *) (buf + size - offset));
2217 if (! found_nonnull)
2218 {
2219 if (val != 0)
2220 found_nonnull = 1;
2221 }
2222 else if (val == 0x0)
2223 {
2224 unsigned long bottom;
2225 unsigned long top;
2226
2227 bottom = seg->fileoff + seg->filesize - offset;
2228 top = seg->fileoff + seg->filesize - 4;
2229 *rbuf = bfd_malloc (top - bottom);
2230 *rlen = top - bottom;
2231
2232 memcpy (*rbuf, buf + size - *rlen, *rlen);
2233 free (buf);
2234 return 0;
2235 }
2236 }
2237
2238 if (size == (end - start))
2239 break;
2240
2241 size *= 2;
2242 }
2243
2244 free (buf);
2245 }
2246 }
2247
2248 return -1;
2249 }
2250
2251 char *
2252 bfd_mach_o_core_file_failing_command (bfd *abfd)
2253 {
2254 unsigned char *buf = NULL;
2255 unsigned int len = 0;
2256 int ret = -1;
2257
2258 ret = bfd_mach_o_core_fetch_environment (abfd, &buf, &len);
2259 if (ret < 0)
2260 return NULL;
2261
2262 return (char *) buf;
2263 }
2264
2265 int
2266 bfd_mach_o_core_file_failing_signal (bfd *abfd ATTRIBUTE_UNUSED)
2267 {
2268 return 0;
2269 }
2270
2271 #define TARGET_NAME mach_o_be_vec
2272 #define TARGET_STRING "mach-o-be"
2273 #define TARGET_BIG_ENDIAN 1
2274 #define TARGET_ARCHIVE 0
2275
2276 #include "mach-o-target.c"
2277
2278 #undef TARGET_NAME
2279 #undef TARGET_STRING
2280 #undef TARGET_BIG_ENDIAN
2281 #undef TARGET_ARCHIVE
2282
2283 #define TARGET_NAME mach_o_le_vec
2284 #define TARGET_STRING "mach-o-le"
2285 #define TARGET_BIG_ENDIAN 0
2286 #define TARGET_ARCHIVE 0
2287
2288 #include "mach-o-target.c"
2289
2290 #undef TARGET_NAME
2291 #undef TARGET_STRING
2292 #undef TARGET_BIG_ENDIAN
2293 #undef TARGET_ARCHIVE
2294
2295 #define TARGET_NAME mach_o_fat_vec
2296 #define TARGET_STRING "mach-o-fat"
2297 #define TARGET_BIG_ENDIAN 1
2298 #define TARGET_ARCHIVE 1
2299
2300 #include "mach-o-target.c"
2301
2302 #undef TARGET_NAME
2303 #undef TARGET_STRING
2304 #undef TARGET_BIG_ENDIAN
2305 #undef TARGET_ARCHIVE
git-cvsimport of binutils cvsroot