projects / deliverable / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
* bfd-in.h (struct stab_info): Move from stabs.c.
[deliverable/binutils-gdb.git] / bfd / coff-ppc.c
1 /* BFD back-end for PowerPC Microsoft Portable Executable files.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2001, 2002, 2003, 2004
4 Free Software Foundation, Inc.
5
6 Original version pieced together by Kim Knuttila (krk@cygnus.com)
7
8 There is nothing new under the sun. This file draws a lot on other
9 coff files, in particular, those for the rs/6000, alpha, mips, and
10 intel backends, and the PE work for the arm.
11
12 This file is part of BFD, the Binary File Descriptor library.
13
14 This program is free software; you can redistribute it and/or modify
15 it under the terms of the GNU General Public License as published by
16 the Free Software Foundation; either version 2 of the License, or
17 (at your option) any later version.
18
19 This program is distributed in the hope that it will be useful,
20 but WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 GNU General Public License for more details.
23
24 You should have received a copy of the GNU General Public License
25 along with this program; if not, write to the Free Software
26 Foundation, 59 Temple Place - Suite 330,
27 Boston, MA 02111-1307, USA. */
28
29 /* Current State:
30 - objdump works
31 - relocs generated by gas
32 - ld will link files, but they do not run.
33 - dlltool will not produce correct output in some .reloc cases, and will
34 not produce the right glue code for dll function calls. */
35
36 #include "bfd.h"
37 #include "sysdep.h"
38
39 #include "libbfd.h"
40
41 #include "coff/powerpc.h"
42 #include "coff/internal.h"
43
44 #include "coff/pe.h"
45
46 #ifdef BADMAG
47 #undef BADMAG
48 #endif
49
50 #define BADMAG(x) PPCBADMAG(x)
51
52 #include "libcoff.h"
53
54 /* This file is compiled more than once, but we only compile the
55 final_link routine once. */
56 extern bfd_boolean ppc_bfd_coff_final_link
57 PARAMS ((bfd *, struct bfd_link_info *));
58 extern void dump_toc PARAMS ((PTR));
59
60 /* The toc is a set of bfd_vma fields. We use the fact that valid
61 addresses are even (i.e. the bit representing "1" is off) to allow
62 us to encode a little extra information in the field
63 - Unallocated addresses are initialized to 1.
64 - Allocated addresses are even numbers.
65 The first time we actually write a reference to the toc in the bfd,
66 we want to record that fact in a fixup file (if it is asked for), so
67 we keep track of whether or not an address has been written by marking
68 the low order bit with a "1" upon writing. */
69
70 #define SET_UNALLOCATED(x) ((x) = 1)
71 #define IS_UNALLOCATED(x) ((x) == 1)
72
73 #define IS_WRITTEN(x) ((x) & 1)
74 #define MARK_AS_WRITTEN(x) ((x) |= 1)
75 #define MAKE_ADDR_AGAIN(x) ((x) &= ~1)
76
77 /* Turn on this check if you suspect something amiss in the hash tables. */
78 #ifdef DEBUG_HASH
79
80 /* Need a 7 char string for an eye catcher. */
81 #define EYE "krkjunk"
82
83 #define HASH_CHECK_DCL char eye_catcher[8];
84 #define HASH_CHECK_INIT(ret) strcpy(ret->eye_catcher, EYE)
85 #define HASH_CHECK(addr) \
86 if (strcmp(addr->eye_catcher, EYE) != 0) \
87 { \
88 fprintf (stderr,\
89 _("File %s, line %d, Hash check failure, bad eye %8s\n"), \
90 __FILE__, __LINE__, addr->eye_catcher); \
91 abort (); \
92 }
93
94 #else
95
96 #define HASH_CHECK_DCL
97 #define HASH_CHECK_INIT(ret)
98 #define HASH_CHECK(addr)
99
100 #endif
101
102 /* In order not to add an int to every hash table item for every coff
103 linker, we define our own hash table, derived from the coff one. */
104
105 /* PE linker hash table entries. */
106
107 struct ppc_coff_link_hash_entry
108 {
109 struct coff_link_hash_entry root; /* First entry, as required. */
110
111 /* As we wonder around the relocs, we'll keep the assigned toc_offset
112 here. */
113 bfd_vma toc_offset; /* Our addition, as required. */
114 int symbol_is_glue;
115 unsigned long int glue_insn;
116
117 HASH_CHECK_DCL
118 };
119
120 /* PE linker hash table. */
121
122 struct ppc_coff_link_hash_table
123 {
124 struct coff_link_hash_table root; /* First entry, as required. */
125 };
126
127 static struct bfd_hash_entry *ppc_coff_link_hash_newfunc
128 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *,
129 const char *));
130 static bfd_boolean ppc_coff_link_hash_table_init
131 PARAMS ((struct ppc_coff_link_hash_table *, bfd *,
132 struct bfd_hash_entry *(*) (struct bfd_hash_entry *,
133 struct bfd_hash_table *,
134 const char *)));
135 static struct bfd_link_hash_table *ppc_coff_link_hash_table_create
136 PARAMS ((bfd *));
137 static bfd_boolean coff_ppc_relocate_section
138 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
139 struct internal_reloc *, struct internal_syment *, asection **));
140 static reloc_howto_type *coff_ppc_rtype_to_howto
141 PARAMS ((bfd *, asection *, struct internal_reloc *,
142 struct coff_link_hash_entry *, struct internal_syment *,
143 bfd_vma *));
144
145 /* Routine to create an entry in the link hash table. */
146
147 static struct bfd_hash_entry *
148 ppc_coff_link_hash_newfunc (entry, table, string)
149 struct bfd_hash_entry *entry;
150 struct bfd_hash_table *table;
151 const char *string;
152 {
153 struct ppc_coff_link_hash_entry *ret =
154 (struct ppc_coff_link_hash_entry *) entry;
155
156 /* Allocate the structure if it has not already been allocated by a
157 subclass. */
158 if (ret == (struct ppc_coff_link_hash_entry *) NULL)
159 ret = (struct ppc_coff_link_hash_entry *)
160 bfd_hash_allocate (table,
161 sizeof (struct ppc_coff_link_hash_entry));
162
163 if (ret == (struct ppc_coff_link_hash_entry *) NULL)
164 return NULL;
165
166 /* Call the allocation method of the superclass. */
167 ret = ((struct ppc_coff_link_hash_entry *)
168 _bfd_coff_link_hash_newfunc ((struct bfd_hash_entry *) ret,
169 table, string));
170
171 if (ret)
172 {
173 /* Initialize the local fields. */
174 SET_UNALLOCATED (ret->toc_offset);
175 ret->symbol_is_glue = 0;
176 ret->glue_insn = 0;
177
178 HASH_CHECK_INIT (ret);
179 }
180
181 return (struct bfd_hash_entry *) ret;
182 }
183
184 /* Initialize a PE linker hash table. */
185
186 static bfd_boolean
187 ppc_coff_link_hash_table_init (table, abfd, newfunc)
188 struct ppc_coff_link_hash_table *table;
189 bfd *abfd;
190 struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *,
191 struct bfd_hash_table *,
192 const char *));
193 {
194 return _bfd_coff_link_hash_table_init (&table->root, abfd, newfunc);
195 }
196
197 /* Create a PE linker hash table. */
198
199 static struct bfd_link_hash_table *
200 ppc_coff_link_hash_table_create (abfd)
201 bfd *abfd;
202 {
203 struct ppc_coff_link_hash_table *ret;
204 bfd_size_type amt = sizeof (struct ppc_coff_link_hash_table);
205
206 ret = (struct ppc_coff_link_hash_table *) bfd_malloc (amt);
207 if (ret == NULL)
208 return NULL;
209 if (! ppc_coff_link_hash_table_init (ret, abfd,
210 ppc_coff_link_hash_newfunc))
211 {
212 free (ret);
213 return (struct bfd_link_hash_table *) NULL;
214 }
215 return &ret->root.root;
216 }
217
218 /* Now, tailor coffcode.h to use our hash stuff. */
219
220 #define coff_bfd_link_hash_table_create ppc_coff_link_hash_table_create
221 \f
222 /* The nt loader points the toc register to &toc + 32768, in order to
223 use the complete range of a 16-bit displacement. We have to adjust
224 for this when we fix up loads displaced off the toc reg. */
225 #define TOC_LOAD_ADJUSTMENT (-32768)
226 #define TOC_SECTION_NAME ".private.toc"
227
228 /* The main body of code is in coffcode.h. */
229
230 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
231
232 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
233 from smaller values. Start with zero, widen, *then* decrement. */
234 #define MINUS_ONE (((bfd_vma)0) - 1)
235
236 /* These should definitely go in a header file somewhere... */
237
238 /* NOP */
239 #define IMAGE_REL_PPC_ABSOLUTE 0x0000
240
241 /* 64-bit address */
242 #define IMAGE_REL_PPC_ADDR64 0x0001
243
244 /* 32-bit address */
245 #define IMAGE_REL_PPC_ADDR32 0x0002
246
247 /* 26-bit address, shifted left 2 (branch absolute) */
248 #define IMAGE_REL_PPC_ADDR24 0x0003
249
250 /* 16-bit address */
251 #define IMAGE_REL_PPC_ADDR16 0x0004
252
253 /* 16-bit address, shifted left 2 (load doubleword) */
254 #define IMAGE_REL_PPC_ADDR14 0x0005
255
256 /* 26-bit PC-relative offset, shifted left 2 (branch relative) */
257 #define IMAGE_REL_PPC_REL24 0x0006
258
259 /* 16-bit PC-relative offset, shifted left 2 (br cond relative) */
260 #define IMAGE_REL_PPC_REL14 0x0007
261
262 /* 16-bit offset from TOC base */
263 #define IMAGE_REL_PPC_TOCREL16 0x0008
264
265 /* 16-bit offset from TOC base, shifted left 2 (load doubleword) */
266 #define IMAGE_REL_PPC_TOCREL14 0x0009
267
268 /* 32-bit addr w/o image base */
269 #define IMAGE_REL_PPC_ADDR32NB 0x000A
270
271 /* va of containing section (as in an image sectionhdr) */
272 #define IMAGE_REL_PPC_SECREL 0x000B
273
274 /* sectionheader number */
275 #define IMAGE_REL_PPC_SECTION 0x000C
276
277 /* substitute TOC restore instruction iff symbol is glue code */
278 #define IMAGE_REL_PPC_IFGLUE 0x000D
279
280 /* symbol is glue code; virtual address is TOC restore instruction */
281 #define IMAGE_REL_PPC_IMGLUE 0x000E
282
283 /* va of containing section (limited to 16 bits) */
284 #define IMAGE_REL_PPC_SECREL16 0x000F
285
286 /* Stuff to handle immediate data when the number of bits in the
287 data is greater than the number of bits in the immediate field
288 We need to do (usually) 32 bit arithmetic on 16 bit chunks. */
289 #define IMAGE_REL_PPC_REFHI 0x0010
290 #define IMAGE_REL_PPC_REFLO 0x0011
291 #define IMAGE_REL_PPC_PAIR 0x0012
292
293 /* This is essentially the same as tocrel16, with TOCDEFN assumed. */
294 #define IMAGE_REL_PPC_TOCREL16_DEFN 0x0013
295
296 /* Flag bits in IMAGE_RELOCATION.TYPE. */
297
298 /* Subtract reloc value rather than adding it. */
299 #define IMAGE_REL_PPC_NEG 0x0100
300
301 /* Fix branch prediction bit to predict branch taken. */
302 #define IMAGE_REL_PPC_BRTAKEN 0x0200
303
304 /* Fix branch prediction bit to predict branch not taken. */
305 #define IMAGE_REL_PPC_BRNTAKEN 0x0400
306
307 /* TOC slot defined in file (or, data in toc). */
308 #define IMAGE_REL_PPC_TOCDEFN 0x0800
309
310 /* Masks to isolate above values in IMAGE_RELOCATION.Type. */
311 #define IMAGE_REL_PPC_TYPEMASK 0x00FF
312 #define IMAGE_REL_PPC_FLAGMASK 0x0F00
313
314 #define EXTRACT_TYPE(x) ((x) & IMAGE_REL_PPC_TYPEMASK)
315 #define EXTRACT_FLAGS(x) ((x) & IMAGE_REL_PPC_FLAGMASK)
316 #define EXTRACT_JUNK(x) \
317 ((x) & ~(IMAGE_REL_PPC_TYPEMASK | IMAGE_REL_PPC_FLAGMASK))
318 \f
319 /* Static helper functions to make relocation work. */
320 /* (Work In Progress) */
321
322 static bfd_reloc_status_type ppc_refhi_reloc PARAMS ((bfd *abfd,
323 arelent *reloc,
324 asymbol *symbol,
325 PTR data,
326 asection *section,
327 bfd *output_bfd,
328 char **error));
329 #if 0
330 static bfd_reloc_status_type ppc_reflo_reloc PARAMS ((bfd *abfd,
331 arelent *reloc,
332 asymbol *symbol,
333 PTR data,
334 asection *section,
335 bfd *output_bfd,
336 char **error));
337 #endif
338 static bfd_reloc_status_type ppc_pair_reloc PARAMS ((bfd *abfd,
339 arelent *reloc,
340 asymbol *symbol,
341 PTR data,
342 asection *section,
343 bfd *output_bfd,
344 char **error));
345 \f
346 static bfd_reloc_status_type ppc_toc16_reloc PARAMS ((bfd *abfd,
347 arelent *reloc,
348 asymbol *symbol,
349 PTR data,
350 asection *section,
351 bfd *output_bfd,
352 char **error));
353
354 #if 0
355 static bfd_reloc_status_type ppc_addr32nb_reloc PARAMS ((bfd *abfd,
356 arelent *reloc,
357 asymbol *symbol,
358 PTR data,
359 asection *section,
360 bfd *output_bfd,
361 char **error));
362 #endif
363 static bfd_reloc_status_type ppc_section_reloc PARAMS ((bfd *abfd,
364 arelent *reloc,
365 asymbol *symbol,
366 PTR data,
367 asection *section,
368 bfd *output_bfd,
369 char **error));
370
371 static bfd_reloc_status_type ppc_secrel_reloc PARAMS ((bfd *abfd,
372 arelent *reloc,
373 asymbol *symbol,
374 PTR data,
375 asection *section,
376 bfd *output_bfd,
377 char **error));
378
379 static bfd_reloc_status_type ppc_imglue_reloc PARAMS ((bfd *abfd,
380 arelent *reloc,
381 asymbol *symbol,
382 PTR data,
383 asection *section,
384 bfd *output_bfd,
385 char **error));
386
387 static bfd_boolean in_reloc_p PARAMS((bfd *abfd, reloc_howto_type *howto));
388 \f
389 /* FIXME: It'll take a while to get through all of these. I only need a few to
390 get us started, so those I'll make sure work. Those marked FIXME are either
391 completely unverified or have a specific unknown marked in the comment. */
392
393 /* Relocation entries for Windows/NT on PowerPC.
394
395 From the document "" we find the following listed as used relocs:
396
397 ABSOLUTE : The noop
398 ADDR[64|32|16] : fields that hold addresses in data fields or the
399 16 bit displacement field on a load/store.
400 ADDR[24|14] : fields that hold addresses in branch and cond
401 branches. These represent [26|16] bit addresses.
402 The low order 2 bits are preserved.
403 REL[24|14] : branches relative to the Instruction Address
404 register. These represent [26|16] bit addresses,
405 as before. The instruction field will be zero, and
406 the address of the SYM will be inserted at link time.
407 TOCREL16 : 16 bit displacement field referring to a slot in
408 toc.
409 TOCREL14 : 16 bit displacement field, similar to REL14 or ADDR14.
410 ADDR32NB : 32 bit address relative to the virtual origin.
411 (On the alpha, this is always a linker generated thunk)
412 (i.e. 32bit addr relative to the image base)
413 SECREL : The value is relative to the start of the section
414 containing the symbol.
415 SECTION : access to the header containing the item. Supports the
416 codeview debugger.
417
418 In particular, note that the document does not indicate that the
419 relocations listed in the header file are used. */
420
421
422 static reloc_howto_type ppc_coff_howto_table[] =
423 {
424 /* IMAGE_REL_PPC_ABSOLUTE 0x0000 NOP */
425 /* Unused: */
426 HOWTO (IMAGE_REL_PPC_ABSOLUTE, /* type */
427 0, /* rightshift */
428 0, /* size (0 = byte, 1 = short, 2 = long) */
429 0, /* bitsize */
430 FALSE, /* pc_relative */
431 0, /* bitpos */
432 complain_overflow_dont, /* dont complain_on_overflow */
433 0, /* special_function */
434 "ABSOLUTE", /* name */
435 FALSE, /* partial_inplace */
436 0x00, /* src_mask */
437 0x00, /* dst_mask */
438 FALSE), /* pcrel_offset */
439
440 /* IMAGE_REL_PPC_ADDR64 0x0001 64-bit address */
441 /* Unused: */
442 HOWTO(IMAGE_REL_PPC_ADDR64, /* type */
443 0, /* rightshift */
444 3, /* size (0 = byte, 1 = short, 2 = long) */
445 64, /* bitsize */
446 FALSE, /* pc_relative */
447 0, /* bitpos */
448 complain_overflow_bitfield, /* complain_on_overflow */
449 0, /* special_function */
450 "ADDR64", /* name */
451 TRUE, /* partial_inplace */
452 MINUS_ONE, /* src_mask */
453 MINUS_ONE, /* dst_mask */
454 FALSE), /* pcrel_offset */
455
456 /* IMAGE_REL_PPC_ADDR32 0x0002 32-bit address */
457 /* Used: */
458 HOWTO (IMAGE_REL_PPC_ADDR32, /* type */
459 0, /* rightshift */
460 2, /* size (0 = byte, 1 = short, 2 = long) */
461 32, /* bitsize */
462 FALSE, /* pc_relative */
463 0, /* bitpos */
464 complain_overflow_bitfield, /* complain_on_overflow */
465 0, /* special_function */
466 "ADDR32", /* name */
467 TRUE, /* partial_inplace */
468 0xffffffff, /* src_mask */
469 0xffffffff, /* dst_mask */
470 FALSE), /* pcrel_offset */
471
472 /* IMAGE_REL_PPC_ADDR24 0x0003 26-bit address, shifted left 2 (branch absolute) */
473 /* the LI field is in bit 6 through bit 29 is 24 bits, + 2 for the shift */
474 /* Of course, That's the IBM approved bit numbering, which is not what */
475 /* anyone else uses.... The li field is in bit 2 thru 25 */
476 /* Used: */
477 HOWTO (IMAGE_REL_PPC_ADDR24, /* type */
478 0, /* rightshift */
479 2, /* size (0 = byte, 1 = short, 2 = long) */
480 26, /* bitsize */
481 FALSE, /* pc_relative */
482 0, /* bitpos */
483 complain_overflow_bitfield, /* complain_on_overflow */
484 0, /* special_function */
485 "ADDR24", /* name */
486 TRUE, /* partial_inplace */
487 0x07fffffc, /* src_mask */
488 0x07fffffc, /* dst_mask */
489 FALSE), /* pcrel_offset */
490
491 /* IMAGE_REL_PPC_ADDR16 0x0004 16-bit address */
492 /* Used: */
493 HOWTO (IMAGE_REL_PPC_ADDR16, /* type */
494 0, /* rightshift */
495 1, /* size (0 = byte, 1 = short, 2 = long) */
496 16, /* bitsize */
497 FALSE, /* pc_relative */
498 0, /* bitpos */
499 complain_overflow_signed, /* complain_on_overflow */
500 0, /* special_function */
501 "ADDR16", /* name */
502 TRUE, /* partial_inplace */
503 0xffff, /* src_mask */
504 0xffff, /* dst_mask */
505 FALSE), /* pcrel_offset */
506
507 /* IMAGE_REL_PPC_ADDR14 0x0005 */
508 /* 16-bit address, shifted left 2 (load doubleword) */
509 /* FIXME: the mask is likely wrong, and the bit position may be as well */
510 /* Unused: */
511 HOWTO (IMAGE_REL_PPC_ADDR14, /* type */
512 1, /* rightshift */
513 1, /* size (0 = byte, 1 = short, 2 = long) */
514 16, /* bitsize */
515 FALSE, /* pc_relative */
516 0, /* bitpos */
517 complain_overflow_signed, /* complain_on_overflow */
518 0, /* special_function */
519 "ADDR16", /* name */
520 TRUE, /* partial_inplace */
521 0xffff, /* src_mask */
522 0xffff, /* dst_mask */
523 FALSE), /* pcrel_offset */
524
525 /* IMAGE_REL_PPC_REL24 0x0006 */
526 /* 26-bit PC-relative offset, shifted left 2 (branch relative) */
527 /* Used: */
528 HOWTO (IMAGE_REL_PPC_REL24, /* type */
529 0, /* rightshift */
530 2, /* size (0 = byte, 1 = short, 2 = long) */
531 26, /* bitsize */
532 TRUE, /* pc_relative */
533 0, /* bitpos */
534 complain_overflow_signed, /* complain_on_overflow */
535 0, /* special_function */
536 "REL24", /* name */
537 TRUE, /* partial_inplace */
538 0x3fffffc, /* src_mask */
539 0x3fffffc, /* dst_mask */
540 FALSE), /* pcrel_offset */
541
542 /* IMAGE_REL_PPC_REL14 0x0007 */
543 /* 16-bit PC-relative offset, shifted left 2 (br cond relative) */
544 /* FIXME: the mask is likely wrong, and the bit position may be as well */
545 /* FIXME: how does it know how far to shift? */
546 /* Unused: */
547 HOWTO (IMAGE_REL_PPC_ADDR14, /* type */
548 1, /* rightshift */
549 1, /* size (0 = byte, 1 = short, 2 = long) */
550 16, /* bitsize */
551 FALSE, /* pc_relative */
552 0, /* bitpos */
553 complain_overflow_signed, /* complain_on_overflow */
554 0, /* special_function */
555 "ADDR16", /* name */
556 TRUE, /* partial_inplace */
557 0xffff, /* src_mask */
558 0xffff, /* dst_mask */
559 TRUE), /* pcrel_offset */
560
561 /* IMAGE_REL_PPC_TOCREL16 0x0008 */
562 /* 16-bit offset from TOC base */
563 /* Used: */
564 HOWTO (IMAGE_REL_PPC_TOCREL16,/* type */
565 0, /* rightshift */
566 1, /* size (0 = byte, 1 = short, 2 = long) */
567 16, /* bitsize */
568 FALSE, /* pc_relative */
569 0, /* bitpos */
570 complain_overflow_dont, /* complain_on_overflow */
571 ppc_toc16_reloc, /* special_function */
572 "TOCREL16", /* name */
573 FALSE, /* partial_inplace */
574 0xffff, /* src_mask */
575 0xffff, /* dst_mask */
576 FALSE), /* pcrel_offset */
577
578 /* IMAGE_REL_PPC_TOCREL14 0x0009 */
579 /* 16-bit offset from TOC base, shifted left 2 (load doubleword) */
580 /* Unused: */
581 HOWTO (IMAGE_REL_PPC_TOCREL14,/* type */
582 1, /* rightshift */
583 1, /* size (0 = byte, 1 = short, 2 = long) */
584 16, /* bitsize */
585 FALSE, /* pc_relative */
586 0, /* bitpos */
587 complain_overflow_signed, /* complain_on_overflow */
588 0, /* special_function */
589 "TOCREL14", /* name */
590 FALSE, /* partial_inplace */
591 0xffff, /* src_mask */
592 0xffff, /* dst_mask */
593 FALSE), /* pcrel_offset */
594
595 /* IMAGE_REL_PPC_ADDR32NB 0x000A */
596 /* 32-bit addr w/ image base */
597 /* Unused: */
598 HOWTO (IMAGE_REL_PPC_ADDR32NB,/* type */
599 0, /* rightshift */
600 2, /* size (0 = byte, 1 = short, 2 = long) */
601 32, /* bitsize */
602 FALSE, /* pc_relative */
603 0, /* bitpos */
604 complain_overflow_signed, /* complain_on_overflow */
605 0, /* special_function */
606 "ADDR32NB", /* name */
607 TRUE, /* partial_inplace */
608 0xffffffff, /* src_mask */
609 0xffffffff, /* dst_mask */
610 FALSE), /* pcrel_offset */
611
612 /* IMAGE_REL_PPC_SECREL 0x000B */
613 /* va of containing section (as in an image sectionhdr) */
614 /* Unused: */
615 HOWTO (IMAGE_REL_PPC_SECREL,/* type */
616 0, /* rightshift */
617 2, /* size (0 = byte, 1 = short, 2 = long) */
618 32, /* bitsize */
619 FALSE, /* pc_relative */
620 0, /* bitpos */
621 complain_overflow_signed, /* complain_on_overflow */
622 ppc_secrel_reloc, /* special_function */
623 "SECREL", /* name */
624 TRUE, /* partial_inplace */
625 0xffffffff, /* src_mask */
626 0xffffffff, /* dst_mask */
627 TRUE), /* pcrel_offset */
628
629 /* IMAGE_REL_PPC_SECTION 0x000C */
630 /* sectionheader number */
631 /* Unused: */
632 HOWTO (IMAGE_REL_PPC_SECTION,/* type */
633 0, /* rightshift */
634 2, /* size (0 = byte, 1 = short, 2 = long) */
635 32, /* bitsize */
636 FALSE, /* pc_relative */
637 0, /* bitpos */
638 complain_overflow_signed, /* complain_on_overflow */
639 ppc_section_reloc, /* special_function */
640 "SECTION", /* name */
641 TRUE, /* partial_inplace */
642 0xffffffff, /* src_mask */
643 0xffffffff, /* dst_mask */
644 TRUE), /* pcrel_offset */
645
646 /* IMAGE_REL_PPC_IFGLUE 0x000D */
647 /* substitute TOC restore instruction iff symbol is glue code */
648 /* Used: */
649 HOWTO (IMAGE_REL_PPC_IFGLUE,/* type */
650 0, /* rightshift */
651 2, /* size (0 = byte, 1 = short, 2 = long) */
652 32, /* bitsize */
653 FALSE, /* pc_relative */
654 0, /* bitpos */
655 complain_overflow_signed, /* complain_on_overflow */
656 0, /* special_function */
657 "IFGLUE", /* name */
658 TRUE, /* partial_inplace */
659 0xffffffff, /* src_mask */
660 0xffffffff, /* dst_mask */
661 FALSE), /* pcrel_offset */
662
663 /* IMAGE_REL_PPC_IMGLUE 0x000E */
664 /* symbol is glue code; virtual address is TOC restore instruction */
665 /* Unused: */
666 HOWTO (IMAGE_REL_PPC_IMGLUE,/* type */
667 0, /* rightshift */
668 2, /* size (0 = byte, 1 = short, 2 = long) */
669 32, /* bitsize */
670 FALSE, /* pc_relative */
671 0, /* bitpos */
672 complain_overflow_dont, /* complain_on_overflow */
673 ppc_imglue_reloc, /* special_function */
674 "IMGLUE", /* name */
675 FALSE, /* partial_inplace */
676 0xffffffff, /* src_mask */
677 0xffffffff, /* dst_mask */
678 FALSE), /* pcrel_offset */
679
680 /* IMAGE_REL_PPC_SECREL16 0x000F */
681 /* va of containing section (limited to 16 bits) */
682 /* Unused: */
683 HOWTO (IMAGE_REL_PPC_SECREL16,/* type */
684 0, /* rightshift */
685 1, /* size (0 = byte, 1 = short, 2 = long) */
686 16, /* bitsize */
687 FALSE, /* pc_relative */
688 0, /* bitpos */
689 complain_overflow_signed, /* complain_on_overflow */
690 0, /* special_function */
691 "SECREL16", /* name */
692 TRUE, /* partial_inplace */
693 0xffff, /* src_mask */
694 0xffff, /* dst_mask */
695 TRUE), /* pcrel_offset */
696
697 /* IMAGE_REL_PPC_REFHI 0x0010 */
698 /* Unused: */
699 HOWTO (IMAGE_REL_PPC_REFHI, /* type */
700 0, /* rightshift */
701 1, /* size (0 = byte, 1 = short, 2 = long) */
702 16, /* bitsize */
703 FALSE, /* pc_relative */
704 0, /* bitpos */
705 complain_overflow_signed, /* complain_on_overflow */
706 ppc_refhi_reloc, /* special_function */
707 "REFHI", /* name */
708 TRUE, /* partial_inplace */
709 0xffffffff, /* src_mask */
710 0xffffffff, /* dst_mask */
711 FALSE), /* pcrel_offset */
712
713 /* IMAGE_REL_PPC_REFLO 0x0011 */
714 /* Unused: */
715 HOWTO (IMAGE_REL_PPC_REFLO, /* type */
716 0, /* rightshift */
717 1, /* size (0 = byte, 1 = short, 2 = long) */
718 16, /* bitsize */
719 FALSE, /* pc_relative */
720 0, /* bitpos */
721 complain_overflow_signed, /* complain_on_overflow */
722 ppc_refhi_reloc, /* special_function */
723 "REFLO", /* name */
724 TRUE, /* partial_inplace */
725 0xffffffff, /* src_mask */
726 0xffffffff, /* dst_mask */
727 FALSE), /* pcrel_offset */
728
729 /* IMAGE_REL_PPC_PAIR 0x0012 */
730 /* Unused: */
731 HOWTO (IMAGE_REL_PPC_PAIR, /* type */
732 0, /* rightshift */
733 1, /* size (0 = byte, 1 = short, 2 = long) */
734 16, /* bitsize */
735 FALSE, /* pc_relative */
736 0, /* bitpos */
737 complain_overflow_signed, /* complain_on_overflow */
738 ppc_pair_reloc, /* special_function */
739 "PAIR", /* name */
740 TRUE, /* partial_inplace */
741 0xffffffff, /* src_mask */
742 0xffffffff, /* dst_mask */
743 FALSE), /* pcrel_offset */
744
745 /* IMAGE_REL_PPC_TOCREL16_DEFN 0x0013 */
746 /* 16-bit offset from TOC base, without causing a definition */
747 /* Used: */
748 HOWTO ( (IMAGE_REL_PPC_TOCREL16 | IMAGE_REL_PPC_TOCDEFN), /* type */
749 0, /* rightshift */
750 1, /* size (0 = byte, 1 = short, 2 = long) */
751 16, /* bitsize */
752 FALSE, /* pc_relative */
753 0, /* bitpos */
754 complain_overflow_dont, /* complain_on_overflow */
755 0, /* special_function */
756 "TOCREL16, TOCDEFN", /* name */
757 FALSE, /* partial_inplace */
758 0xffff, /* src_mask */
759 0xffff, /* dst_mask */
760 FALSE), /* pcrel_offset */
761
762 };
763 \f
764 /* Some really cheezy macros that can be turned on to test stderr :-) */
765
766 #ifdef DEBUG_RELOC
767 #define UN_IMPL(x) \
768 { \
769 static int i; \
770 if (i == 0) \
771 { \
772 i = 1; \
773 fprintf (stderr,_("Unimplemented Relocation -- %s\n"),x); \
774 } \
775 }
776
777 #define DUMP_RELOC(n,r) \
778 { \
779 fprintf (stderr,"%s sym %d, addr %d, addend %d\n", \
780 n, (*(r->sym_ptr_ptr))->name, \
781 r->address, r->addend); \
782 }
783
784 /* Given a reloc name, n, and a pointer to an internal_reloc,
785 dump out interesting information on the contents
786
787 #define n_name _n._n_name
788 #define n_zeroes _n._n_n._n_zeroes
789 #define n_offset _n._n_n._n_offset */
790
791 #define DUMP_RELOC2(n,r) \
792 { \
793 fprintf (stderr,"%s sym %d, r_vaddr %d %s\n", \
794 n, r->r_symndx, r->r_vaddr, \
795 (((r->r_type) & IMAGE_REL_PPC_TOCDEFN) == 0) \
796 ?" ":" TOCDEFN" ); \
797 }
798
799 #else
800 #define UN_IMPL(x)
801 #define DUMP_RELOC(n,r)
802 #define DUMP_RELOC2(n,r)
803 #endif
804 \f
805 /* TOC construction and management routines. */
806
807 /* This file is compiled twice, and these variables are defined in one
808 of the compilations. FIXME: This is confusing and weird. Also,
809 BFD should not use global variables. */
810 extern bfd * bfd_of_toc_owner;
811 extern long int global_toc_size;
812 extern long int import_table_size;
813 extern long int first_thunk_address;
814 extern long int thunk_size;
815
816 enum toc_type
817 {
818 default_toc,
819 toc_32,
820 toc_64
821 };
822
823 enum ref_category
824 {
825 priv,
826 pub,
827 tocdata
828 };
829
830 struct list_ele
831 {
832 struct list_ele *next;
833 bfd_vma addr;
834 enum ref_category cat;
835 int offset;
836 const char *name;
837 };
838
839 extern struct list_ele *head;
840 extern struct list_ele *tail;
841
842 static void record_toc
843 PARAMS ((asection *, bfd_signed_vma, enum ref_category, const char *));
844
845 static void
846 record_toc (toc_section, our_toc_offset, cat, name)
847 asection *toc_section;
848 bfd_signed_vma our_toc_offset;
849 enum ref_category cat;
850 const char *name;
851 {
852 /* Add this entry to our toc addr-offset-name list. */
853 bfd_size_type amt = sizeof (struct list_ele);
854 struct list_ele *t = (struct list_ele *) bfd_malloc (amt);
855
856 if (t == NULL)
857 abort ();
858 t->next = 0;
859 t->offset = our_toc_offset;
860 t->name = name;
861 t->cat = cat;
862 t->addr = toc_section->output_offset + our_toc_offset;
863
864 if (head == 0)
865 {
866 head = t;
867 tail = t;
868 }
869 else
870 {
871 tail->next = t;
872 tail = t;
873 }
874 }
875
876 #ifdef COFF_IMAGE_WITH_PE
877
878 static bfd_boolean ppc_record_toc_entry
879 PARAMS ((bfd *, struct bfd_link_info *, asection *, int, enum toc_type));
880 static void ppc_mark_symbol_as_glue
881 PARAMS ((bfd *, int, struct internal_reloc *));
882
883 /* Record a toc offset against a symbol. */
884 static bfd_boolean
885 ppc_record_toc_entry(abfd, info, sec, sym, toc_kind)
886 bfd *abfd;
887 struct bfd_link_info *info ATTRIBUTE_UNUSED;
888 asection *sec ATTRIBUTE_UNUSED;
889 int sym;
890 enum toc_type toc_kind ATTRIBUTE_UNUSED;
891 {
892 struct ppc_coff_link_hash_entry *h;
893 const char *name;
894
895 int *local_syms;
896
897 h = 0;
898
899 h = (struct ppc_coff_link_hash_entry *) (obj_coff_sym_hashes (abfd)[sym]);
900 if (h != 0)
901 {
902 HASH_CHECK(h);
903 }
904
905 if (h == 0)
906 {
907 local_syms = obj_coff_local_toc_table(abfd);
908
909 if (local_syms == 0)
910 {
911 unsigned int i;
912 bfd_size_type amt;
913
914 /* allocate a table */
915 amt = (bfd_size_type) obj_raw_syment_count (abfd) * sizeof (int);
916 local_syms = (int *) bfd_zalloc (abfd, amt);
917 if (local_syms == 0)
918 return FALSE;
919 obj_coff_local_toc_table (abfd) = local_syms;
920
921 for (i = 0; i < obj_raw_syment_count (abfd); ++i)
922 {
923 SET_UNALLOCATED (local_syms[i]);
924 }
925 }
926
927 if (IS_UNALLOCATED(local_syms[sym]))
928 {
929 local_syms[sym] = global_toc_size;
930 global_toc_size += 4;
931
932 /* The size must fit in a 16-bit displacement. */
933 if (global_toc_size > 65535)
934 {
935 (*_bfd_error_handler) (_("TOC overflow"));
936 bfd_set_error (bfd_error_file_too_big);
937 return FALSE;
938 }
939 }
940 }
941 else
942 {
943 name = h->root.root.root.string;
944
945 /* Check to see if there's a toc slot allocated. If not, do it
946 here. It will be used in relocate_section. */
947 if (IS_UNALLOCATED(h->toc_offset))
948 {
949 h->toc_offset = global_toc_size;
950 global_toc_size += 4;
951
952 /* The size must fit in a 16-bit displacement. */
953 if (global_toc_size >= 65535)
954 {
955 (*_bfd_error_handler) (_("TOC overflow"));
956 bfd_set_error (bfd_error_file_too_big);
957 return FALSE;
958 }
959 }
960 }
961
962 return TRUE;
963 }
964
965 /* Record a toc offset against a symbol. */
966 static void
967 ppc_mark_symbol_as_glue(abfd, sym, rel)
968 bfd *abfd;
969 int sym;
970 struct internal_reloc *rel;
971 {
972 struct ppc_coff_link_hash_entry *h;
973
974 h = (struct ppc_coff_link_hash_entry *) (obj_coff_sym_hashes (abfd)[sym]);
975
976 HASH_CHECK(h);
977
978 h->symbol_is_glue = 1;
979 h->glue_insn = bfd_get_32 (abfd, (bfd_byte *) &rel->r_vaddr);
980
981 return;
982 }
983
984 #endif /* COFF_IMAGE_WITH_PE */
985 \f
986 /* Return TRUE if this relocation should
987 appear in the output .reloc section. */
988
989 static bfd_boolean in_reloc_p(abfd, howto)
990 bfd * abfd ATTRIBUTE_UNUSED;
991 reloc_howto_type *howto;
992 {
993 return
994 (! howto->pc_relative)
995 && (howto->type != IMAGE_REL_PPC_ADDR32NB)
996 && (howto->type != IMAGE_REL_PPC_TOCREL16)
997 && (howto->type != IMAGE_REL_PPC_IMGLUE)
998 && (howto->type != IMAGE_REL_PPC_IFGLUE)
999 && (howto->type != IMAGE_REL_PPC_SECREL)
1000 && (howto->type != IMAGE_REL_PPC_SECTION)
1001 && (howto->type != IMAGE_REL_PPC_SECREL16)
1002 && (howto->type != IMAGE_REL_PPC_REFHI)
1003 && (howto->type != IMAGE_REL_PPC_REFLO)
1004 && (howto->type != IMAGE_REL_PPC_PAIR)
1005 && (howto->type != IMAGE_REL_PPC_TOCREL16_DEFN) ;
1006 }
1007
1008 #if 0
1009
1010 /* This function is in charge of performing all the ppc PE relocations
1011 Don't yet know if we want to do this this particular way ... (krk). */
1012 /* FIXME: (it is not yet enabled). */
1013
1014 static bfd_reloc_status_type
1015 pe_ppc_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd,
1016 error_message)
1017 bfd *abfd;
1018 arelent *reloc_entry;
1019 asymbol *symbol_in;
1020 PTR data;
1021 asection *input_section;
1022 bfd *output_bfd;
1023 char **error_message;
1024 {
1025 /* The consth relocation comes in two parts, we have to remember
1026 the state between calls, in these variables. */
1027 static bfd_boolean part1_consth_active = FALSE;
1028 static unsigned long part1_consth_value;
1029
1030 unsigned long sym_value;
1031 unsigned short r_type;
1032 unsigned long addr = reloc_entry->address ; /*+ input_section->vma*/
1033
1034 r_type = reloc_entry->howto->type;
1035
1036 if (output_bfd)
1037 {
1038 /* Partial linking - do nothing. */
1039 reloc_entry->address += input_section->output_offset;
1040 return bfd_reloc_ok;
1041 }
1042
1043 if (symbol_in != NULL
1044 && bfd_is_und_section (symbol_in->section))
1045 {
1046 /* Keep the state machine happy in case we're called again. */
1047 if (r_type == IMAGE_REL_PPC_REFHI)
1048 {
1049 part1_consth_active = TRUE;
1050 part1_consth_value = 0;
1051 }
1052 return(bfd_reloc_undefined);
1053 }
1054
1055 if ((part1_consth_active) && (r_type != IMAGE_REL_PPC_PAIR))
1056 {
1057 part1_consth_active = FALSE;
1058 *error_message = (char *) _("Missing PAIR");
1059 return(bfd_reloc_dangerous);
1060 }
1061
1062 sym_value = get_symbol_value(symbol_in);
1063
1064 return(bfd_reloc_ok);
1065 }
1066
1067 #endif /* 0 */
1068
1069 /* The reloc processing routine for the optimized COFF linker. */
1070
1071 static bfd_boolean
1072 coff_ppc_relocate_section (output_bfd, info, input_bfd, input_section,
1073 contents, relocs, syms, sections)
1074 bfd *output_bfd;
1075 struct bfd_link_info *info;
1076 bfd *input_bfd;
1077 asection *input_section;
1078 bfd_byte *contents;
1079 struct internal_reloc *relocs;
1080 struct internal_syment *syms;
1081 asection **sections;
1082 {
1083 struct internal_reloc *rel;
1084 struct internal_reloc *relend;
1085 bfd_boolean hihalf;
1086 bfd_vma hihalf_val;
1087 asection *toc_section = 0;
1088 bfd_vma relocation;
1089 reloc_howto_type *howto = 0;
1090
1091 /* If we are performing a relocatable link, we don't need to do a
1092 thing. The caller will take care of adjusting the reloc
1093 addresses and symbol indices. */
1094 if (info->relocatable)
1095 return TRUE;
1096
1097 hihalf = FALSE;
1098 hihalf_val = 0;
1099
1100 rel = relocs;
1101 relend = rel + input_section->reloc_count;
1102 for (; rel < relend; rel++)
1103 {
1104 long symndx;
1105 struct ppc_coff_link_hash_entry *h;
1106 struct internal_syment *sym;
1107 bfd_vma val;
1108
1109 asection *sec;
1110 bfd_reloc_status_type rstat;
1111 bfd_byte *loc;
1112
1113 unsigned short r_type = EXTRACT_TYPE (rel->r_type);
1114 unsigned short r_flags = EXTRACT_FLAGS(rel->r_type);
1115
1116 symndx = rel->r_symndx;
1117 loc = contents + rel->r_vaddr - input_section->vma;
1118
1119 /* FIXME: check bounds on r_type */
1120 howto = ppc_coff_howto_table + r_type;
1121
1122 if (symndx == -1)
1123 {
1124 h = NULL;
1125 sym = NULL;
1126 }
1127 else
1128 {
1129 h = (struct ppc_coff_link_hash_entry *)
1130 (obj_coff_sym_hashes (input_bfd)[symndx]);
1131 if (h != 0)
1132 {
1133 HASH_CHECK(h);
1134 }
1135
1136 sym = syms + symndx;
1137 }
1138
1139 if (r_type == IMAGE_REL_PPC_IMGLUE && h == 0)
1140 {
1141 /* An IMGLUE reloc must have a name. Something is very wrong. */
1142 abort ();
1143 }
1144
1145 sec = NULL;
1146 val = 0;
1147
1148 /* FIXME: PAIR unsupported in the following code. */
1149 if (h == NULL)
1150 {
1151 if (symndx == -1)
1152 sec = bfd_abs_section_ptr;
1153 else
1154 {
1155 sec = sections[symndx];
1156 val = (sec->output_section->vma
1157 + sec->output_offset
1158 + sym->n_value);
1159 if (! obj_pe (output_bfd))
1160 val -= sec->vma;
1161 }
1162 }
1163 else
1164 {
1165 HASH_CHECK(h);
1166
1167 if (h->root.root.type == bfd_link_hash_defined
1168 || h->root.root.type == bfd_link_hash_defweak)
1169 {
1170 sec = h->root.root.u.def.section;
1171 val = (h->root.root.u.def.value
1172 + sec->output_section->vma
1173 + sec->output_offset);
1174 }
1175 else
1176 {
1177 if (! ((*info->callbacks->undefined_symbol)
1178 (info, h->root.root.root.string, input_bfd, input_section,
1179 rel->r_vaddr - input_section->vma, TRUE)))
1180 return FALSE;
1181 }
1182 }
1183
1184 rstat = bfd_reloc_ok;
1185
1186 /* Each case must do its own relocation, setting rstat appropriately. */
1187 switch (r_type)
1188 {
1189 default:
1190 (*_bfd_error_handler)
1191 (_("%s: unsupported relocation type 0x%02x"),
1192 bfd_archive_filename (input_bfd), r_type);
1193 bfd_set_error (bfd_error_bad_value);
1194 return FALSE;
1195 case IMAGE_REL_PPC_TOCREL16:
1196 {
1197 bfd_signed_vma our_toc_offset;
1198 int fixit;
1199
1200 DUMP_RELOC2(howto->name, rel);
1201
1202 if (toc_section == 0)
1203 {
1204 toc_section = bfd_get_section_by_name (bfd_of_toc_owner,
1205 TOC_SECTION_NAME);
1206
1207 if ( toc_section == NULL )
1208 {
1209 /* There is no toc section. Something is very wrong. */
1210 abort ();
1211 }
1212 }
1213
1214 /* Amazing bit tricks present. As we may have seen earlier, we
1215 use the 1 bit to tell us whether or not a toc offset has been
1216 allocated. Now that they've all been allocated, we will use
1217 the 1 bit to tell us if we've written this particular toc
1218 entry out. */
1219 fixit = FALSE;
1220 if (h == 0)
1221 {
1222 /* It is a file local symbol. */
1223 int *local_toc_table;
1224 const char *name;
1225
1226 sym = syms + symndx;
1227 name = sym->_n._n_name;
1228
1229 local_toc_table = obj_coff_local_toc_table(input_bfd);
1230 our_toc_offset = local_toc_table[symndx];
1231
1232 if (IS_WRITTEN(our_toc_offset))
1233 {
1234 /* If it has been written out, it is marked with the
1235 1 bit. Fix up our offset, but do not write it out
1236 again. */
1237 MAKE_ADDR_AGAIN(our_toc_offset);
1238 }
1239 else
1240 {
1241 /* Write out the toc entry. */
1242 record_toc (toc_section, our_toc_offset, priv,
1243 strdup (name));
1244
1245 bfd_put_32 (output_bfd, val,
1246 toc_section->contents + our_toc_offset);
1247
1248 MARK_AS_WRITTEN(local_toc_table[symndx]);
1249 fixit = TRUE;
1250 }
1251 }
1252 else
1253 {
1254 const char *name = h->root.root.root.string;
1255 our_toc_offset = h->toc_offset;
1256
1257 if ((r_flags & IMAGE_REL_PPC_TOCDEFN)
1258 == IMAGE_REL_PPC_TOCDEFN )
1259 {
1260 /* This is unbelievable cheese. Some knowledgable asm
1261 hacker has decided to use r2 as a base for loading
1262 a value. He/She does this by setting the tocdefn bit,
1263 and not supplying a toc definition. The behaviour is
1264 then to use the difference between the value of the
1265 symbol and the actual location of the toc as the toc
1266 index.
1267
1268 In fact, what is usually happening is, because the
1269 Import Address Table is mapped immediately following
1270 the toc, some trippy library code trying for speed on
1271 dll linkage, takes advantage of that and considers
1272 the IAT to be part of the toc, thus saving a load. */
1273
1274 our_toc_offset = val - (toc_section->output_section->vma
1275 + toc_section->output_offset);
1276
1277 /* The size must still fit in a 16-bit displacement. */
1278 if ((bfd_vma) our_toc_offset >= 65535)
1279 {
1280 (*_bfd_error_handler)
1281 (_("%s: Relocation for %s of %lx exceeds Toc size limit"),
1282 bfd_archive_filename (input_bfd), name,
1283 (unsigned long) our_toc_offset);
1284 bfd_set_error (bfd_error_bad_value);
1285 return FALSE;
1286 }
1287
1288 record_toc (toc_section, our_toc_offset, pub,
1289 strdup (name));
1290 }
1291 else if (IS_WRITTEN (our_toc_offset))
1292 {
1293 /* If it has been written out, it is marked with the
1294 1 bit. Fix up our offset, but do not write it out
1295 again. */
1296 MAKE_ADDR_AGAIN(our_toc_offset);
1297 }
1298 else
1299 {
1300 record_toc(toc_section, our_toc_offset, pub,
1301 strdup (name));
1302
1303 /* Write out the toc entry. */
1304 bfd_put_32 (output_bfd, val,
1305 toc_section->contents + our_toc_offset);
1306
1307 MARK_AS_WRITTEN(h->toc_offset);
1308 /* The tricky part is that this is the address that
1309 needs a .reloc entry for it. */
1310 fixit = TRUE;
1311 }
1312 }
1313
1314 if (fixit && info->base_file)
1315 {
1316 /* So if this is non pcrelative, and is referenced
1317 to a section or a common symbol, then it needs a reloc. */
1318
1319 /* Relocation to a symbol in a section which
1320 isn't absolute - we output the address here
1321 to a file. */
1322 bfd_vma addr = (toc_section->output_section->vma
1323 + toc_section->output_offset + our_toc_offset);
1324
1325 if (coff_data (output_bfd)->pe)
1326 addr -= pe_data(output_bfd)->pe_opthdr.ImageBase;
1327
1328 fwrite (&addr, 1,4, (FILE *) info->base_file);
1329 }
1330
1331 /* FIXME: this test is conservative. */
1332 if ((r_flags & IMAGE_REL_PPC_TOCDEFN) != IMAGE_REL_PPC_TOCDEFN
1333 && (bfd_vma) our_toc_offset > toc_section->size)
1334 {
1335 (*_bfd_error_handler)
1336 (_("%s: Relocation exceeds allocated TOC (%lx)"),
1337 bfd_archive_filename (input_bfd),
1338 (unsigned long) toc_section->size);
1339 bfd_set_error (bfd_error_bad_value);
1340 return FALSE;
1341 }
1342
1343 /* Now we know the relocation for this toc reference. */
1344 relocation = our_toc_offset + TOC_LOAD_ADJUSTMENT;
1345 rstat = _bfd_relocate_contents (howto, input_bfd, relocation, loc);
1346 }
1347 break;
1348 case IMAGE_REL_PPC_IFGLUE:
1349 {
1350 /* To solve this, we need to know whether or not the symbol
1351 appearing on the call instruction is a glue function or not.
1352 A glue function must announce itself via a IMGLUE reloc, and
1353 the reloc contains the required toc restore instruction. */
1354 bfd_vma x;
1355 const char *my_name;
1356
1357 DUMP_RELOC2 (howto->name, rel);
1358
1359 if (h != 0)
1360 {
1361 my_name = h->root.root.root.string;
1362 if (h->symbol_is_glue == 1)
1363 {
1364 x = bfd_get_32 (input_bfd, loc);
1365 bfd_put_32 (input_bfd, (bfd_vma) h->glue_insn, loc);
1366 }
1367 }
1368 }
1369 break;
1370 case IMAGE_REL_PPC_SECREL:
1371 /* Unimplemented: codeview debugging information. */
1372 /* For fast access to the header of the section
1373 containing the item. */
1374 break;
1375 case IMAGE_REL_PPC_SECTION:
1376 /* Unimplemented: codeview debugging information. */
1377 /* Is used to indicate that the value should be relative
1378 to the beginning of the section that contains the
1379 symbol. */
1380 break;
1381 case IMAGE_REL_PPC_ABSOLUTE:
1382 {
1383 const char *my_name;
1384
1385 if (h == 0)
1386 my_name = (syms+symndx)->_n._n_name;
1387 else
1388 my_name = h->root.root.root.string;
1389
1390 fprintf (stderr,
1391 _("Warning: unsupported reloc %s <file %s, section %s>\n"),
1392 howto->name,
1393 bfd_archive_filename(input_bfd),
1394 input_section->name);
1395
1396 fprintf (stderr,"sym %ld (%s), r_vaddr %ld (%lx)\n",
1397 rel->r_symndx, my_name, (long) rel->r_vaddr,
1398 (unsigned long) rel->r_vaddr);
1399 }
1400 break;
1401 case IMAGE_REL_PPC_IMGLUE:
1402 {
1403 /* There is nothing to do now. This reloc was noted in the first
1404 pass over the relocs, and the glue instruction extracted. */
1405 const char *my_name;
1406
1407 if (h->symbol_is_glue == 1)
1408 break;
1409 my_name = h->root.root.root.string;
1410
1411 (*_bfd_error_handler)
1412 (_("%s: Out of order IMGLUE reloc for %s"),
1413 bfd_archive_filename (input_bfd), my_name);
1414 bfd_set_error (bfd_error_bad_value);
1415 return FALSE;
1416 }
1417
1418 case IMAGE_REL_PPC_ADDR32NB:
1419 {
1420 const char *name = 0;
1421
1422 DUMP_RELOC2 (howto->name, rel);
1423
1424 if (strncmp(".idata$2",input_section->name,8) == 0 && first_thunk_address == 0)
1425 {
1426 /* Set magic values. */
1427 int idata5offset;
1428 struct coff_link_hash_entry *myh;
1429
1430 myh = coff_link_hash_lookup (coff_hash_table (info),
1431 "__idata5_magic__",
1432 FALSE, FALSE, TRUE);
1433 first_thunk_address = myh->root.u.def.value +
1434 sec->output_section->vma +
1435 sec->output_offset -
1436 pe_data(output_bfd)->pe_opthdr.ImageBase;
1437
1438 idata5offset = myh->root.u.def.value;
1439 myh = coff_link_hash_lookup (coff_hash_table (info),
1440 "__idata6_magic__",
1441 FALSE, FALSE, TRUE);
1442
1443 thunk_size = myh->root.u.def.value - idata5offset;
1444 myh = coff_link_hash_lookup (coff_hash_table (info),
1445 "__idata4_magic__",
1446 FALSE, FALSE, TRUE);
1447 import_table_size = myh->root.u.def.value;
1448 }
1449
1450 if (h == 0)
1451 {
1452 /* It is a file local symbol. */
1453 sym = syms + symndx;
1454 name = sym->_n._n_name;
1455 }
1456 else
1457 {
1458 char *target = 0;
1459
1460 name = h->root.root.root.string;
1461 if (strcmp (".idata$2", name) == 0)
1462 target = "__idata2_magic__";
1463 else if (strcmp (".idata$4", name) == 0)
1464 target = "__idata4_magic__";
1465 else if (strcmp (".idata$5", name) == 0)
1466 target = "__idata5_magic__";
1467
1468 if (target != 0)
1469 {
1470 struct coff_link_hash_entry *myh;
1471
1472 myh = coff_link_hash_lookup (coff_hash_table (info),
1473 target,
1474 FALSE, FALSE, TRUE);
1475 if (myh == 0)
1476 {
1477 /* Missing magic cookies. Something is very wrong. */
1478 abort ();
1479 }
1480
1481 val = myh->root.u.def.value +
1482 sec->output_section->vma + sec->output_offset;
1483 if (first_thunk_address == 0)
1484 {
1485 int idata5offset;
1486 myh = coff_link_hash_lookup (coff_hash_table (info),
1487 "__idata5_magic__",
1488 FALSE, FALSE, TRUE);
1489 first_thunk_address = myh->root.u.def.value +
1490 sec->output_section->vma +
1491 sec->output_offset -
1492 pe_data(output_bfd)->pe_opthdr.ImageBase;
1493
1494 idata5offset = myh->root.u.def.value;
1495 myh = coff_link_hash_lookup (coff_hash_table (info),
1496 "__idata6_magic__",
1497 FALSE, FALSE, TRUE);
1498
1499 thunk_size = myh->root.u.def.value - idata5offset;
1500 myh = coff_link_hash_lookup (coff_hash_table (info),
1501 "__idata4_magic__",
1502 FALSE, FALSE, TRUE);
1503 import_table_size = myh->root.u.def.value;
1504 }
1505 }
1506 }
1507
1508 rstat = _bfd_relocate_contents (howto,
1509 input_bfd,
1510 val -
1511 pe_data (output_bfd)->pe_opthdr.ImageBase,
1512 loc);
1513 }
1514 break;
1515
1516 case IMAGE_REL_PPC_REL24:
1517 DUMP_RELOC2(howto->name, rel);
1518 val -= (input_section->output_section->vma
1519 + input_section->output_offset);
1520
1521 rstat = _bfd_relocate_contents (howto,
1522 input_bfd,
1523 val,
1524 loc);
1525 break;
1526 case IMAGE_REL_PPC_ADDR16:
1527 case IMAGE_REL_PPC_ADDR24:
1528 case IMAGE_REL_PPC_ADDR32:
1529 DUMP_RELOC2(howto->name, rel);
1530 rstat = _bfd_relocate_contents (howto,
1531 input_bfd,
1532 val,
1533 loc);
1534 break;
1535 }
1536
1537 if (info->base_file)
1538 {
1539 /* So if this is non pcrelative, and is referenced
1540 to a section or a common symbol, then it needs a reloc. */
1541 if (sym && pe_data(output_bfd)->in_reloc_p (output_bfd, howto))
1542 {
1543 /* Relocation to a symbol in a section which
1544 isn't absolute - we output the address here
1545 to a file. */
1546 bfd_vma addr = rel->r_vaddr
1547 - input_section->vma
1548 + input_section->output_offset
1549 + input_section->output_section->vma;
1550
1551 if (coff_data (output_bfd)->pe)
1552 addr -= pe_data (output_bfd)->pe_opthdr.ImageBase;
1553
1554 fwrite (&addr, 1,4, (FILE *) info->base_file);
1555 }
1556 }
1557
1558 switch (rstat)
1559 {
1560 default:
1561 abort ();
1562 case bfd_reloc_ok:
1563 break;
1564 case bfd_reloc_overflow:
1565 {
1566 const char *name;
1567 char buf[SYMNMLEN + 1];
1568
1569 if (symndx == -1)
1570 name = "*ABS*";
1571 else if (h != NULL)
1572 name = h->root.root.root.string;
1573 else if (sym == NULL)
1574 name = "*unknown*";
1575 else if (sym->_n._n_n._n_zeroes == 0
1576 && sym->_n._n_n._n_offset != 0)
1577 name = obj_coff_strings (input_bfd) + sym->_n._n_n._n_offset;
1578 else
1579 {
1580 strncpy (buf, sym->_n._n_name, SYMNMLEN);
1581 buf[SYMNMLEN] = '\0';
1582 name = buf;
1583 }
1584
1585 if (! ((*info->callbacks->reloc_overflow)
1586 (info, name, howto->name,
1587 (bfd_vma) 0, input_bfd,
1588 input_section, rel->r_vaddr - input_section->vma)))
1589 return FALSE;
1590 }
1591 }
1592 }
1593
1594 return TRUE;
1595 }
1596
1597 #ifdef COFF_IMAGE_WITH_PE
1598
1599 /* FIXME: BFD should not use global variables. This file is compiled
1600 twice, and these variables are shared. This is confusing and
1601 weird. */
1602
1603 long int global_toc_size = 4;
1604
1605 bfd* bfd_of_toc_owner = 0;
1606
1607 long int import_table_size;
1608 long int first_thunk_address;
1609 long int thunk_size;
1610
1611 struct list_ele *head;
1612 struct list_ele *tail;
1613
1614 static char *
1615 h1 = N_("\n\t\t\tTOC MAPPING\n\n");
1616 static char *
1617 h2 = N_(" TOC disassembly Comments Name\n");
1618 static char *
1619 h3 = N_(" Offset spelling (if present)\n");
1620
1621 void
1622 dump_toc (vfile)
1623 PTR vfile;
1624 {
1625 FILE *file = (FILE *) vfile;
1626 struct list_ele *t;
1627
1628 fprintf (file, _(h1));
1629 fprintf (file, _(h2));
1630 fprintf (file, _(h3));
1631
1632 for (t = head; t != 0; t=t->next)
1633 {
1634 const char *cat = "";
1635
1636 if (t->cat == priv)
1637 cat = _("private ");
1638 else if (t->cat == pub)
1639 cat = _("public ");
1640 else if (t->cat == tocdata)
1641 cat = _("data-in-toc ");
1642
1643 if (t->offset > global_toc_size)
1644 {
1645 if (t->offset <= global_toc_size + thunk_size)
1646 cat = _("IAT reference ");
1647 else
1648 {
1649 fprintf (file,
1650 _("**** global_toc_size %ld(%lx), thunk_size %ld(%lx)\n"),
1651 global_toc_size, global_toc_size,
1652 thunk_size, thunk_size);
1653 cat = _("Out of bounds!");
1654 }
1655 }
1656
1657 fprintf (file,
1658 " %04lx (%d)", (unsigned long) t->offset, t->offset - 32768);
1659 fprintf (file,
1660 " %s %s\n",
1661 cat, t->name);
1662
1663 }
1664
1665 fprintf (file, "\n");
1666 }
1667
1668 bfd_boolean
1669 ppc_allocate_toc_section (info)
1670 struct bfd_link_info *info ATTRIBUTE_UNUSED;
1671 {
1672 asection *s;
1673 bfd_byte *foo;
1674 bfd_size_type amt;
1675 static char test_char = '1';
1676
1677 if ( global_toc_size == 0 ) /* FIXME: does this get me in trouble? */
1678 return TRUE;
1679
1680 if (bfd_of_toc_owner == 0)
1681 /* No toc owner? Something is very wrong. */
1682 abort ();
1683
1684 s = bfd_get_section_by_name ( bfd_of_toc_owner , TOC_SECTION_NAME);
1685 if (s == NULL)
1686 /* No toc section? Something is very wrong. */
1687 abort ();
1688
1689 amt = global_toc_size;
1690 foo = (bfd_byte *) bfd_alloc (bfd_of_toc_owner, amt);
1691 memset(foo, test_char, (size_t) global_toc_size);
1692
1693 s->size = global_toc_size;
1694 s->contents = foo;
1695
1696 return TRUE;
1697 }
1698
1699 bfd_boolean
1700 ppc_process_before_allocation (abfd, info)
1701 bfd *abfd;
1702 struct bfd_link_info *info;
1703 {
1704 asection *sec;
1705 struct internal_reloc *i, *rel;
1706
1707 /* Here we have a bfd that is to be included on the link. We have a hook
1708 to do reloc rummaging, before section sizes are nailed down. */
1709 _bfd_coff_get_external_symbols (abfd);
1710
1711 /* Rummage around all the relocs and map the toc. */
1712 sec = abfd->sections;
1713
1714 if (sec == 0)
1715 return TRUE;
1716
1717 for (; sec != 0; sec = sec->next)
1718 {
1719 if (sec->reloc_count == 0)
1720 continue;
1721
1722 /* load the relocs */
1723 /* FIXME: there may be a storage leak here */
1724 i=_bfd_coff_read_internal_relocs(abfd,sec,1,0,0,0);
1725
1726 if (i == 0)
1727 abort ();
1728
1729 for (rel = i; rel < i + sec->reloc_count; ++rel)
1730 {
1731 unsigned short r_type = EXTRACT_TYPE (rel->r_type);
1732 unsigned short r_flags = EXTRACT_FLAGS (rel->r_type);
1733 bfd_boolean ok = TRUE;
1734
1735 DUMP_RELOC2 (ppc_coff_howto_table[r_type].name, rel);
1736
1737 switch(r_type)
1738 {
1739 case IMAGE_REL_PPC_TOCREL16:
1740 /* If TOCDEFN is on, ignore as someone else has allocated the
1741 toc entry. */
1742 if ((r_flags & IMAGE_REL_PPC_TOCDEFN) != IMAGE_REL_PPC_TOCDEFN)
1743 ok = ppc_record_toc_entry(abfd, info, sec,
1744 rel->r_symndx, default_toc);
1745 if (!ok)
1746 return FALSE;
1747 break;
1748 case IMAGE_REL_PPC_IMGLUE:
1749 ppc_mark_symbol_as_glue (abfd, rel->r_symndx, rel);
1750 break;
1751 default:
1752 break;
1753 }
1754 }
1755 }
1756
1757 return TRUE;
1758 }
1759
1760 #endif
1761
1762 static bfd_reloc_status_type
1763 ppc_refhi_reloc (abfd, reloc_entry, symbol, data,
1764 input_section, output_bfd, error_message)
1765 bfd *abfd ATTRIBUTE_UNUSED;
1766 arelent *reloc_entry ATTRIBUTE_UNUSED;
1767 asymbol *symbol ATTRIBUTE_UNUSED;
1768 PTR data ATTRIBUTE_UNUSED;
1769 asection *input_section ATTRIBUTE_UNUSED;
1770 bfd *output_bfd;
1771 char **error_message ATTRIBUTE_UNUSED;
1772 {
1773 UN_IMPL("REFHI");
1774 DUMP_RELOC("REFHI",reloc_entry);
1775
1776 if (output_bfd == (bfd *) NULL)
1777 return bfd_reloc_continue;
1778
1779 return bfd_reloc_undefined;
1780 }
1781
1782 #if 0
1783
1784 static bfd_reloc_status_type
1785 ppc_reflo_reloc (abfd, reloc_entry, symbol, data,
1786 input_section, output_bfd, error_message)
1787 bfd *abfd;
1788 arelent *reloc_entry;
1789 asymbol *symbol;
1790 PTR data;
1791 asection *input_section;
1792 bfd *output_bfd;
1793 char **error_message;
1794 {
1795 UN_IMPL("REFLO");
1796 DUMP_RELOC("REFLO",reloc_entry);
1797
1798 if (output_bfd == (bfd *) NULL)
1799 return bfd_reloc_continue;
1800
1801 return bfd_reloc_undefined;
1802 }
1803
1804 #endif
1805
1806 static bfd_reloc_status_type
1807 ppc_pair_reloc (abfd, reloc_entry, symbol, data,
1808 input_section, output_bfd, error_message)
1809 bfd *abfd ATTRIBUTE_UNUSED;
1810 arelent *reloc_entry ATTRIBUTE_UNUSED;
1811 asymbol *symbol ATTRIBUTE_UNUSED;
1812 PTR data ATTRIBUTE_UNUSED;
1813 asection *input_section ATTRIBUTE_UNUSED;
1814 bfd *output_bfd;
1815 char **error_message ATTRIBUTE_UNUSED;
1816 {
1817 UN_IMPL("PAIR");
1818 DUMP_RELOC("PAIR",reloc_entry);
1819
1820 if (output_bfd == (bfd *) NULL)
1821 return bfd_reloc_continue;
1822
1823 return bfd_reloc_undefined;
1824 }
1825 \f
1826 static bfd_reloc_status_type
1827 ppc_toc16_reloc (abfd, reloc_entry, symbol, data,
1828 input_section, output_bfd, error_message)
1829 bfd *abfd ATTRIBUTE_UNUSED;
1830 arelent *reloc_entry ATTRIBUTE_UNUSED;
1831 asymbol *symbol ATTRIBUTE_UNUSED;
1832 PTR data ATTRIBUTE_UNUSED;
1833 asection *input_section ATTRIBUTE_UNUSED;
1834 bfd *output_bfd;
1835 char **error_message ATTRIBUTE_UNUSED;
1836 {
1837 UN_IMPL ("TOCREL16");
1838 DUMP_RELOC ("TOCREL16",reloc_entry);
1839
1840 if (output_bfd == (bfd *) NULL)
1841 return bfd_reloc_continue;
1842
1843 return bfd_reloc_ok;
1844 }
1845
1846 #if 0
1847
1848 /* ADDR32NB : 32 bit address relative to the virtual origin.
1849 (On the alpha, this is always a linker generated thunk)
1850 (i.e. 32bit addr relative to the image base). */
1851
1852 static bfd_reloc_status_type
1853 ppc_addr32nb_reloc (abfd, reloc_entry, symbol, data,
1854 input_section, output_bfd, error_message)
1855 bfd *abfd;
1856 arelent *reloc_entry;
1857 asymbol *symbol;
1858 PTR data;
1859 asection *input_section;
1860 bfd *output_bfd;
1861 char **error_message;
1862 {
1863 UN_IMPL("ADDR32NB");
1864 DUMP_RELOC("ADDR32NB",reloc_entry);
1865
1866 return bfd_reloc_ok;
1867 }
1868
1869 #endif
1870
1871 static bfd_reloc_status_type
1872 ppc_secrel_reloc (abfd, reloc_entry, symbol, data,
1873 input_section, output_bfd, error_message)
1874 bfd *abfd ATTRIBUTE_UNUSED;
1875 arelent *reloc_entry ATTRIBUTE_UNUSED;
1876 asymbol *symbol ATTRIBUTE_UNUSED;
1877 PTR data ATTRIBUTE_UNUSED;
1878 asection *input_section ATTRIBUTE_UNUSED;
1879 bfd *output_bfd;
1880 char **error_message ATTRIBUTE_UNUSED;
1881 {
1882 UN_IMPL("SECREL");
1883 DUMP_RELOC("SECREL",reloc_entry);
1884
1885 if (output_bfd == (bfd *) NULL)
1886 return bfd_reloc_continue;
1887
1888 return bfd_reloc_ok;
1889 }
1890
1891 static bfd_reloc_status_type
1892 ppc_section_reloc (abfd, reloc_entry, symbol, data,
1893 input_section, output_bfd, error_message)
1894 bfd *abfd ATTRIBUTE_UNUSED;
1895 arelent *reloc_entry ATTRIBUTE_UNUSED;
1896 asymbol *symbol ATTRIBUTE_UNUSED;
1897 PTR data ATTRIBUTE_UNUSED;
1898 asection *input_section ATTRIBUTE_UNUSED;
1899 bfd *output_bfd;
1900 char **error_message ATTRIBUTE_UNUSED;
1901 {
1902 UN_IMPL("SECTION");
1903 DUMP_RELOC("SECTION",reloc_entry);
1904
1905 if (output_bfd == (bfd *) NULL)
1906 return bfd_reloc_continue;
1907
1908 return bfd_reloc_ok;
1909 }
1910
1911 static bfd_reloc_status_type
1912 ppc_imglue_reloc (abfd, reloc_entry, symbol, data,
1913 input_section, output_bfd, error_message)
1914 bfd *abfd ATTRIBUTE_UNUSED;
1915 arelent *reloc_entry ATTRIBUTE_UNUSED;
1916 asymbol *symbol ATTRIBUTE_UNUSED;
1917 PTR data ATTRIBUTE_UNUSED;
1918 asection *input_section ATTRIBUTE_UNUSED;
1919 bfd *output_bfd;
1920 char **error_message ATTRIBUTE_UNUSED;
1921 {
1922 UN_IMPL("IMGLUE");
1923 DUMP_RELOC("IMGLUE",reloc_entry);
1924
1925 if (output_bfd == (bfd *) NULL)
1926 return bfd_reloc_continue;
1927
1928 return bfd_reloc_ok;
1929 }
1930 \f
1931 #define MAX_RELOC_INDEX \
1932 (sizeof (ppc_coff_howto_table) / sizeof (ppc_coff_howto_table[0]) - 1)
1933
1934 /* FIXME: There is a possibility that when we read in a reloc from a file,
1935 that there are some bits encoded in the upper portion of the
1936 type field. Not yet implemented. */
1937 static void ppc_coff_rtype2howto PARAMS ((arelent *, struct internal_reloc *));
1938
1939 static void
1940 ppc_coff_rtype2howto (relent, internal)
1941 arelent *relent;
1942 struct internal_reloc *internal;
1943 {
1944 /* We can encode one of three things in the type field, aside from the
1945 type:
1946 1. IMAGE_REL_PPC_NEG - indicates the value field is a subtraction
1947 value, rather than an addition value
1948 2. IMAGE_REL_PPC_BRTAKEN, IMAGE_REL_PPC_BRNTAKEN - indicates that
1949 the branch is expected to be taken or not.
1950 3. IMAGE_REL_PPC_TOCDEFN - toc slot definition in the file
1951 For now, we just strip this stuff to find the type, and ignore it other
1952 than that. */
1953 reloc_howto_type *howto;
1954 unsigned short r_type = EXTRACT_TYPE (internal->r_type);
1955 unsigned short r_flags = EXTRACT_FLAGS(internal->r_type);
1956 unsigned short junk = EXTRACT_JUNK (internal->r_type);
1957
1958 /* The masking process only slices off the bottom byte for r_type. */
1959 if ( r_type > MAX_RELOC_INDEX )
1960 abort ();
1961
1962 /* Check for absolute crap. */
1963 if (junk != 0)
1964 abort ();
1965
1966 switch(r_type)
1967 {
1968 case IMAGE_REL_PPC_ADDR16:
1969 case IMAGE_REL_PPC_REL24:
1970 case IMAGE_REL_PPC_ADDR24:
1971 case IMAGE_REL_PPC_ADDR32:
1972 case IMAGE_REL_PPC_IFGLUE:
1973 case IMAGE_REL_PPC_ADDR32NB:
1974 case IMAGE_REL_PPC_SECTION:
1975 case IMAGE_REL_PPC_SECREL:
1976 DUMP_RELOC2 (ppc_coff_howto_table[r_type].name, internal);
1977 howto = ppc_coff_howto_table + r_type;
1978 break;
1979 case IMAGE_REL_PPC_IMGLUE:
1980 DUMP_RELOC2 (ppc_coff_howto_table[r_type].name, internal);
1981 howto = ppc_coff_howto_table + r_type;
1982 break;
1983 case IMAGE_REL_PPC_TOCREL16:
1984 DUMP_RELOC2 (ppc_coff_howto_table[r_type].name, internal);
1985 if (r_flags & IMAGE_REL_PPC_TOCDEFN)
1986 howto = ppc_coff_howto_table + IMAGE_REL_PPC_TOCREL16_DEFN;
1987 else
1988 howto = ppc_coff_howto_table + IMAGE_REL_PPC_TOCREL16;
1989 break;
1990 default:
1991 fprintf (stderr,
1992 _("Warning: Unsupported reloc %s [%d] used -- it may not work.\n"),
1993 ppc_coff_howto_table[r_type].name,
1994 r_type);
1995 howto = ppc_coff_howto_table + r_type;
1996 break;
1997 }
1998
1999 relent->howto = howto;
2000 }
2001
2002 static reloc_howto_type *
2003 coff_ppc_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
2004 bfd *abfd ATTRIBUTE_UNUSED;
2005 asection *sec;
2006 struct internal_reloc *rel;
2007 struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
2008 struct internal_syment *sym ATTRIBUTE_UNUSED;
2009 bfd_vma *addendp;
2010 {
2011 reloc_howto_type *howto;
2012
2013 /* We can encode one of three things in the type field, aside from the
2014 type:
2015 1. IMAGE_REL_PPC_NEG - indicates the value field is a subtraction
2016 value, rather than an addition value
2017 2. IMAGE_REL_PPC_BRTAKEN, IMAGE_REL_PPC_BRNTAKEN - indicates that
2018 the branch is expected to be taken or not.
2019 3. IMAGE_REL_PPC_TOCDEFN - toc slot definition in the file
2020 For now, we just strip this stuff to find the type, and ignore it other
2021 than that. */
2022
2023 unsigned short r_type = EXTRACT_TYPE (rel->r_type);
2024 unsigned short r_flags = EXTRACT_FLAGS (rel->r_type);
2025 unsigned short junk = EXTRACT_JUNK (rel->r_type);
2026
2027 /* The masking process only slices off the bottom byte for r_type. */
2028 if (r_type > MAX_RELOC_INDEX)
2029 abort ();
2030
2031 /* Check for absolute crap. */
2032 if (junk != 0)
2033 abort ();
2034
2035 switch(r_type)
2036 {
2037 case IMAGE_REL_PPC_ADDR32NB:
2038 DUMP_RELOC2(ppc_coff_howto_table[r_type].name, rel);
2039 *addendp -= pe_data(sec->output_section->owner)->pe_opthdr.ImageBase;
2040 howto = ppc_coff_howto_table + r_type;
2041 break;
2042 case IMAGE_REL_PPC_TOCREL16:
2043 DUMP_RELOC2(ppc_coff_howto_table[r_type].name, rel);
2044 if (r_flags & IMAGE_REL_PPC_TOCDEFN)
2045 howto = ppc_coff_howto_table + IMAGE_REL_PPC_TOCREL16_DEFN;
2046 else
2047 howto = ppc_coff_howto_table + IMAGE_REL_PPC_TOCREL16;
2048 break;
2049 case IMAGE_REL_PPC_ADDR16:
2050 case IMAGE_REL_PPC_REL24:
2051 case IMAGE_REL_PPC_ADDR24:
2052 case IMAGE_REL_PPC_ADDR32:
2053 case IMAGE_REL_PPC_IFGLUE:
2054 case IMAGE_REL_PPC_SECTION:
2055 case IMAGE_REL_PPC_SECREL:
2056 DUMP_RELOC2(ppc_coff_howto_table[r_type].name, rel);
2057 howto = ppc_coff_howto_table + r_type;
2058 break;
2059 case IMAGE_REL_PPC_IMGLUE:
2060 DUMP_RELOC2(ppc_coff_howto_table[r_type].name, rel);
2061 howto = ppc_coff_howto_table + r_type;
2062 break;
2063 default:
2064 fprintf (stderr,
2065 _("Warning: Unsupported reloc %s [%d] used -- it may not work.\n"),
2066 ppc_coff_howto_table[r_type].name,
2067 r_type);
2068 howto = ppc_coff_howto_table + r_type;
2069 break;
2070 }
2071
2072 return howto;
2073 }
2074
2075 /* A cheesy little macro to make the code a little more readable. */
2076 #define HOW2MAP(bfd_rtype,ppc_rtype) \
2077 case bfd_rtype: return &ppc_coff_howto_table[ppc_rtype]
2078
2079 static reloc_howto_type *ppc_coff_reloc_type_lookup
2080 PARAMS ((bfd *, bfd_reloc_code_real_type));
2081
2082 static reloc_howto_type *
2083 ppc_coff_reloc_type_lookup (abfd, code)
2084 bfd *abfd ATTRIBUTE_UNUSED;
2085 bfd_reloc_code_real_type code;
2086 {
2087 switch (code)
2088 {
2089 HOW2MAP(BFD_RELOC_32_GOTOFF, IMAGE_REL_PPC_IMGLUE);
2090 HOW2MAP(BFD_RELOC_16_GOT_PCREL, IMAGE_REL_PPC_IFGLUE);
2091 HOW2MAP(BFD_RELOC_16, IMAGE_REL_PPC_ADDR16);
2092 HOW2MAP(BFD_RELOC_PPC_B26, IMAGE_REL_PPC_REL24);
2093 HOW2MAP(BFD_RELOC_PPC_BA26, IMAGE_REL_PPC_ADDR24);
2094 HOW2MAP(BFD_RELOC_PPC_TOC16, IMAGE_REL_PPC_TOCREL16);
2095 HOW2MAP(BFD_RELOC_16_GOTOFF, IMAGE_REL_PPC_TOCREL16_DEFN);
2096 HOW2MAP(BFD_RELOC_32, IMAGE_REL_PPC_ADDR32);
2097 HOW2MAP(BFD_RELOC_RVA, IMAGE_REL_PPC_ADDR32NB);
2098 default:
2099 return NULL;
2100 }
2101 }
2102
2103 #undef HOW2MAP
2104 \f
2105 /* Tailor coffcode.h -- macro heaven. */
2106
2107 #define RTYPE2HOWTO(cache_ptr, dst) ppc_coff_rtype2howto (cache_ptr, dst)
2108
2109 /* We use the special COFF backend linker, with our own special touch. */
2110
2111 #define coff_bfd_reloc_type_lookup ppc_coff_reloc_type_lookup
2112 #define coff_rtype_to_howto coff_ppc_rtype_to_howto
2113 #define coff_relocate_section coff_ppc_relocate_section
2114 #define coff_bfd_final_link ppc_bfd_coff_final_link
2115
2116 #ifndef COFF_IMAGE_WITH_PE
2117 /* FIXME: This no longer works. */
2118 #if 0
2119 #define coff_swap_sym_in_hook ppc_coff_swap_sym_in_hook
2120 #endif
2121 #endif
2122
2123 #define SELECT_RELOC(internal, howto) {internal.r_type=howto->type;}
2124
2125 #define COFF_PAGE_SIZE 0x1000
2126
2127 /* FIXME: This controls some code that used to be in peicode.h and is
2128 now in peigen.c. It will not control the code in peigen.c. If
2129 anybody wants to get this working, you will need to fix that. */
2130 #define POWERPC_LE_PE
2131
2132 #define COFF_SECTION_ALIGNMENT_ENTRIES \
2133 { COFF_SECTION_NAME_EXACT_MATCH (".idata$2"), \
2134 COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 0 }, \
2135 { COFF_SECTION_NAME_EXACT_MATCH (".idata$3"), \
2136 COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 0 }, \
2137 { COFF_SECTION_NAME_EXACT_MATCH (".idata$4"), \
2138 COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 2 }, \
2139 { COFF_SECTION_NAME_EXACT_MATCH (".idata$5"), \
2140 COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 2 }, \
2141 { COFF_SECTION_NAME_EXACT_MATCH (".idata$6"), \
2142 COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 1 }, \
2143 { COFF_SECTION_NAME_EXACT_MATCH (".reloc"), \
2144 COFF_ALIGNMENT_FIELD_EMPTY, COFF_ALIGNMENT_FIELD_EMPTY, 1 }
2145
2146 #include "coffcode.h"
2147 \f
2148 #ifndef COFF_IMAGE_WITH_PE
2149 /* FIXME: This no longer works. */
2150 #if 0
2151 /* FIXME:
2152 What we're trying to do here is allocate a toc section (early), and attach
2153 it to the last bfd to be processed. This avoids the problem of having a toc
2154 written out before all files have been processed. This code allocates
2155 a toc section for every file, and records the last one seen. There are
2156 at least two problems with this approach:
2157 1. We allocate whole bunches of toc sections that are ignored, but at
2158 at least we will not allocate a toc if no .toc is present.
2159 2. It's not clear to me that being the last bfd read necessarily means
2160 that you are the last bfd closed.
2161 3. Doing it on a "swap in" hook depends on when the "swap in" is called,
2162 and how often, etc. It's not clear to me that there isn't a hole here. */
2163 static void ppc_coff_swap_sym_in_hook PARAMS ((bfd *, PTR, PTR));
2164
2165 static void
2166 ppc_coff_swap_sym_in_hook (abfd, ext1, in1)
2167 bfd *abfd;
2168 PTR ext1 ATTRIBUTE_UNUSED;
2169 PTR in1;
2170 {
2171 struct internal_syment * in = (struct internal_syment *)in1;
2172
2173 if (bfd_of_toc_owner != 0) /* We already have a toc, so go home. */
2174 return;
2175
2176 if (strcmp (in->_n._n_name, ".toc") == 0)
2177 {
2178 flagword flags;
2179 register asection *s;
2180
2181 s = bfd_get_section_by_name (abfd, TOC_SECTION_NAME);
2182 if (s != NULL)
2183 return;
2184
2185 flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY ;
2186
2187 s = bfd_make_section (abfd, TOC_SECTION_NAME);
2188
2189 if (s == NULL
2190 || !bfd_set_section_flags (abfd, s, flags)
2191 || !bfd_set_section_alignment (abfd, s, 2))
2192 /* FIXME: set appropriate bfd error. */
2193 abort ();
2194
2195 /* Save the bfd for later allocation. */
2196 bfd_of_toc_owner = abfd;
2197 }
2198
2199 return;
2200 }
2201 #endif
2202 #endif
2203
2204 #ifndef COFF_IMAGE_WITH_PE
2205
2206 static bfd_boolean ppc_do_last PARAMS ((bfd *));
2207 static bfd *ppc_get_last PARAMS ((void));
2208
2209 static bfd_boolean
2210 ppc_do_last (abfd)
2211 bfd *abfd;
2212 {
2213 if (abfd == bfd_of_toc_owner)
2214 return TRUE;
2215 else
2216 return FALSE;
2217 }
2218
2219 static bfd *
2220 ppc_get_last()
2221 {
2222 return bfd_of_toc_owner;
2223 }
2224
2225 /* This piece of machinery exists only to guarantee that the bfd that holds
2226 the toc section is written last.
2227
2228 This does depend on bfd_make_section attaching a new section to the
2229 end of the section list for the bfd.
2230
2231 This is otherwise intended to be functionally the same as
2232 cofflink.c:_bfd_coff_final_link(). It is specifically different only
2233 where the POWERPC_LE_PE macro modifies the code. It is left in as a
2234 precise form of comment. krk@cygnus.com */
2235
2236 /* Do the final link step. */
2237
2238 bfd_boolean
2239 ppc_bfd_coff_final_link (abfd, info)
2240 bfd *abfd;
2241 struct bfd_link_info *info;
2242 {
2243 bfd_size_type symesz;
2244 struct coff_final_link_info finfo;
2245 bfd_boolean debug_merge_allocated;
2246 asection *o;
2247 struct bfd_link_order *p;
2248 bfd_size_type max_sym_count;
2249 bfd_size_type max_lineno_count;
2250 bfd_size_type max_reloc_count;
2251 bfd_size_type max_output_reloc_count;
2252 bfd_size_type max_contents_size;
2253 file_ptr rel_filepos;
2254 unsigned int relsz;
2255 file_ptr line_filepos;
2256 unsigned int linesz;
2257 bfd *sub;
2258 bfd_byte *external_relocs = NULL;
2259 char strbuf[STRING_SIZE_SIZE];
2260 bfd_size_type amt;
2261
2262 symesz = bfd_coff_symesz (abfd);
2263
2264 finfo.info = info;
2265 finfo.output_bfd = abfd;
2266 finfo.strtab = NULL;
2267 finfo.section_info = NULL;
2268 finfo.last_file_index = -1;
2269 finfo.last_bf_index = -1;
2270 finfo.internal_syms = NULL;
2271 finfo.sec_ptrs = NULL;
2272 finfo.sym_indices = NULL;
2273 finfo.outsyms = NULL;
2274 finfo.linenos = NULL;
2275 finfo.contents = NULL;
2276 finfo.external_relocs = NULL;
2277 finfo.internal_relocs = NULL;
2278 debug_merge_allocated = FALSE;
2279
2280 coff_data (abfd)->link_info = info;
2281
2282 finfo.strtab = _bfd_stringtab_init ();
2283 if (finfo.strtab == NULL)
2284 goto error_return;
2285
2286 if (! coff_debug_merge_hash_table_init (&finfo.debug_merge))
2287 goto error_return;
2288 debug_merge_allocated = TRUE;
2289
2290 /* Compute the file positions for all the sections. */
2291 if (! abfd->output_has_begun)
2292 {
2293 if (! bfd_coff_compute_section_file_positions (abfd))
2294 return FALSE;
2295 }
2296
2297 /* Count the line numbers and relocation entries required for the
2298 output file. Set the file positions for the relocs. */
2299 rel_filepos = obj_relocbase (abfd);
2300 relsz = bfd_coff_relsz (abfd);
2301 max_contents_size = 0;
2302 max_lineno_count = 0;
2303 max_reloc_count = 0;
2304
2305 for (o = abfd->sections; o != NULL; o = o->next)
2306 {
2307 o->reloc_count = 0;
2308 o->lineno_count = 0;
2309
2310 for (p = o->link_order_head; p != NULL; p = p->next)
2311 {
2312 if (p->type == bfd_indirect_link_order)
2313 {
2314 asection *sec;
2315
2316 sec = p->u.indirect.section;
2317
2318 /* Mark all sections which are to be included in the
2319 link. This will normally be every section. We need
2320 to do this so that we can identify any sections which
2321 the linker has decided to not include. */
2322 sec->linker_mark = TRUE;
2323
2324 if (info->strip == strip_none
2325 || info->strip == strip_some)
2326 o->lineno_count += sec->lineno_count;
2327
2328 if (info->relocatable)
2329 o->reloc_count += sec->reloc_count;
2330
2331 if (sec->rawsize > max_contents_size)
2332 max_contents_size = sec->rawsize;
2333 if (sec->size > max_contents_size)
2334 max_contents_size = sec->size;
2335 if (sec->lineno_count > max_lineno_count)
2336 max_lineno_count = sec->lineno_count;
2337 if (sec->reloc_count > max_reloc_count)
2338 max_reloc_count = sec->reloc_count;
2339 }
2340 else if (info->relocatable
2341 && (p->type == bfd_section_reloc_link_order
2342 || p->type == bfd_symbol_reloc_link_order))
2343 ++o->reloc_count;
2344 }
2345 if (o->reloc_count == 0)
2346 o->rel_filepos = 0;
2347 else
2348 {
2349 o->flags |= SEC_RELOC;
2350 o->rel_filepos = rel_filepos;
2351 rel_filepos += o->reloc_count * relsz;
2352 }
2353 }
2354
2355 /* If doing a relocatable link, allocate space for the pointers we
2356 need to keep. */
2357 if (info->relocatable)
2358 {
2359 unsigned int i;
2360
2361 /* We use section_count + 1, rather than section_count, because
2362 the target_index fields are 1 based. */
2363 amt = abfd->section_count + 1;
2364 amt *= sizeof (struct coff_link_section_info);
2365 finfo.section_info = (struct coff_link_section_info *) bfd_malloc (amt);
2366
2367 if (finfo.section_info == NULL)
2368 goto error_return;
2369
2370 for (i = 0; i <= abfd->section_count; i++)
2371 {
2372 finfo.section_info[i].relocs = NULL;
2373 finfo.section_info[i].rel_hashes = NULL;
2374 }
2375 }
2376
2377 /* We now know the size of the relocs, so we can determine the file
2378 positions of the line numbers. */
2379 line_filepos = rel_filepos;
2380 linesz = bfd_coff_linesz (abfd);
2381 max_output_reloc_count = 0;
2382
2383 for (o = abfd->sections; o != NULL; o = o->next)
2384 {
2385 if (o->lineno_count == 0)
2386 o->line_filepos = 0;
2387 else
2388 {
2389 o->line_filepos = line_filepos;
2390 line_filepos += o->lineno_count * linesz;
2391 }
2392
2393 if (o->reloc_count != 0)
2394 {
2395 /* We don't know the indices of global symbols until we have
2396 written out all the local symbols. For each section in
2397 the output file, we keep an array of pointers to hash
2398 table entries. Each entry in the array corresponds to a
2399 reloc. When we find a reloc against a global symbol, we
2400 set the corresponding entry in this array so that we can
2401 fix up the symbol index after we have written out all the
2402 local symbols.
2403
2404 Because of this problem, we also keep the relocs in
2405 memory until the end of the link. This wastes memory,
2406 but only when doing a relocatable link, which is not the
2407 common case. */
2408 BFD_ASSERT (info->relocatable);
2409 amt = o->reloc_count;
2410 amt *= sizeof (struct internal_reloc);
2411 finfo.section_info[o->target_index].relocs =
2412 (struct internal_reloc *) bfd_malloc (amt);
2413 amt = o->reloc_count;
2414 amt *= sizeof (struct coff_link_hash_entry *);
2415 finfo.section_info[o->target_index].rel_hashes =
2416 (struct coff_link_hash_entry **) bfd_malloc (amt);
2417 if (finfo.section_info[o->target_index].relocs == NULL
2418 || finfo.section_info[o->target_index].rel_hashes == NULL)
2419 goto error_return;
2420
2421 if (o->reloc_count > max_output_reloc_count)
2422 max_output_reloc_count = o->reloc_count;
2423 }
2424
2425 /* Reset the reloc and lineno counts, so that we can use them to
2426 count the number of entries we have output so far. */
2427 o->reloc_count = 0;
2428 o->lineno_count = 0;
2429 }
2430
2431 obj_sym_filepos (abfd) = line_filepos;
2432
2433 /* Figure out the largest number of symbols in an input BFD. Take
2434 the opportunity to clear the output_has_begun fields of all the
2435 input BFD's. */
2436 max_sym_count = 0;
2437 for (sub = info->input_bfds; sub != NULL; sub = sub->link_next)
2438 {
2439 bfd_size_type sz;
2440
2441 sub->output_has_begun = FALSE;
2442 sz = obj_raw_syment_count (sub);
2443 if (sz > max_sym_count)
2444 max_sym_count = sz;
2445 }
2446
2447 /* Allocate some buffers used while linking. */
2448 amt = max_sym_count * sizeof (struct internal_syment);
2449 finfo.internal_syms = (struct internal_syment *) bfd_malloc (amt);
2450 amt = max_sym_count * sizeof (asection *);
2451 finfo.sec_ptrs = (asection **) bfd_malloc (amt);
2452 amt = max_sym_count * sizeof (long);
2453 finfo.sym_indices = (long *) bfd_malloc (amt);
2454 amt = (max_sym_count + 1) * symesz;
2455 finfo.outsyms = (bfd_byte *) bfd_malloc (amt);
2456 amt = max_lineno_count * bfd_coff_linesz (abfd);
2457 finfo.linenos = (bfd_byte *) bfd_malloc (amt);
2458 finfo.contents = (bfd_byte *) bfd_malloc (max_contents_size);
2459 finfo.external_relocs = (bfd_byte *) bfd_malloc (max_reloc_count * relsz);
2460 if (! info->relocatable)
2461 {
2462 amt = max_reloc_count * sizeof (struct internal_reloc);
2463 finfo.internal_relocs = (struct internal_reloc *) bfd_malloc (amt);
2464 }
2465 if ((finfo.internal_syms == NULL && max_sym_count > 0)
2466 || (finfo.sec_ptrs == NULL && max_sym_count > 0)
2467 || (finfo.sym_indices == NULL && max_sym_count > 0)
2468 || finfo.outsyms == NULL
2469 || (finfo.linenos == NULL && max_lineno_count > 0)
2470 || (finfo.contents == NULL && max_contents_size > 0)
2471 || (finfo.external_relocs == NULL && max_reloc_count > 0)
2472 || (! info->relocatable
2473 && finfo.internal_relocs == NULL
2474 && max_reloc_count > 0))
2475 goto error_return;
2476
2477 /* We now know the position of everything in the file, except that
2478 we don't know the size of the symbol table and therefore we don't
2479 know where the string table starts. We just build the string
2480 table in memory as we go along. We process all the relocations
2481 for a single input file at once. */
2482 obj_raw_syment_count (abfd) = 0;
2483
2484 if (coff_backend_info (abfd)->_bfd_coff_start_final_link)
2485 {
2486 if (! bfd_coff_start_final_link (abfd, info))
2487 goto error_return;
2488 }
2489
2490 for (o = abfd->sections; o != NULL; o = o->next)
2491 {
2492 for (p = o->link_order_head; p != NULL; p = p->next)
2493 {
2494 if (p->type == bfd_indirect_link_order
2495 && (bfd_get_flavour (p->u.indirect.section->owner)
2496 == bfd_target_coff_flavour))
2497 {
2498 sub = p->u.indirect.section->owner;
2499 #ifdef POWERPC_LE_PE
2500 if (! sub->output_has_begun && !ppc_do_last(sub))
2501 #else
2502 if (! sub->output_has_begun)
2503 #endif
2504 {
2505 if (! _bfd_coff_link_input_bfd (&finfo, sub))
2506 goto error_return;
2507 sub->output_has_begun = TRUE;
2508 }
2509 }
2510 else if (p->type == bfd_section_reloc_link_order
2511 || p->type == bfd_symbol_reloc_link_order)
2512 {
2513 if (! _bfd_coff_reloc_link_order (abfd, &finfo, o, p))
2514 goto error_return;
2515 }
2516 else
2517 {
2518 if (! _bfd_default_link_order (abfd, info, o, p))
2519 goto error_return;
2520 }
2521 }
2522 }
2523
2524 #ifdef POWERPC_LE_PE
2525 {
2526 bfd* last_one = ppc_get_last();
2527 if (last_one)
2528 {
2529 if (! _bfd_coff_link_input_bfd (&finfo, last_one))
2530 goto error_return;
2531 }
2532 last_one->output_has_begun = TRUE;
2533 }
2534 #endif
2535
2536 /* Free up the buffers used by _bfd_coff_link_input_bfd. */
2537 coff_debug_merge_hash_table_free (&finfo.debug_merge);
2538 debug_merge_allocated = FALSE;
2539
2540 if (finfo.internal_syms != NULL)
2541 {
2542 free (finfo.internal_syms);
2543 finfo.internal_syms = NULL;
2544 }
2545 if (finfo.sec_ptrs != NULL)
2546 {
2547 free (finfo.sec_ptrs);
2548 finfo.sec_ptrs = NULL;
2549 }
2550 if (finfo.sym_indices != NULL)
2551 {
2552 free (finfo.sym_indices);
2553 finfo.sym_indices = NULL;
2554 }
2555 if (finfo.linenos != NULL)
2556 {
2557 free (finfo.linenos);
2558 finfo.linenos = NULL;
2559 }
2560 if (finfo.contents != NULL)
2561 {
2562 free (finfo.contents);
2563 finfo.contents = NULL;
2564 }
2565 if (finfo.external_relocs != NULL)
2566 {
2567 free (finfo.external_relocs);
2568 finfo.external_relocs = NULL;
2569 }
2570 if (finfo.internal_relocs != NULL)
2571 {
2572 free (finfo.internal_relocs);
2573 finfo.internal_relocs = NULL;
2574 }
2575
2576 /* The value of the last C_FILE symbol is supposed to be the symbol
2577 index of the first external symbol. Write it out again if
2578 necessary. */
2579 if (finfo.last_file_index != -1
2580 && (unsigned int) finfo.last_file.n_value != obj_raw_syment_count (abfd))
2581 {
2582 file_ptr pos;
2583
2584 finfo.last_file.n_value = obj_raw_syment_count (abfd);
2585 bfd_coff_swap_sym_out (abfd, (PTR) &finfo.last_file,
2586 (PTR) finfo.outsyms);
2587 pos = obj_sym_filepos (abfd) + finfo.last_file_index * symesz;
2588 if (bfd_seek (abfd, pos, SEEK_SET) != 0
2589 || bfd_bwrite (finfo.outsyms, symesz, abfd) != symesz)
2590 return FALSE;
2591 }
2592
2593 /* Write out the global symbols. */
2594 finfo.failed = FALSE;
2595 coff_link_hash_traverse (coff_hash_table (info), _bfd_coff_write_global_sym,
2596 (PTR) &finfo);
2597 if (finfo.failed)
2598 goto error_return;
2599
2600 /* The outsyms buffer is used by _bfd_coff_write_global_sym. */
2601 if (finfo.outsyms != NULL)
2602 {
2603 free (finfo.outsyms);
2604 finfo.outsyms = NULL;
2605 }
2606
2607 if (info->relocatable)
2608 {
2609 /* Now that we have written out all the global symbols, we know
2610 the symbol indices to use for relocs against them, and we can
2611 finally write out the relocs. */
2612 amt = max_output_reloc_count * relsz;
2613 external_relocs = (bfd_byte *) bfd_malloc (amt);
2614 if (external_relocs == NULL)
2615 goto error_return;
2616
2617 for (o = abfd->sections; o != NULL; o = o->next)
2618 {
2619 struct internal_reloc *irel;
2620 struct internal_reloc *irelend;
2621 struct coff_link_hash_entry **rel_hash;
2622 bfd_byte *erel;
2623
2624 if (o->reloc_count == 0)
2625 continue;
2626
2627 irel = finfo.section_info[o->target_index].relocs;
2628 irelend = irel + o->reloc_count;
2629 rel_hash = finfo.section_info[o->target_index].rel_hashes;
2630 erel = external_relocs;
2631 for (; irel < irelend; irel++, rel_hash++, erel += relsz)
2632 {
2633 if (*rel_hash != NULL)
2634 {
2635 BFD_ASSERT ((*rel_hash)->indx >= 0);
2636 irel->r_symndx = (*rel_hash)->indx;
2637 }
2638 bfd_coff_swap_reloc_out (abfd, (PTR) irel, (PTR) erel);
2639 }
2640
2641 amt = relsz * o->reloc_count;
2642 if (bfd_seek (abfd, o->rel_filepos, SEEK_SET) != 0
2643 || bfd_bwrite ((PTR) external_relocs, amt, abfd) != amt)
2644 goto error_return;
2645 }
2646
2647 free (external_relocs);
2648 external_relocs = NULL;
2649 }
2650
2651 /* Free up the section information. */
2652 if (finfo.section_info != NULL)
2653 {
2654 unsigned int i;
2655
2656 for (i = 0; i < abfd->section_count; i++)
2657 {
2658 if (finfo.section_info[i].relocs != NULL)
2659 free (finfo.section_info[i].relocs);
2660 if (finfo.section_info[i].rel_hashes != NULL)
2661 free (finfo.section_info[i].rel_hashes);
2662 }
2663 free (finfo.section_info);
2664 finfo.section_info = NULL;
2665 }
2666
2667 /* If we have optimized stabs strings, output them. */
2668 if (coff_hash_table (info)->stab_info.stabstr != NULL)
2669 {
2670 if (! _bfd_write_stab_strings (abfd, &coff_hash_table (info)->stab_info))
2671 return FALSE;
2672 }
2673
2674 /* Write out the string table. */
2675 if (obj_raw_syment_count (abfd) != 0)
2676 {
2677 file_ptr pos;
2678
2679 pos = obj_sym_filepos (abfd) + obj_raw_syment_count (abfd) * symesz;
2680 if (bfd_seek (abfd, pos, SEEK_SET) != 0)
2681 return FALSE;
2682
2683 #if STRING_SIZE_SIZE == 4
2684 H_PUT_32 (abfd,
2685 _bfd_stringtab_size (finfo.strtab) + STRING_SIZE_SIZE,
2686 strbuf);
2687 #else
2688 #error Change H_PUT_32 above
2689 #endif
2690
2691 if (bfd_bwrite (strbuf, (bfd_size_type) STRING_SIZE_SIZE, abfd)
2692 != STRING_SIZE_SIZE)
2693 return FALSE;
2694
2695 if (! _bfd_stringtab_emit (abfd, finfo.strtab))
2696 return FALSE;
2697 }
2698
2699 _bfd_stringtab_free (finfo.strtab);
2700
2701 /* Setting bfd_get_symcount to 0 will cause write_object_contents to
2702 not try to write out the symbols. */
2703 bfd_get_symcount (abfd) = 0;
2704
2705 return TRUE;
2706
2707 error_return:
2708 if (debug_merge_allocated)
2709 coff_debug_merge_hash_table_free (&finfo.debug_merge);
2710 if (finfo.strtab != NULL)
2711 _bfd_stringtab_free (finfo.strtab);
2712 if (finfo.section_info != NULL)
2713 {
2714 unsigned int i;
2715
2716 for (i = 0; i < abfd->section_count; i++)
2717 {
2718 if (finfo.section_info[i].relocs != NULL)
2719 free (finfo.section_info[i].relocs);
2720 if (finfo.section_info[i].rel_hashes != NULL)
2721 free (finfo.section_info[i].rel_hashes);
2722 }
2723 free (finfo.section_info);
2724 }
2725 if (finfo.internal_syms != NULL)
2726 free (finfo.internal_syms);
2727 if (finfo.sec_ptrs != NULL)
2728 free (finfo.sec_ptrs);
2729 if (finfo.sym_indices != NULL)
2730 free (finfo.sym_indices);
2731 if (finfo.outsyms != NULL)
2732 free (finfo.outsyms);
2733 if (finfo.linenos != NULL)
2734 free (finfo.linenos);
2735 if (finfo.contents != NULL)
2736 free (finfo.contents);
2737 if (finfo.external_relocs != NULL)
2738 free (finfo.external_relocs);
2739 if (finfo.internal_relocs != NULL)
2740 free (finfo.internal_relocs);
2741 if (external_relocs != NULL)
2742 free (external_relocs);
2743 return FALSE;
2744 }
2745 #endif
2746 \f
2747 /* Forward declaration for use by alternative_target field. */
2748 #ifdef TARGET_BIG_SYM
2749 extern const bfd_target TARGET_BIG_SYM;
2750 #endif
2751
2752 /* The transfer vectors that lead the outside world to all of the above. */
2753
2754 #ifdef TARGET_LITTLE_SYM
2755 const bfd_target TARGET_LITTLE_SYM =
2756 {
2757 TARGET_LITTLE_NAME, /* name or coff-arm-little */
2758 bfd_target_coff_flavour,
2759 BFD_ENDIAN_LITTLE, /* data byte order is little */
2760 BFD_ENDIAN_LITTLE, /* header byte order is little */
2761
2762 (HAS_RELOC | EXEC_P | /* FIXME: object flags */
2763 HAS_LINENO | HAS_DEBUG |
2764 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
2765
2766 #ifndef COFF_WITH_PE
2767 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
2768 #else
2769 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
2770 | SEC_LINK_ONCE | SEC_LINK_DUPLICATES),
2771 #endif
2772
2773 0, /* leading char */
2774 '/', /* ar_pad_char */
2775 15, /* ar_max_namelen??? FIXMEmgo */
2776
2777 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
2778 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
2779 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
2780
2781 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
2782 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
2783 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
2784
2785 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
2786 bfd_generic_archive_p, /* _bfd_dummy_target */ coff_object_p },
2787 {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
2788 bfd_false},
2789 {bfd_false, coff_write_object_contents, /* bfd_write_contents */
2790 _bfd_write_archive_contents, bfd_false},
2791
2792 BFD_JUMP_TABLE_GENERIC (coff),
2793 BFD_JUMP_TABLE_COPY (coff),
2794 BFD_JUMP_TABLE_CORE (_bfd_nocore),
2795 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
2796 BFD_JUMP_TABLE_SYMBOLS (coff),
2797 BFD_JUMP_TABLE_RELOCS (coff),
2798 BFD_JUMP_TABLE_WRITE (coff),
2799 BFD_JUMP_TABLE_LINK (coff),
2800 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
2801
2802 /* Alternative_target. */
2803 #ifdef TARGET_BIG_SYM
2804 & TARGET_BIG_SYM,
2805 #else
2806 NULL,
2807 #endif
2808
2809 COFF_SWAP_TABLE
2810 };
2811 #endif
2812
2813 #ifdef TARGET_BIG_SYM
2814 const bfd_target TARGET_BIG_SYM =
2815 {
2816 TARGET_BIG_NAME,
2817 bfd_target_coff_flavour,
2818 BFD_ENDIAN_BIG, /* data byte order is big */
2819 BFD_ENDIAN_BIG, /* header byte order is big */
2820
2821 (HAS_RELOC | EXEC_P | /* FIXME: object flags */
2822 HAS_LINENO | HAS_DEBUG |
2823 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
2824
2825 #ifndef COFF_WITH_PE
2826 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
2827 #else
2828 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
2829 | SEC_LINK_ONCE | SEC_LINK_DUPLICATES),
2830 #endif
2831
2832 0, /* leading char */
2833 '/', /* ar_pad_char */
2834 15, /* ar_max_namelen??? FIXMEmgo */
2835
2836 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2837 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2838 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
2839
2840 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2841 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2842 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
2843
2844 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
2845 bfd_generic_archive_p, /* _bfd_dummy_target */ coff_object_p },
2846 {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
2847 bfd_false},
2848 {bfd_false, coff_write_object_contents, /* bfd_write_contents */
2849 _bfd_write_archive_contents, bfd_false},
2850
2851 BFD_JUMP_TABLE_GENERIC (coff),
2852 BFD_JUMP_TABLE_COPY (coff),
2853 BFD_JUMP_TABLE_CORE (_bfd_nocore),
2854 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
2855 BFD_JUMP_TABLE_SYMBOLS (coff),
2856 BFD_JUMP_TABLE_RELOCS (coff),
2857 BFD_JUMP_TABLE_WRITE (coff),
2858 BFD_JUMP_TABLE_LINK (coff),
2859 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
2860
2861 /* Alternative_target. */
2862 #ifdef TARGET_LITTLE_SYM
2863 & TARGET_LITTLE_SYM,
2864 #else
2865 NULL,
2866 #endif
2867
2868 COFF_SWAP_TABLE
2869 };
2870
2871 #endif
GDB Binutils - Deliverables
This page took 0.118393 seconds and 5 git commands to generate.