1/* BFD semi-generic back-end for a.out binaries.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
3 2001, 2002, 2003
4 Free Software Foundation, Inc.
5 Written by Cygnus Support.
6
7 This file is part of BFD, the Binary File Descriptor library.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
23/*
24SECTION
25 a.out backends
26
27DESCRIPTION
28
29 BFD supports a number of different flavours of a.out format,
--- 70 unchanged lines hidden (view full) ---
100 to use @file{host-aout.c}, specify:
101
102| TDEFAULTS = -DDEFAULT_VECTOR=host_aout_big_vec
103| TDEPFILES= host-aout.o trad-core.o
104
105 in the @file{config/@var{XXX}.mt} file, and modify @file{configure.in}
106 to use the
107 @file{@var{XXX}.mt} file (by setting "<<bfd_target=XXX>>") when your
108 configuration is selected. */
109
110/* Some assumptions:
111 * Any BFD with D_PAGED set is ZMAGIC, and vice versa.
112 Doesn't matter what the setting of WP_TEXT is on output, but it'll
113 get set on input.
114 * Any BFD with D_PAGED clear and WP_TEXT set is NMAGIC.
115 * Any BFD with both flags clear is OMAGIC.
116 (Just want to make these explicit, so the conditions tested in this
117 file make sense if you're more familiar with a.out than with BFD.) */
--- 6 unchanged lines hidden (view full) ---
124#include "bfdlink.h"
125
126#include "libaout.h"
127#include "libbfd.h"
128#include "aout/aout64.h"
129#include "aout/stab_gnu.h"
130#include "aout/ar.h"
131
132static bfd_boolean aout_get_external_symbols
133 PARAMS ((bfd *));
134static bfd_boolean translate_from_native_sym_flags
135 PARAMS ((bfd *, aout_symbol_type *));
136static bfd_boolean translate_to_native_sym_flags
137 PARAMS ((bfd *, asymbol *, struct external_nlist *));
138static void adjust_o_magic
139 PARAMS ((bfd *, struct internal_exec *));
140static void adjust_z_magic
141 PARAMS ((bfd *, struct internal_exec *));
142static void adjust_n_magic
143 PARAMS ((bfd *, struct internal_exec *));
144reloc_howto_type * NAME(aout,reloc_type_lookup)
145 PARAMS ((bfd *, bfd_reloc_code_real_type));
146
147/*
148SUBSECTION
149 Relocations
150
151DESCRIPTION
152 The file @file{aoutx.h} provides for both the @emph{standard}
153 and @emph{extended} forms of a.out relocation records.
154
155 The standard records contain only an
156 address, a symbol index, and a type field. The extended records
157 (used on 29ks and sparcs) also have a full integer for an
158 addend. */
159
160#ifndef CTOR_TABLE_RELOC_HOWTO
161#define CTOR_TABLE_RELOC_IDX 2
162#define CTOR_TABLE_RELOC_HOWTO(BFD) \
163 ((obj_reloc_entry_size (BFD) == RELOC_EXT_SIZE \
164 ? howto_table_ext : howto_table_std) \
165 + CTOR_TABLE_RELOC_IDX)
166#endif
167
--- 21 unchanged lines hidden (view full) ---
189#define MY_relocate_contents _bfd_relocate_contents
190#endif
191
192#define howto_table_ext NAME(aout,ext_howto_table)
193#define howto_table_std NAME(aout,std_howto_table)
194
195reloc_howto_type howto_table_ext[] =
196{
197 /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone. */
198 HOWTO(RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,"8", FALSE, 0,0x000000ff, FALSE),
199 HOWTO(RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"16", FALSE, 0,0x0000ffff, FALSE),
200 HOWTO(RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"32", FALSE, 0,0xffffffff, FALSE),
201 HOWTO(RELOC_DISP8, 0, 0, 8, TRUE, 0, complain_overflow_signed,0,"DISP8", FALSE, 0,0x000000ff, FALSE),
202 HOWTO(RELOC_DISP16, 0, 1, 16, TRUE, 0, complain_overflow_signed,0,"DISP16", FALSE, 0,0x0000ffff, FALSE),
203 HOWTO(RELOC_DISP32, 0, 2, 32, TRUE, 0, complain_overflow_signed,0,"DISP32", FALSE, 0,0xffffffff, FALSE),
204 HOWTO(RELOC_WDISP30,2, 2, 30, TRUE, 0, complain_overflow_signed,0,"WDISP30", FALSE, 0,0x3fffffff, FALSE),
205 HOWTO(RELOC_WDISP22,2, 2, 22, TRUE, 0, complain_overflow_signed,0,"WDISP22", FALSE, 0,0x003fffff, FALSE),
206 HOWTO(RELOC_HI22, 10, 2, 22, FALSE, 0, complain_overflow_bitfield,0,"HI22", FALSE, 0,0x003fffff, FALSE),
207 HOWTO(RELOC_22, 0, 2, 22, FALSE, 0, complain_overflow_bitfield,0,"22", FALSE, 0,0x003fffff, FALSE),
208 HOWTO(RELOC_13, 0, 2, 13, FALSE, 0, complain_overflow_bitfield,0,"13", FALSE, 0,0x00001fff, FALSE),
209 HOWTO(RELOC_LO10, 0, 2, 10, FALSE, 0, complain_overflow_dont,0,"LO10", FALSE, 0,0x000003ff, FALSE),
210 HOWTO(RELOC_SFA_BASE,0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"SFA_BASE", FALSE, 0,0xffffffff, FALSE),
211 HOWTO(RELOC_SFA_OFF13,0,2, 32, FALSE, 0, complain_overflow_bitfield,0,"SFA_OFF13",FALSE, 0,0xffffffff, FALSE),
212 HOWTO(RELOC_BASE10, 0, 2, 10, FALSE, 0, complain_overflow_dont,0,"BASE10", FALSE, 0,0x000003ff, FALSE),
213 HOWTO(RELOC_BASE13, 0, 2, 13, FALSE, 0, complain_overflow_signed,0,"BASE13", FALSE, 0,0x00001fff, FALSE),
214 HOWTO(RELOC_BASE22, 10, 2, 22, FALSE, 0, complain_overflow_bitfield,0,"BASE22", FALSE, 0,0x003fffff, FALSE),
215 HOWTO(RELOC_PC10, 0, 2, 10, TRUE, 0, complain_overflow_dont,0,"PC10", FALSE, 0,0x000003ff, TRUE),
216 HOWTO(RELOC_PC22, 10, 2, 22, TRUE, 0, complain_overflow_signed,0,"PC22", FALSE, 0,0x003fffff, TRUE),
217 HOWTO(RELOC_JMP_TBL,2, 2, 30, TRUE, 0, complain_overflow_signed,0,"JMP_TBL", FALSE, 0,0x3fffffff, FALSE),
218 HOWTO(RELOC_SEGOFF16,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"SEGOFF16", FALSE, 0,0x00000000, FALSE),
219 HOWTO(RELOC_GLOB_DAT,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"GLOB_DAT", FALSE, 0,0x00000000, FALSE),
220 HOWTO(RELOC_JMP_SLOT,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"JMP_SLOT", FALSE, 0,0x00000000, FALSE),
221 HOWTO(RELOC_RELATIVE,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"RELATIVE", FALSE, 0,0x00000000, FALSE),
222 HOWTO(0, 0, 0, 0, FALSE, 0, complain_overflow_dont, 0, "R_SPARC_NONE", FALSE,0,0x00000000,TRUE),
223 HOWTO(0, 0, 0, 0, FALSE, 0, complain_overflow_dont, 0, "R_SPARC_NONE", FALSE,0,0x00000000,TRUE),
224#define RELOC_SPARC_REV32 RELOC_WDISP19
225 HOWTO(RELOC_SPARC_REV32, 0, 2, 32, FALSE, 0, complain_overflow_dont,0,"R_SPARC_REV32", FALSE, 0,0xffffffff, FALSE),
226};
227
228/* Convert standard reloc records to "arelent" format (incl byte swap). */
229
230reloc_howto_type howto_table_std[] =
231{
232 /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone. */
233HOWTO ( 0, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,"8", TRUE, 0x000000ff,0x000000ff, FALSE),
234HOWTO ( 1, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
235HOWTO ( 2, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"32", TRUE, 0xffffffff,0xffffffff, FALSE),
236HOWTO ( 3, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,0,"64", TRUE, 0xdeaddead,0xdeaddead, FALSE),
237HOWTO ( 4, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,"DISP8", TRUE, 0x000000ff,0x000000ff, FALSE),
238HOWTO ( 5, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,"DISP16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
239HOWTO ( 6, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,"DISP32", TRUE, 0xffffffff,0xffffffff, FALSE),
240HOWTO ( 7, 0, 4, 64, TRUE, 0, complain_overflow_signed, 0,"DISP64", TRUE, 0xfeedface,0xfeedface, FALSE),
241HOWTO ( 8, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"GOT_REL", FALSE, 0,0x00000000, FALSE),
242HOWTO ( 9, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"BASE16", FALSE,0xffffffff,0xffffffff, FALSE),
243HOWTO (10, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"BASE32", FALSE,0xffffffff,0xffffffff, FALSE),
244EMPTY_HOWTO (-1),
245EMPTY_HOWTO (-1),
246EMPTY_HOWTO (-1),
247EMPTY_HOWTO (-1),
248EMPTY_HOWTO (-1),
249 HOWTO (16, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"JMP_TABLE", FALSE, 0,0x00000000, FALSE),
250EMPTY_HOWTO (-1),
251EMPTY_HOWTO (-1),
252EMPTY_HOWTO (-1),
253EMPTY_HOWTO (-1),
254EMPTY_HOWTO (-1),
255EMPTY_HOWTO (-1),
256EMPTY_HOWTO (-1),
257EMPTY_HOWTO (-1),
258EMPTY_HOWTO (-1),
259EMPTY_HOWTO (-1),
260EMPTY_HOWTO (-1),
261EMPTY_HOWTO (-1),
262EMPTY_HOWTO (-1),
263EMPTY_HOWTO (-1),
264EMPTY_HOWTO (-1),
265 HOWTO (32, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"RELATIVE", FALSE, 0,0x00000000, FALSE),
266EMPTY_HOWTO (-1),
267EMPTY_HOWTO (-1),
268EMPTY_HOWTO (-1),
269EMPTY_HOWTO (-1),
270EMPTY_HOWTO (-1),
271EMPTY_HOWTO (-1),
272EMPTY_HOWTO (-1),
273 HOWTO (40, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"BASEREL", FALSE, 0,0x00000000, FALSE),
274};
275
276#define TABLE_SIZE(TABLE) (sizeof (TABLE) / sizeof (TABLE[0]))
277
278reloc_howto_type *
279NAME(aout,reloc_type_lookup) (abfd,code)
280 bfd *abfd;
281 bfd_reloc_code_real_type code;
282{
283#define EXT(i, j) case i: return &howto_table_ext[j]
284#define STD(i, j) case i: return &howto_table_std[j]
285 int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
286
287 if (code == BFD_RELOC_CTOR)
288 switch (bfd_get_arch_info (abfd)->bits_per_address)
289 {
290 case 32:
291 code = BFD_RELOC_32;
292 break;
293 case 64:
294 code = BFD_RELOC_64;
295 break;
296 }
297
298 if (ext)
299 switch (code)
300 {
301 EXT (BFD_RELOC_8, 0);
302 EXT (BFD_RELOC_16, 1);
303 EXT (BFD_RELOC_32, 2);
304 EXT (BFD_RELOC_HI22, 8);
305 EXT (BFD_RELOC_LO10, 11);
--- 6 unchanged lines hidden (view full) ---
312 EXT (BFD_RELOC_SPARC_GOT22, 16);
313 EXT (BFD_RELOC_SPARC_PC10, 17);
314 EXT (BFD_RELOC_SPARC_PC22, 18);
315 EXT (BFD_RELOC_SPARC_WPLT30, 19);
316 EXT (BFD_RELOC_SPARC_REV32, 26);
317 default: return (reloc_howto_type *) NULL;
318 }
319 else
320 /* std relocs. */
321 switch (code)
322 {
323 STD (BFD_RELOC_8, 0);
324 STD (BFD_RELOC_16, 1);
325 STD (BFD_RELOC_32, 2);
326 STD (BFD_RELOC_8_PCREL, 4);
327 STD (BFD_RELOC_16_PCREL, 5);
328 STD (BFD_RELOC_32_PCREL, 6);
329 STD (BFD_RELOC_16_BASEREL, 9);
330 STD (BFD_RELOC_32_BASEREL, 10);
331 default: return (reloc_howto_type *) NULL;
--- 84 unchanged lines hidden (view full) ---
416 PUT_WORD (abfd, execp->a_syms , bytes->e_syms);
417 PUT_WORD (abfd, execp->a_entry , bytes->e_entry);
418 PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize);
419 PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize);
420}
421
422/* Make all the section for an a.out file. */
423
424bfd_boolean
425NAME(aout,make_sections) (abfd)
426 bfd *abfd;
427{
428 if (obj_textsec (abfd) == (asection *) NULL
429 && bfd_make_section (abfd, ".text") == (asection *) NULL)
430 return FALSE;
431 if (obj_datasec (abfd) == (asection *) NULL
432 && bfd_make_section (abfd, ".data") == (asection *) NULL)
433 return FALSE;
434 if (obj_bsssec (abfd) == (asection *) NULL
435 && bfd_make_section (abfd, ".bss") == (asection *) NULL)
436 return FALSE;
437 return TRUE;
438}
439
440/*
441FUNCTION
442 aout_@var{size}_some_aout_object_p
443
444SYNOPSIS
445 const bfd_target *aout_@var{size}_some_aout_object_p
--- 28 unchanged lines hidden (view full) ---
474 /* Copy the contents of the old tdata struct.
475 In particular, we want the subformat, since for hpux it was set in
476 hp300hpux.c:swap_exec_header_in and will be used in
477 hp300hpux.c:callback. */
478 if (oldrawptr != NULL)
479 *abfd->tdata.aout_data = *oldrawptr;
480
481 abfd->tdata.aout_data->a.hdr = &rawptr->e;
482 /* Copy in the internal_exec struct. */
483 *(abfd->tdata.aout_data->a.hdr) = *execp;
484 execp = abfd->tdata.aout_data->a.hdr;
485
486 /* Set the file flags. */
487 abfd->flags = BFD_NO_FLAGS;
488 if (execp->a_drsize || execp->a_trsize)
489 abfd->flags |= HAS_RELOC;
490 /* Setting of EXEC_P has been deferred to the bottom of this function. */
491 if (execp->a_syms)
492 abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
493 if (N_DYNAMIC (*execp))
494 abfd->flags |= DYNAMIC;
495
496 if (N_MAGIC (*execp) == ZMAGIC)
497 {
498 abfd->flags |= D_PAGED | WP_TEXT;
--- 65 unchanged lines hidden (view full) ---
564 /* Call back to the format-dependent code to fill in the rest of the
565 fields and do any further cleanup. Things that should be filled
566 in by the callback: */
567
568 struct exec *execp = exec_hdr (abfd);
569
570 obj_textsec (abfd)->size = N_TXTSIZE (*execp);
571 obj_textsec (abfd)->raw_size = N_TXTSIZE (*execp);
572 /* Data and bss are already filled in since they're so standard. */
573
574 /* The virtual memory addresses of the sections. */
575 obj_textsec (abfd)->vma = N_TXTADDR (*execp);
576 obj_datasec (abfd)->vma = N_DATADDR (*execp);
577 obj_bsssec (abfd)->vma = N_BSSADDR (*execp);
578
579 /* The file offsets of the sections. */
580 obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
581 obj_datasec (abfd)->filepos = N_DATOFF (*execp);
582
583 /* The file offsets of the relocation info. */
584 obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp);
585 obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp);
586
587 /* The file offsets of the string table and symbol table. */
588 obj_str_filepos (abfd) = N_STROFF (*execp);
589 obj_sym_filepos (abfd) = N_SYMOFF (*execp);
590
591 /* Determine the architecture and machine type of the object file. */
--- 78 unchanged lines hidden (view full) ---
670 return NULL;
671}
672
673/*
674FUNCTION
675 aout_@var{size}_mkobject
676
677SYNOPSIS
678 bfd_boolean aout_@var{size}_mkobject, (bfd *abfd);
679
680DESCRIPTION
681 Initialize BFD @var{abfd} for use with a.out files.
682*/
683
684bfd_boolean
685NAME(aout,mkobject) (abfd)
686 bfd *abfd;
687{
688 struct aout_data_struct *rawptr;
689 bfd_size_type amt = sizeof (struct aout_data_struct);
690
691 bfd_set_error (bfd_error_system_call);
692
693 rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, amt);
694 if (rawptr == NULL)
695 return FALSE;
696
697 abfd->tdata.aout_data = rawptr;
698 exec_hdr (abfd) = &(rawptr->e);
699
700 obj_textsec (abfd) = (asection *) NULL;
701 obj_datasec (abfd) = (asection *) NULL;
702 obj_bsssec (abfd) = (asection *) NULL;
703
704 return TRUE;
705}
706
707/*
708FUNCTION
709 aout_@var{size}_machine_type
710
711SYNOPSIS
712 enum machine_type aout_@var{size}_machine_type
--- 9 unchanged lines hidden (view full) ---
722 If the architecture is understood, machine type 0 (default)
723 is always understood.
724*/
725
726enum machine_type
727NAME(aout,machine_type) (arch, machine, unknown)
728 enum bfd_architecture arch;
729 unsigned long machine;
730 bfd_boolean *unknown;
731{
732 enum machine_type arch_flags;
733
734 arch_flags = M_UNKNOWN;
735 *unknown = TRUE;
736
737 switch (arch)
738 {
739 case bfd_arch_sparc:
740 if (machine == 0
741 || machine == bfd_mach_sparc
742 || machine == bfd_mach_sparc_sparclite
743 || machine == bfd_mach_sparc_sparclite_le
744 || machine == bfd_mach_sparc_v9)
745 arch_flags = M_SPARC;
746 else if (machine == bfd_mach_sparc_sparclet)
747 arch_flags = M_SPARCLET;
748 break;
749
750 case bfd_arch_m68k:
751 switch (machine)
752 {
753 case 0: arch_flags = M_68010; break;
754 case bfd_mach_m68000: arch_flags = M_UNKNOWN; *unknown = FALSE; break;
755 case bfd_mach_m68010: arch_flags = M_68010; break;
756 case bfd_mach_m68020: arch_flags = M_68020; break;
757 default: arch_flags = M_UNKNOWN; break;
758 }
759 break;
760
761 case bfd_arch_i386:
762 if (machine == 0
763 || machine == bfd_mach_i386_i386
764 || machine == bfd_mach_i386_i386_intel_syntax)
765 arch_flags = M_386;
766 break;
767
768 case bfd_arch_a29k:
769 if (machine == 0)
770 arch_flags = M_29K;
771 break;
772
--- 20 unchanged lines hidden (view full) ---
793 case bfd_mach_mips4400:
794 case bfd_mach_mips4600:
795 case bfd_mach_mips4650:
796 case bfd_mach_mips8000:
797 case bfd_mach_mips10000:
798 case bfd_mach_mips12000:
799 case bfd_mach_mips16:
800 case bfd_mach_mipsisa32:
801 case bfd_mach_mipsisa32r2:
802 case bfd_mach_mips5:
803 case bfd_mach_mipsisa64:
804 case bfd_mach_mipsisa64r2:
805 case bfd_mach_mips_sb1:
806 /* FIXME: These should be MIPS3, MIPS4, MIPS16, MIPS32, etc. */
807 arch_flags = M_MIPS2;
808 break;
809 default:
810 arch_flags = M_UNKNOWN;
811 break;
812 }
--- 5 unchanged lines hidden (view full) ---
818 case 0: arch_flags = M_NS32532; break;
819 case 32032: arch_flags = M_NS32032; break;
820 case 32532: arch_flags = M_NS32532; break;
821 default: arch_flags = M_UNKNOWN; break;
822 }
823 break;
824
825 case bfd_arch_vax:
826 *unknown = FALSE;
827 break;
828
829 case bfd_arch_cris:
830 if (machine == 0 || machine == 255)
831 arch_flags = M_CRIS;
832 break;
833
834 default:
835 arch_flags = M_UNKNOWN;
836 }
837
838 if (arch_flags != M_UNKNOWN)
839 *unknown = FALSE;
840
841 return arch_flags;
842}
843
844/*
845FUNCTION
846 aout_@var{size}_set_arch_mach
847
848SYNOPSIS
849 bfd_boolean aout_@var{size}_set_arch_mach,
850 (bfd *,
851 enum bfd_architecture arch,
852 unsigned long machine));
853
854DESCRIPTION
855 Set the architecture and the machine of the BFD @var{abfd} to the
856 values @var{arch} and @var{machine}. Verify that @var{abfd}'s format
857 can support the architecture required.
858*/
859
860bfd_boolean
861NAME(aout,set_arch_mach) (abfd, arch, machine)
862 bfd *abfd;
863 enum bfd_architecture arch;
864 unsigned long machine;
865{
866 if (! bfd_default_set_arch_mach (abfd, arch, machine))
867 return FALSE;
868
869 if (arch != bfd_arch_unknown)
870 {
871 bfd_boolean unknown;
872
873 NAME(aout,machine_type) (arch, machine, &unknown);
874 if (unknown)
875 return FALSE;
876 }
877
878 /* Determine the size of a relocation entry. */
879 switch (arch)
880 {
881 case bfd_arch_sparc:
882 case bfd_arch_a29k:
883 case bfd_arch_mips:
884 obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
885 break;
886 default:
--- 21 unchanged lines hidden (view full) ---
908 vma = obj_textsec (abfd)->vma;
909
910 pos += obj_textsec (abfd)->_raw_size;
911 vma += obj_textsec (abfd)->_raw_size;
912
913 /* Data. */
914 if (!obj_datasec (abfd)->user_set_vma)
915 {
916#if 0 /* ?? Does alignment in the file image really matter? */
917 pad = align_power (vma, obj_datasec (abfd)->alignment_power) - vma;
918#endif
919 obj_textsec (abfd)->_raw_size += pad;
920 pos += pad;
921 vma += pad;
922 obj_datasec (abfd)->vma = vma;
923 }
924 else
--- 190 unchanged lines hidden (view full) ---
1115
1116 /* Fix up exec header. */
1117 execp->a_text = obj_textsec (abfd)->_raw_size;
1118 execp->a_data = obj_datasec (abfd)->_raw_size;
1119 execp->a_bss = obj_bsssec (abfd)->_raw_size;
1120 N_SET_MAGIC (*execp, NMAGIC);
1121}
1122
1123bfd_boolean
1124NAME(aout,adjust_sizes_and_vmas) (abfd, text_size, text_end)
1125 bfd *abfd;
1126 bfd_size_type *text_size;
1127 file_ptr *text_end ATTRIBUTE_UNUSED;
1128{
1129 struct internal_exec *execp = exec_hdr (abfd);
1130
1131 if (! NAME(aout,make_sections) (abfd))
1132 return FALSE;
1133
1134 if (adata (abfd).magic != undecided_magic)
1135 return TRUE;
1136
1137 obj_textsec (abfd)->_raw_size =
1138 align_power (obj_textsec (abfd)->_raw_size,
1139 obj_textsec (abfd)->alignment_power);
1140
1141 *text_size = obj_textsec (abfd)->_raw_size;
1142 /* Rule (heuristic) for when to pad to a new page. Note that there
1143 are (at least) two ways demand-paged (ZMAGIC) files have been
--- 60 unchanged lines hidden (view full) ---
1204 fprintf (stderr, " text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x>\n",
1205 obj_textsec (abfd)->vma, obj_textsec (abfd)->_raw_size,
1206 obj_textsec (abfd)->filepos,
1207 obj_datasec (abfd)->vma, obj_datasec (abfd)->_raw_size,
1208 obj_datasec (abfd)->filepos,
1209 obj_bsssec (abfd)->vma, obj_bsssec (abfd)->_raw_size);
1210#endif
1211
1212 return TRUE;
1213}
1214
1215/*
1216FUNCTION
1217 aout_@var{size}_new_section_hook
1218
1219SYNOPSIS
1220 bfd_boolean aout_@var{size}_new_section_hook,
1221 (bfd *abfd,
1222 asection *newsect));
1223
1224DESCRIPTION
1225 Called by the BFD in response to a @code{bfd_make_section}
1226 request.
1227*/
1228bfd_boolean
1229NAME(aout,new_section_hook) (abfd, newsect)
1230 bfd *abfd;
1231 asection *newsect;
1232{
1233 /* Align to double at least. */
1234 newsect->alignment_power = bfd_get_arch_info (abfd)->section_align_power;
1235
1236 if (bfd_get_format (abfd) == bfd_object)
1237 {
1238 if (obj_textsec (abfd) == NULL && !strcmp (newsect->name, ".text"))
1239 {
1240 obj_textsec (abfd)= newsect;
1241 newsect->target_index = N_TEXT;
1242 return TRUE;
1243 }
1244
1245 if (obj_datasec (abfd) == NULL && !strcmp (newsect->name, ".data"))
1246 {
1247 obj_datasec (abfd) = newsect;
1248 newsect->target_index = N_DATA;
1249 return TRUE;
1250 }
1251
1252 if (obj_bsssec (abfd) == NULL && !strcmp (newsect->name, ".bss"))
1253 {
1254 obj_bsssec (abfd) = newsect;
1255 newsect->target_index = N_BSS;
1256 return TRUE;
1257 }
1258 }
1259
1260 /* We allow more than three sections internally. */
1261 return TRUE;
1262}
1263
1264bfd_boolean
1265NAME(aout,set_section_contents) (abfd, section, location, offset, count)
1266 bfd *abfd;
1267 sec_ptr section;
1268 const PTR location;
1269 file_ptr offset;
1270 bfd_size_type count;
1271{
1272 file_ptr text_end;
1273 bfd_size_type text_size;
1274
1275 if (! abfd->output_has_begun)
1276 {
1277 if (! NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end))
1278 return FALSE;
1279 }
1280
1281 if (section == obj_bsssec (abfd))
1282 {
1283 bfd_set_error (bfd_error_no_contents);
1284 return FALSE;
1285 }
1286
1287 if (section != obj_textsec (abfd)
1288 && section != obj_datasec (abfd))
1289 {
1290 if (aout_section_merge_with_text_p (abfd, section))
1291 section->filepos = obj_textsec (abfd)->filepos +
1292 (section->vma - obj_textsec (abfd)->vma);
1293 else
1294 {
1295 (*_bfd_error_handler)
1296 (_("%s: can not represent section `%s' in a.out object file format"),
1297 bfd_get_filename (abfd), bfd_get_section_name (abfd, section));
1298 bfd_set_error (bfd_error_nonrepresentable_section);
1299 return FALSE;
1300 }
1301 }
1302
1303 if (count != 0)
1304 {
1305 if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
1306 || bfd_bwrite (location, count, abfd) != count)
1307 return FALSE;
1308 }
1309
1310 return TRUE;
1311}
1312
1313/* Read the external symbols from an a.out file. */
1314
1315static bfd_boolean
1316aout_get_external_symbols (abfd)
1317 bfd *abfd;
1318{
1319 if (obj_aout_external_syms (abfd) == (struct external_nlist *) NULL)
1320 {
1321 bfd_size_type count;
1322 struct external_nlist *syms;
1323 bfd_size_type amt;
1324
1325 count = exec_hdr (abfd)->a_syms / EXTERNAL_NLIST_SIZE;
1326
1327#ifdef USE_MMAP
1328 if (! bfd_get_file_window (abfd, obj_sym_filepos (abfd),
1329 exec_hdr (abfd)->a_syms,
1330 &obj_aout_sym_window (abfd), TRUE))
1331 return FALSE;
1332 syms = (struct external_nlist *) obj_aout_sym_window (abfd).data;
1333#else
1334 /* We allocate using malloc to make the values easy to free
1335 later on. If we put them on the objalloc it might not be
1336 possible to free them. */
1337 syms = ((struct external_nlist *)
1338 bfd_malloc (count * EXTERNAL_NLIST_SIZE));
1339 if (syms == (struct external_nlist *) NULL && count != 0)
1340 return FALSE;
1341
1342 amt = exec_hdr (abfd)->a_syms;
1343 if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0
1344 || bfd_bread (syms, amt, abfd) != amt)
1345 {
1346 free (syms);
1347 return FALSE;
1348 }
1349#endif
1350
1351 obj_aout_external_syms (abfd) = syms;
1352 obj_aout_external_sym_count (abfd) = count;
1353 }
1354
1355 if (obj_aout_external_strings (abfd) == NULL
1356 && exec_hdr (abfd)->a_syms != 0)
1357 {
1358 unsigned char string_chars[BYTES_IN_WORD];
1359 bfd_size_type stringsize;
1360 char *strings;
1361 bfd_size_type amt = BYTES_IN_WORD;
1362
1363 /* Get the size of the strings. */
1364 if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0
1365 || bfd_bread ((PTR) string_chars, amt, abfd) != amt)
1366 return FALSE;
1367 stringsize = GET_WORD (abfd, string_chars);
1368
1369#ifdef USE_MMAP
1370 if (! bfd_get_file_window (abfd, obj_str_filepos (abfd), stringsize,
1371 &obj_aout_string_window (abfd), TRUE))
1372 return FALSE;
1373 strings = (char *) obj_aout_string_window (abfd).data;
1374#else
1375 strings = (char *) bfd_malloc (stringsize + 1);
1376 if (strings == NULL)
1377 return FALSE;
1378
1379 /* Skip space for the string count in the buffer for convenience
1380 when using indexes. */
1381 amt = stringsize - BYTES_IN_WORD;
1382 if (bfd_bread (strings + BYTES_IN_WORD, amt, abfd) != amt)
1383 {
1384 free (strings);
1385 return FALSE;
1386 }
1387#endif
1388
1389 /* Ensure that a zero index yields an empty string. */
1390 strings[0] = '\0';
1391
1392 strings[stringsize - 1] = 0;
1393
1394 obj_aout_external_strings (abfd) = strings;
1395 obj_aout_external_string_size (abfd) = stringsize;
1396 }
1397
1398 return TRUE;
1399}
1400
1401/* Translate an a.out symbol into a BFD symbol. The desc, other, type
1402 and symbol->value fields of CACHE_PTR will be set from the a.out
1403 nlist structure. This function is responsible for setting
1404 symbol->flags and symbol->section, and adjusting symbol->value. */
1405
1406static bfd_boolean
1407translate_from_native_sym_flags (abfd, cache_ptr)
1408 bfd *abfd;
1409 aout_symbol_type *cache_ptr;
1410{
1411 flagword visible;
1412
1413 if ((cache_ptr->type & N_STAB) != 0
1414 || cache_ptr->type == N_FN)
1415 {
1416 asection *sec;
1417
1418 /* This is a debugging symbol. */
1419 cache_ptr->symbol.flags = BSF_DEBUGGING;
1420
1421 /* Work out the symbol section. */
1422 switch (cache_ptr->type & N_TYPE)
1423 {
1424 case N_TEXT:
1425 case N_FN:
1426 sec = obj_textsec (abfd);
--- 8 unchanged lines hidden (view full) ---
1435 case N_ABS:
1436 sec = bfd_abs_section_ptr;
1437 break;
1438 }
1439
1440 cache_ptr->symbol.section = sec;
1441 cache_ptr->symbol.value -= sec->vma;
1442
1443 return TRUE;
1444 }
1445
1446 /* Get the default visibility. This does not apply to all types, so
1447 we just hold it in a local variable to use if wanted. */
1448 if ((cache_ptr->type & N_EXT) == 0)
1449 visible = BSF_LOCAL;
1450 else
1451 visible = BSF_GLOBAL;
--- 72 unchanged lines hidden (view full) ---
1524 section = bfd_get_section_by_name (abfd, cache_ptr->symbol.name);
1525 if (section == NULL)
1526 {
1527 char *copy;
1528
1529 amt = strlen (cache_ptr->symbol.name) + 1;
1530 copy = bfd_alloc (abfd, amt);
1531 if (copy == NULL)
1532 return FALSE;
1533
1534 strcpy (copy, cache_ptr->symbol.name);
1535 section = bfd_make_section (abfd, copy);
1536 if (section == NULL)
1537 return FALSE;
1538 }
1539
1540 amt = sizeof (arelent_chain);
1541 reloc = (arelent_chain *) bfd_alloc (abfd, amt);
1542 if (reloc == NULL)
1543 return FALSE;
1544
1545 /* Build a relocation entry for the constructor. */
1546 switch (cache_ptr->type & N_TYPE)
1547 {
1548 case N_SETA:
1549 into_section = bfd_abs_section_ptr;
1550 cache_ptr->type = N_ABS;
1551 break;
--- 96 unchanged lines hidden (view full) ---
1648
1649 case N_WEAKB:
1650 cache_ptr->symbol.section = obj_bsssec (abfd);
1651 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1652 cache_ptr->symbol.flags = BSF_WEAK;
1653 break;
1654 }
1655
1656 return TRUE;
1657}
1658
1659/* Set the fields of SYM_POINTER according to CACHE_PTR. */
1660
1661static bfd_boolean
1662translate_to_native_sym_flags (abfd, cache_ptr, sym_pointer)
1663 bfd *abfd;
1664 asymbol *cache_ptr;
1665 struct external_nlist *sym_pointer;
1666{
1667 bfd_vma value = cache_ptr->value;
1668 asection *sec;
1669 bfd_vma off;
--- 9 unchanged lines hidden (view full) ---
1679 {
1680 /* This case occurs, e.g., for the *DEBUG* section of a COFF
1681 file. */
1682 (*_bfd_error_handler)
1683 (_("%s: can not represent section for symbol `%s' in a.out object file format"),
1684 bfd_get_filename (abfd),
1685 cache_ptr->name != NULL ? cache_ptr->name : _("*unknown*"));
1686 bfd_set_error (bfd_error_nonrepresentable_section);
1687 return FALSE;
1688 }
1689
1690 if (sec->output_section != NULL)
1691 {
1692 off = sec->output_offset;
1693 sec = sec->output_section;
1694 }
1695
--- 8 unchanged lines hidden (view full) ---
1704 else if (bfd_is_und_section (sec))
1705 sym_pointer->e_type[0] = N_UNDF | N_EXT;
1706 else if (bfd_is_ind_section (sec))
1707 sym_pointer->e_type[0] = N_INDR;
1708 else if (bfd_is_com_section (sec))
1709 sym_pointer->e_type[0] = N_UNDF | N_EXT;
1710 else
1711 {
1712 if (aout_section_merge_with_text_p (abfd, sec))
1713 sym_pointer->e_type[0] |= N_TEXT;
1714 else
1715 {
1716 (*_bfd_error_handler)
1717 (_("%s: can not represent section `%s' in a.out object file format"),
1718 bfd_get_filename (abfd), bfd_get_section_name (abfd, sec));
1719 bfd_set_error (bfd_error_nonrepresentable_section);
1720 return FALSE;
1721 }
1722 }
1723
1724 /* Turn the symbol from section relative to absolute again. */
1725 value += sec->vma + off;
1726
1727 if ((cache_ptr->flags & BSF_WARNING) != 0)
1728 sym_pointer->e_type[0] = N_WARNING;
1729
1730 if ((cache_ptr->flags & BSF_DEBUGGING) != 0)
1731 sym_pointer->e_type[0] = ((aout_symbol_type *) cache_ptr)->type;
1732 else if ((cache_ptr->flags & BSF_GLOBAL) != 0)
1733 sym_pointer->e_type[0] |= N_EXT;
1734 else if ((cache_ptr->flags & BSF_LOCAL) != 0)
1735 sym_pointer->e_type[0] &= ~N_EXT;
1736
1737 if ((cache_ptr->flags & BSF_CONSTRUCTOR) != 0)
1738 {
1739 int type = ((aout_symbol_type *) cache_ptr)->type;
1740
1741 switch (type)
1742 {
1743 case N_ABS: type = N_SETA; break;
1744 case N_TEXT: type = N_SETT; break;
1745 case N_DATA: type = N_SETD; break;
1746 case N_BSS: type = N_SETB; break;
1747 }
1748 sym_pointer->e_type[0] = type;
--- 12 unchanged lines hidden (view full) ---
1761 case N_BSS: type = N_WEAKB; break;
1762 case N_UNDF: type = N_WEAKU; break;
1763 }
1764 sym_pointer->e_type[0] = type;
1765 }
1766
1767 PUT_WORD (abfd, value, sym_pointer->e_value);
1768
1769 return TRUE;
1770}
1771
1772/* Native-level interface to symbols. */
1773
1774asymbol *
1775NAME(aout,make_empty_symbol) (abfd)
1776 bfd *abfd;
1777{
1778 bfd_size_type amt = sizeof (aout_symbol_type);
1779 aout_symbol_type *new = (aout_symbol_type *) bfd_zalloc (abfd, amt);
1780 if (!new)
1781 return NULL;
1782 new->symbol.the_bfd = abfd;
1783
1784 return &new->symbol;
1785}
1786
1787/* Translate a set of internal symbols into external symbols. */
1788
1789bfd_boolean
1790NAME(aout,translate_symbol_table) (abfd, in, ext, count, str, strsize, dynamic)
1791 bfd *abfd;
1792 aout_symbol_type *in;
1793 struct external_nlist *ext;
1794 bfd_size_type count;
1795 char *str;
1796 bfd_size_type strsize;
1797 bfd_boolean dynamic;
1798{
1799 struct external_nlist *ext_end;
1800
1801 ext_end = ext + count;
1802 for (; ext < ext_end; ext++, in++)
1803 {
1804 bfd_vma x;
1805
--- 5 unchanged lines hidden (view full) ---
1811 null string. For the dynamic symbols, the number of bytes in
1812 the string table is stored in the __DYNAMIC structure and the
1813 zero index points at an actual string. */
1814 if (x == 0 && ! dynamic)
1815 in->symbol.name = "";
1816 else if (x < strsize)
1817 in->symbol.name = str + x;
1818 else
1819 return FALSE;
1820
1821 in->symbol.value = GET_SWORD (abfd, ext->e_value);
1822 in->desc = H_GET_16 (abfd, ext->e_desc);
1823 in->other = H_GET_8 (abfd, ext->e_other);
1824 in->type = H_GET_8 (abfd, ext->e_type);
1825 in->symbol.udata.p = NULL;
1826
1827 if (! translate_from_native_sym_flags (abfd, in))
1828 return FALSE;
1829
1830 if (dynamic)
1831 in->symbol.flags |= BSF_DYNAMIC;
1832 }
1833
1834 return TRUE;
1835}
1836
1837/* We read the symbols into a buffer, which is discarded when this
1838 function exits. We read the strings into a buffer large enough to
1839 hold them all plus all the cached symbol entries. */
1840
1841bfd_boolean
1842NAME(aout,slurp_symbol_table) (abfd)
1843 bfd *abfd;
1844{
1845 struct external_nlist *old_external_syms;
1846 aout_symbol_type *cached;
1847 bfd_size_type cached_size;
1848
1849 /* If there's no work to be done, don't do any. */
1850 if (obj_aout_symbols (abfd) != (aout_symbol_type *) NULL)
1851 return TRUE;
1852
1853 old_external_syms = obj_aout_external_syms (abfd);
1854
1855 if (! aout_get_external_symbols (abfd))
1856 return FALSE;
1857
1858 cached_size = obj_aout_external_sym_count (abfd);
1859 cached_size *= sizeof (aout_symbol_type);
1860 cached = (aout_symbol_type *) bfd_zmalloc (cached_size);
1861 if (cached == NULL && cached_size != 0)
1862 return FALSE;
1863
1864 /* Convert from external symbol information to internal. */
1865 if (! (NAME(aout,translate_symbol_table)
1866 (abfd, cached,
1867 obj_aout_external_syms (abfd),
1868 obj_aout_external_sym_count (abfd),
1869 obj_aout_external_strings (abfd),
1870 obj_aout_external_string_size (abfd),
1871 FALSE)))
1872 {
1873 free (cached);
1874 return FALSE;
1875 }
1876
1877 bfd_get_symcount (abfd) = obj_aout_external_sym_count (abfd);
1878
1879 obj_aout_symbols (abfd) = cached;
1880
1881 /* It is very likely that anybody who calls this function will not
1882 want the external symbol information, so if it was allocated
--- 5 unchanged lines hidden (view full) ---
1888#ifdef USE_MMAP
1889 bfd_free_window (&obj_aout_sym_window (abfd));
1890#else
1891 free (obj_aout_external_syms (abfd));
1892#endif
1893 obj_aout_external_syms (abfd) = NULL;
1894 }
1895
1896 return TRUE;
1897}
1898
1899/* We use a hash table when writing out symbols so that we only write
1900 out a particular string once. This helps particularly when the
1901 linker writes out stabs debugging entries, because each different
1902 contributing object file tends to have many duplicate stabs
1903 strings.
1904
1905 This hash table code breaks dbx on SunOS 4.1.3, so we don't do it
1906 if BFD_TRADITIONAL_FORMAT is set. */
1907
1908static bfd_size_type add_to_stringtab
1909 PARAMS ((bfd *, struct bfd_strtab_hash *, const char *, bfd_boolean));
1910static bfd_boolean emit_stringtab
1911 PARAMS ((bfd *, struct bfd_strtab_hash *));
1912
1913/* Get the index of a string in a strtab, adding it if it is not
1914 already present. */
1915
1916static INLINE bfd_size_type
1917add_to_stringtab (abfd, tab, str, copy)
1918 bfd *abfd;
1919 struct bfd_strtab_hash *tab;
1920 const char *str;
1921 bfd_boolean copy;
1922{
1923 bfd_boolean hash;
1924 bfd_size_type index;
1925
1926 /* An index of 0 always means the empty string. */
1927 if (str == 0 || *str == '\0')
1928 return 0;
1929
1930 /* Don't hash if BFD_TRADITIONAL_FORMAT is set, because SunOS dbx
1931 doesn't understand a hashed string table. */
1932 hash = TRUE;
1933 if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
1934 hash = FALSE;
1935
1936 index = _bfd_stringtab_add (tab, str, hash, copy);
1937
1938 if (index != (bfd_size_type) -1)
1939 {
1940 /* Add BYTES_IN_WORD to the return value to account for the
1941 space taken up by the string table size. */
1942 index += BYTES_IN_WORD;
1943 }
1944
1945 return index;
1946}
1947
1948/* Write out a strtab. ABFD is already at the right location in the
1949 file. */
1950
1951static bfd_boolean
1952emit_stringtab (abfd, tab)
1953 register bfd *abfd;
1954 struct bfd_strtab_hash *tab;
1955{
1956 bfd_byte buffer[BYTES_IN_WORD];
1957 bfd_size_type amt = BYTES_IN_WORD;
1958
1959 /* The string table starts with the size. */
1960 PUT_WORD (abfd, _bfd_stringtab_size (tab) + BYTES_IN_WORD, buffer);
1961 if (bfd_bwrite ((PTR) buffer, amt, abfd) != amt)
1962 return FALSE;
1963
1964 return _bfd_stringtab_emit (abfd, tab);
1965}
1966
1967bfd_boolean
1968NAME(aout,write_syms) (abfd)
1969 bfd *abfd;
1970{
1971 unsigned int count ;
1972 asymbol **generic = bfd_get_outsymbols (abfd);
1973 struct bfd_strtab_hash *strtab;
1974
1975 strtab = _bfd_stringtab_init ();
1976 if (strtab == NULL)
1977 return FALSE;
1978
1979 for (count = 0; count < bfd_get_symcount (abfd); count++)
1980 {
1981 asymbol *g = generic[count];
1982 bfd_size_type indx;
1983 struct external_nlist nsp;
1984 bfd_size_type amt;
1985
1986 indx = add_to_stringtab (abfd, strtab, g->name, FALSE);
1987 if (indx == (bfd_size_type) -1)
1988 goto error_return;
1989 PUT_WORD (abfd, indx, (bfd_byte *) nsp.e_strx);
1990
1991 if (bfd_asymbol_flavour (g) == abfd->xvec->flavour)
1992 {
1993 H_PUT_16 (abfd, aout_symbol (g)->desc, nsp.e_desc);
1994 H_PUT_8 (abfd, aout_symbol (g)->other, nsp.e_other);
--- 18 unchanged lines hidden (view full) ---
2013 g->KEEPIT = count;
2014 }
2015
2016 if (! emit_stringtab (abfd, strtab))
2017 goto error_return;
2018
2019 _bfd_stringtab_free (strtab);
2020
2021 return TRUE;
2022
2023error_return:
2024 _bfd_stringtab_free (strtab);
2025 return FALSE;
2026}
2027
2028long
2029NAME(aout,canonicalize_symtab) (abfd, location)
2030 bfd *abfd;
2031 asymbol **location;
2032{
2033 unsigned int counter = 0;
2034 aout_symbol_type *symbase;
2035
2036 if (!NAME(aout,slurp_symbol_table) (abfd))
2037 return -1;
2038
2039 for (symbase = obj_aout_symbols (abfd);
2040 counter++ < bfd_get_symcount (abfd);
2041 )
2042 *(location++) = (asymbol *) (symbase++);
2043 *location++ =0;
2044 return bfd_get_symcount (abfd);
2045}
2046
2047/* Standard reloc stuff. */
2048/* Output standard relocation information to a file in target byte order. */
2049
2050extern void NAME(aout,swap_std_reloc_out)
2051 PARAMS ((bfd *, arelent *, struct reloc_std_external *));
2052
2053void
2054NAME(aout,swap_std_reloc_out) (abfd, g, natptr)
2055 bfd *abfd;
--- 5 unchanged lines hidden (view full) ---
2061 int r_extern;
2062 unsigned int r_length;
2063 int r_pcrel;
2064 int r_baserel, r_jmptable, r_relative;
2065 asection *output_section = sym->section->output_section;
2066
2067 PUT_WORD (abfd, g->address, natptr->r_address);
2068
2069 r_length = g->howto->size ; /* Size as a power of two. */
2070 r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
2071 /* XXX This relies on relocs coming from a.out files. */
2072 r_baserel = (g->howto->type & 8) != 0;
2073 r_jmptable = (g->howto->type & 16) != 0;
2074 r_relative = (g->howto->type & 32) != 0;
2075
2076#if 0
2077 /* For a standard reloc, the addend is in the object file. */
2078 r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
2079#endif
2080
2081 /* Name was clobbered by aout_write_syms to be symbol index. */
2082
2083 /* If this relocation is relative to a symbol then set the
2084 r_index to the symbols index, and the r_extern bit.
2085
2086 Absolute symbols can come in in two ways, either as an offset
2087 from the abs section, or as a symbol which has an abs value.
2088 check for that here. */
2089
2090 if (bfd_is_com_section (output_section)
2091 || bfd_is_abs_section (output_section)
2092 || bfd_is_und_section (output_section))
2093 {
2094 if (bfd_abs_section_ptr->symbol == sym)
2095 {
2096 /* Whoops, looked like an abs symbol, but is
2097 really an offset from the abs section. */
2098 r_index = N_ABS;
2099 r_extern = 0;
2100 }
2101 else
2102 {
2103 /* Fill in symbol. */
2104 r_extern = 1;
2105 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
2106 }
2107 }
2108 else
2109 {
2110 /* Just an ordinary section. */
2111 r_extern = 0;
2112 r_index = output_section->target_index;
2113 }
2114
2115 /* Now the fun stuff. */
2116 if (bfd_header_big_endian (abfd))
2117 {
2118 natptr->r_index[0] = r_index >> 16;
2119 natptr->r_index[1] = r_index >> 8;
2120 natptr->r_index[2] = r_index;
2121 natptr->r_type[0] = ((r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0)
2122 | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0)
2123 | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0)
--- 10 unchanged lines hidden (view full) ---
2134 | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0)
2135 | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0)
2136 | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0)
2137 | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0)
2138 | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE));
2139 }
2140}
2141
2142/* Extended stuff. */
2143/* Output extended relocation information to a file in target byte order. */
2144
2145extern void NAME(aout,swap_ext_reloc_out)
2146 PARAMS ((bfd *, arelent *, struct reloc_ext_external *));
2147
2148void
2149NAME(aout,swap_ext_reloc_out) (abfd, g, natptr)
2150 bfd *abfd;
--- 16 unchanged lines hidden (view full) ---
2167 r_addend += (*(g->sym_ptr_ptr))->section->output_section->vma;
2168
2169 /* If this relocation is relative to a symbol then set the
2170 r_index to the symbols index, and the r_extern bit.
2171
2172 Absolute symbols can come in in two ways, either as an offset
2173 from the abs section, or as a symbol which has an abs value.
2174 check for that here. */
2175 if (bfd_is_abs_section (bfd_get_section (sym)))
2176 {
2177 r_extern = 0;
2178 r_index = N_ABS;
2179 }
2180 else if ((sym->flags & BSF_SECTION_SYM) == 0)
2181 {
2182 if (bfd_is_und_section (bfd_get_section (sym))
2183 || (sym->flags & BSF_GLOBAL) != 0)
2184 r_extern = 1;
2185 else
2186 r_extern = 0;
2187 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
2188 }
2189 else
2190 {
2191 /* Just an ordinary section. */
2192 r_extern = 0;
2193 r_index = output_section->target_index;
2194 }
2195
2196 /* Now the fun stuff. */
2197 if (bfd_header_big_endian (abfd))
2198 {
2199 natptr->r_index[0] = r_index >> 16;
2200 natptr->r_index[1] = r_index >> 8;
2201 natptr->r_index[2] = r_index;
2202 natptr->r_type[0] = ((r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0)
2203 | (r_type << RELOC_EXT_BITS_TYPE_SH_BIG));
2204 }
--- 64 unchanged lines hidden (view full) ---
2269{
2270 unsigned int r_index;
2271 int r_extern;
2272 unsigned int r_type;
2273 struct aoutdata *su = &(abfd->tdata.aout_data->a);
2274
2275 cache_ptr->address = (GET_SWORD (abfd, bytes->r_address));
2276
2277 /* Now the fun stuff. */
2278 if (bfd_header_big_endian (abfd))
2279 {
2280 r_index = (((unsigned int) bytes->r_index[0] << 16)
2281 | ((unsigned int) bytes->r_index[1] << 8)
2282 | bytes->r_index[2]);
2283 r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG));
2284 r_type = ((bytes->r_type[0] & RELOC_EXT_BITS_TYPE_BIG)
2285 >> RELOC_EXT_BITS_TYPE_SH_BIG);
--- 42 unchanged lines hidden (view full) ---
2328 unsigned int r_length;
2329 int r_pcrel;
2330 int r_baserel, r_jmptable, r_relative;
2331 struct aoutdata *su = &(abfd->tdata.aout_data->a);
2332 unsigned int howto_idx;
2333
2334 cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
2335
2336 /* Now the fun stuff. */
2337 if (bfd_header_big_endian (abfd))
2338 {
2339 r_index = (((unsigned int) bytes->r_index[0] << 16)
2340 | ((unsigned int) bytes->r_index[1] << 8)
2341 | bytes->r_index[2]);
2342 r_extern = (0 != (bytes->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
2343 r_pcrel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
2344 r_baserel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_BASEREL_BIG));
--- 36 unchanged lines hidden (view full) ---
2381 r_index = N_ABS;
2382 }
2383
2384 MOVE_ADDRESS (0);
2385}
2386
2387/* Read and swap the relocs for a section. */
2388
2389bfd_boolean
2390NAME(aout,slurp_reloc_table) (abfd, asect, symbols)
2391 bfd *abfd;
2392 sec_ptr asect;
2393 asymbol **symbols;
2394{
2395 bfd_size_type count;
2396 bfd_size_type reloc_size;
2397 PTR relocs;
2398 arelent *reloc_cache;
2399 size_t each_size;
2400 unsigned int counter = 0;
2401 arelent *cache_ptr;
2402 bfd_size_type amt;
2403
2404 if (asect->relocation)
2405 return TRUE;
2406
2407 if (asect->flags & SEC_CONSTRUCTOR)
2408 return TRUE;
2409
2410 if (asect == obj_datasec (abfd))
2411 reloc_size = exec_hdr (abfd)->a_drsize;
2412 else if (asect == obj_textsec (abfd))
2413 reloc_size = exec_hdr (abfd)->a_trsize;
2414 else if (asect == obj_bsssec (abfd))
2415 reloc_size = 0;
2416 else
2417 {
2418 bfd_set_error (bfd_error_invalid_operation);
2419 return FALSE;
2420 }
2421
2422 if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0)
2423 return FALSE;
2424
2425 each_size = obj_reloc_entry_size (abfd);
2426
2427 count = reloc_size / each_size;
2428
2429 amt = count * sizeof (arelent);
2430 reloc_cache = (arelent *) bfd_zmalloc (amt);
2431 if (reloc_cache == NULL && count != 0)
2432 return FALSE;
2433
2434 relocs = bfd_malloc (reloc_size);
2435 if (relocs == NULL && reloc_size != 0)
2436 {
2437 free (reloc_cache);
2438 return FALSE;
2439 }
2440
2441 if (bfd_bread (relocs, reloc_size, abfd) != reloc_size)
2442 {
2443 free (relocs);
2444 free (reloc_cache);
2445 return FALSE;
2446 }
2447
2448 cache_ptr = reloc_cache;
2449 if (each_size == RELOC_EXT_SIZE)
2450 {
2451 struct reloc_ext_external *rptr = (struct reloc_ext_external *) relocs;
2452
2453 for (; counter < count; counter++, rptr++, cache_ptr++)
--- 9 unchanged lines hidden (view full) ---
2463 (bfd_size_type) bfd_get_symcount (abfd));
2464 }
2465
2466 free (relocs);
2467
2468 asect->relocation = reloc_cache;
2469 asect->reloc_count = cache_ptr - reloc_cache;
2470
2471 return TRUE;
2472}
2473
2474/* Write out a relocation section into an object file. */
2475
2476bfd_boolean
2477NAME(aout,squirt_out_relocs) (abfd, section)
2478 bfd *abfd;
2479 asection *section;
2480{
2481 arelent **generic;
2482 unsigned char *native, *natptr;
2483 size_t each_size;
2484
2485 unsigned int count = section->reloc_count;
2486 bfd_size_type natsize;
2487
2488 if (count == 0 || section->orelocation == NULL)
2489 return TRUE;
2490
2491 each_size = obj_reloc_entry_size (abfd);
2492 natsize = (bfd_size_type) each_size * count;
2493 native = (unsigned char *) bfd_zalloc (abfd, natsize);
2494 if (!native)
2495 return FALSE;
2496
2497 generic = section->orelocation;
2498
2499 if (each_size == RELOC_EXT_SIZE)
2500 {
2501 for (natptr = native;
2502 count != 0;
2503 --count, natptr += each_size, ++generic)
--- 7 unchanged lines hidden (view full) ---
2511 --count, natptr += each_size, ++generic)
2512 MY_swap_std_reloc_out (abfd, *generic,
2513 (struct reloc_std_external *) natptr);
2514 }
2515
2516 if (bfd_bwrite ((PTR) native, natsize, abfd) != natsize)
2517 {
2518 bfd_release (abfd, native);
2519 return FALSE;
2520 }
2521 bfd_release (abfd, native);
2522
2523 return TRUE;
2524}
2525
2526/* This is stupid. This function should be a boolean predicate. */
2527
2528long
2529NAME(aout,canonicalize_reloc) (abfd, section, relptr, symbols)
2530 bfd *abfd;
2531 sec_ptr section;
2532 arelent **relptr;
2533 asymbol **symbols;
2534{
2535 arelent *tblptr = section->relocation;
--- 36 unchanged lines hidden (view full) ---
2572 bfd *abfd;
2573 sec_ptr asect;
2574{
2575 if (bfd_get_format (abfd) != bfd_object)
2576 {
2577 bfd_set_error (bfd_error_invalid_operation);
2578 return -1;
2579 }
2580
2581 if (asect->flags & SEC_CONSTRUCTOR)
2582 return (sizeof (arelent *) * (asect->reloc_count+1));
2583
2584 if (asect == obj_datasec (abfd))
2585 return (sizeof (arelent *)
2586 * ((exec_hdr (abfd)->a_drsize / obj_reloc_entry_size (abfd))
2587 + 1));
2588
2589 if (asect == obj_textsec (abfd))
2590 return (sizeof (arelent *)
--- 101 unchanged lines hidden (view full) ---
2692
2693/* Read minisymbols. For minisymbols, we use the unmodified a.out
2694 symbols. The minisymbol_to_symbol function translates these into
2695 BFD asymbol structures. */
2696
2697long
2698NAME(aout,read_minisymbols) (abfd, dynamic, minisymsp, sizep)
2699 bfd *abfd;
2700 bfd_boolean dynamic;
2701 PTR *minisymsp;
2702 unsigned int *sizep;
2703{
2704 if (dynamic)
2705 {
2706 /* We could handle the dynamic symbols here as well, but it's
2707 easier to hand them off. */
2708 return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
--- 19 unchanged lines hidden (view full) ---
2728
2729/* Convert a minisymbol to a BFD asymbol. A minisymbol is just an
2730 unmodified a.out symbol. The SYM argument is a structure returned
2731 by bfd_make_empty_symbol, which we fill in here. */
2732
2733asymbol *
2734NAME(aout,minisymbol_to_symbol) (abfd, dynamic, minisym, sym)
2735 bfd *abfd;
2736 bfd_boolean dynamic;
2737 const PTR minisym;
2738 asymbol *sym;
2739{
2740 if (dynamic
2741 || obj_aout_external_sym_count (abfd) < MINISYM_THRESHOLD)
2742 return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
2743
2744 memset (sym, 0, sizeof (aout_symbol_type));
2745
2746 /* We call translate_symbol_table to translate a single symbol. */
2747 if (! (NAME(aout,translate_symbol_table)
2748 (abfd,
2749 (aout_symbol_type *) sym,
2750 (struct external_nlist *) minisym,
2751 (bfd_size_type) 1,
2752 obj_aout_external_strings (abfd),
2753 obj_aout_external_string_size (abfd),
2754 FALSE)))
2755 return NULL;
2756
2757 return sym;
2758}
2759
2760/* Provided a BFD, a section and an offset into the section, calculate
2761 and return the name of the source file and the line nearest to the
2762 wanted location. */
2763
2764bfd_boolean
2765NAME(aout,find_nearest_line)
2766 (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr)
2767 bfd *abfd;
2768 asection *section;
2769 asymbol **symbols;
2770 bfd_vma offset;
2771 const char **filename_ptr;
2772 const char **functionname_ptr;
2773 unsigned int *line_ptr;
2774{
2775 /* Run down the file looking for the filename, function and linenumber. */
2776 asymbol **p;
2777 const char *directory_name = NULL;
2778 const char *main_file_name = NULL;
2779 const char *current_file_name = NULL;
2780 const char *line_file_name = NULL; /* Value of current_file_name at line number. */
2781 const char *line_directory_name = NULL; /* Value of directory_name at line number. */
2782 bfd_vma low_line_vma = 0;
2783 bfd_vma low_func_vma = 0;
2784 asymbol *func = 0;
2785 bfd_size_type filelen, funclen;
2786 char *buf;
2787
2788 *filename_ptr = abfd->filename;
2789 *functionname_ptr = 0;
2790 *line_ptr = 0;
2791
2792 if (symbols != (asymbol **)NULL)
2793 {
2794 for (p = symbols; *p; p++)
2795 {
2796 aout_symbol_type *q = (aout_symbol_type *) (*p);
2797 next:
2798 switch (q->type)
2799 {
--- 71 unchanged lines hidden (view full) ---
2871 *line_ptr = q->desc;
2872 low_line_vma = q->symbol.value;
2873 line_file_name = current_file_name;
2874 line_directory_name = directory_name;
2875 }
2876 break;
2877 case N_FUN:
2878 {
2879 /* We'll keep this if it is nearer than the one we have already. */
2880 if (q->symbol.value >= low_func_vma &&
2881 q->symbol.value <= offset)
2882 {
2883 low_func_vma = q->symbol.value;
2884 func = (asymbol *)q;
2885 }
2886 else if (q->symbol.value > offset)
2887 goto done;
2888 }
2889 break;
2890 }
2891 }
2892 }
2893
--- 5 unchanged lines hidden (view full) ---
2899 }
2900
2901 if (main_file_name == NULL
2902 || IS_ABSOLUTE_PATH (main_file_name)
2903 || directory_name == NULL)
2904 filelen = 0;
2905 else
2906 filelen = strlen (directory_name) + strlen (main_file_name);
2907
2908 if (func == NULL)
2909 funclen = 0;
2910 else
2911 funclen = strlen (bfd_asymbol_name (func));
2912
2913 if (adata (abfd).line_buf != NULL)
2914 free (adata (abfd).line_buf);
2915
2916 if (filelen + funclen == 0)
2917 adata (abfd).line_buf = buf = NULL;
2918 else
2919 {
2920 buf = (char *) bfd_malloc (filelen + funclen + 3);
2921 adata (abfd).line_buf = buf;
2922 if (buf == NULL)
2923 return FALSE;
2924 }
2925
2926 if (main_file_name != NULL)
2927 {
2928 if (IS_ABSOLUTE_PATH (main_file_name) || directory_name == NULL)
2929 *filename_ptr = main_file_name;
2930 else
2931 {
--- 13 unchanged lines hidden (view full) ---
2945 underscore back in, so that the caller gets a symbol name. */
2946 if (bfd_get_symbol_leading_char (abfd) == '\0')
2947 strcpy (buf, function);
2948 else
2949 {
2950 buf[0] = bfd_get_symbol_leading_char (abfd);
2951 strcpy (buf + 1, function);
2952 }
2953 /* Have to remove : stuff. */
2954 colon = strchr (buf, ':');
2955 if (colon != NULL)
2956 *colon = '\0';
2957 *functionname_ptr = buf;
2958 }
2959
2960 return TRUE;
2961}
2962
2963int
2964NAME(aout,sizeof_headers) (abfd, execable)
2965 bfd *abfd;
2966 bfd_boolean execable ATTRIBUTE_UNUSED;
2967{
2968 return adata (abfd).exec_bytes_size;
2969}
2970
2971/* Free all information we have cached for this BFD. We can always
2972 read it again later if we need it. */
2973
2974bfd_boolean
2975NAME(aout,bfd_free_cached_info) (abfd)
2976 bfd *abfd;
2977{
2978 asection *o;
2979
2980 if (bfd_get_format (abfd) != bfd_object
2981 || abfd->tdata.aout_data == NULL)
2982 return TRUE;
2983
2984#define BFCI_FREE(x) if (x != NULL) { free (x); x = NULL; }
2985 BFCI_FREE (obj_aout_symbols (abfd));
2986#ifdef USE_MMAP
2987 obj_aout_external_syms (abfd) = 0;
2988 bfd_free_window (&obj_aout_sym_window (abfd));
2989 bfd_free_window (&obj_aout_string_window (abfd));
2990 obj_aout_external_strings (abfd) = 0;
2991#else
2992 BFCI_FREE (obj_aout_external_syms (abfd));
2993 BFCI_FREE (obj_aout_external_strings (abfd));
2994#endif
2995 for (o = abfd->sections; o != (asection *) NULL; o = o->next)
2996 BFCI_FREE (o->relocation);
2997#undef BFCI_FREE
2998
2999 return TRUE;
3000}
3001
3002/* a.out link code. */
3003
3004static bfd_boolean aout_link_add_object_symbols
3005 PARAMS ((bfd *, struct bfd_link_info *));
3006static bfd_boolean aout_link_check_archive_element
3007 PARAMS ((bfd *, struct bfd_link_info *, bfd_boolean *));
3008static bfd_boolean aout_link_free_symbols
3009 PARAMS ((bfd *));
3010static bfd_boolean aout_link_check_ar_symbols
3011 PARAMS ((bfd *, struct bfd_link_info *, bfd_boolean *pneeded));
3012static bfd_boolean aout_link_add_symbols
3013 PARAMS ((bfd *, struct bfd_link_info *));
3014
3015/* Routine to create an entry in an a.out link hash table. */
3016
3017struct bfd_hash_entry *
3018NAME(aout,link_hash_newfunc) (entry, table, string)
3019 struct bfd_hash_entry *entry;
3020 struct bfd_hash_table *table;
--- 11 unchanged lines hidden (view full) ---
3032
3033 /* Call the allocation method of the superclass. */
3034 ret = ((struct aout_link_hash_entry *)
3035 _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret,
3036 table, string));
3037 if (ret)
3038 {
3039 /* Set local fields. */
3040 ret->written = FALSE;
3041 ret->indx = -1;
3042 }
3043
3044 return (struct bfd_hash_entry *) ret;
3045}
3046
3047/* Initialize an a.out link hash table. */
3048
3049bfd_boolean
3050NAME(aout,link_hash_table_init) (table, abfd, newfunc)
3051 struct aout_link_hash_table *table;
3052 bfd *abfd;
3053 struct bfd_hash_entry *(*newfunc)
3054 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *,
3055 const char *));
3056{
3057 return _bfd_link_hash_table_init (&table->root, abfd, newfunc);
3058}
3059
3060/* Create an a.out link hash table. */
3061
3062struct bfd_link_hash_table *
3063NAME(aout,link_hash_table_create) (abfd)
3064 bfd *abfd;
3065{
3066 struct aout_link_hash_table *ret;
3067 bfd_size_type amt = sizeof (struct aout_link_hash_table);
3068
3069 ret = (struct aout_link_hash_table *) bfd_malloc (amt);
3070 if (ret == NULL)
3071 return (struct bfd_link_hash_table *) NULL;
3072
3073 if (! NAME(aout,link_hash_table_init) (ret, abfd,
3074 NAME(aout,link_hash_newfunc)))
3075 {
3076 free (ret);
3077 return (struct bfd_link_hash_table *) NULL;
3078 }
3079 return &ret->root;
3080}
3081
3082/* Given an a.out BFD, add symbols to the global hash table as
3083 appropriate. */
3084
3085bfd_boolean
3086NAME(aout,link_add_symbols) (abfd, info)
3087 bfd *abfd;
3088 struct bfd_link_info *info;
3089{
3090 switch (bfd_get_format (abfd))
3091 {
3092 case bfd_object:
3093 return aout_link_add_object_symbols (abfd, info);
3094 case bfd_archive:
3095 return _bfd_generic_link_add_archive_symbols
3096 (abfd, info, aout_link_check_archive_element);
3097 default:
3098 bfd_set_error (bfd_error_wrong_format);
3099 return FALSE;
3100 }
3101}
3102
3103/* Add symbols from an a.out object file. */
3104
3105static bfd_boolean
3106aout_link_add_object_symbols (abfd, info)
3107 bfd *abfd;
3108 struct bfd_link_info *info;
3109{
3110 if (! aout_get_external_symbols (abfd))
3111 return FALSE;
3112 if (! aout_link_add_symbols (abfd, info))
3113 return FALSE;
3114 if (! info->keep_memory)
3115 {
3116 if (! aout_link_free_symbols (abfd))
3117 return FALSE;
3118 }
3119 return TRUE;
3120}
3121
3122/* Check a single archive element to see if we need to include it in
3123 the link. *PNEEDED is set according to whether this element is
3124 needed in the link or not. This is called from
3125 _bfd_generic_link_add_archive_symbols. */
3126
3127static bfd_boolean
3128aout_link_check_archive_element (abfd, info, pneeded)
3129 bfd *abfd;
3130 struct bfd_link_info *info;
3131 bfd_boolean *pneeded;
3132{
3133 if (! aout_get_external_symbols (abfd))
3134 return FALSE;
3135
3136 if (! aout_link_check_ar_symbols (abfd, info, pneeded))
3137 return FALSE;
3138
3139 if (*pneeded)
3140 {
3141 if (! aout_link_add_symbols (abfd, info))
3142 return FALSE;
3143 }
3144
3145 if (! info->keep_memory || ! *pneeded)
3146 {
3147 if (! aout_link_free_symbols (abfd))
3148 return FALSE;
3149 }
3150
3151 return TRUE;
3152}
3153
3154/* Free up the internal symbols read from an a.out file. */
3155
3156static bfd_boolean
3157aout_link_free_symbols (abfd)
3158 bfd *abfd;
3159{
3160 if (obj_aout_external_syms (abfd) != (struct external_nlist *) NULL)
3161 {
3162#ifdef USE_MMAP
3163 bfd_free_window (&obj_aout_sym_window (abfd));
3164#else
--- 5 unchanged lines hidden (view full) ---
3170 {
3171#ifdef USE_MMAP
3172 bfd_free_window (&obj_aout_string_window (abfd));
3173#else
3174 free ((PTR) obj_aout_external_strings (abfd));
3175#endif
3176 obj_aout_external_strings (abfd) = (char *) NULL;
3177 }
3178 return TRUE;
3179}
3180
3181/* Look through the internal symbols to see if this object file should
3182 be included in the link. We should include this object file if it
3183 defines any symbols which are currently undefined. If this object
3184 file defines a common symbol, then we may adjust the size of the
3185 known symbol but we do not include the object file in the link
3186 (unless there is some other reason to include it). */
3187
3188static bfd_boolean
3189aout_link_check_ar_symbols (abfd, info, pneeded)
3190 bfd *abfd;
3191 struct bfd_link_info *info;
3192 bfd_boolean *pneeded;
3193{
3194 register struct external_nlist *p;
3195 struct external_nlist *pend;
3196 char *strings;
3197
3198 *pneeded = FALSE;
3199
3200 /* Look through all the symbols. */
3201 p = obj_aout_external_syms (abfd);
3202 pend = p + obj_aout_external_sym_count (abfd);
3203 strings = obj_aout_external_strings (abfd);
3204 for (; p < pend; p++)
3205 {
3206 int type = H_GET_8 (abfd, p->e_type);
--- 13 unchanged lines hidden (view full) ---
3220 {
3221 if (type == N_WARNING
3222 || type == N_INDR)
3223 ++p;
3224 continue;
3225 }
3226
3227 name = strings + GET_WORD (abfd, p->e_strx);
3228 h = bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);
3229
3230 /* We are only interested in symbols that are currently
3231 undefined or common. */
3232 if (h == (struct bfd_link_hash_entry *) NULL
3233 || (h->type != bfd_link_hash_undefined
3234 && h->type != bfd_link_hash_common))
3235 {
3236 if (type == (N_INDR | N_EXT))
--- 4 unchanged lines hidden (view full) ---
3241 if (type == (N_TEXT | N_EXT)
3242 || type == (N_DATA | N_EXT)
3243 || type == (N_BSS | N_EXT)
3244 || type == (N_ABS | N_EXT)
3245 || type == (N_INDR | N_EXT))
3246 {
3247 /* This object file defines this symbol. We must link it
3248 in. This is true regardless of whether the current
3249 definition of the symbol is undefined or common.
3250
3251 If the current definition is common, we have a case in
3252 which we have already seen an object file including:
3253 int a;
3254 and this object file from the archive includes:
3255 int a = 5;
3256 In such a case, whether to include this object is target
3257 dependant for backward compatibility.
3258
3259 FIXME: The SunOS 4.1.3 linker will pull in the archive
3260 element if the symbol is defined in the .data section,
3261 but not if it is defined in the .text section. That
3262 seems a bit crazy to me, and it has not been implemented
3263 yet. However, it might be correct. */
3264 if (h->type == bfd_link_hash_common)
3265 {
3266 int skip = 0;
3267
3268 switch (info->common_skip_ar_aymbols)
3269 {
3270 case bfd_link_common_skip_text:
3271 skip = (type == (N_TEXT | N_EXT));
3272 break;
3273 case bfd_link_common_skip_data:
3274 skip = (type == (N_DATA | N_EXT));
3275 break;
3276 default:
3277 case bfd_link_common_skip_all:
3278 skip = 1;
3279 break;
3280 }
3281
3282 if (skip)
3283 continue;
3284 }
3285
3286 if (! (*info->callbacks->add_archive_element) (info, abfd, name))
3287 return FALSE;
3288 *pneeded = TRUE;
3289 return TRUE;
3290 }
3291
3292 if (type == (N_UNDF | N_EXT))
3293 {
3294 bfd_vma value;
3295
3296 value = GET_WORD (abfd, p->e_value);
3297 if (value != 0)
--- 10 unchanged lines hidden (view full) ---
3308 {
3309 /* This symbol was created as undefined from
3310 outside BFD. We assume that we should link
3311 in the object file. This is done for the -u
3312 option in the linker. */
3313 if (! (*info->callbacks->add_archive_element) (info,
3314 abfd,
3315 name))
3316 return FALSE;
3317 *pneeded = TRUE;
3318 return TRUE;
3319 }
3320 /* Turn the current link symbol into a common
3321 symbol. It is already on the undefs list. */
3322 h->type = bfd_link_hash_common;
3323 h->u.c.p = ((struct bfd_link_hash_common_entry *)
3324 bfd_hash_allocate (&info->hash->table,
3325 sizeof (struct bfd_link_hash_common_entry)));
3326 if (h->u.c.p == NULL)
3327 return FALSE;
3328
3329 h->u.c.size = value;
3330
3331 /* FIXME: This isn't quite right. The maximum
3332 alignment of a common symbol should be set by the
3333 architecture of the output file, not of the input
3334 file. */
3335 power = bfd_log2 (value);
--- 20 unchanged lines hidden (view full) ---
3356 || type == N_WEAKB)
3357 {
3358 /* This symbol is weak but defined. We must pull it in if
3359 the current link symbol is undefined, but we don't want
3360 it if the current link symbol is common. */
3361 if (h->type == bfd_link_hash_undefined)
3362 {
3363 if (! (*info->callbacks->add_archive_element) (info, abfd, name))
3364 return FALSE;
3365 *pneeded = TRUE;
3366 return TRUE;
3367 }
3368 }
3369 }
3370
3371 /* We do not need this object file. */
3372 return TRUE;
3373}
3374
3375/* Add all symbols from an object file to the hash table. */
3376
3377static bfd_boolean
3378aout_link_add_symbols (abfd, info)
3379 bfd *abfd;
3380 struct bfd_link_info *info;
3381{
3382 bfd_boolean (*add_one_symbol)
3383 PARAMS ((struct bfd_link_info *, bfd *, const char *, flagword, asection *,
3384 bfd_vma, const char *, bfd_boolean, bfd_boolean,
3385 struct bfd_link_hash_entry **));
3386 struct external_nlist *syms;
3387 bfd_size_type sym_count;
3388 char *strings;
3389 bfd_boolean copy;
3390 struct aout_link_hash_entry **sym_hash;
3391 register struct external_nlist *p;
3392 struct external_nlist *pend;
3393 bfd_size_type amt;
3394
3395 syms = obj_aout_external_syms (abfd);
3396 sym_count = obj_aout_external_sym_count (abfd);
3397 strings = obj_aout_external_strings (abfd);
3398 if (info->keep_memory)
3399 copy = FALSE;
3400 else
3401 copy = TRUE;
3402
3403 if (aout_backend_info (abfd)->add_dynamic_symbols != NULL)
3404 {
3405 if (! ((*aout_backend_info (abfd)->add_dynamic_symbols)
3406 (abfd, info, &syms, &sym_count, &strings)))
3407 return FALSE;
3408 }
3409
3410 /* We keep a list of the linker hash table entries that correspond
3411 to particular symbols. We could just look them up in the hash
3412 table, but keeping the list is more efficient. Perhaps this
3413 should be conditional on info->keep_memory. */
3414 amt = sym_count * sizeof (struct aout_link_hash_entry *);
3415 sym_hash = (struct aout_link_hash_entry **) bfd_alloc (abfd, amt);
3416 if (sym_hash == NULL && sym_count != 0)
3417 return FALSE;
3418 obj_aout_sym_hashes (abfd) = sym_hash;
3419
3420 add_one_symbol = aout_backend_info (abfd)->add_one_symbol;
3421 if (add_one_symbol == NULL)
3422 add_one_symbol = _bfd_generic_link_add_one_symbol;
3423
3424 p = syms;
3425 pend = p + sym_count;
--- 129 unchanged lines hidden (view full) ---
3555 case N_WEAKB:
3556 section = obj_bsssec (abfd);
3557 value -= bfd_get_section_vma (abfd, section);
3558 flags = BSF_WEAK;
3559 break;
3560 }
3561
3562 if (! ((*add_one_symbol)
3563 (info, abfd, name, flags, section, value, string, copy, FALSE,
3564 (struct bfd_link_hash_entry **) sym_hash)))
3565 return FALSE;
3566
3567 /* Restrict the maximum alignment of a common symbol based on
3568 the architecture, since a.out has no way to represent
3569 alignment requirements of a section in a .o file. FIXME:
3570 This isn't quite right: it should use the architecture of the
3571 output file, not the input files. */
3572 if ((*sym_hash)->root.type == bfd_link_hash_common
3573 && ((*sym_hash)->root.u.c.p->alignment_power >
--- 9 unchanged lines hidden (view full) ---
3583 BFD_ASSERT ((flags & BSF_CONSTRUCTOR) != 0);
3584 *sym_hash = NULL;
3585 }
3586
3587 if (type == (N_INDR | N_EXT) || type == N_WARNING)
3588 ++sym_hash;
3589 }
3590
3591 return TRUE;
3592}
3593
3594/* A hash table used for header files with N_BINCL entries. */
3595
3596struct aout_link_includes_table
3597{
3598 struct bfd_hash_table root;
3599};
--- 46 unchanged lines hidden (view full) ---
3646 /* A buffer large enough to hold the symbol map of any input BFD. */
3647 int *symbol_map;
3648 /* A buffer large enough to hold output symbols of any input BFD. */
3649 struct external_nlist *output_syms;
3650};
3651
3652static struct bfd_hash_entry *aout_link_includes_newfunc
3653 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
3654static bfd_boolean aout_link_input_bfd
3655 PARAMS ((struct aout_final_link_info *, bfd *input_bfd));
3656static bfd_boolean aout_link_write_symbols
3657 PARAMS ((struct aout_final_link_info *, bfd *input_bfd));
3658static bfd_boolean aout_link_write_other_symbol
3659 PARAMS ((struct aout_link_hash_entry *, PTR));
3660static bfd_boolean aout_link_input_section
3661 PARAMS ((struct aout_final_link_info *, bfd *input_bfd,
3662 asection *input_section, file_ptr *reloff_ptr,
3663 bfd_size_type rel_size));
3664static bfd_boolean aout_link_input_section_std
3665 PARAMS ((struct aout_final_link_info *, bfd *input_bfd,
3666 asection *input_section, struct reloc_std_external *,
3667 bfd_size_type rel_size, bfd_byte *contents));
3668static bfd_boolean aout_link_input_section_ext
3669 PARAMS ((struct aout_final_link_info *, bfd *input_bfd,
3670 asection *input_section, struct reloc_ext_external *,
3671 bfd_size_type rel_size, bfd_byte *contents));
3672static INLINE asection *aout_reloc_index_to_section
3673 PARAMS ((bfd *, int));
3674static bfd_boolean aout_link_reloc_link_order
3675 PARAMS ((struct aout_final_link_info *, asection *,
3676 struct bfd_link_order *));
3677
3678/* The function to create a new entry in the header file hash table. */
3679
3680static struct bfd_hash_entry *
3681aout_link_includes_newfunc (entry, table, string)
3682 struct bfd_hash_entry *entry;
--- 26 unchanged lines hidden (view full) ---
3709
3710/* Do the final link step. This is called on the output BFD. The
3711 INFO structure should point to a list of BFDs linked through the
3712 link_next field which can be used to find each BFD which takes part
3713 in the output. Also, each section in ABFD should point to a list
3714 of bfd_link_order structures which list all the input sections for
3715 the output section. */
3716
3717bfd_boolean
3718NAME(aout,final_link) (abfd, info, callback)
3719 bfd *abfd;
3720 struct bfd_link_info *info;
3721 void (*callback) PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));
3722{
3723 struct aout_final_link_info aout_info;
3724 bfd_boolean includes_hash_initialized = FALSE;
3725 register bfd *sub;
3726 bfd_size_type trsize, drsize;
3727 bfd_size_type max_contents_size;
3728 bfd_size_type max_relocs_size;
3729 bfd_size_type max_sym_count;
3730 bfd_size_type text_size;
3731 file_ptr text_end;
3732 register struct bfd_link_order *p;
3733 asection *o;
3734 bfd_boolean have_link_order_relocs;
3735
3736 if (info->shared)
3737 abfd->flags |= DYNAMIC;
3738
3739 aout_info.info = info;
3740 aout_info.output_bfd = abfd;
3741 aout_info.contents = NULL;
3742 aout_info.relocs = NULL;
3743 aout_info.symbol_map = NULL;
3744 aout_info.output_syms = NULL;
3745
3746 if (! bfd_hash_table_init_n (&aout_info.includes.root,
3747 aout_link_includes_newfunc,
3748 251))
3749 goto error_return;
3750 includes_hash_initialized = TRUE;
3751
3752 /* Figure out the largest section size. Also, if generating
3753 relocatable output, count the relocs. */
3754 trsize = 0;
3755 drsize = 0;
3756 max_contents_size = 0;
3757 max_relocs_size = 0;
3758 max_sym_count = 0;
3759 for (sub = info->input_bfds; sub != NULL; sub = sub->link_next)
3760 {
3761 bfd_size_type sz;
3762
3763 if (info->relocatable)
3764 {
3765 if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
3766 {
3767 trsize += exec_hdr (sub)->a_trsize;
3768 drsize += exec_hdr (sub)->a_drsize;
3769 }
3770 else
3771 {
3772 /* FIXME: We need to identify the .text and .data sections
3773 and call get_reloc_upper_bound and canonicalize_reloc to
3774 work out the number of relocs needed, and then multiply
3775 by the reloc size. */
3776 (*_bfd_error_handler)
3777 (_("%s: relocatable link from %s to %s not supported"),
3778 bfd_get_filename (abfd),
3779 sub->xvec->name, abfd->xvec->name);
3780 bfd_set_error (bfd_error_invalid_operation);
3781 goto error_return;
3782 }
3783 }
3784
3785 if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
--- 13 unchanged lines hidden (view full) ---
3799 max_relocs_size = sz;
3800
3801 sz = obj_aout_external_sym_count (sub);
3802 if (sz > max_sym_count)
3803 max_sym_count = sz;
3804 }
3805 }
3806
3807 if (info->relocatable)
3808 {
3809 if (obj_textsec (abfd) != (asection *) NULL)
3810 trsize += (_bfd_count_link_order_relocs (obj_textsec (abfd)
3811 ->link_order_head)
3812 * obj_reloc_entry_size (abfd));
3813 if (obj_datasec (abfd) != (asection *) NULL)
3814 drsize += (_bfd_count_link_order_relocs (obj_datasec (abfd)
3815 ->link_order_head)
--- 49 unchanged lines hidden (view full) ---
3865 /* If we have a symbol named __DYNAMIC, force it out now. This is
3866 required by SunOS. Doing this here rather than in sunos.c is a
3867 hack, but it's easier than exporting everything which would be
3868 needed. */
3869 {
3870 struct aout_link_hash_entry *h;
3871
3872 h = aout_link_hash_lookup (aout_hash_table (info), "__DYNAMIC",
3873 FALSE, FALSE, FALSE);
3874 if (h != NULL)
3875 aout_link_write_other_symbol (h, &aout_info);
3876 }
3877
3878 /* The most time efficient way to do the link would be to read all
3879 the input object files into memory and then sort out the
3880 information into the output file. Unfortunately, that will
3881 probably use too much memory. Another method would be to step
--- 10 unchanged lines hidden (view full) ---
3892 out the symbols--and then we throw away the information we read
3893 from it. This approach requires a lot of lseeks of the output
3894 file, which is unfortunate but still faster than reopening a lot
3895 of files.
3896
3897 We use the output_has_begun field of the input BFDs to see
3898 whether we have already handled it. */
3899 for (sub = info->input_bfds; sub != (bfd *) NULL; sub = sub->link_next)
3900 sub->output_has_begun = FALSE;
3901
3902 /* Mark all sections which are to be included in the link. This
3903 will normally be every section. We need to do this so that we
3904 can identify any sections which the linker has decided to not
3905 include. */
3906 for (o = abfd->sections; o != NULL; o = o->next)
3907 {
3908 for (p = o->link_order_head; p != NULL; p = p->next)
3909 if (p->type == bfd_indirect_link_order)
3910 p->u.indirect.section->linker_mark = TRUE;
3911 }
3912
3913 have_link_order_relocs = FALSE;
3914 for (o = abfd->sections; o != (asection *) NULL; o = o->next)
3915 {
3916 for (p = o->link_order_head;
3917 p != (struct bfd_link_order *) NULL;
3918 p = p->next)
3919 {
3920 if (p->type == bfd_indirect_link_order
3921 && (bfd_get_flavour (p->u.indirect.section->owner)
3922 == bfd_target_aout_flavour))
3923 {
3924 bfd *input_bfd;
3925
3926 input_bfd = p->u.indirect.section->owner;
3927 if (! input_bfd->output_has_begun)
3928 {
3929 if (! aout_link_input_bfd (&aout_info, input_bfd))
3930 goto error_return;
3931 input_bfd->output_has_begun = TRUE;
3932 }
3933 }
3934 else if (p->type == bfd_section_reloc_link_order
3935 || p->type == bfd_symbol_reloc_link_order)
3936 {
3937 /* These are handled below. */
3938 have_link_order_relocs = TRUE;
3939 }
3940 else
3941 {
3942 if (! _bfd_default_link_order (abfd, info, o, p))
3943 goto error_return;
3944 }
3945 }
3946 }
--- 43 unchanged lines hidden (view full) ---
3990 if (aout_info.output_syms != NULL)
3991 {
3992 free (aout_info.output_syms);
3993 aout_info.output_syms = NULL;
3994 }
3995 if (includes_hash_initialized)
3996 {
3997 bfd_hash_table_free (&aout_info.includes.root);
3998 includes_hash_initialized = FALSE;
3999 }
4000
4001 /* Finish up any dynamic linking we may be doing. */
4002 if (aout_backend_info (abfd)->finish_dynamic_link != NULL)
4003 {
4004 if (! (*aout_backend_info (abfd)->finish_dynamic_link) (abfd, info))
4005 goto error_return;
4006 }
--- 22 unchanged lines hidden (view full) ---
4029
4030 b = 0;
4031 pos = obj_datasec (abfd)->filepos + exec_hdr (abfd)->a_data - 1;
4032 if (bfd_seek (abfd, pos, SEEK_SET) != 0
4033 || bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
4034 goto error_return;
4035 }
4036
4037 return TRUE;
4038
4039 error_return:
4040 if (aout_info.contents != NULL)
4041 free (aout_info.contents);
4042 if (aout_info.relocs != NULL)
4043 free (aout_info.relocs);
4044 if (aout_info.symbol_map != NULL)
4045 free (aout_info.symbol_map);
4046 if (aout_info.output_syms != NULL)
4047 free (aout_info.output_syms);
4048 if (includes_hash_initialized)
4049 bfd_hash_table_free (&aout_info.includes.root);
4050 return FALSE;
4051}
4052
4053/* Link an a.out input BFD into the output file. */
4054
4055static bfd_boolean
4056aout_link_input_bfd (finfo, input_bfd)
4057 struct aout_final_link_info *finfo;
4058 bfd *input_bfd;
4059{
4060 bfd_size_type sym_count;
4061
4062 BFD_ASSERT (bfd_get_format (input_bfd) == bfd_object);
4063
4064 /* If this is a dynamic object, it may need special handling. */
4065 if ((input_bfd->flags & DYNAMIC) != 0
4066 && aout_backend_info (input_bfd)->link_dynamic_object != NULL)
4067 {
4068 return ((*aout_backend_info (input_bfd)->link_dynamic_object)
4069 (finfo->info, input_bfd));
4070 }
4071
4072 /* Get the symbols. We probably have them already, unless
4073 finfo->info->keep_memory is FALSE. */
4074 if (! aout_get_external_symbols (input_bfd))
4075 return FALSE;
4076
4077 sym_count = obj_aout_external_sym_count (input_bfd);
4078
4079 /* Write out the symbols and get a map of the new indices. The map
4080 is placed into finfo->symbol_map. */
4081 if (! aout_link_write_symbols (finfo, input_bfd))
4082 return FALSE;
4083
4084 /* Relocate and write out the sections. These functions use the
4085 symbol map created by aout_link_write_symbols. The linker_mark
4086 field will be set if these sections are to be included in the
4087 link, which will normally be the case. */
4088 if (obj_textsec (input_bfd)->linker_mark)
4089 {
4090 if (! aout_link_input_section (finfo, input_bfd,
4091 obj_textsec (input_bfd),
4092 &finfo->treloff,
4093 exec_hdr (input_bfd)->a_trsize))
4094 return FALSE;
4095 }
4096 if (obj_datasec (input_bfd)->linker_mark)
4097 {
4098 if (! aout_link_input_section (finfo, input_bfd,
4099 obj_datasec (input_bfd),
4100 &finfo->dreloff,
4101 exec_hdr (input_bfd)->a_drsize))
4102 return FALSE;
4103 }
4104
4105 /* If we are not keeping memory, we don't need the symbols any
4106 longer. We still need them if we are keeping memory, because the
4107 strings in the hash table point into them. */
4108 if (! finfo->info->keep_memory)
4109 {
4110 if (! aout_link_free_symbols (input_bfd))
4111 return FALSE;
4112 }
4113
4114 return TRUE;
4115}
4116
4117/* Adjust and write out the symbols for an a.out file. Set the new
4118 symbol indices into a symbol_map. */
4119
4120static bfd_boolean
4121aout_link_write_symbols (finfo, input_bfd)
4122 struct aout_final_link_info *finfo;
4123 bfd *input_bfd;
4124{
4125 bfd *output_bfd;
4126 bfd_size_type sym_count;
4127 char *strings;
4128 enum bfd_link_strip strip;
4129 enum bfd_link_discard discard;
4130 struct external_nlist *outsym;
4131 bfd_size_type strtab_index;
4132 register struct external_nlist *sym;
4133 struct external_nlist *sym_end;
4134 struct aout_link_hash_entry **sym_hash;
4135 int *symbol_map;
4136 bfd_boolean pass;
4137 bfd_boolean skip_next;
4138
4139 output_bfd = finfo->output_bfd;
4140 sym_count = obj_aout_external_sym_count (input_bfd);
4141 strings = obj_aout_external_strings (input_bfd);
4142 strip = finfo->info->strip;
4143 discard = finfo->info->discard;
4144 outsym = finfo->output_syms;
4145
4146 /* First write out a symbol for this object file, unless we are
4147 discarding such symbols. */
4148 if (strip != strip_all
4149 && (strip != strip_some
4150 || bfd_hash_lookup (finfo->info->keep_hash, input_bfd->filename,
4151 FALSE, FALSE) != NULL)
4152 && discard != discard_all)
4153 {
4154 H_PUT_8 (output_bfd, N_TEXT, outsym->e_type);
4155 H_PUT_8 (output_bfd, 0, outsym->e_other);
4156 H_PUT_16 (output_bfd, 0, outsym->e_desc);
4157 strtab_index = add_to_stringtab (output_bfd, finfo->strtab,
4158 input_bfd->filename, FALSE);
4159 if (strtab_index == (bfd_size_type) -1)
4160 return FALSE;
4161 PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
4162 PUT_WORD (output_bfd,
4163 (bfd_get_section_vma (output_bfd,
4164 obj_textsec (input_bfd)->output_section)
4165 + obj_textsec (input_bfd)->output_offset),
4166 outsym->e_value);
4167 ++obj_aout_external_sym_count (output_bfd);
4168 ++outsym;
4169 }
4170
4171 pass = FALSE;
4172 skip_next = FALSE;
4173 sym = obj_aout_external_syms (input_bfd);
4174 sym_end = sym + sym_count;
4175 sym_hash = obj_aout_sym_hashes (input_bfd);
4176 symbol_map = finfo->symbol_map;
4177 memset (symbol_map, 0, (size_t) sym_count * sizeof *symbol_map);
4178 for (; sym < sym_end; sym++, sym_hash++, symbol_map++)
4179 {
4180 const char *name;
4181 int type;
4182 struct aout_link_hash_entry *h;
4183 bfd_boolean skip;
4184 asection *symsec;
4185 bfd_vma val = 0;
4186 bfd_boolean copy;
4187
4188 /* We set *symbol_map to 0 above for all symbols. If it has
4189 already been set to -1 for this symbol, it means that we are
4190 discarding it because it appears in a duplicate header file.
4191 See the N_BINCL code below. */
4192 if (*symbol_map == -1)
4193 continue;
4194
--- 7 unchanged lines hidden (view full) ---
4202
4203 h = NULL;
4204
4205 if (pass)
4206 {
4207 /* Pass this symbol through. It is the target of an
4208 indirect or warning symbol. */
4209 val = GET_WORD (input_bfd, sym->e_value);
4210 pass = FALSE;
4211 }
4212 else if (skip_next)
4213 {
4214 /* Skip this symbol, which is the target of an indirect
4215 symbol that we have changed to no longer be an indirect
4216 symbol. */
4217 skip_next = FALSE;
4218 continue;
4219 }
4220 else
4221 {
4222 struct aout_link_hash_entry *hresolve;
4223
4224 /* We have saved the hash table entry for this symbol, if
4225 there is one. Note that we could just look it up again
--- 25 unchanged lines hidden (view full) ---
4251 }
4252
4253 /* If the symbol has already been written out, skip it. */
4254 if (h != (struct aout_link_hash_entry *) NULL
4255 && h->written)
4256 {
4257 if ((type & N_TYPE) == N_INDR
4258 || type == N_WARNING)
4259 skip_next = TRUE;
4260 *symbol_map = h->indx;
4261 continue;
4262 }
4263
4264 /* See if we are stripping this symbol. */
4265 skip = FALSE;
4266 switch (strip)
4267 {
4268 case strip_none:
4269 break;
4270 case strip_debugger:
4271 if ((type & N_STAB) != 0)
4272 skip = TRUE;
4273 break;
4274 case strip_some:
4275 if (bfd_hash_lookup (finfo->info->keep_hash, name, FALSE, FALSE)
4276 == NULL)
4277 skip = TRUE;
4278 break;
4279 case strip_all:
4280 skip = TRUE;
4281 break;
4282 }
4283 if (skip)
4284 {
4285 if (h != (struct aout_link_hash_entry *) NULL)
4286 h->written = TRUE;
4287 continue;
4288 }
4289
4290 /* Get the value of the symbol. */
4291 if ((type & N_TYPE) == N_TEXT
4292 || type == N_WEAKT)
4293 symsec = obj_textsec (input_bfd);
4294 else if ((type & N_TYPE) == N_DATA
--- 12 unchanged lines hidden (view full) ---
4307 && hresolve->root.type != bfd_link_hash_common)))
4308 || type == N_WARNING)
4309 {
4310 /* Pass the next symbol through unchanged. The
4311 condition above for indirect symbols is so that if
4312 the indirect symbol was defined, we output it with
4313 the correct definition so the debugger will
4314 understand it. */
4315 pass = TRUE;
4316 val = GET_WORD (input_bfd, sym->e_value);
4317 symsec = NULL;
4318 }
4319 else if ((type & N_STAB) != 0)
4320 {
4321 val = GET_WORD (input_bfd, sym->e_value);
4322 symsec = NULL;
4323 }
4324 else
4325 {
4326 /* If we get here with an indirect symbol, it means that
4327 we are outputting it with a real definition. In such
4328 a case we do not want to output the next symbol,
4329 which is the target of the indirection. */
4330 if ((type & N_TYPE) == N_INDR)
4331 skip_next = TRUE;
4332
4333 symsec = NULL;
4334
4335 /* We need to get the value from the hash table. We use
4336 hresolve so that if we have defined an indirect
4337 symbol we output the final definition. */
4338 if (h == (struct aout_link_hash_entry *) NULL)
4339 {
--- 75 unchanged lines hidden (view full) ---
4415 + symsec->output_offset
4416 + (GET_WORD (input_bfd, sym->e_value)
4417 - symsec->vma));
4418
4419 /* If this is a global symbol set the written flag, and if
4420 it is a local symbol see if we should discard it. */
4421 if (h != (struct aout_link_hash_entry *) NULL)
4422 {
4423 h->written = TRUE;
4424 h->indx = obj_aout_external_sym_count (output_bfd);
4425 }
4426 else if ((type & N_TYPE) != N_SETT
4427 && (type & N_TYPE) != N_SETD
4428 && (type & N_TYPE) != N_SETB
4429 && (type & N_TYPE) != N_SETA)
4430 {
4431 switch (discard)
4432 {
4433 case discard_none:
4434 case discard_sec_merge:
4435 break;
4436 case discard_l:
4437 if ((type & N_STAB) == 0
4438 && bfd_is_local_label_name (input_bfd, name))
4439 skip = TRUE;
4440 break;
4441 case discard_all:
4442 skip = TRUE;
4443 break;
4444 }
4445 if (skip)
4446 {
4447 pass = FALSE;
4448 continue;
4449 }
4450 }
4451
4452 /* An N_BINCL symbol indicates the start of the stabs
4453 entries for a header file. We need to scan ahead to the
4454 next N_EINCL symbol, ignoring nesting, adding up all the
4455 characters in the symbol names, not including the file
--- 39 unchanged lines hidden (view full) ---
4495 }
4496 }
4497 }
4498 }
4499
4500 /* If we have already included a header file with the
4501 same value, then replace this one with an N_EXCL
4502 symbol. */
4503 copy = (bfd_boolean) (! finfo->info->keep_memory);
4504 incl_entry = aout_link_includes_lookup (&finfo->includes,
4505 name, TRUE, copy);
4506 if (incl_entry == NULL)
4507 return FALSE;
4508 for (t = incl_entry->totals; t != NULL; t = t->next)
4509 if (t->total == val)
4510 break;
4511 if (t == NULL)
4512 {
4513 /* This is the first time we have seen this header
4514 file with this set of stabs strings. */
4515 t = ((struct aout_link_includes_totals *)
4516 bfd_hash_allocate (&finfo->includes.root,
4517 sizeof *t));
4518 if (t == NULL)
4519 return FALSE;
4520 t->total = val;
4521 t->next = incl_entry->totals;
4522 incl_entry->totals = t;
4523 }
4524 else
4525 {
4526 int *incl_map;
4527
--- 28 unchanged lines hidden (view full) ---
4556 }
4557 }
4558
4559 /* Copy this symbol into the list of symbols we are going to
4560 write out. */
4561 H_PUT_8 (output_bfd, type, outsym->e_type);
4562 H_PUT_8 (output_bfd, H_GET_8 (input_bfd, sym->e_other), outsym->e_other);
4563 H_PUT_16 (output_bfd, H_GET_16 (input_bfd, sym->e_desc), outsym->e_desc);
4564 copy = FALSE;
4565 if (! finfo->info->keep_memory)
4566 {
4567 /* name points into a string table which we are going to
4568 free. If there is a hash table entry, use that string.
4569 Otherwise, copy name into memory. */
4570 if (h != (struct aout_link_hash_entry *) NULL)
4571 name = h->root.root.string;
4572 else
4573 copy = TRUE;
4574 }
4575 strtab_index = add_to_stringtab (output_bfd, finfo->strtab,
4576 name, copy);
4577 if (strtab_index == (bfd_size_type) -1)
4578 return FALSE;
4579 PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
4580 PUT_WORD (output_bfd, val, outsym->e_value);
4581 *symbol_map = obj_aout_external_sym_count (output_bfd);
4582 ++obj_aout_external_sym_count (output_bfd);
4583 ++outsym;
4584 }
4585
4586 /* Write out the output symbols we have just constructed. */
4587 if (outsym > finfo->output_syms)
4588 {
4589 bfd_size_type outsym_size;
4590
4591 if (bfd_seek (output_bfd, finfo->symoff, SEEK_SET) != 0)
4592 return FALSE;
4593 outsym_size = outsym - finfo->output_syms;
4594 outsym_size *= EXTERNAL_NLIST_SIZE;
4595 if (bfd_bwrite ((PTR) finfo->output_syms, outsym_size, output_bfd)
4596 != outsym_size)
4597 return FALSE;
4598 finfo->symoff += outsym_size;
4599 }
4600
4601 return TRUE;
4602}
4603
4604/* Write out a symbol that was not associated with an a.out input
4605 object. */
4606
4607static bfd_boolean
4608aout_link_write_other_symbol (h, data)
4609 struct aout_link_hash_entry *h;
4610 PTR data;
4611{
4612 struct aout_final_link_info *finfo = (struct aout_final_link_info *) data;
4613 bfd *output_bfd;
4614 int type;
4615 bfd_vma val;
4616 struct external_nlist outsym;
4617 bfd_size_type indx;
4618 bfd_size_type amt;
4619
4620 if (h->root.type == bfd_link_hash_warning)
4621 {
4622 h = (struct aout_link_hash_entry *) h->root.u.i.link;
4623 if (h->root.type == bfd_link_hash_new)
4624 return TRUE;
4625 }
4626
4627 output_bfd = finfo->output_bfd;
4628
4629 if (aout_backend_info (output_bfd)->write_dynamic_symbol != NULL)
4630 {
4631 if (! ((*aout_backend_info (output_bfd)->write_dynamic_symbol)
4632 (output_bfd, finfo->info, h)))
4633 {
4634 /* FIXME: No way to handle errors. */
4635 abort ();
4636 }
4637 }
4638
4639 if (h->written)
4640 return TRUE;
4641
4642 h->written = TRUE;
4643
4644 /* An indx of -2 means the symbol must be written. */
4645 if (h->indx != -2
4646 && (finfo->info->strip == strip_all
4647 || (finfo->info->strip == strip_some
4648 && bfd_hash_lookup (finfo->info->keep_hash, h->root.root.string,
4649 FALSE, FALSE) == NULL)))
4650 return TRUE;
4651
4652 switch (h->root.type)
4653 {
4654 default:
4655 case bfd_link_hash_warning:
4656 abort ();
4657 /* Avoid variable not initialized warnings. */
4658 return TRUE;
4659 case bfd_link_hash_new:
4660 /* This can happen for set symbols when sets are not being
4661 built. */
4662 return TRUE;
4663 case bfd_link_hash_undefined:
4664 type = N_UNDF | N_EXT;
4665 val = 0;
4666 break;
4667 case bfd_link_hash_defined:
4668 case bfd_link_hash_defweak:
4669 {
4670 asection *sec;
--- 20 unchanged lines hidden (view full) ---
4691 val = h->root.u.c.size;
4692 break;
4693 case bfd_link_hash_undefweak:
4694 type = N_WEAKU;
4695 val = 0;
4696 case bfd_link_hash_indirect:
4697 /* We ignore these symbols, since the indirected symbol is
4698 already in the hash table. */
4699 return TRUE;
4700 }
4701
4702 H_PUT_8 (output_bfd, type, outsym.e_type);
4703 H_PUT_8 (output_bfd, 0, outsym.e_other);
4704 H_PUT_16 (output_bfd, 0, outsym.e_desc);
4705 indx = add_to_stringtab (output_bfd, finfo->strtab, h->root.root.string,
4706 FALSE);
4707 if (indx == - (bfd_size_type) 1)
4708 {
4709 /* FIXME: No way to handle errors. */
4710 abort ();
4711 }
4712 PUT_WORD (output_bfd, indx, outsym.e_strx);
4713 PUT_WORD (output_bfd, val, outsym.e_value);
4714
--- 4 unchanged lines hidden (view full) ---
4719 /* FIXME: No way to handle errors. */
4720 abort ();
4721 }
4722
4723 finfo->symoff += EXTERNAL_NLIST_SIZE;
4724 h->indx = obj_aout_external_sym_count (output_bfd);
4725 ++obj_aout_external_sym_count (output_bfd);
4726
4727 return TRUE;
4728}
4729
4730/* Link an a.out section into the output file. */
4731
4732static bfd_boolean
4733aout_link_input_section (finfo, input_bfd, input_section, reloff_ptr,
4734 rel_size)
4735 struct aout_final_link_info *finfo;
4736 bfd *input_bfd;
4737 asection *input_section;
4738 file_ptr *reloff_ptr;
4739 bfd_size_type rel_size;
4740{
4741 bfd_size_type input_size;
4742 PTR relocs;
4743
4744 /* Get the section contents. */
4745 input_size = bfd_section_size (input_bfd, input_section);
4746 if (! bfd_get_section_contents (input_bfd, input_section,
4747 (PTR) finfo->contents,
4748 (file_ptr) 0, input_size))
4749 return FALSE;
4750
4751 /* Read in the relocs if we haven't already done it. */
4752 if (aout_section_data (input_section) != NULL
4753 && aout_section_data (input_section)->relocs != NULL)
4754 relocs = aout_section_data (input_section)->relocs;
4755 else
4756 {
4757 relocs = finfo->relocs;
4758 if (rel_size > 0)
4759 {
4760 if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0
4761 || bfd_bread (relocs, rel_size, input_bfd) != rel_size)
4762 return FALSE;
4763 }
4764 }
4765
4766 /* Relocate the section contents. */
4767 if (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE)
4768 {
4769 if (! aout_link_input_section_std (finfo, input_bfd, input_section,
4770 (struct reloc_std_external *) relocs,
4771 rel_size, finfo->contents))
4772 return FALSE;
4773 }
4774 else
4775 {
4776 if (! aout_link_input_section_ext (finfo, input_bfd, input_section,
4777 (struct reloc_ext_external *) relocs,
4778 rel_size, finfo->contents))
4779 return FALSE;
4780 }
4781
4782 /* Write out the section contents. */
4783 if (! bfd_set_section_contents (finfo->output_bfd,
4784 input_section->output_section,
4785 (PTR) finfo->contents,
4786 (file_ptr) input_section->output_offset,
4787 input_size))
4788 return FALSE;
4789
4790 /* If we are producing relocatable output, the relocs were
4791 modified, and we now write them out. */
4792 if (finfo->info->relocatable && rel_size > 0)
4793 {
4794 if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0)
4795 return FALSE;
4796 if (bfd_bwrite (relocs, rel_size, finfo->output_bfd) != rel_size)
4797 return FALSE;
4798 *reloff_ptr += rel_size;
4799
4800 /* Assert that the relocs have not run into the symbols, and
4801 that if these are the text relocs they have not run into the
4802 data relocs. */
4803 BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd)
4804 && (reloff_ptr != &finfo->treloff
4805 || (*reloff_ptr
4806 <= obj_datasec (finfo->output_bfd)->rel_filepos)));
4807 }
4808
4809 return TRUE;
4810}
4811
4812/* Get the section corresponding to a reloc index. */
4813
4814static INLINE asection *
4815aout_reloc_index_to_section (abfd, indx)
4816 bfd *abfd;
4817 int indx;
--- 13 unchanged lines hidden (view full) ---
4831 abort ();
4832 }
4833 /*NOTREACHED*/
4834 return NULL;
4835}
4836
4837/* Relocate an a.out section using standard a.out relocs. */
4838
4839static bfd_boolean
4840aout_link_input_section_std (finfo, input_bfd, input_section, relocs,
4841 rel_size, contents)
4842 struct aout_final_link_info *finfo;
4843 bfd *input_bfd;
4844 asection *input_section;
4845 struct reloc_std_external *relocs;
4846 bfd_size_type rel_size;
4847 bfd_byte *contents;
4848{
4849 bfd_boolean (*check_dynamic_reloc)
4850 PARAMS ((struct bfd_link_info *, bfd *, asection *,
4851 struct aout_link_hash_entry *, PTR, bfd_byte *, bfd_boolean *,
4852 bfd_vma *));
4853 bfd *output_bfd;
4854 bfd_boolean relocatable;
4855 struct external_nlist *syms;
4856 char *strings;
4857 struct aout_link_hash_entry **sym_hashes;
4858 int *symbol_map;
4859 bfd_size_type reloc_count;
4860 register struct reloc_std_external *rel;
4861 struct reloc_std_external *rel_end;
4862
4863 output_bfd = finfo->output_bfd;
4864 check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;
4865
4866 BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE);
4867 BFD_ASSERT (input_bfd->xvec->header_byteorder
4868 == output_bfd->xvec->header_byteorder);
4869
4870 relocatable = finfo->info->relocatable;
4871 syms = obj_aout_external_syms (input_bfd);
4872 strings = obj_aout_external_strings (input_bfd);
4873 sym_hashes = obj_aout_sym_hashes (input_bfd);
4874 symbol_map = finfo->symbol_map;
4875
4876 reloc_count = rel_size / RELOC_STD_SIZE;
4877 rel = relocs;
4878 rel_end = rel + reloc_count;
--- 52 unchanged lines hidden (view full) ---
4931
4932 howto_idx = (r_length + 4 * r_pcrel + 8 * r_baserel
4933 + 16 * r_jmptable + 32 * r_relative);
4934 BFD_ASSERT (howto_idx < TABLE_SIZE (howto_table_std));
4935 howto = howto_table_std + howto_idx;
4936 }
4937#endif
4938
4939 if (relocatable)
4940 {
4941 /* We are generating a relocatable output file, and must
4942 modify the reloc accordingly. */
4943 if (r_extern)
4944 {
4945 /* If we know the symbol this relocation is against,
4946 convert it into a relocation against a section. This
4947 is what the native linker does. */
4948 h = sym_hashes[r_index];
4949 if (h != (struct aout_link_hash_entry *) NULL
--- 38 unchanged lines hidden (view full) ---
4988 /* We decided to strip this symbol, but it
4989 turns out that we can't. Note that we
4990 lose the other and desc information here.
4991 I don't think that will ever matter for a
4992 global symbol. */
4993 if (h->indx < 0)
4994 {
4995 h->indx = -2;
4996 h->written = FALSE;
4997 if (! aout_link_write_other_symbol (h,
4998 (PTR) finfo))
4999 return FALSE;
5000 }
5001 r_index = h->indx;
5002 }
5003 else
5004 {
5005 const char *name;
5006
5007 name = strings + GET_WORD (input_bfd,
5008 syms[r_index].e_strx);
5009 if (! ((*finfo->info->callbacks->unattached_reloc)
5010 (finfo->info, name, input_bfd, input_section,
5011 r_addr)))
5012 return FALSE;
5013 r_index = 0;
5014 }
5015 }
5016
5017 relocation = 0;
5018 }
5019
5020 /* Write out the new r_index value. */
--- 43 unchanged lines hidden (view full) ---
5064 r = bfd_reloc_ok;
5065 else
5066 r = MY_relocate_contents (howto,
5067 input_bfd, relocation,
5068 contents + r_addr);
5069 }
5070 else
5071 {
5072 bfd_boolean hundef;
5073
5074 /* We are generating an executable, and must do a full
5075 relocation. */
5076 hundef = FALSE;
5077
5078 if (r_extern)
5079 {
5080 h = sym_hashes[r_index];
5081
5082 if (h != (struct aout_link_hash_entry *) NULL
5083 && (h->root.type == bfd_link_hash_defined
5084 || h->root.type == bfd_link_hash_defweak))
5085 {
5086 relocation = (h->root.u.def.value
5087 + h->root.u.def.section->output_section->vma
5088 + h->root.u.def.section->output_offset);
5089 }
5090 else if (h != (struct aout_link_hash_entry *) NULL
5091 && h->root.type == bfd_link_hash_undefweak)
5092 relocation = 0;
5093 else
5094 {
5095 hundef = TRUE;
5096 relocation = 0;
5097 }
5098 }
5099 else
5100 {
5101 asection *section;
5102
5103 section = aout_reloc_index_to_section (input_bfd, r_index);
5104 relocation = (section->output_section->vma
5105 + section->output_offset
5106 - section->vma);
5107 if (r_pcrel)
5108 relocation += input_section->vma;
5109 }
5110
5111 if (check_dynamic_reloc != NULL)
5112 {
5113 bfd_boolean skip;
5114
5115 if (! ((*check_dynamic_reloc)
5116 (finfo->info, input_bfd, input_section, h,
5117 (PTR) rel, contents, &skip, &relocation)))
5118 return FALSE;
5119 if (skip)
5120 continue;
5121 }
5122
5123 /* Now warn if a global symbol is undefined. We could not
5124 do this earlier, because check_dynamic_reloc might want
5125 to skip this reloc. */
5126 if (hundef && ! finfo->info->shared && ! r_baserel)
5127 {
5128 const char *name;
5129
5130 if (h != NULL)
5131 name = h->root.root.string;
5132 else
5133 name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
5134 if (! ((*finfo->info->callbacks->undefined_symbol)
5135 (finfo->info, name, input_bfd, input_section,
5136 r_addr, TRUE)))
5137 return FALSE;
5138 }
5139
5140 r = MY_final_link_relocate (howto,
5141 input_bfd, input_section,
5142 contents, r_addr, relocation,
5143 (bfd_vma) 0);
5144 }
5145
--- 18 unchanged lines hidden (view full) ---
5164 asection *s;
5165
5166 s = aout_reloc_index_to_section (input_bfd, r_index);
5167 name = bfd_section_name (input_bfd, s);
5168 }
5169 if (! ((*finfo->info->callbacks->reloc_overflow)
5170 (finfo->info, name, howto->name,
5171 (bfd_vma) 0, input_bfd, input_section, r_addr)))
5172 return FALSE;
5173 }
5174 break;
5175 }
5176 }
5177 }
5178
5179 return TRUE;
5180}
5181
5182/* Relocate an a.out section using extended a.out relocs. */
5183
5184static bfd_boolean
5185aout_link_input_section_ext (finfo, input_bfd, input_section, relocs,
5186 rel_size, contents)
5187 struct aout_final_link_info *finfo;
5188 bfd *input_bfd;
5189 asection *input_section;
5190 struct reloc_ext_external *relocs;
5191 bfd_size_type rel_size;
5192 bfd_byte *contents;
5193{
5194 bfd_boolean (*check_dynamic_reloc)
5195 PARAMS ((struct bfd_link_info *, bfd *, asection *,
5196 struct aout_link_hash_entry *, PTR, bfd_byte *, bfd_boolean *,
5197 bfd_vma *));
5198 bfd *output_bfd;
5199 bfd_boolean relocatable;
5200 struct external_nlist *syms;
5201 char *strings;
5202 struct aout_link_hash_entry **sym_hashes;
5203 int *symbol_map;
5204 bfd_size_type reloc_count;
5205 register struct reloc_ext_external *rel;
5206 struct reloc_ext_external *rel_end;
5207
5208 output_bfd = finfo->output_bfd;
5209 check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;
5210
5211 BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_EXT_SIZE);
5212 BFD_ASSERT (input_bfd->xvec->header_byteorder
5213 == output_bfd->xvec->header_byteorder);
5214
5215 relocatable = finfo->info->relocatable;
5216 syms = obj_aout_external_syms (input_bfd);
5217 strings = obj_aout_external_strings (input_bfd);
5218 sym_hashes = obj_aout_sym_hashes (input_bfd);
5219 symbol_map = finfo->symbol_map;
5220
5221 reloc_count = rel_size / RELOC_EXT_SIZE;
5222 rel = relocs;
5223 rel_end = rel + reloc_count;
--- 28 unchanged lines hidden (view full) ---
5252 r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE)
5253 >> RELOC_EXT_BITS_TYPE_SH_LITTLE);
5254 }
5255
5256 r_addend = GET_SWORD (input_bfd, rel->r_addend);
5257
5258 BFD_ASSERT (r_type < TABLE_SIZE (howto_table_ext));
5259
5260 if (relocatable)
5261 {
5262 /* We are generating a relocatable output file, and must
5263 modify the reloc accordingly. */
5264 if (r_extern
5265 || r_type == (unsigned int) RELOC_BASE10
5266 || r_type == (unsigned int) RELOC_BASE13
5267 || r_type == (unsigned int) RELOC_BASE22)
5268 {
5269 /* If we know the symbol this relocation is against,
5270 convert it into a relocation against a section. This
--- 54 unchanged lines hidden (view full) ---
5325 /* We decided to strip this symbol, but it
5326 turns out that we can't. Note that we
5327 lose the other and desc information here.
5328 I don't think that will ever matter for a
5329 global symbol. */
5330 if (h->indx < 0)
5331 {
5332 h->indx = -2;
5333 h->written = FALSE;
5334 if (! aout_link_write_other_symbol (h,
5335 (PTR) finfo))
5336 return FALSE;
5337 }
5338 r_index = h->indx;
5339 }
5340 else
5341 {
5342 const char *name;
5343
5344 name = strings + GET_WORD (input_bfd,
5345 syms[r_index].e_strx);
5346 if (! ((*finfo->info->callbacks->unattached_reloc)
5347 (finfo->info, name, input_bfd, input_section,
5348 r_addr)))
5349 return FALSE;
5350 r_index = 0;
5351 }
5352 }
5353
5354 relocation = 0;
5355
5356 /* If this is a PC relative reloc, then the addend
5357 is the negative of the source VMA. We must
--- 48 unchanged lines hidden (view full) ---
5406
5407 /* Change the address of the relocation. */
5408 PUT_WORD (output_bfd,
5409 r_addr + input_section->output_offset,
5410 rel->r_address);
5411 }
5412 else
5413 {
5414 bfd_boolean hundef;
5415 bfd_reloc_status_type r;
5416
5417 /* We are generating an executable, and must do a full
5418 relocation. */
5419 hundef = FALSE;
5420
5421 if (r_extern)
5422 {
5423 h = sym_hashes[r_index];
5424
5425 if (h != (struct aout_link_hash_entry *) NULL
5426 && (h->root.type == bfd_link_hash_defined
5427 || h->root.type == bfd_link_hash_defweak))
5428 {
5429 relocation = (h->root.u.def.value
5430 + h->root.u.def.section->output_section->vma
5431 + h->root.u.def.section->output_offset);
5432 }
5433 else if (h != (struct aout_link_hash_entry *) NULL
5434 && h->root.type == bfd_link_hash_undefweak)
5435 relocation = 0;
5436 else
5437 {
5438 hundef = TRUE;
5439 relocation = 0;
5440 }
5441 }
5442 else if (r_type == (unsigned int) RELOC_BASE10
5443 || r_type == (unsigned int) RELOC_BASE13
5444 || r_type == (unsigned int) RELOC_BASE22)
5445 {
5446 struct external_nlist *sym;
--- 56 unchanged lines hidden (view full) ---
5503 + r_section->output_offset
5504 - r_section->vma);
5505 if (howto_table_ext[r_type].pc_relative)
5506 relocation += input_section->vma;
5507 }
5508
5509 if (check_dynamic_reloc != NULL)
5510 {
5511 bfd_boolean skip;
5512
5513 if (! ((*check_dynamic_reloc)
5514 (finfo->info, input_bfd, input_section, h,
5515 (PTR) rel, contents, &skip, &relocation)))
5516 return FALSE;
5517 if (skip)
5518 continue;
5519 }
5520
5521 /* Now warn if a global symbol is undefined. We could not
5522 do this earlier, because check_dynamic_reloc might want
5523 to skip this reloc. */
5524 if (hundef
--- 5 unchanged lines hidden (view full) ---
5530 const char *name;
5531
5532 if (h != NULL)
5533 name = h->root.root.string;
5534 else
5535 name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
5536 if (! ((*finfo->info->callbacks->undefined_symbol)
5537 (finfo->info, name, input_bfd, input_section,
5538 r_addr, TRUE)))
5539 return FALSE;
5540 }
5541
5542 if (r_type != (unsigned int) RELOC_SPARC_REV32)
5543 r = MY_final_link_relocate (howto_table_ext + r_type,
5544 input_bfd, input_section,
5545 contents, r_addr, relocation,
5546 r_addend);
5547 else
--- 30 unchanged lines hidden (view full) ---
5578 asection *s;
5579
5580 s = aout_reloc_index_to_section (input_bfd, r_index);
5581 name = bfd_section_name (input_bfd, s);
5582 }
5583 if (! ((*finfo->info->callbacks->reloc_overflow)
5584 (finfo->info, name, howto_table_ext[r_type].name,
5585 r_addend, input_bfd, input_section, r_addr)))
5586 return FALSE;
5587 }
5588 break;
5589 }
5590 }
5591 }
5592 }
5593
5594 return TRUE;
5595}
5596
5597/* Handle a link order which is supposed to generate a reloc. */
5598
5599static bfd_boolean
5600aout_link_reloc_link_order (finfo, o, p)
5601 struct aout_final_link_info *finfo;
5602 asection *o;
5603 struct bfd_link_order *p;
5604{
5605 struct bfd_link_order_reloc *pr;
5606 int r_index;
5607 int r_extern;
--- 20 unchanged lines hidden (view full) ---
5628 else
5629 {
5630 struct aout_link_hash_entry *h;
5631
5632 BFD_ASSERT (p->type == bfd_symbol_reloc_link_order);
5633 r_extern = 1;
5634 h = ((struct aout_link_hash_entry *)
5635 bfd_wrapped_link_hash_lookup (finfo->output_bfd, finfo->info,
5636 pr->u.name, FALSE, FALSE, TRUE));
5637 if (h != (struct aout_link_hash_entry *) NULL
5638 && h->indx >= 0)
5639 r_index = h->indx;
5640 else if (h != NULL)
5641 {
5642 /* We decided to strip this symbol, but it turns out that we
5643 can't. Note that we lose the other and desc information
5644 here. I don't think that will ever matter for a global
5645 symbol. */
5646 h->indx = -2;
5647 h->written = FALSE;
5648 if (! aout_link_write_other_symbol (h, (PTR) finfo))
5649 return FALSE;
5650 r_index = h->indx;
5651 }
5652 else
5653 {
5654 if (! ((*finfo->info->callbacks->unattached_reloc)
5655 (finfo->info, pr->u.name, (bfd *) NULL,
5656 (asection *) NULL, (bfd_vma) 0)))
5657 return FALSE;
5658 r_index = 0;
5659 }
5660 }
5661
5662 howto = bfd_reloc_type_lookup (finfo->output_bfd, pr->reloc);
5663 if (howto == 0)
5664 {
5665 bfd_set_error (bfd_error_bad_value);
5666 return FALSE;
5667 }
5668
5669 if (o == obj_textsec (finfo->output_bfd))
5670 reloff_ptr = &finfo->treloff;
5671 else if (o == obj_datasec (finfo->output_bfd))
5672 reloff_ptr = &finfo->dreloff;
5673 else
5674 abort ();
--- 53 unchanged lines hidden (view full) ---
5728 reliable if we had the current contents of the file here,
5729 rather than assuming zeroes, but we can't read the file since
5730 it was opened using bfd_openw. */
5731 if (pr->addend != 0)
5732 {
5733 bfd_size_type size;
5734 bfd_reloc_status_type r;
5735 bfd_byte *buf;
5736 bfd_boolean ok;
5737
5738 size = bfd_get_reloc_size (howto);
5739 buf = (bfd_byte *) bfd_zmalloc (size);
5740 if (buf == (bfd_byte *) NULL)
5741 return FALSE;
5742 r = MY_relocate_contents (howto, finfo->output_bfd,
5743 (bfd_vma) pr->addend, buf);
5744 switch (r)
5745 {
5746 case bfd_reloc_ok:
5747 break;
5748 default:
5749 case bfd_reloc_outofrange:
--- 4 unchanged lines hidden (view full) ---
5754 (p->type == bfd_section_reloc_link_order
5755 ? bfd_section_name (finfo->output_bfd,
5756 pr->u.section)
5757 : pr->u.name),
5758 howto->name, pr->addend, (bfd *) NULL,
5759 (asection *) NULL, (bfd_vma) 0)))
5760 {
5761 free (buf);
5762 return FALSE;
5763 }
5764 break;
5765 }
5766 ok = bfd_set_section_contents (finfo->output_bfd, o, (PTR) buf,
5767 (file_ptr) p->offset, size);
5768 free (buf);
5769 if (! ok)
5770 return FALSE;
5771 }
5772 }
5773 else
5774 {
5775#ifdef MY_put_ext_reloc
5776 MY_put_ext_reloc (finfo->output_bfd, r_extern, r_index, p->offset,
5777 howto, &erel, pr->addend);
5778#else
--- 22 unchanged lines hidden (view full) ---
5801#endif /* MY_put_ext_reloc */
5802
5803 rel_ptr = (PTR) &erel;
5804 }
5805
5806 amt = obj_reloc_entry_size (finfo->output_bfd);
5807 if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0
5808 || bfd_bwrite (rel_ptr, amt, finfo->output_bfd) != amt)
5809 return FALSE;
5810
5811 *reloff_ptr += obj_reloc_entry_size (finfo->output_bfd);
5812
5813 /* Assert that the relocs have not run into the symbols, and that n
5814 the text relocs have not run into the data relocs. */
5815 BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd)
5816 && (reloff_ptr != &finfo->treloff
5817 || (*reloff_ptr
5818 <= obj_datasec (finfo->output_bfd)->rel_filepos)));
5819
5820 return TRUE;
5821}
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
3 2001, 2002, 2003
4 Free Software Foundation, Inc.
5 Written by Cygnus Support.
6
7 This file is part of BFD, the Binary File Descriptor library.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
23/*
24SECTION
25 a.out backends
26
27DESCRIPTION
28
29 BFD supports a number of different flavours of a.out format,
--- 70 unchanged lines hidden (view full) ---
100 to use @file{host-aout.c}, specify:
101
102| TDEFAULTS = -DDEFAULT_VECTOR=host_aout_big_vec
103| TDEPFILES= host-aout.o trad-core.o
104
105 in the @file{config/@var{XXX}.mt} file, and modify @file{configure.in}
106 to use the
107 @file{@var{XXX}.mt} file (by setting "<<bfd_target=XXX>>") when your
108 configuration is selected. */
109
110/* Some assumptions:
111 * Any BFD with D_PAGED set is ZMAGIC, and vice versa.
112 Doesn't matter what the setting of WP_TEXT is on output, but it'll
113 get set on input.
114 * Any BFD with D_PAGED clear and WP_TEXT set is NMAGIC.
115 * Any BFD with both flags clear is OMAGIC.
116 (Just want to make these explicit, so the conditions tested in this
117 file make sense if you're more familiar with a.out than with BFD.) */
--- 6 unchanged lines hidden (view full) ---
124#include "bfdlink.h"
125
126#include "libaout.h"
127#include "libbfd.h"
128#include "aout/aout64.h"
129#include "aout/stab_gnu.h"
130#include "aout/ar.h"
131
132static bfd_boolean aout_get_external_symbols
133 PARAMS ((bfd *));
134static bfd_boolean translate_from_native_sym_flags
135 PARAMS ((bfd *, aout_symbol_type *));
136static bfd_boolean translate_to_native_sym_flags
137 PARAMS ((bfd *, asymbol *, struct external_nlist *));
138static void adjust_o_magic
139 PARAMS ((bfd *, struct internal_exec *));
140static void adjust_z_magic
141 PARAMS ((bfd *, struct internal_exec *));
142static void adjust_n_magic
143 PARAMS ((bfd *, struct internal_exec *));
144reloc_howto_type * NAME(aout,reloc_type_lookup)
145 PARAMS ((bfd *, bfd_reloc_code_real_type));
146
147/*
148SUBSECTION
149 Relocations
150
151DESCRIPTION
152 The file @file{aoutx.h} provides for both the @emph{standard}
153 and @emph{extended} forms of a.out relocation records.
154
155 The standard records contain only an
156 address, a symbol index, and a type field. The extended records
157 (used on 29ks and sparcs) also have a full integer for an
158 addend. */
159
160#ifndef CTOR_TABLE_RELOC_HOWTO
161#define CTOR_TABLE_RELOC_IDX 2
162#define CTOR_TABLE_RELOC_HOWTO(BFD) \
163 ((obj_reloc_entry_size (BFD) == RELOC_EXT_SIZE \
164 ? howto_table_ext : howto_table_std) \
165 + CTOR_TABLE_RELOC_IDX)
166#endif
167
--- 21 unchanged lines hidden (view full) ---
189#define MY_relocate_contents _bfd_relocate_contents
190#endif
191
192#define howto_table_ext NAME(aout,ext_howto_table)
193#define howto_table_std NAME(aout,std_howto_table)
194
195reloc_howto_type howto_table_ext[] =
196{
197 /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone. */
198 HOWTO(RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,"8", FALSE, 0,0x000000ff, FALSE),
199 HOWTO(RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"16", FALSE, 0,0x0000ffff, FALSE),
200 HOWTO(RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"32", FALSE, 0,0xffffffff, FALSE),
201 HOWTO(RELOC_DISP8, 0, 0, 8, TRUE, 0, complain_overflow_signed,0,"DISP8", FALSE, 0,0x000000ff, FALSE),
202 HOWTO(RELOC_DISP16, 0, 1, 16, TRUE, 0, complain_overflow_signed,0,"DISP16", FALSE, 0,0x0000ffff, FALSE),
203 HOWTO(RELOC_DISP32, 0, 2, 32, TRUE, 0, complain_overflow_signed,0,"DISP32", FALSE, 0,0xffffffff, FALSE),
204 HOWTO(RELOC_WDISP30,2, 2, 30, TRUE, 0, complain_overflow_signed,0,"WDISP30", FALSE, 0,0x3fffffff, FALSE),
205 HOWTO(RELOC_WDISP22,2, 2, 22, TRUE, 0, complain_overflow_signed,0,"WDISP22", FALSE, 0,0x003fffff, FALSE),
206 HOWTO(RELOC_HI22, 10, 2, 22, FALSE, 0, complain_overflow_bitfield,0,"HI22", FALSE, 0,0x003fffff, FALSE),
207 HOWTO(RELOC_22, 0, 2, 22, FALSE, 0, complain_overflow_bitfield,0,"22", FALSE, 0,0x003fffff, FALSE),
208 HOWTO(RELOC_13, 0, 2, 13, FALSE, 0, complain_overflow_bitfield,0,"13", FALSE, 0,0x00001fff, FALSE),
209 HOWTO(RELOC_LO10, 0, 2, 10, FALSE, 0, complain_overflow_dont,0,"LO10", FALSE, 0,0x000003ff, FALSE),
210 HOWTO(RELOC_SFA_BASE,0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"SFA_BASE", FALSE, 0,0xffffffff, FALSE),
211 HOWTO(RELOC_SFA_OFF13,0,2, 32, FALSE, 0, complain_overflow_bitfield,0,"SFA_OFF13",FALSE, 0,0xffffffff, FALSE),
212 HOWTO(RELOC_BASE10, 0, 2, 10, FALSE, 0, complain_overflow_dont,0,"BASE10", FALSE, 0,0x000003ff, FALSE),
213 HOWTO(RELOC_BASE13, 0, 2, 13, FALSE, 0, complain_overflow_signed,0,"BASE13", FALSE, 0,0x00001fff, FALSE),
214 HOWTO(RELOC_BASE22, 10, 2, 22, FALSE, 0, complain_overflow_bitfield,0,"BASE22", FALSE, 0,0x003fffff, FALSE),
215 HOWTO(RELOC_PC10, 0, 2, 10, TRUE, 0, complain_overflow_dont,0,"PC10", FALSE, 0,0x000003ff, TRUE),
216 HOWTO(RELOC_PC22, 10, 2, 22, TRUE, 0, complain_overflow_signed,0,"PC22", FALSE, 0,0x003fffff, TRUE),
217 HOWTO(RELOC_JMP_TBL,2, 2, 30, TRUE, 0, complain_overflow_signed,0,"JMP_TBL", FALSE, 0,0x3fffffff, FALSE),
218 HOWTO(RELOC_SEGOFF16,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"SEGOFF16", FALSE, 0,0x00000000, FALSE),
219 HOWTO(RELOC_GLOB_DAT,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"GLOB_DAT", FALSE, 0,0x00000000, FALSE),
220 HOWTO(RELOC_JMP_SLOT,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"JMP_SLOT", FALSE, 0,0x00000000, FALSE),
221 HOWTO(RELOC_RELATIVE,0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"RELATIVE", FALSE, 0,0x00000000, FALSE),
222 HOWTO(0, 0, 0, 0, FALSE, 0, complain_overflow_dont, 0, "R_SPARC_NONE", FALSE,0,0x00000000,TRUE),
223 HOWTO(0, 0, 0, 0, FALSE, 0, complain_overflow_dont, 0, "R_SPARC_NONE", FALSE,0,0x00000000,TRUE),
224#define RELOC_SPARC_REV32 RELOC_WDISP19
225 HOWTO(RELOC_SPARC_REV32, 0, 2, 32, FALSE, 0, complain_overflow_dont,0,"R_SPARC_REV32", FALSE, 0,0xffffffff, FALSE),
226};
227
228/* Convert standard reloc records to "arelent" format (incl byte swap). */
229
230reloc_howto_type howto_table_std[] =
231{
232 /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone. */
233HOWTO ( 0, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,"8", TRUE, 0x000000ff,0x000000ff, FALSE),
234HOWTO ( 1, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
235HOWTO ( 2, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"32", TRUE, 0xffffffff,0xffffffff, FALSE),
236HOWTO ( 3, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,0,"64", TRUE, 0xdeaddead,0xdeaddead, FALSE),
237HOWTO ( 4, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,"DISP8", TRUE, 0x000000ff,0x000000ff, FALSE),
238HOWTO ( 5, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,"DISP16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
239HOWTO ( 6, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,"DISP32", TRUE, 0xffffffff,0xffffffff, FALSE),
240HOWTO ( 7, 0, 4, 64, TRUE, 0, complain_overflow_signed, 0,"DISP64", TRUE, 0xfeedface,0xfeedface, FALSE),
241HOWTO ( 8, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"GOT_REL", FALSE, 0,0x00000000, FALSE),
242HOWTO ( 9, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"BASE16", FALSE,0xffffffff,0xffffffff, FALSE),
243HOWTO (10, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"BASE32", FALSE,0xffffffff,0xffffffff, FALSE),
244EMPTY_HOWTO (-1),
245EMPTY_HOWTO (-1),
246EMPTY_HOWTO (-1),
247EMPTY_HOWTO (-1),
248EMPTY_HOWTO (-1),
249 HOWTO (16, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"JMP_TABLE", FALSE, 0,0x00000000, FALSE),
250EMPTY_HOWTO (-1),
251EMPTY_HOWTO (-1),
252EMPTY_HOWTO (-1),
253EMPTY_HOWTO (-1),
254EMPTY_HOWTO (-1),
255EMPTY_HOWTO (-1),
256EMPTY_HOWTO (-1),
257EMPTY_HOWTO (-1),
258EMPTY_HOWTO (-1),
259EMPTY_HOWTO (-1),
260EMPTY_HOWTO (-1),
261EMPTY_HOWTO (-1),
262EMPTY_HOWTO (-1),
263EMPTY_HOWTO (-1),
264EMPTY_HOWTO (-1),
265 HOWTO (32, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"RELATIVE", FALSE, 0,0x00000000, FALSE),
266EMPTY_HOWTO (-1),
267EMPTY_HOWTO (-1),
268EMPTY_HOWTO (-1),
269EMPTY_HOWTO (-1),
270EMPTY_HOWTO (-1),
271EMPTY_HOWTO (-1),
272EMPTY_HOWTO (-1),
273 HOWTO (40, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"BASEREL", FALSE, 0,0x00000000, FALSE),
274};
275
276#define TABLE_SIZE(TABLE) (sizeof (TABLE) / sizeof (TABLE[0]))
277
278reloc_howto_type *
279NAME(aout,reloc_type_lookup) (abfd,code)
280 bfd *abfd;
281 bfd_reloc_code_real_type code;
282{
283#define EXT(i, j) case i: return &howto_table_ext[j]
284#define STD(i, j) case i: return &howto_table_std[j]
285 int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
286
287 if (code == BFD_RELOC_CTOR)
288 switch (bfd_get_arch_info (abfd)->bits_per_address)
289 {
290 case 32:
291 code = BFD_RELOC_32;
292 break;
293 case 64:
294 code = BFD_RELOC_64;
295 break;
296 }
297
298 if (ext)
299 switch (code)
300 {
301 EXT (BFD_RELOC_8, 0);
302 EXT (BFD_RELOC_16, 1);
303 EXT (BFD_RELOC_32, 2);
304 EXT (BFD_RELOC_HI22, 8);
305 EXT (BFD_RELOC_LO10, 11);
--- 6 unchanged lines hidden (view full) ---
312 EXT (BFD_RELOC_SPARC_GOT22, 16);
313 EXT (BFD_RELOC_SPARC_PC10, 17);
314 EXT (BFD_RELOC_SPARC_PC22, 18);
315 EXT (BFD_RELOC_SPARC_WPLT30, 19);
316 EXT (BFD_RELOC_SPARC_REV32, 26);
317 default: return (reloc_howto_type *) NULL;
318 }
319 else
320 /* std relocs. */
321 switch (code)
322 {
323 STD (BFD_RELOC_8, 0);
324 STD (BFD_RELOC_16, 1);
325 STD (BFD_RELOC_32, 2);
326 STD (BFD_RELOC_8_PCREL, 4);
327 STD (BFD_RELOC_16_PCREL, 5);
328 STD (BFD_RELOC_32_PCREL, 6);
329 STD (BFD_RELOC_16_BASEREL, 9);
330 STD (BFD_RELOC_32_BASEREL, 10);
331 default: return (reloc_howto_type *) NULL;
--- 84 unchanged lines hidden (view full) ---
416 PUT_WORD (abfd, execp->a_syms , bytes->e_syms);
417 PUT_WORD (abfd, execp->a_entry , bytes->e_entry);
418 PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize);
419 PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize);
420}
421
422/* Make all the section for an a.out file. */
423
424bfd_boolean
425NAME(aout,make_sections) (abfd)
426 bfd *abfd;
427{
428 if (obj_textsec (abfd) == (asection *) NULL
429 && bfd_make_section (abfd, ".text") == (asection *) NULL)
430 return FALSE;
431 if (obj_datasec (abfd) == (asection *) NULL
432 && bfd_make_section (abfd, ".data") == (asection *) NULL)
433 return FALSE;
434 if (obj_bsssec (abfd) == (asection *) NULL
435 && bfd_make_section (abfd, ".bss") == (asection *) NULL)
436 return FALSE;
437 return TRUE;
438}
439
440/*
441FUNCTION
442 aout_@var{size}_some_aout_object_p
443
444SYNOPSIS
445 const bfd_target *aout_@var{size}_some_aout_object_p
--- 28 unchanged lines hidden (view full) ---
474 /* Copy the contents of the old tdata struct.
475 In particular, we want the subformat, since for hpux it was set in
476 hp300hpux.c:swap_exec_header_in and will be used in
477 hp300hpux.c:callback. */
478 if (oldrawptr != NULL)
479 *abfd->tdata.aout_data = *oldrawptr;
480
481 abfd->tdata.aout_data->a.hdr = &rawptr->e;
482 /* Copy in the internal_exec struct. */
483 *(abfd->tdata.aout_data->a.hdr) = *execp;
484 execp = abfd->tdata.aout_data->a.hdr;
485
486 /* Set the file flags. */
487 abfd->flags = BFD_NO_FLAGS;
488 if (execp->a_drsize || execp->a_trsize)
489 abfd->flags |= HAS_RELOC;
490 /* Setting of EXEC_P has been deferred to the bottom of this function. */
491 if (execp->a_syms)
492 abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
493 if (N_DYNAMIC (*execp))
494 abfd->flags |= DYNAMIC;
495
496 if (N_MAGIC (*execp) == ZMAGIC)
497 {
498 abfd->flags |= D_PAGED | WP_TEXT;
--- 65 unchanged lines hidden (view full) ---
564 /* Call back to the format-dependent code to fill in the rest of the
565 fields and do any further cleanup. Things that should be filled
566 in by the callback: */
567
568 struct exec *execp = exec_hdr (abfd);
569
570 obj_textsec (abfd)->size = N_TXTSIZE (*execp);
571 obj_textsec (abfd)->raw_size = N_TXTSIZE (*execp);
572 /* Data and bss are already filled in since they're so standard. */
573
574 /* The virtual memory addresses of the sections. */
575 obj_textsec (abfd)->vma = N_TXTADDR (*execp);
576 obj_datasec (abfd)->vma = N_DATADDR (*execp);
577 obj_bsssec (abfd)->vma = N_BSSADDR (*execp);
578
579 /* The file offsets of the sections. */
580 obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
581 obj_datasec (abfd)->filepos = N_DATOFF (*execp);
582
583 /* The file offsets of the relocation info. */
584 obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp);
585 obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp);
586
587 /* The file offsets of the string table and symbol table. */
588 obj_str_filepos (abfd) = N_STROFF (*execp);
589 obj_sym_filepos (abfd) = N_SYMOFF (*execp);
590
591 /* Determine the architecture and machine type of the object file. */
--- 78 unchanged lines hidden (view full) ---
670 return NULL;
671}
672
673/*
674FUNCTION
675 aout_@var{size}_mkobject
676
677SYNOPSIS
678 bfd_boolean aout_@var{size}_mkobject, (bfd *abfd);
679
680DESCRIPTION
681 Initialize BFD @var{abfd} for use with a.out files.
682*/
683
684bfd_boolean
685NAME(aout,mkobject) (abfd)
686 bfd *abfd;
687{
688 struct aout_data_struct *rawptr;
689 bfd_size_type amt = sizeof (struct aout_data_struct);
690
691 bfd_set_error (bfd_error_system_call);
692
693 rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, amt);
694 if (rawptr == NULL)
695 return FALSE;
696
697 abfd->tdata.aout_data = rawptr;
698 exec_hdr (abfd) = &(rawptr->e);
699
700 obj_textsec (abfd) = (asection *) NULL;
701 obj_datasec (abfd) = (asection *) NULL;
702 obj_bsssec (abfd) = (asection *) NULL;
703
704 return TRUE;
705}
706
707/*
708FUNCTION
709 aout_@var{size}_machine_type
710
711SYNOPSIS
712 enum machine_type aout_@var{size}_machine_type
--- 9 unchanged lines hidden (view full) ---
722 If the architecture is understood, machine type 0 (default)
723 is always understood.
724*/
725
726enum machine_type
727NAME(aout,machine_type) (arch, machine, unknown)
728 enum bfd_architecture arch;
729 unsigned long machine;
730 bfd_boolean *unknown;
731{
732 enum machine_type arch_flags;
733
734 arch_flags = M_UNKNOWN;
735 *unknown = TRUE;
736
737 switch (arch)
738 {
739 case bfd_arch_sparc:
740 if (machine == 0
741 || machine == bfd_mach_sparc
742 || machine == bfd_mach_sparc_sparclite
743 || machine == bfd_mach_sparc_sparclite_le
744 || machine == bfd_mach_sparc_v9)
745 arch_flags = M_SPARC;
746 else if (machine == bfd_mach_sparc_sparclet)
747 arch_flags = M_SPARCLET;
748 break;
749
750 case bfd_arch_m68k:
751 switch (machine)
752 {
753 case 0: arch_flags = M_68010; break;
754 case bfd_mach_m68000: arch_flags = M_UNKNOWN; *unknown = FALSE; break;
755 case bfd_mach_m68010: arch_flags = M_68010; break;
756 case bfd_mach_m68020: arch_flags = M_68020; break;
757 default: arch_flags = M_UNKNOWN; break;
758 }
759 break;
760
761 case bfd_arch_i386:
762 if (machine == 0
763 || machine == bfd_mach_i386_i386
764 || machine == bfd_mach_i386_i386_intel_syntax)
765 arch_flags = M_386;
766 break;
767
768 case bfd_arch_a29k:
769 if (machine == 0)
770 arch_flags = M_29K;
771 break;
772
--- 20 unchanged lines hidden (view full) ---
793 case bfd_mach_mips4400:
794 case bfd_mach_mips4600:
795 case bfd_mach_mips4650:
796 case bfd_mach_mips8000:
797 case bfd_mach_mips10000:
798 case bfd_mach_mips12000:
799 case bfd_mach_mips16:
800 case bfd_mach_mipsisa32:
801 case bfd_mach_mipsisa32r2:
802 case bfd_mach_mips5:
803 case bfd_mach_mipsisa64:
804 case bfd_mach_mipsisa64r2:
805 case bfd_mach_mips_sb1:
806 /* FIXME: These should be MIPS3, MIPS4, MIPS16, MIPS32, etc. */
807 arch_flags = M_MIPS2;
808 break;
809 default:
810 arch_flags = M_UNKNOWN;
811 break;
812 }
--- 5 unchanged lines hidden (view full) ---
818 case 0: arch_flags = M_NS32532; break;
819 case 32032: arch_flags = M_NS32032; break;
820 case 32532: arch_flags = M_NS32532; break;
821 default: arch_flags = M_UNKNOWN; break;
822 }
823 break;
824
825 case bfd_arch_vax:
826 *unknown = FALSE;
827 break;
828
829 case bfd_arch_cris:
830 if (machine == 0 || machine == 255)
831 arch_flags = M_CRIS;
832 break;
833
834 default:
835 arch_flags = M_UNKNOWN;
836 }
837
838 if (arch_flags != M_UNKNOWN)
839 *unknown = FALSE;
840
841 return arch_flags;
842}
843
844/*
845FUNCTION
846 aout_@var{size}_set_arch_mach
847
848SYNOPSIS
849 bfd_boolean aout_@var{size}_set_arch_mach,
850 (bfd *,
851 enum bfd_architecture arch,
852 unsigned long machine));
853
854DESCRIPTION
855 Set the architecture and the machine of the BFD @var{abfd} to the
856 values @var{arch} and @var{machine}. Verify that @var{abfd}'s format
857 can support the architecture required.
858*/
859
860bfd_boolean
861NAME(aout,set_arch_mach) (abfd, arch, machine)
862 bfd *abfd;
863 enum bfd_architecture arch;
864 unsigned long machine;
865{
866 if (! bfd_default_set_arch_mach (abfd, arch, machine))
867 return FALSE;
868
869 if (arch != bfd_arch_unknown)
870 {
871 bfd_boolean unknown;
872
873 NAME(aout,machine_type) (arch, machine, &unknown);
874 if (unknown)
875 return FALSE;
876 }
877
878 /* Determine the size of a relocation entry. */
879 switch (arch)
880 {
881 case bfd_arch_sparc:
882 case bfd_arch_a29k:
883 case bfd_arch_mips:
884 obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
885 break;
886 default:
--- 21 unchanged lines hidden (view full) ---
908 vma = obj_textsec (abfd)->vma;
909
910 pos += obj_textsec (abfd)->_raw_size;
911 vma += obj_textsec (abfd)->_raw_size;
912
913 /* Data. */
914 if (!obj_datasec (abfd)->user_set_vma)
915 {
916#if 0 /* ?? Does alignment in the file image really matter? */
917 pad = align_power (vma, obj_datasec (abfd)->alignment_power) - vma;
918#endif
919 obj_textsec (abfd)->_raw_size += pad;
920 pos += pad;
921 vma += pad;
922 obj_datasec (abfd)->vma = vma;
923 }
924 else
--- 190 unchanged lines hidden (view full) ---
1115
1116 /* Fix up exec header. */
1117 execp->a_text = obj_textsec (abfd)->_raw_size;
1118 execp->a_data = obj_datasec (abfd)->_raw_size;
1119 execp->a_bss = obj_bsssec (abfd)->_raw_size;
1120 N_SET_MAGIC (*execp, NMAGIC);
1121}
1122
1123bfd_boolean
1124NAME(aout,adjust_sizes_and_vmas) (abfd, text_size, text_end)
1125 bfd *abfd;
1126 bfd_size_type *text_size;
1127 file_ptr *text_end ATTRIBUTE_UNUSED;
1128{
1129 struct internal_exec *execp = exec_hdr (abfd);
1130
1131 if (! NAME(aout,make_sections) (abfd))
1132 return FALSE;
1133
1134 if (adata (abfd).magic != undecided_magic)
1135 return TRUE;
1136
1137 obj_textsec (abfd)->_raw_size =
1138 align_power (obj_textsec (abfd)->_raw_size,
1139 obj_textsec (abfd)->alignment_power);
1140
1141 *text_size = obj_textsec (abfd)->_raw_size;
1142 /* Rule (heuristic) for when to pad to a new page. Note that there
1143 are (at least) two ways demand-paged (ZMAGIC) files have been
--- 60 unchanged lines hidden (view full) ---
1204 fprintf (stderr, " text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x>\n",
1205 obj_textsec (abfd)->vma, obj_textsec (abfd)->_raw_size,
1206 obj_textsec (abfd)->filepos,
1207 obj_datasec (abfd)->vma, obj_datasec (abfd)->_raw_size,
1208 obj_datasec (abfd)->filepos,
1209 obj_bsssec (abfd)->vma, obj_bsssec (abfd)->_raw_size);
1210#endif
1211
1212 return TRUE;
1213}
1214
1215/*
1216FUNCTION
1217 aout_@var{size}_new_section_hook
1218
1219SYNOPSIS
1220 bfd_boolean aout_@var{size}_new_section_hook,
1221 (bfd *abfd,
1222 asection *newsect));
1223
1224DESCRIPTION
1225 Called by the BFD in response to a @code{bfd_make_section}
1226 request.
1227*/
1228bfd_boolean
1229NAME(aout,new_section_hook) (abfd, newsect)
1230 bfd *abfd;
1231 asection *newsect;
1232{
1233 /* Align to double at least. */
1234 newsect->alignment_power = bfd_get_arch_info (abfd)->section_align_power;
1235
1236 if (bfd_get_format (abfd) == bfd_object)
1237 {
1238 if (obj_textsec (abfd) == NULL && !strcmp (newsect->name, ".text"))
1239 {
1240 obj_textsec (abfd)= newsect;
1241 newsect->target_index = N_TEXT;
1242 return TRUE;
1243 }
1244
1245 if (obj_datasec (abfd) == NULL && !strcmp (newsect->name, ".data"))
1246 {
1247 obj_datasec (abfd) = newsect;
1248 newsect->target_index = N_DATA;
1249 return TRUE;
1250 }
1251
1252 if (obj_bsssec (abfd) == NULL && !strcmp (newsect->name, ".bss"))
1253 {
1254 obj_bsssec (abfd) = newsect;
1255 newsect->target_index = N_BSS;
1256 return TRUE;
1257 }
1258 }
1259
1260 /* We allow more than three sections internally. */
1261 return TRUE;
1262}
1263
1264bfd_boolean
1265NAME(aout,set_section_contents) (abfd, section, location, offset, count)
1266 bfd *abfd;
1267 sec_ptr section;
1268 const PTR location;
1269 file_ptr offset;
1270 bfd_size_type count;
1271{
1272 file_ptr text_end;
1273 bfd_size_type text_size;
1274
1275 if (! abfd->output_has_begun)
1276 {
1277 if (! NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end))
1278 return FALSE;
1279 }
1280
1281 if (section == obj_bsssec (abfd))
1282 {
1283 bfd_set_error (bfd_error_no_contents);
1284 return FALSE;
1285 }
1286
1287 if (section != obj_textsec (abfd)
1288 && section != obj_datasec (abfd))
1289 {
1290 if (aout_section_merge_with_text_p (abfd, section))
1291 section->filepos = obj_textsec (abfd)->filepos +
1292 (section->vma - obj_textsec (abfd)->vma);
1293 else
1294 {
1295 (*_bfd_error_handler)
1296 (_("%s: can not represent section `%s' in a.out object file format"),
1297 bfd_get_filename (abfd), bfd_get_section_name (abfd, section));
1298 bfd_set_error (bfd_error_nonrepresentable_section);
1299 return FALSE;
1300 }
1301 }
1302
1303 if (count != 0)
1304 {
1305 if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
1306 || bfd_bwrite (location, count, abfd) != count)
1307 return FALSE;
1308 }
1309
1310 return TRUE;
1311}
1312
1313/* Read the external symbols from an a.out file. */
1314
1315static bfd_boolean
1316aout_get_external_symbols (abfd)
1317 bfd *abfd;
1318{
1319 if (obj_aout_external_syms (abfd) == (struct external_nlist *) NULL)
1320 {
1321 bfd_size_type count;
1322 struct external_nlist *syms;
1323 bfd_size_type amt;
1324
1325 count = exec_hdr (abfd)->a_syms / EXTERNAL_NLIST_SIZE;
1326
1327#ifdef USE_MMAP
1328 if (! bfd_get_file_window (abfd, obj_sym_filepos (abfd),
1329 exec_hdr (abfd)->a_syms,
1330 &obj_aout_sym_window (abfd), TRUE))
1331 return FALSE;
1332 syms = (struct external_nlist *) obj_aout_sym_window (abfd).data;
1333#else
1334 /* We allocate using malloc to make the values easy to free
1335 later on. If we put them on the objalloc it might not be
1336 possible to free them. */
1337 syms = ((struct external_nlist *)
1338 bfd_malloc (count * EXTERNAL_NLIST_SIZE));
1339 if (syms == (struct external_nlist *) NULL && count != 0)
1340 return FALSE;
1341
1342 amt = exec_hdr (abfd)->a_syms;
1343 if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0
1344 || bfd_bread (syms, amt, abfd) != amt)
1345 {
1346 free (syms);
1347 return FALSE;
1348 }
1349#endif
1350
1351 obj_aout_external_syms (abfd) = syms;
1352 obj_aout_external_sym_count (abfd) = count;
1353 }
1354
1355 if (obj_aout_external_strings (abfd) == NULL
1356 && exec_hdr (abfd)->a_syms != 0)
1357 {
1358 unsigned char string_chars[BYTES_IN_WORD];
1359 bfd_size_type stringsize;
1360 char *strings;
1361 bfd_size_type amt = BYTES_IN_WORD;
1362
1363 /* Get the size of the strings. */
1364 if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0
1365 || bfd_bread ((PTR) string_chars, amt, abfd) != amt)
1366 return FALSE;
1367 stringsize = GET_WORD (abfd, string_chars);
1368
1369#ifdef USE_MMAP
1370 if (! bfd_get_file_window (abfd, obj_str_filepos (abfd), stringsize,
1371 &obj_aout_string_window (abfd), TRUE))
1372 return FALSE;
1373 strings = (char *) obj_aout_string_window (abfd).data;
1374#else
1375 strings = (char *) bfd_malloc (stringsize + 1);
1376 if (strings == NULL)
1377 return FALSE;
1378
1379 /* Skip space for the string count in the buffer for convenience
1380 when using indexes. */
1381 amt = stringsize - BYTES_IN_WORD;
1382 if (bfd_bread (strings + BYTES_IN_WORD, amt, abfd) != amt)
1383 {
1384 free (strings);
1385 return FALSE;
1386 }
1387#endif
1388
1389 /* Ensure that a zero index yields an empty string. */
1390 strings[0] = '\0';
1391
1392 strings[stringsize - 1] = 0;
1393
1394 obj_aout_external_strings (abfd) = strings;
1395 obj_aout_external_string_size (abfd) = stringsize;
1396 }
1397
1398 return TRUE;
1399}
1400
1401/* Translate an a.out symbol into a BFD symbol. The desc, other, type
1402 and symbol->value fields of CACHE_PTR will be set from the a.out
1403 nlist structure. This function is responsible for setting
1404 symbol->flags and symbol->section, and adjusting symbol->value. */
1405
1406static bfd_boolean
1407translate_from_native_sym_flags (abfd, cache_ptr)
1408 bfd *abfd;
1409 aout_symbol_type *cache_ptr;
1410{
1411 flagword visible;
1412
1413 if ((cache_ptr->type & N_STAB) != 0
1414 || cache_ptr->type == N_FN)
1415 {
1416 asection *sec;
1417
1418 /* This is a debugging symbol. */
1419 cache_ptr->symbol.flags = BSF_DEBUGGING;
1420
1421 /* Work out the symbol section. */
1422 switch (cache_ptr->type & N_TYPE)
1423 {
1424 case N_TEXT:
1425 case N_FN:
1426 sec = obj_textsec (abfd);
--- 8 unchanged lines hidden (view full) ---
1435 case N_ABS:
1436 sec = bfd_abs_section_ptr;
1437 break;
1438 }
1439
1440 cache_ptr->symbol.section = sec;
1441 cache_ptr->symbol.value -= sec->vma;
1442
1443 return TRUE;
1444 }
1445
1446 /* Get the default visibility. This does not apply to all types, so
1447 we just hold it in a local variable to use if wanted. */
1448 if ((cache_ptr->type & N_EXT) == 0)
1449 visible = BSF_LOCAL;
1450 else
1451 visible = BSF_GLOBAL;
--- 72 unchanged lines hidden (view full) ---
1524 section = bfd_get_section_by_name (abfd, cache_ptr->symbol.name);
1525 if (section == NULL)
1526 {
1527 char *copy;
1528
1529 amt = strlen (cache_ptr->symbol.name) + 1;
1530 copy = bfd_alloc (abfd, amt);
1531 if (copy == NULL)
1532 return FALSE;
1533
1534 strcpy (copy, cache_ptr->symbol.name);
1535 section = bfd_make_section (abfd, copy);
1536 if (section == NULL)
1537 return FALSE;
1538 }
1539
1540 amt = sizeof (arelent_chain);
1541 reloc = (arelent_chain *) bfd_alloc (abfd, amt);
1542 if (reloc == NULL)
1543 return FALSE;
1544
1545 /* Build a relocation entry for the constructor. */
1546 switch (cache_ptr->type & N_TYPE)
1547 {
1548 case N_SETA:
1549 into_section = bfd_abs_section_ptr;
1550 cache_ptr->type = N_ABS;
1551 break;
--- 96 unchanged lines hidden (view full) ---
1648
1649 case N_WEAKB:
1650 cache_ptr->symbol.section = obj_bsssec (abfd);
1651 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1652 cache_ptr->symbol.flags = BSF_WEAK;
1653 break;
1654 }
1655
1656 return TRUE;
1657}
1658
1659/* Set the fields of SYM_POINTER according to CACHE_PTR. */
1660
1661static bfd_boolean
1662translate_to_native_sym_flags (abfd, cache_ptr, sym_pointer)
1663 bfd *abfd;
1664 asymbol *cache_ptr;
1665 struct external_nlist *sym_pointer;
1666{
1667 bfd_vma value = cache_ptr->value;
1668 asection *sec;
1669 bfd_vma off;
--- 9 unchanged lines hidden (view full) ---
1679 {
1680 /* This case occurs, e.g., for the *DEBUG* section of a COFF
1681 file. */
1682 (*_bfd_error_handler)
1683 (_("%s: can not represent section for symbol `%s' in a.out object file format"),
1684 bfd_get_filename (abfd),
1685 cache_ptr->name != NULL ? cache_ptr->name : _("*unknown*"));
1686 bfd_set_error (bfd_error_nonrepresentable_section);
1687 return FALSE;
1688 }
1689
1690 if (sec->output_section != NULL)
1691 {
1692 off = sec->output_offset;
1693 sec = sec->output_section;
1694 }
1695
--- 8 unchanged lines hidden (view full) ---
1704 else if (bfd_is_und_section (sec))
1705 sym_pointer->e_type[0] = N_UNDF | N_EXT;
1706 else if (bfd_is_ind_section (sec))
1707 sym_pointer->e_type[0] = N_INDR;
1708 else if (bfd_is_com_section (sec))
1709 sym_pointer->e_type[0] = N_UNDF | N_EXT;
1710 else
1711 {
1712 if (aout_section_merge_with_text_p (abfd, sec))
1713 sym_pointer->e_type[0] |= N_TEXT;
1714 else
1715 {
1716 (*_bfd_error_handler)
1717 (_("%s: can not represent section `%s' in a.out object file format"),
1718 bfd_get_filename (abfd), bfd_get_section_name (abfd, sec));
1719 bfd_set_error (bfd_error_nonrepresentable_section);
1720 return FALSE;
1721 }
1722 }
1723
1724 /* Turn the symbol from section relative to absolute again. */
1725 value += sec->vma + off;
1726
1727 if ((cache_ptr->flags & BSF_WARNING) != 0)
1728 sym_pointer->e_type[0] = N_WARNING;
1729
1730 if ((cache_ptr->flags & BSF_DEBUGGING) != 0)
1731 sym_pointer->e_type[0] = ((aout_symbol_type *) cache_ptr)->type;
1732 else if ((cache_ptr->flags & BSF_GLOBAL) != 0)
1733 sym_pointer->e_type[0] |= N_EXT;
1734 else if ((cache_ptr->flags & BSF_LOCAL) != 0)
1735 sym_pointer->e_type[0] &= ~N_EXT;
1736
1737 if ((cache_ptr->flags & BSF_CONSTRUCTOR) != 0)
1738 {
1739 int type = ((aout_symbol_type *) cache_ptr)->type;
1740
1741 switch (type)
1742 {
1743 case N_ABS: type = N_SETA; break;
1744 case N_TEXT: type = N_SETT; break;
1745 case N_DATA: type = N_SETD; break;
1746 case N_BSS: type = N_SETB; break;
1747 }
1748 sym_pointer->e_type[0] = type;
--- 12 unchanged lines hidden (view full) ---
1761 case N_BSS: type = N_WEAKB; break;
1762 case N_UNDF: type = N_WEAKU; break;
1763 }
1764 sym_pointer->e_type[0] = type;
1765 }
1766
1767 PUT_WORD (abfd, value, sym_pointer->e_value);
1768
1769 return TRUE;
1770}
1771
1772/* Native-level interface to symbols. */
1773
1774asymbol *
1775NAME(aout,make_empty_symbol) (abfd)
1776 bfd *abfd;
1777{
1778 bfd_size_type amt = sizeof (aout_symbol_type);
1779 aout_symbol_type *new = (aout_symbol_type *) bfd_zalloc (abfd, amt);
1780 if (!new)
1781 return NULL;
1782 new->symbol.the_bfd = abfd;
1783
1784 return &new->symbol;
1785}
1786
1787/* Translate a set of internal symbols into external symbols. */
1788
1789bfd_boolean
1790NAME(aout,translate_symbol_table) (abfd, in, ext, count, str, strsize, dynamic)
1791 bfd *abfd;
1792 aout_symbol_type *in;
1793 struct external_nlist *ext;
1794 bfd_size_type count;
1795 char *str;
1796 bfd_size_type strsize;
1797 bfd_boolean dynamic;
1798{
1799 struct external_nlist *ext_end;
1800
1801 ext_end = ext + count;
1802 for (; ext < ext_end; ext++, in++)
1803 {
1804 bfd_vma x;
1805
--- 5 unchanged lines hidden (view full) ---
1811 null string. For the dynamic symbols, the number of bytes in
1812 the string table is stored in the __DYNAMIC structure and the
1813 zero index points at an actual string. */
1814 if (x == 0 && ! dynamic)
1815 in->symbol.name = "";
1816 else if (x < strsize)
1817 in->symbol.name = str + x;
1818 else
1819 return FALSE;
1820
1821 in->symbol.value = GET_SWORD (abfd, ext->e_value);
1822 in->desc = H_GET_16 (abfd, ext->e_desc);
1823 in->other = H_GET_8 (abfd, ext->e_other);
1824 in->type = H_GET_8 (abfd, ext->e_type);
1825 in->symbol.udata.p = NULL;
1826
1827 if (! translate_from_native_sym_flags (abfd, in))
1828 return FALSE;
1829
1830 if (dynamic)
1831 in->symbol.flags |= BSF_DYNAMIC;
1832 }
1833
1834 return TRUE;
1835}
1836
1837/* We read the symbols into a buffer, which is discarded when this
1838 function exits. We read the strings into a buffer large enough to
1839 hold them all plus all the cached symbol entries. */
1840
1841bfd_boolean
1842NAME(aout,slurp_symbol_table) (abfd)
1843 bfd *abfd;
1844{
1845 struct external_nlist *old_external_syms;
1846 aout_symbol_type *cached;
1847 bfd_size_type cached_size;
1848
1849 /* If there's no work to be done, don't do any. */
1850 if (obj_aout_symbols (abfd) != (aout_symbol_type *) NULL)
1851 return TRUE;
1852
1853 old_external_syms = obj_aout_external_syms (abfd);
1854
1855 if (! aout_get_external_symbols (abfd))
1856 return FALSE;
1857
1858 cached_size = obj_aout_external_sym_count (abfd);
1859 cached_size *= sizeof (aout_symbol_type);
1860 cached = (aout_symbol_type *) bfd_zmalloc (cached_size);
1861 if (cached == NULL && cached_size != 0)
1862 return FALSE;
1863
1864 /* Convert from external symbol information to internal. */
1865 if (! (NAME(aout,translate_symbol_table)
1866 (abfd, cached,
1867 obj_aout_external_syms (abfd),
1868 obj_aout_external_sym_count (abfd),
1869 obj_aout_external_strings (abfd),
1870 obj_aout_external_string_size (abfd),
1871 FALSE)))
1872 {
1873 free (cached);
1874 return FALSE;
1875 }
1876
1877 bfd_get_symcount (abfd) = obj_aout_external_sym_count (abfd);
1878
1879 obj_aout_symbols (abfd) = cached;
1880
1881 /* It is very likely that anybody who calls this function will not
1882 want the external symbol information, so if it was allocated
--- 5 unchanged lines hidden (view full) ---
1888#ifdef USE_MMAP
1889 bfd_free_window (&obj_aout_sym_window (abfd));
1890#else
1891 free (obj_aout_external_syms (abfd));
1892#endif
1893 obj_aout_external_syms (abfd) = NULL;
1894 }
1895
1896 return TRUE;
1897}
1898
1899/* We use a hash table when writing out symbols so that we only write
1900 out a particular string once. This helps particularly when the
1901 linker writes out stabs debugging entries, because each different
1902 contributing object file tends to have many duplicate stabs
1903 strings.
1904
1905 This hash table code breaks dbx on SunOS 4.1.3, so we don't do it
1906 if BFD_TRADITIONAL_FORMAT is set. */
1907
1908static bfd_size_type add_to_stringtab
1909 PARAMS ((bfd *, struct bfd_strtab_hash *, const char *, bfd_boolean));
1910static bfd_boolean emit_stringtab
1911 PARAMS ((bfd *, struct bfd_strtab_hash *));
1912
1913/* Get the index of a string in a strtab, adding it if it is not
1914 already present. */
1915
1916static INLINE bfd_size_type
1917add_to_stringtab (abfd, tab, str, copy)
1918 bfd *abfd;
1919 struct bfd_strtab_hash *tab;
1920 const char *str;
1921 bfd_boolean copy;
1922{
1923 bfd_boolean hash;
1924 bfd_size_type index;
1925
1926 /* An index of 0 always means the empty string. */
1927 if (str == 0 || *str == '\0')
1928 return 0;
1929
1930 /* Don't hash if BFD_TRADITIONAL_FORMAT is set, because SunOS dbx
1931 doesn't understand a hashed string table. */
1932 hash = TRUE;
1933 if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
1934 hash = FALSE;
1935
1936 index = _bfd_stringtab_add (tab, str, hash, copy);
1937
1938 if (index != (bfd_size_type) -1)
1939 {
1940 /* Add BYTES_IN_WORD to the return value to account for the
1941 space taken up by the string table size. */
1942 index += BYTES_IN_WORD;
1943 }
1944
1945 return index;
1946}
1947
1948/* Write out a strtab. ABFD is already at the right location in the
1949 file. */
1950
1951static bfd_boolean
1952emit_stringtab (abfd, tab)
1953 register bfd *abfd;
1954 struct bfd_strtab_hash *tab;
1955{
1956 bfd_byte buffer[BYTES_IN_WORD];
1957 bfd_size_type amt = BYTES_IN_WORD;
1958
1959 /* The string table starts with the size. */
1960 PUT_WORD (abfd, _bfd_stringtab_size (tab) + BYTES_IN_WORD, buffer);
1961 if (bfd_bwrite ((PTR) buffer, amt, abfd) != amt)
1962 return FALSE;
1963
1964 return _bfd_stringtab_emit (abfd, tab);
1965}
1966
1967bfd_boolean
1968NAME(aout,write_syms) (abfd)
1969 bfd *abfd;
1970{
1971 unsigned int count ;
1972 asymbol **generic = bfd_get_outsymbols (abfd);
1973 struct bfd_strtab_hash *strtab;
1974
1975 strtab = _bfd_stringtab_init ();
1976 if (strtab == NULL)
1977 return FALSE;
1978
1979 for (count = 0; count < bfd_get_symcount (abfd); count++)
1980 {
1981 asymbol *g = generic[count];
1982 bfd_size_type indx;
1983 struct external_nlist nsp;
1984 bfd_size_type amt;
1985
1986 indx = add_to_stringtab (abfd, strtab, g->name, FALSE);
1987 if (indx == (bfd_size_type) -1)
1988 goto error_return;
1989 PUT_WORD (abfd, indx, (bfd_byte *) nsp.e_strx);
1990
1991 if (bfd_asymbol_flavour (g) == abfd->xvec->flavour)
1992 {
1993 H_PUT_16 (abfd, aout_symbol (g)->desc, nsp.e_desc);
1994 H_PUT_8 (abfd, aout_symbol (g)->other, nsp.e_other);
--- 18 unchanged lines hidden (view full) ---
2013 g->KEEPIT = count;
2014 }
2015
2016 if (! emit_stringtab (abfd, strtab))
2017 goto error_return;
2018
2019 _bfd_stringtab_free (strtab);
2020
2021 return TRUE;
2022
2023error_return:
2024 _bfd_stringtab_free (strtab);
2025 return FALSE;
2026}
2027
2028long
2029NAME(aout,canonicalize_symtab) (abfd, location)
2030 bfd *abfd;
2031 asymbol **location;
2032{
2033 unsigned int counter = 0;
2034 aout_symbol_type *symbase;
2035
2036 if (!NAME(aout,slurp_symbol_table) (abfd))
2037 return -1;
2038
2039 for (symbase = obj_aout_symbols (abfd);
2040 counter++ < bfd_get_symcount (abfd);
2041 )
2042 *(location++) = (asymbol *) (symbase++);
2043 *location++ =0;
2044 return bfd_get_symcount (abfd);
2045}
2046
2047/* Standard reloc stuff. */
2048/* Output standard relocation information to a file in target byte order. */
2049
2050extern void NAME(aout,swap_std_reloc_out)
2051 PARAMS ((bfd *, arelent *, struct reloc_std_external *));
2052
2053void
2054NAME(aout,swap_std_reloc_out) (abfd, g, natptr)
2055 bfd *abfd;
--- 5 unchanged lines hidden (view full) ---
2061 int r_extern;
2062 unsigned int r_length;
2063 int r_pcrel;
2064 int r_baserel, r_jmptable, r_relative;
2065 asection *output_section = sym->section->output_section;
2066
2067 PUT_WORD (abfd, g->address, natptr->r_address);
2068
2069 r_length = g->howto->size ; /* Size as a power of two. */
2070 r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
2071 /* XXX This relies on relocs coming from a.out files. */
2072 r_baserel = (g->howto->type & 8) != 0;
2073 r_jmptable = (g->howto->type & 16) != 0;
2074 r_relative = (g->howto->type & 32) != 0;
2075
2076#if 0
2077 /* For a standard reloc, the addend is in the object file. */
2078 r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
2079#endif
2080
2081 /* Name was clobbered by aout_write_syms to be symbol index. */
2082
2083 /* If this relocation is relative to a symbol then set the
2084 r_index to the symbols index, and the r_extern bit.
2085
2086 Absolute symbols can come in in two ways, either as an offset
2087 from the abs section, or as a symbol which has an abs value.
2088 check for that here. */
2089
2090 if (bfd_is_com_section (output_section)
2091 || bfd_is_abs_section (output_section)
2092 || bfd_is_und_section (output_section))
2093 {
2094 if (bfd_abs_section_ptr->symbol == sym)
2095 {
2096 /* Whoops, looked like an abs symbol, but is
2097 really an offset from the abs section. */
2098 r_index = N_ABS;
2099 r_extern = 0;
2100 }
2101 else
2102 {
2103 /* Fill in symbol. */
2104 r_extern = 1;
2105 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
2106 }
2107 }
2108 else
2109 {
2110 /* Just an ordinary section. */
2111 r_extern = 0;
2112 r_index = output_section->target_index;
2113 }
2114
2115 /* Now the fun stuff. */
2116 if (bfd_header_big_endian (abfd))
2117 {
2118 natptr->r_index[0] = r_index >> 16;
2119 natptr->r_index[1] = r_index >> 8;
2120 natptr->r_index[2] = r_index;
2121 natptr->r_type[0] = ((r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0)
2122 | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0)
2123 | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0)
--- 10 unchanged lines hidden (view full) ---
2134 | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0)
2135 | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0)
2136 | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0)
2137 | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0)
2138 | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE));
2139 }
2140}
2141
2142/* Extended stuff. */
2143/* Output extended relocation information to a file in target byte order. */
2144
2145extern void NAME(aout,swap_ext_reloc_out)
2146 PARAMS ((bfd *, arelent *, struct reloc_ext_external *));
2147
2148void
2149NAME(aout,swap_ext_reloc_out) (abfd, g, natptr)
2150 bfd *abfd;
--- 16 unchanged lines hidden (view full) ---
2167 r_addend += (*(g->sym_ptr_ptr))->section->output_section->vma;
2168
2169 /* If this relocation is relative to a symbol then set the
2170 r_index to the symbols index, and the r_extern bit.
2171
2172 Absolute symbols can come in in two ways, either as an offset
2173 from the abs section, or as a symbol which has an abs value.
2174 check for that here. */
2175 if (bfd_is_abs_section (bfd_get_section (sym)))
2176 {
2177 r_extern = 0;
2178 r_index = N_ABS;
2179 }
2180 else if ((sym->flags & BSF_SECTION_SYM) == 0)
2181 {
2182 if (bfd_is_und_section (bfd_get_section (sym))
2183 || (sym->flags & BSF_GLOBAL) != 0)
2184 r_extern = 1;
2185 else
2186 r_extern = 0;
2187 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
2188 }
2189 else
2190 {
2191 /* Just an ordinary section. */
2192 r_extern = 0;
2193 r_index = output_section->target_index;
2194 }
2195
2196 /* Now the fun stuff. */
2197 if (bfd_header_big_endian (abfd))
2198 {
2199 natptr->r_index[0] = r_index >> 16;
2200 natptr->r_index[1] = r_index >> 8;
2201 natptr->r_index[2] = r_index;
2202 natptr->r_type[0] = ((r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0)
2203 | (r_type << RELOC_EXT_BITS_TYPE_SH_BIG));
2204 }
--- 64 unchanged lines hidden (view full) ---
2269{
2270 unsigned int r_index;
2271 int r_extern;
2272 unsigned int r_type;
2273 struct aoutdata *su = &(abfd->tdata.aout_data->a);
2274
2275 cache_ptr->address = (GET_SWORD (abfd, bytes->r_address));
2276
2277 /* Now the fun stuff. */
2278 if (bfd_header_big_endian (abfd))
2279 {
2280 r_index = (((unsigned int) bytes->r_index[0] << 16)
2281 | ((unsigned int) bytes->r_index[1] << 8)
2282 | bytes->r_index[2]);
2283 r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG));
2284 r_type = ((bytes->r_type[0] & RELOC_EXT_BITS_TYPE_BIG)
2285 >> RELOC_EXT_BITS_TYPE_SH_BIG);
--- 42 unchanged lines hidden (view full) ---
2328 unsigned int r_length;
2329 int r_pcrel;
2330 int r_baserel, r_jmptable, r_relative;
2331 struct aoutdata *su = &(abfd->tdata.aout_data->a);
2332 unsigned int howto_idx;
2333
2334 cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
2335
2336 /* Now the fun stuff. */
2337 if (bfd_header_big_endian (abfd))
2338 {
2339 r_index = (((unsigned int) bytes->r_index[0] << 16)
2340 | ((unsigned int) bytes->r_index[1] << 8)
2341 | bytes->r_index[2]);
2342 r_extern = (0 != (bytes->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
2343 r_pcrel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
2344 r_baserel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_BASEREL_BIG));
--- 36 unchanged lines hidden (view full) ---
2381 r_index = N_ABS;
2382 }
2383
2384 MOVE_ADDRESS (0);
2385}
2386
2387/* Read and swap the relocs for a section. */
2388
2389bfd_boolean
2390NAME(aout,slurp_reloc_table) (abfd, asect, symbols)
2391 bfd *abfd;
2392 sec_ptr asect;
2393 asymbol **symbols;
2394{
2395 bfd_size_type count;
2396 bfd_size_type reloc_size;
2397 PTR relocs;
2398 arelent *reloc_cache;
2399 size_t each_size;
2400 unsigned int counter = 0;
2401 arelent *cache_ptr;
2402 bfd_size_type amt;
2403
2404 if (asect->relocation)
2405 return TRUE;
2406
2407 if (asect->flags & SEC_CONSTRUCTOR)
2408 return TRUE;
2409
2410 if (asect == obj_datasec (abfd))
2411 reloc_size = exec_hdr (abfd)->a_drsize;
2412 else if (asect == obj_textsec (abfd))
2413 reloc_size = exec_hdr (abfd)->a_trsize;
2414 else if (asect == obj_bsssec (abfd))
2415 reloc_size = 0;
2416 else
2417 {
2418 bfd_set_error (bfd_error_invalid_operation);
2419 return FALSE;
2420 }
2421
2422 if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0)
2423 return FALSE;
2424
2425 each_size = obj_reloc_entry_size (abfd);
2426
2427 count = reloc_size / each_size;
2428
2429 amt = count * sizeof (arelent);
2430 reloc_cache = (arelent *) bfd_zmalloc (amt);
2431 if (reloc_cache == NULL && count != 0)
2432 return FALSE;
2433
2434 relocs = bfd_malloc (reloc_size);
2435 if (relocs == NULL && reloc_size != 0)
2436 {
2437 free (reloc_cache);
2438 return FALSE;
2439 }
2440
2441 if (bfd_bread (relocs, reloc_size, abfd) != reloc_size)
2442 {
2443 free (relocs);
2444 free (reloc_cache);
2445 return FALSE;
2446 }
2447
2448 cache_ptr = reloc_cache;
2449 if (each_size == RELOC_EXT_SIZE)
2450 {
2451 struct reloc_ext_external *rptr = (struct reloc_ext_external *) relocs;
2452
2453 for (; counter < count; counter++, rptr++, cache_ptr++)
--- 9 unchanged lines hidden (view full) ---
2463 (bfd_size_type) bfd_get_symcount (abfd));
2464 }
2465
2466 free (relocs);
2467
2468 asect->relocation = reloc_cache;
2469 asect->reloc_count = cache_ptr - reloc_cache;
2470
2471 return TRUE;
2472}
2473
2474/* Write out a relocation section into an object file. */
2475
2476bfd_boolean
2477NAME(aout,squirt_out_relocs) (abfd, section)
2478 bfd *abfd;
2479 asection *section;
2480{
2481 arelent **generic;
2482 unsigned char *native, *natptr;
2483 size_t each_size;
2484
2485 unsigned int count = section->reloc_count;
2486 bfd_size_type natsize;
2487
2488 if (count == 0 || section->orelocation == NULL)
2489 return TRUE;
2490
2491 each_size = obj_reloc_entry_size (abfd);
2492 natsize = (bfd_size_type) each_size * count;
2493 native = (unsigned char *) bfd_zalloc (abfd, natsize);
2494 if (!native)
2495 return FALSE;
2496
2497 generic = section->orelocation;
2498
2499 if (each_size == RELOC_EXT_SIZE)
2500 {
2501 for (natptr = native;
2502 count != 0;
2503 --count, natptr += each_size, ++generic)
--- 7 unchanged lines hidden (view full) ---
2511 --count, natptr += each_size, ++generic)
2512 MY_swap_std_reloc_out (abfd, *generic,
2513 (struct reloc_std_external *) natptr);
2514 }
2515
2516 if (bfd_bwrite ((PTR) native, natsize, abfd) != natsize)
2517 {
2518 bfd_release (abfd, native);
2519 return FALSE;
2520 }
2521 bfd_release (abfd, native);
2522
2523 return TRUE;
2524}
2525
2526/* This is stupid. This function should be a boolean predicate. */
2527
2528long
2529NAME(aout,canonicalize_reloc) (abfd, section, relptr, symbols)
2530 bfd *abfd;
2531 sec_ptr section;
2532 arelent **relptr;
2533 asymbol **symbols;
2534{
2535 arelent *tblptr = section->relocation;
--- 36 unchanged lines hidden (view full) ---
2572 bfd *abfd;
2573 sec_ptr asect;
2574{
2575 if (bfd_get_format (abfd) != bfd_object)
2576 {
2577 bfd_set_error (bfd_error_invalid_operation);
2578 return -1;
2579 }
2580
2581 if (asect->flags & SEC_CONSTRUCTOR)
2582 return (sizeof (arelent *) * (asect->reloc_count+1));
2583
2584 if (asect == obj_datasec (abfd))
2585 return (sizeof (arelent *)
2586 * ((exec_hdr (abfd)->a_drsize / obj_reloc_entry_size (abfd))
2587 + 1));
2588
2589 if (asect == obj_textsec (abfd))
2590 return (sizeof (arelent *)
--- 101 unchanged lines hidden (view full) ---
2692
2693/* Read minisymbols. For minisymbols, we use the unmodified a.out
2694 symbols. The minisymbol_to_symbol function translates these into
2695 BFD asymbol structures. */
2696
2697long
2698NAME(aout,read_minisymbols) (abfd, dynamic, minisymsp, sizep)
2699 bfd *abfd;
2700 bfd_boolean dynamic;
2701 PTR *minisymsp;
2702 unsigned int *sizep;
2703{
2704 if (dynamic)
2705 {
2706 /* We could handle the dynamic symbols here as well, but it's
2707 easier to hand them off. */
2708 return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
--- 19 unchanged lines hidden (view full) ---
2728
2729/* Convert a minisymbol to a BFD asymbol. A minisymbol is just an
2730 unmodified a.out symbol. The SYM argument is a structure returned
2731 by bfd_make_empty_symbol, which we fill in here. */
2732
2733asymbol *
2734NAME(aout,minisymbol_to_symbol) (abfd, dynamic, minisym, sym)
2735 bfd *abfd;
2736 bfd_boolean dynamic;
2737 const PTR minisym;
2738 asymbol *sym;
2739{
2740 if (dynamic
2741 || obj_aout_external_sym_count (abfd) < MINISYM_THRESHOLD)
2742 return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
2743
2744 memset (sym, 0, sizeof (aout_symbol_type));
2745
2746 /* We call translate_symbol_table to translate a single symbol. */
2747 if (! (NAME(aout,translate_symbol_table)
2748 (abfd,
2749 (aout_symbol_type *) sym,
2750 (struct external_nlist *) minisym,
2751 (bfd_size_type) 1,
2752 obj_aout_external_strings (abfd),
2753 obj_aout_external_string_size (abfd),
2754 FALSE)))
2755 return NULL;
2756
2757 return sym;
2758}
2759
2760/* Provided a BFD, a section and an offset into the section, calculate
2761 and return the name of the source file and the line nearest to the
2762 wanted location. */
2763
2764bfd_boolean
2765NAME(aout,find_nearest_line)
2766 (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr)
2767 bfd *abfd;
2768 asection *section;
2769 asymbol **symbols;
2770 bfd_vma offset;
2771 const char **filename_ptr;
2772 const char **functionname_ptr;
2773 unsigned int *line_ptr;
2774{
2775 /* Run down the file looking for the filename, function and linenumber. */
2776 asymbol **p;
2777 const char *directory_name = NULL;
2778 const char *main_file_name = NULL;
2779 const char *current_file_name = NULL;
2780 const char *line_file_name = NULL; /* Value of current_file_name at line number. */
2781 const char *line_directory_name = NULL; /* Value of directory_name at line number. */
2782 bfd_vma low_line_vma = 0;
2783 bfd_vma low_func_vma = 0;
2784 asymbol *func = 0;
2785 bfd_size_type filelen, funclen;
2786 char *buf;
2787
2788 *filename_ptr = abfd->filename;
2789 *functionname_ptr = 0;
2790 *line_ptr = 0;
2791
2792 if (symbols != (asymbol **)NULL)
2793 {
2794 for (p = symbols; *p; p++)
2795 {
2796 aout_symbol_type *q = (aout_symbol_type *) (*p);
2797 next:
2798 switch (q->type)
2799 {
--- 71 unchanged lines hidden (view full) ---
2871 *line_ptr = q->desc;
2872 low_line_vma = q->symbol.value;
2873 line_file_name = current_file_name;
2874 line_directory_name = directory_name;
2875 }
2876 break;
2877 case N_FUN:
2878 {
2879 /* We'll keep this if it is nearer than the one we have already. */
2880 if (q->symbol.value >= low_func_vma &&
2881 q->symbol.value <= offset)
2882 {
2883 low_func_vma = q->symbol.value;
2884 func = (asymbol *)q;
2885 }
2886 else if (q->symbol.value > offset)
2887 goto done;
2888 }
2889 break;
2890 }
2891 }
2892 }
2893
--- 5 unchanged lines hidden (view full) ---
2899 }
2900
2901 if (main_file_name == NULL
2902 || IS_ABSOLUTE_PATH (main_file_name)
2903 || directory_name == NULL)
2904 filelen = 0;
2905 else
2906 filelen = strlen (directory_name) + strlen (main_file_name);
2907
2908 if (func == NULL)
2909 funclen = 0;
2910 else
2911 funclen = strlen (bfd_asymbol_name (func));
2912
2913 if (adata (abfd).line_buf != NULL)
2914 free (adata (abfd).line_buf);
2915
2916 if (filelen + funclen == 0)
2917 adata (abfd).line_buf = buf = NULL;
2918 else
2919 {
2920 buf = (char *) bfd_malloc (filelen + funclen + 3);
2921 adata (abfd).line_buf = buf;
2922 if (buf == NULL)
2923 return FALSE;
2924 }
2925
2926 if (main_file_name != NULL)
2927 {
2928 if (IS_ABSOLUTE_PATH (main_file_name) || directory_name == NULL)
2929 *filename_ptr = main_file_name;
2930 else
2931 {
--- 13 unchanged lines hidden (view full) ---
2945 underscore back in, so that the caller gets a symbol name. */
2946 if (bfd_get_symbol_leading_char (abfd) == '\0')
2947 strcpy (buf, function);
2948 else
2949 {
2950 buf[0] = bfd_get_symbol_leading_char (abfd);
2951 strcpy (buf + 1, function);
2952 }
2953 /* Have to remove : stuff. */
2954 colon = strchr (buf, ':');
2955 if (colon != NULL)
2956 *colon = '\0';
2957 *functionname_ptr = buf;
2958 }
2959
2960 return TRUE;
2961}
2962
2963int
2964NAME(aout,sizeof_headers) (abfd, execable)
2965 bfd *abfd;
2966 bfd_boolean execable ATTRIBUTE_UNUSED;
2967{
2968 return adata (abfd).exec_bytes_size;
2969}
2970
2971/* Free all information we have cached for this BFD. We can always
2972 read it again later if we need it. */
2973
2974bfd_boolean
2975NAME(aout,bfd_free_cached_info) (abfd)
2976 bfd *abfd;
2977{
2978 asection *o;
2979
2980 if (bfd_get_format (abfd) != bfd_object
2981 || abfd->tdata.aout_data == NULL)
2982 return TRUE;
2983
2984#define BFCI_FREE(x) if (x != NULL) { free (x); x = NULL; }
2985 BFCI_FREE (obj_aout_symbols (abfd));
2986#ifdef USE_MMAP
2987 obj_aout_external_syms (abfd) = 0;
2988 bfd_free_window (&obj_aout_sym_window (abfd));
2989 bfd_free_window (&obj_aout_string_window (abfd));
2990 obj_aout_external_strings (abfd) = 0;
2991#else
2992 BFCI_FREE (obj_aout_external_syms (abfd));
2993 BFCI_FREE (obj_aout_external_strings (abfd));
2994#endif
2995 for (o = abfd->sections; o != (asection *) NULL; o = o->next)
2996 BFCI_FREE (o->relocation);
2997#undef BFCI_FREE
2998
2999 return TRUE;
3000}
3001
3002/* a.out link code. */
3003
3004static bfd_boolean aout_link_add_object_symbols
3005 PARAMS ((bfd *, struct bfd_link_info *));
3006static bfd_boolean aout_link_check_archive_element
3007 PARAMS ((bfd *, struct bfd_link_info *, bfd_boolean *));
3008static bfd_boolean aout_link_free_symbols
3009 PARAMS ((bfd *));
3010static bfd_boolean aout_link_check_ar_symbols
3011 PARAMS ((bfd *, struct bfd_link_info *, bfd_boolean *pneeded));
3012static bfd_boolean aout_link_add_symbols
3013 PARAMS ((bfd *, struct bfd_link_info *));
3014
3015/* Routine to create an entry in an a.out link hash table. */
3016
3017struct bfd_hash_entry *
3018NAME(aout,link_hash_newfunc) (entry, table, string)
3019 struct bfd_hash_entry *entry;
3020 struct bfd_hash_table *table;
--- 11 unchanged lines hidden (view full) ---
3032
3033 /* Call the allocation method of the superclass. */
3034 ret = ((struct aout_link_hash_entry *)
3035 _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret,
3036 table, string));
3037 if (ret)
3038 {
3039 /* Set local fields. */
3040 ret->written = FALSE;
3041 ret->indx = -1;
3042 }
3043
3044 return (struct bfd_hash_entry *) ret;
3045}
3046
3047/* Initialize an a.out link hash table. */
3048
3049bfd_boolean
3050NAME(aout,link_hash_table_init) (table, abfd, newfunc)
3051 struct aout_link_hash_table *table;
3052 bfd *abfd;
3053 struct bfd_hash_entry *(*newfunc)
3054 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *,
3055 const char *));
3056{
3057 return _bfd_link_hash_table_init (&table->root, abfd, newfunc);
3058}
3059
3060/* Create an a.out link hash table. */
3061
3062struct bfd_link_hash_table *
3063NAME(aout,link_hash_table_create) (abfd)
3064 bfd *abfd;
3065{
3066 struct aout_link_hash_table *ret;
3067 bfd_size_type amt = sizeof (struct aout_link_hash_table);
3068
3069 ret = (struct aout_link_hash_table *) bfd_malloc (amt);
3070 if (ret == NULL)
3071 return (struct bfd_link_hash_table *) NULL;
3072
3073 if (! NAME(aout,link_hash_table_init) (ret, abfd,
3074 NAME(aout,link_hash_newfunc)))
3075 {
3076 free (ret);
3077 return (struct bfd_link_hash_table *) NULL;
3078 }
3079 return &ret->root;
3080}
3081
3082/* Given an a.out BFD, add symbols to the global hash table as
3083 appropriate. */
3084
3085bfd_boolean
3086NAME(aout,link_add_symbols) (abfd, info)
3087 bfd *abfd;
3088 struct bfd_link_info *info;
3089{
3090 switch (bfd_get_format (abfd))
3091 {
3092 case bfd_object:
3093 return aout_link_add_object_symbols (abfd, info);
3094 case bfd_archive:
3095 return _bfd_generic_link_add_archive_symbols
3096 (abfd, info, aout_link_check_archive_element);
3097 default:
3098 bfd_set_error (bfd_error_wrong_format);
3099 return FALSE;
3100 }
3101}
3102
3103/* Add symbols from an a.out object file. */
3104
3105static bfd_boolean
3106aout_link_add_object_symbols (abfd, info)
3107 bfd *abfd;
3108 struct bfd_link_info *info;
3109{
3110 if (! aout_get_external_symbols (abfd))
3111 return FALSE;
3112 if (! aout_link_add_symbols (abfd, info))
3113 return FALSE;
3114 if (! info->keep_memory)
3115 {
3116 if (! aout_link_free_symbols (abfd))
3117 return FALSE;
3118 }
3119 return TRUE;
3120}
3121
3122/* Check a single archive element to see if we need to include it in
3123 the link. *PNEEDED is set according to whether this element is
3124 needed in the link or not. This is called from
3125 _bfd_generic_link_add_archive_symbols. */
3126
3127static bfd_boolean
3128aout_link_check_archive_element (abfd, info, pneeded)
3129 bfd *abfd;
3130 struct bfd_link_info *info;
3131 bfd_boolean *pneeded;
3132{
3133 if (! aout_get_external_symbols (abfd))
3134 return FALSE;
3135
3136 if (! aout_link_check_ar_symbols (abfd, info, pneeded))
3137 return FALSE;
3138
3139 if (*pneeded)
3140 {
3141 if (! aout_link_add_symbols (abfd, info))
3142 return FALSE;
3143 }
3144
3145 if (! info->keep_memory || ! *pneeded)
3146 {
3147 if (! aout_link_free_symbols (abfd))
3148 return FALSE;
3149 }
3150
3151 return TRUE;
3152}
3153
3154/* Free up the internal symbols read from an a.out file. */
3155
3156static bfd_boolean
3157aout_link_free_symbols (abfd)
3158 bfd *abfd;
3159{
3160 if (obj_aout_external_syms (abfd) != (struct external_nlist *) NULL)
3161 {
3162#ifdef USE_MMAP
3163 bfd_free_window (&obj_aout_sym_window (abfd));
3164#else
--- 5 unchanged lines hidden (view full) ---
3170 {
3171#ifdef USE_MMAP
3172 bfd_free_window (&obj_aout_string_window (abfd));
3173#else
3174 free ((PTR) obj_aout_external_strings (abfd));
3175#endif
3176 obj_aout_external_strings (abfd) = (char *) NULL;
3177 }
3178 return TRUE;
3179}
3180
3181/* Look through the internal symbols to see if this object file should
3182 be included in the link. We should include this object file if it
3183 defines any symbols which are currently undefined. If this object
3184 file defines a common symbol, then we may adjust the size of the
3185 known symbol but we do not include the object file in the link
3186 (unless there is some other reason to include it). */
3187
3188static bfd_boolean
3189aout_link_check_ar_symbols (abfd, info, pneeded)
3190 bfd *abfd;
3191 struct bfd_link_info *info;
3192 bfd_boolean *pneeded;
3193{
3194 register struct external_nlist *p;
3195 struct external_nlist *pend;
3196 char *strings;
3197
3198 *pneeded = FALSE;
3199
3200 /* Look through all the symbols. */
3201 p = obj_aout_external_syms (abfd);
3202 pend = p + obj_aout_external_sym_count (abfd);
3203 strings = obj_aout_external_strings (abfd);
3204 for (; p < pend; p++)
3205 {
3206 int type = H_GET_8 (abfd, p->e_type);
--- 13 unchanged lines hidden (view full) ---
3220 {
3221 if (type == N_WARNING
3222 || type == N_INDR)
3223 ++p;
3224 continue;
3225 }
3226
3227 name = strings + GET_WORD (abfd, p->e_strx);
3228 h = bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);
3229
3230 /* We are only interested in symbols that are currently
3231 undefined or common. */
3232 if (h == (struct bfd_link_hash_entry *) NULL
3233 || (h->type != bfd_link_hash_undefined
3234 && h->type != bfd_link_hash_common))
3235 {
3236 if (type == (N_INDR | N_EXT))
--- 4 unchanged lines hidden (view full) ---
3241 if (type == (N_TEXT | N_EXT)
3242 || type == (N_DATA | N_EXT)
3243 || type == (N_BSS | N_EXT)
3244 || type == (N_ABS | N_EXT)
3245 || type == (N_INDR | N_EXT))
3246 {
3247 /* This object file defines this symbol. We must link it
3248 in. This is true regardless of whether the current
3249 definition of the symbol is undefined or common.
3250
3251 If the current definition is common, we have a case in
3252 which we have already seen an object file including:
3253 int a;
3254 and this object file from the archive includes:
3255 int a = 5;
3256 In such a case, whether to include this object is target
3257 dependant for backward compatibility.
3258
3259 FIXME: The SunOS 4.1.3 linker will pull in the archive
3260 element if the symbol is defined in the .data section,
3261 but not if it is defined in the .text section. That
3262 seems a bit crazy to me, and it has not been implemented
3263 yet. However, it might be correct. */
3264 if (h->type == bfd_link_hash_common)
3265 {
3266 int skip = 0;
3267
3268 switch (info->common_skip_ar_aymbols)
3269 {
3270 case bfd_link_common_skip_text:
3271 skip = (type == (N_TEXT | N_EXT));
3272 break;
3273 case bfd_link_common_skip_data:
3274 skip = (type == (N_DATA | N_EXT));
3275 break;
3276 default:
3277 case bfd_link_common_skip_all:
3278 skip = 1;
3279 break;
3280 }
3281
3282 if (skip)
3283 continue;
3284 }
3285
3286 if (! (*info->callbacks->add_archive_element) (info, abfd, name))
3287 return FALSE;
3288 *pneeded = TRUE;
3289 return TRUE;
3290 }
3291
3292 if (type == (N_UNDF | N_EXT))
3293 {
3294 bfd_vma value;
3295
3296 value = GET_WORD (abfd, p->e_value);
3297 if (value != 0)
--- 10 unchanged lines hidden (view full) ---
3308 {
3309 /* This symbol was created as undefined from
3310 outside BFD. We assume that we should link
3311 in the object file. This is done for the -u
3312 option in the linker. */
3313 if (! (*info->callbacks->add_archive_element) (info,
3314 abfd,
3315 name))
3316 return FALSE;
3317 *pneeded = TRUE;
3318 return TRUE;
3319 }
3320 /* Turn the current link symbol into a common
3321 symbol. It is already on the undefs list. */
3322 h->type = bfd_link_hash_common;
3323 h->u.c.p = ((struct bfd_link_hash_common_entry *)
3324 bfd_hash_allocate (&info->hash->table,
3325 sizeof (struct bfd_link_hash_common_entry)));
3326 if (h->u.c.p == NULL)
3327 return FALSE;
3328
3329 h->u.c.size = value;
3330
3331 /* FIXME: This isn't quite right. The maximum
3332 alignment of a common symbol should be set by the
3333 architecture of the output file, not of the input
3334 file. */
3335 power = bfd_log2 (value);
--- 20 unchanged lines hidden (view full) ---
3356 || type == N_WEAKB)
3357 {
3358 /* This symbol is weak but defined. We must pull it in if
3359 the current link symbol is undefined, but we don't want
3360 it if the current link symbol is common. */
3361 if (h->type == bfd_link_hash_undefined)
3362 {
3363 if (! (*info->callbacks->add_archive_element) (info, abfd, name))
3364 return FALSE;
3365 *pneeded = TRUE;
3366 return TRUE;
3367 }
3368 }
3369 }
3370
3371 /* We do not need this object file. */
3372 return TRUE;
3373}
3374
3375/* Add all symbols from an object file to the hash table. */
3376
3377static bfd_boolean
3378aout_link_add_symbols (abfd, info)
3379 bfd *abfd;
3380 struct bfd_link_info *info;
3381{
3382 bfd_boolean (*add_one_symbol)
3383 PARAMS ((struct bfd_link_info *, bfd *, const char *, flagword, asection *,
3384 bfd_vma, const char *, bfd_boolean, bfd_boolean,
3385 struct bfd_link_hash_entry **));
3386 struct external_nlist *syms;
3387 bfd_size_type sym_count;
3388 char *strings;
3389 bfd_boolean copy;
3390 struct aout_link_hash_entry **sym_hash;
3391 register struct external_nlist *p;
3392 struct external_nlist *pend;
3393 bfd_size_type amt;
3394
3395 syms = obj_aout_external_syms (abfd);
3396 sym_count = obj_aout_external_sym_count (abfd);
3397 strings = obj_aout_external_strings (abfd);
3398 if (info->keep_memory)
3399 copy = FALSE;
3400 else
3401 copy = TRUE;
3402
3403 if (aout_backend_info (abfd)->add_dynamic_symbols != NULL)
3404 {
3405 if (! ((*aout_backend_info (abfd)->add_dynamic_symbols)
3406 (abfd, info, &syms, &sym_count, &strings)))
3407 return FALSE;
3408 }
3409
3410 /* We keep a list of the linker hash table entries that correspond
3411 to particular symbols. We could just look them up in the hash
3412 table, but keeping the list is more efficient. Perhaps this
3413 should be conditional on info->keep_memory. */
3414 amt = sym_count * sizeof (struct aout_link_hash_entry *);
3415 sym_hash = (struct aout_link_hash_entry **) bfd_alloc (abfd, amt);
3416 if (sym_hash == NULL && sym_count != 0)
3417 return FALSE;
3418 obj_aout_sym_hashes (abfd) = sym_hash;
3419
3420 add_one_symbol = aout_backend_info (abfd)->add_one_symbol;
3421 if (add_one_symbol == NULL)
3422 add_one_symbol = _bfd_generic_link_add_one_symbol;
3423
3424 p = syms;
3425 pend = p + sym_count;
--- 129 unchanged lines hidden (view full) ---
3555 case N_WEAKB:
3556 section = obj_bsssec (abfd);
3557 value -= bfd_get_section_vma (abfd, section);
3558 flags = BSF_WEAK;
3559 break;
3560 }
3561
3562 if (! ((*add_one_symbol)
3563 (info, abfd, name, flags, section, value, string, copy, FALSE,
3564 (struct bfd_link_hash_entry **) sym_hash)))
3565 return FALSE;
3566
3567 /* Restrict the maximum alignment of a common symbol based on
3568 the architecture, since a.out has no way to represent
3569 alignment requirements of a section in a .o file. FIXME:
3570 This isn't quite right: it should use the architecture of the
3571 output file, not the input files. */
3572 if ((*sym_hash)->root.type == bfd_link_hash_common
3573 && ((*sym_hash)->root.u.c.p->alignment_power >
--- 9 unchanged lines hidden (view full) ---
3583 BFD_ASSERT ((flags & BSF_CONSTRUCTOR) != 0);
3584 *sym_hash = NULL;
3585 }
3586
3587 if (type == (N_INDR | N_EXT) || type == N_WARNING)
3588 ++sym_hash;
3589 }
3590
3591 return TRUE;
3592}
3593
3594/* A hash table used for header files with N_BINCL entries. */
3595
3596struct aout_link_includes_table
3597{
3598 struct bfd_hash_table root;
3599};
--- 46 unchanged lines hidden (view full) ---
3646 /* A buffer large enough to hold the symbol map of any input BFD. */
3647 int *symbol_map;
3648 /* A buffer large enough to hold output symbols of any input BFD. */
3649 struct external_nlist *output_syms;
3650};
3651
3652static struct bfd_hash_entry *aout_link_includes_newfunc
3653 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
3654static bfd_boolean aout_link_input_bfd
3655 PARAMS ((struct aout_final_link_info *, bfd *input_bfd));
3656static bfd_boolean aout_link_write_symbols
3657 PARAMS ((struct aout_final_link_info *, bfd *input_bfd));
3658static bfd_boolean aout_link_write_other_symbol
3659 PARAMS ((struct aout_link_hash_entry *, PTR));
3660static bfd_boolean aout_link_input_section
3661 PARAMS ((struct aout_final_link_info *, bfd *input_bfd,
3662 asection *input_section, file_ptr *reloff_ptr,
3663 bfd_size_type rel_size));
3664static bfd_boolean aout_link_input_section_std
3665 PARAMS ((struct aout_final_link_info *, bfd *input_bfd,
3666 asection *input_section, struct reloc_std_external *,
3667 bfd_size_type rel_size, bfd_byte *contents));
3668static bfd_boolean aout_link_input_section_ext
3669 PARAMS ((struct aout_final_link_info *, bfd *input_bfd,
3670 asection *input_section, struct reloc_ext_external *,
3671 bfd_size_type rel_size, bfd_byte *contents));
3672static INLINE asection *aout_reloc_index_to_section
3673 PARAMS ((bfd *, int));
3674static bfd_boolean aout_link_reloc_link_order
3675 PARAMS ((struct aout_final_link_info *, asection *,
3676 struct bfd_link_order *));
3677
3678/* The function to create a new entry in the header file hash table. */
3679
3680static struct bfd_hash_entry *
3681aout_link_includes_newfunc (entry, table, string)
3682 struct bfd_hash_entry *entry;
--- 26 unchanged lines hidden (view full) ---
3709
3710/* Do the final link step. This is called on the output BFD. The
3711 INFO structure should point to a list of BFDs linked through the
3712 link_next field which can be used to find each BFD which takes part
3713 in the output. Also, each section in ABFD should point to a list
3714 of bfd_link_order structures which list all the input sections for
3715 the output section. */
3716
3717bfd_boolean
3718NAME(aout,final_link) (abfd, info, callback)
3719 bfd *abfd;
3720 struct bfd_link_info *info;
3721 void (*callback) PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));
3722{
3723 struct aout_final_link_info aout_info;
3724 bfd_boolean includes_hash_initialized = FALSE;
3725 register bfd *sub;
3726 bfd_size_type trsize, drsize;
3727 bfd_size_type max_contents_size;
3728 bfd_size_type max_relocs_size;
3729 bfd_size_type max_sym_count;
3730 bfd_size_type text_size;
3731 file_ptr text_end;
3732 register struct bfd_link_order *p;
3733 asection *o;
3734 bfd_boolean have_link_order_relocs;
3735
3736 if (info->shared)
3737 abfd->flags |= DYNAMIC;
3738
3739 aout_info.info = info;
3740 aout_info.output_bfd = abfd;
3741 aout_info.contents = NULL;
3742 aout_info.relocs = NULL;
3743 aout_info.symbol_map = NULL;
3744 aout_info.output_syms = NULL;
3745
3746 if (! bfd_hash_table_init_n (&aout_info.includes.root,
3747 aout_link_includes_newfunc,
3748 251))
3749 goto error_return;
3750 includes_hash_initialized = TRUE;
3751
3752 /* Figure out the largest section size. Also, if generating
3753 relocatable output, count the relocs. */
3754 trsize = 0;
3755 drsize = 0;
3756 max_contents_size = 0;
3757 max_relocs_size = 0;
3758 max_sym_count = 0;
3759 for (sub = info->input_bfds; sub != NULL; sub = sub->link_next)
3760 {
3761 bfd_size_type sz;
3762
3763 if (info->relocatable)
3764 {
3765 if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
3766 {
3767 trsize += exec_hdr (sub)->a_trsize;
3768 drsize += exec_hdr (sub)->a_drsize;
3769 }
3770 else
3771 {
3772 /* FIXME: We need to identify the .text and .data sections
3773 and call get_reloc_upper_bound and canonicalize_reloc to
3774 work out the number of relocs needed, and then multiply
3775 by the reloc size. */
3776 (*_bfd_error_handler)
3777 (_("%s: relocatable link from %s to %s not supported"),
3778 bfd_get_filename (abfd),
3779 sub->xvec->name, abfd->xvec->name);
3780 bfd_set_error (bfd_error_invalid_operation);
3781 goto error_return;
3782 }
3783 }
3784
3785 if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
--- 13 unchanged lines hidden (view full) ---
3799 max_relocs_size = sz;
3800
3801 sz = obj_aout_external_sym_count (sub);
3802 if (sz > max_sym_count)
3803 max_sym_count = sz;
3804 }
3805 }
3806
3807 if (info->relocatable)
3808 {
3809 if (obj_textsec (abfd) != (asection *) NULL)
3810 trsize += (_bfd_count_link_order_relocs (obj_textsec (abfd)
3811 ->link_order_head)
3812 * obj_reloc_entry_size (abfd));
3813 if (obj_datasec (abfd) != (asection *) NULL)
3814 drsize += (_bfd_count_link_order_relocs (obj_datasec (abfd)
3815 ->link_order_head)
--- 49 unchanged lines hidden (view full) ---
3865 /* If we have a symbol named __DYNAMIC, force it out now. This is
3866 required by SunOS. Doing this here rather than in sunos.c is a
3867 hack, but it's easier than exporting everything which would be
3868 needed. */
3869 {
3870 struct aout_link_hash_entry *h;
3871
3872 h = aout_link_hash_lookup (aout_hash_table (info), "__DYNAMIC",
3873 FALSE, FALSE, FALSE);
3874 if (h != NULL)
3875 aout_link_write_other_symbol (h, &aout_info);
3876 }
3877
3878 /* The most time efficient way to do the link would be to read all
3879 the input object files into memory and then sort out the
3880 information into the output file. Unfortunately, that will
3881 probably use too much memory. Another method would be to step
--- 10 unchanged lines hidden (view full) ---
3892 out the symbols--and then we throw away the information we read
3893 from it. This approach requires a lot of lseeks of the output
3894 file, which is unfortunate but still faster than reopening a lot
3895 of files.
3896
3897 We use the output_has_begun field of the input BFDs to see
3898 whether we have already handled it. */
3899 for (sub = info->input_bfds; sub != (bfd *) NULL; sub = sub->link_next)
3900 sub->output_has_begun = FALSE;
3901
3902 /* Mark all sections which are to be included in the link. This
3903 will normally be every section. We need to do this so that we
3904 can identify any sections which the linker has decided to not
3905 include. */
3906 for (o = abfd->sections; o != NULL; o = o->next)
3907 {
3908 for (p = o->link_order_head; p != NULL; p = p->next)
3909 if (p->type == bfd_indirect_link_order)
3910 p->u.indirect.section->linker_mark = TRUE;
3911 }
3912
3913 have_link_order_relocs = FALSE;
3914 for (o = abfd->sections; o != (asection *) NULL; o = o->next)
3915 {
3916 for (p = o->link_order_head;
3917 p != (struct bfd_link_order *) NULL;
3918 p = p->next)
3919 {
3920 if (p->type == bfd_indirect_link_order
3921 && (bfd_get_flavour (p->u.indirect.section->owner)
3922 == bfd_target_aout_flavour))
3923 {
3924 bfd *input_bfd;
3925
3926 input_bfd = p->u.indirect.section->owner;
3927 if (! input_bfd->output_has_begun)
3928 {
3929 if (! aout_link_input_bfd (&aout_info, input_bfd))
3930 goto error_return;
3931 input_bfd->output_has_begun = TRUE;
3932 }
3933 }
3934 else if (p->type == bfd_section_reloc_link_order
3935 || p->type == bfd_symbol_reloc_link_order)
3936 {
3937 /* These are handled below. */
3938 have_link_order_relocs = TRUE;
3939 }
3940 else
3941 {
3942 if (! _bfd_default_link_order (abfd, info, o, p))
3943 goto error_return;
3944 }
3945 }
3946 }
--- 43 unchanged lines hidden (view full) ---
3990 if (aout_info.output_syms != NULL)
3991 {
3992 free (aout_info.output_syms);
3993 aout_info.output_syms = NULL;
3994 }
3995 if (includes_hash_initialized)
3996 {
3997 bfd_hash_table_free (&aout_info.includes.root);
3998 includes_hash_initialized = FALSE;
3999 }
4000
4001 /* Finish up any dynamic linking we may be doing. */
4002 if (aout_backend_info (abfd)->finish_dynamic_link != NULL)
4003 {
4004 if (! (*aout_backend_info (abfd)->finish_dynamic_link) (abfd, info))
4005 goto error_return;
4006 }
--- 22 unchanged lines hidden (view full) ---
4029
4030 b = 0;
4031 pos = obj_datasec (abfd)->filepos + exec_hdr (abfd)->a_data - 1;
4032 if (bfd_seek (abfd, pos, SEEK_SET) != 0
4033 || bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
4034 goto error_return;
4035 }
4036
4037 return TRUE;
4038
4039 error_return:
4040 if (aout_info.contents != NULL)
4041 free (aout_info.contents);
4042 if (aout_info.relocs != NULL)
4043 free (aout_info.relocs);
4044 if (aout_info.symbol_map != NULL)
4045 free (aout_info.symbol_map);
4046 if (aout_info.output_syms != NULL)
4047 free (aout_info.output_syms);
4048 if (includes_hash_initialized)
4049 bfd_hash_table_free (&aout_info.includes.root);
4050 return FALSE;
4051}
4052
4053/* Link an a.out input BFD into the output file. */
4054
4055static bfd_boolean
4056aout_link_input_bfd (finfo, input_bfd)
4057 struct aout_final_link_info *finfo;
4058 bfd *input_bfd;
4059{
4060 bfd_size_type sym_count;
4061
4062 BFD_ASSERT (bfd_get_format (input_bfd) == bfd_object);
4063
4064 /* If this is a dynamic object, it may need special handling. */
4065 if ((input_bfd->flags & DYNAMIC) != 0
4066 && aout_backend_info (input_bfd)->link_dynamic_object != NULL)
4067 {
4068 return ((*aout_backend_info (input_bfd)->link_dynamic_object)
4069 (finfo->info, input_bfd));
4070 }
4071
4072 /* Get the symbols. We probably have them already, unless
4073 finfo->info->keep_memory is FALSE. */
4074 if (! aout_get_external_symbols (input_bfd))
4075 return FALSE;
4076
4077 sym_count = obj_aout_external_sym_count (input_bfd);
4078
4079 /* Write out the symbols and get a map of the new indices. The map
4080 is placed into finfo->symbol_map. */
4081 if (! aout_link_write_symbols (finfo, input_bfd))
4082 return FALSE;
4083
4084 /* Relocate and write out the sections. These functions use the
4085 symbol map created by aout_link_write_symbols. The linker_mark
4086 field will be set if these sections are to be included in the
4087 link, which will normally be the case. */
4088 if (obj_textsec (input_bfd)->linker_mark)
4089 {
4090 if (! aout_link_input_section (finfo, input_bfd,
4091 obj_textsec (input_bfd),
4092 &finfo->treloff,
4093 exec_hdr (input_bfd)->a_trsize))
4094 return FALSE;
4095 }
4096 if (obj_datasec (input_bfd)->linker_mark)
4097 {
4098 if (! aout_link_input_section (finfo, input_bfd,
4099 obj_datasec (input_bfd),
4100 &finfo->dreloff,
4101 exec_hdr (input_bfd)->a_drsize))
4102 return FALSE;
4103 }
4104
4105 /* If we are not keeping memory, we don't need the symbols any
4106 longer. We still need them if we are keeping memory, because the
4107 strings in the hash table point into them. */
4108 if (! finfo->info->keep_memory)
4109 {
4110 if (! aout_link_free_symbols (input_bfd))
4111 return FALSE;
4112 }
4113
4114 return TRUE;
4115}
4116
4117/* Adjust and write out the symbols for an a.out file. Set the new
4118 symbol indices into a symbol_map. */
4119
4120static bfd_boolean
4121aout_link_write_symbols (finfo, input_bfd)
4122 struct aout_final_link_info *finfo;
4123 bfd *input_bfd;
4124{
4125 bfd *output_bfd;
4126 bfd_size_type sym_count;
4127 char *strings;
4128 enum bfd_link_strip strip;
4129 enum bfd_link_discard discard;
4130 struct external_nlist *outsym;
4131 bfd_size_type strtab_index;
4132 register struct external_nlist *sym;
4133 struct external_nlist *sym_end;
4134 struct aout_link_hash_entry **sym_hash;
4135 int *symbol_map;
4136 bfd_boolean pass;
4137 bfd_boolean skip_next;
4138
4139 output_bfd = finfo->output_bfd;
4140 sym_count = obj_aout_external_sym_count (input_bfd);
4141 strings = obj_aout_external_strings (input_bfd);
4142 strip = finfo->info->strip;
4143 discard = finfo->info->discard;
4144 outsym = finfo->output_syms;
4145
4146 /* First write out a symbol for this object file, unless we are
4147 discarding such symbols. */
4148 if (strip != strip_all
4149 && (strip != strip_some
4150 || bfd_hash_lookup (finfo->info->keep_hash, input_bfd->filename,
4151 FALSE, FALSE) != NULL)
4152 && discard != discard_all)
4153 {
4154 H_PUT_8 (output_bfd, N_TEXT, outsym->e_type);
4155 H_PUT_8 (output_bfd, 0, outsym->e_other);
4156 H_PUT_16 (output_bfd, 0, outsym->e_desc);
4157 strtab_index = add_to_stringtab (output_bfd, finfo->strtab,
4158 input_bfd->filename, FALSE);
4159 if (strtab_index == (bfd_size_type) -1)
4160 return FALSE;
4161 PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
4162 PUT_WORD (output_bfd,
4163 (bfd_get_section_vma (output_bfd,
4164 obj_textsec (input_bfd)->output_section)
4165 + obj_textsec (input_bfd)->output_offset),
4166 outsym->e_value);
4167 ++obj_aout_external_sym_count (output_bfd);
4168 ++outsym;
4169 }
4170
4171 pass = FALSE;
4172 skip_next = FALSE;
4173 sym = obj_aout_external_syms (input_bfd);
4174 sym_end = sym + sym_count;
4175 sym_hash = obj_aout_sym_hashes (input_bfd);
4176 symbol_map = finfo->symbol_map;
4177 memset (symbol_map, 0, (size_t) sym_count * sizeof *symbol_map);
4178 for (; sym < sym_end; sym++, sym_hash++, symbol_map++)
4179 {
4180 const char *name;
4181 int type;
4182 struct aout_link_hash_entry *h;
4183 bfd_boolean skip;
4184 asection *symsec;
4185 bfd_vma val = 0;
4186 bfd_boolean copy;
4187
4188 /* We set *symbol_map to 0 above for all symbols. If it has
4189 already been set to -1 for this symbol, it means that we are
4190 discarding it because it appears in a duplicate header file.
4191 See the N_BINCL code below. */
4192 if (*symbol_map == -1)
4193 continue;
4194
--- 7 unchanged lines hidden (view full) ---
4202
4203 h = NULL;
4204
4205 if (pass)
4206 {
4207 /* Pass this symbol through. It is the target of an
4208 indirect or warning symbol. */
4209 val = GET_WORD (input_bfd, sym->e_value);
4210 pass = FALSE;
4211 }
4212 else if (skip_next)
4213 {
4214 /* Skip this symbol, which is the target of an indirect
4215 symbol that we have changed to no longer be an indirect
4216 symbol. */
4217 skip_next = FALSE;
4218 continue;
4219 }
4220 else
4221 {
4222 struct aout_link_hash_entry *hresolve;
4223
4224 /* We have saved the hash table entry for this symbol, if
4225 there is one. Note that we could just look it up again
--- 25 unchanged lines hidden (view full) ---
4251 }
4252
4253 /* If the symbol has already been written out, skip it. */
4254 if (h != (struct aout_link_hash_entry *) NULL
4255 && h->written)
4256 {
4257 if ((type & N_TYPE) == N_INDR
4258 || type == N_WARNING)
4259 skip_next = TRUE;
4260 *symbol_map = h->indx;
4261 continue;
4262 }
4263
4264 /* See if we are stripping this symbol. */
4265 skip = FALSE;
4266 switch (strip)
4267 {
4268 case strip_none:
4269 break;
4270 case strip_debugger:
4271 if ((type & N_STAB) != 0)
4272 skip = TRUE;
4273 break;
4274 case strip_some:
4275 if (bfd_hash_lookup (finfo->info->keep_hash, name, FALSE, FALSE)
4276 == NULL)
4277 skip = TRUE;
4278 break;
4279 case strip_all:
4280 skip = TRUE;
4281 break;
4282 }
4283 if (skip)
4284 {
4285 if (h != (struct aout_link_hash_entry *) NULL)
4286 h->written = TRUE;
4287 continue;
4288 }
4289
4290 /* Get the value of the symbol. */
4291 if ((type & N_TYPE) == N_TEXT
4292 || type == N_WEAKT)
4293 symsec = obj_textsec (input_bfd);
4294 else if ((type & N_TYPE) == N_DATA
--- 12 unchanged lines hidden (view full) ---
4307 && hresolve->root.type != bfd_link_hash_common)))
4308 || type == N_WARNING)
4309 {
4310 /* Pass the next symbol through unchanged. The
4311 condition above for indirect symbols is so that if
4312 the indirect symbol was defined, we output it with
4313 the correct definition so the debugger will
4314 understand it. */
4315 pass = TRUE;
4316 val = GET_WORD (input_bfd, sym->e_value);
4317 symsec = NULL;
4318 }
4319 else if ((type & N_STAB) != 0)
4320 {
4321 val = GET_WORD (input_bfd, sym->e_value);
4322 symsec = NULL;
4323 }
4324 else
4325 {
4326 /* If we get here with an indirect symbol, it means that
4327 we are outputting it with a real definition. In such
4328 a case we do not want to output the next symbol,
4329 which is the target of the indirection. */
4330 if ((type & N_TYPE) == N_INDR)
4331 skip_next = TRUE;
4332
4333 symsec = NULL;
4334
4335 /* We need to get the value from the hash table. We use
4336 hresolve so that if we have defined an indirect
4337 symbol we output the final definition. */
4338 if (h == (struct aout_link_hash_entry *) NULL)
4339 {
--- 75 unchanged lines hidden (view full) ---
4415 + symsec->output_offset
4416 + (GET_WORD (input_bfd, sym->e_value)
4417 - symsec->vma));
4418
4419 /* If this is a global symbol set the written flag, and if
4420 it is a local symbol see if we should discard it. */
4421 if (h != (struct aout_link_hash_entry *) NULL)
4422 {
4423 h->written = TRUE;
4424 h->indx = obj_aout_external_sym_count (output_bfd);
4425 }
4426 else if ((type & N_TYPE) != N_SETT
4427 && (type & N_TYPE) != N_SETD
4428 && (type & N_TYPE) != N_SETB
4429 && (type & N_TYPE) != N_SETA)
4430 {
4431 switch (discard)
4432 {
4433 case discard_none:
4434 case discard_sec_merge:
4435 break;
4436 case discard_l:
4437 if ((type & N_STAB) == 0
4438 && bfd_is_local_label_name (input_bfd, name))
4439 skip = TRUE;
4440 break;
4441 case discard_all:
4442 skip = TRUE;
4443 break;
4444 }
4445 if (skip)
4446 {
4447 pass = FALSE;
4448 continue;
4449 }
4450 }
4451
4452 /* An N_BINCL symbol indicates the start of the stabs
4453 entries for a header file. We need to scan ahead to the
4454 next N_EINCL symbol, ignoring nesting, adding up all the
4455 characters in the symbol names, not including the file
--- 39 unchanged lines hidden (view full) ---
4495 }
4496 }
4497 }
4498 }
4499
4500 /* If we have already included a header file with the
4501 same value, then replace this one with an N_EXCL
4502 symbol. */
4503 copy = (bfd_boolean) (! finfo->info->keep_memory);
4504 incl_entry = aout_link_includes_lookup (&finfo->includes,
4505 name, TRUE, copy);
4506 if (incl_entry == NULL)
4507 return FALSE;
4508 for (t = incl_entry->totals; t != NULL; t = t->next)
4509 if (t->total == val)
4510 break;
4511 if (t == NULL)
4512 {
4513 /* This is the first time we have seen this header
4514 file with this set of stabs strings. */
4515 t = ((struct aout_link_includes_totals *)
4516 bfd_hash_allocate (&finfo->includes.root,
4517 sizeof *t));
4518 if (t == NULL)
4519 return FALSE;
4520 t->total = val;
4521 t->next = incl_entry->totals;
4522 incl_entry->totals = t;
4523 }
4524 else
4525 {
4526 int *incl_map;
4527
--- 28 unchanged lines hidden (view full) ---
4556 }
4557 }
4558
4559 /* Copy this symbol into the list of symbols we are going to
4560 write out. */
4561 H_PUT_8 (output_bfd, type, outsym->e_type);
4562 H_PUT_8 (output_bfd, H_GET_8 (input_bfd, sym->e_other), outsym->e_other);
4563 H_PUT_16 (output_bfd, H_GET_16 (input_bfd, sym->e_desc), outsym->e_desc);
4564 copy = FALSE;
4565 if (! finfo->info->keep_memory)
4566 {
4567 /* name points into a string table which we are going to
4568 free. If there is a hash table entry, use that string.
4569 Otherwise, copy name into memory. */
4570 if (h != (struct aout_link_hash_entry *) NULL)
4571 name = h->root.root.string;
4572 else
4573 copy = TRUE;
4574 }
4575 strtab_index = add_to_stringtab (output_bfd, finfo->strtab,
4576 name, copy);
4577 if (strtab_index == (bfd_size_type) -1)
4578 return FALSE;
4579 PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
4580 PUT_WORD (output_bfd, val, outsym->e_value);
4581 *symbol_map = obj_aout_external_sym_count (output_bfd);
4582 ++obj_aout_external_sym_count (output_bfd);
4583 ++outsym;
4584 }
4585
4586 /* Write out the output symbols we have just constructed. */
4587 if (outsym > finfo->output_syms)
4588 {
4589 bfd_size_type outsym_size;
4590
4591 if (bfd_seek (output_bfd, finfo->symoff, SEEK_SET) != 0)
4592 return FALSE;
4593 outsym_size = outsym - finfo->output_syms;
4594 outsym_size *= EXTERNAL_NLIST_SIZE;
4595 if (bfd_bwrite ((PTR) finfo->output_syms, outsym_size, output_bfd)
4596 != outsym_size)
4597 return FALSE;
4598 finfo->symoff += outsym_size;
4599 }
4600
4601 return TRUE;
4602}
4603
4604/* Write out a symbol that was not associated with an a.out input
4605 object. */
4606
4607static bfd_boolean
4608aout_link_write_other_symbol (h, data)
4609 struct aout_link_hash_entry *h;
4610 PTR data;
4611{
4612 struct aout_final_link_info *finfo = (struct aout_final_link_info *) data;
4613 bfd *output_bfd;
4614 int type;
4615 bfd_vma val;
4616 struct external_nlist outsym;
4617 bfd_size_type indx;
4618 bfd_size_type amt;
4619
4620 if (h->root.type == bfd_link_hash_warning)
4621 {
4622 h = (struct aout_link_hash_entry *) h->root.u.i.link;
4623 if (h->root.type == bfd_link_hash_new)
4624 return TRUE;
4625 }
4626
4627 output_bfd = finfo->output_bfd;
4628
4629 if (aout_backend_info (output_bfd)->write_dynamic_symbol != NULL)
4630 {
4631 if (! ((*aout_backend_info (output_bfd)->write_dynamic_symbol)
4632 (output_bfd, finfo->info, h)))
4633 {
4634 /* FIXME: No way to handle errors. */
4635 abort ();
4636 }
4637 }
4638
4639 if (h->written)
4640 return TRUE;
4641
4642 h->written = TRUE;
4643
4644 /* An indx of -2 means the symbol must be written. */
4645 if (h->indx != -2
4646 && (finfo->info->strip == strip_all
4647 || (finfo->info->strip == strip_some
4648 && bfd_hash_lookup (finfo->info->keep_hash, h->root.root.string,
4649 FALSE, FALSE) == NULL)))
4650 return TRUE;
4651
4652 switch (h->root.type)
4653 {
4654 default:
4655 case bfd_link_hash_warning:
4656 abort ();
4657 /* Avoid variable not initialized warnings. */
4658 return TRUE;
4659 case bfd_link_hash_new:
4660 /* This can happen for set symbols when sets are not being
4661 built. */
4662 return TRUE;
4663 case bfd_link_hash_undefined:
4664 type = N_UNDF | N_EXT;
4665 val = 0;
4666 break;
4667 case bfd_link_hash_defined:
4668 case bfd_link_hash_defweak:
4669 {
4670 asection *sec;
--- 20 unchanged lines hidden (view full) ---
4691 val = h->root.u.c.size;
4692 break;
4693 case bfd_link_hash_undefweak:
4694 type = N_WEAKU;
4695 val = 0;
4696 case bfd_link_hash_indirect:
4697 /* We ignore these symbols, since the indirected symbol is
4698 already in the hash table. */
4699 return TRUE;
4700 }
4701
4702 H_PUT_8 (output_bfd, type, outsym.e_type);
4703 H_PUT_8 (output_bfd, 0, outsym.e_other);
4704 H_PUT_16 (output_bfd, 0, outsym.e_desc);
4705 indx = add_to_stringtab (output_bfd, finfo->strtab, h->root.root.string,
4706 FALSE);
4707 if (indx == - (bfd_size_type) 1)
4708 {
4709 /* FIXME: No way to handle errors. */
4710 abort ();
4711 }
4712 PUT_WORD (output_bfd, indx, outsym.e_strx);
4713 PUT_WORD (output_bfd, val, outsym.e_value);
4714
--- 4 unchanged lines hidden (view full) ---
4719 /* FIXME: No way to handle errors. */
4720 abort ();
4721 }
4722
4723 finfo->symoff += EXTERNAL_NLIST_SIZE;
4724 h->indx = obj_aout_external_sym_count (output_bfd);
4725 ++obj_aout_external_sym_count (output_bfd);
4726
4727 return TRUE;
4728}
4729
4730/* Link an a.out section into the output file. */
4731
4732static bfd_boolean
4733aout_link_input_section (finfo, input_bfd, input_section, reloff_ptr,
4734 rel_size)
4735 struct aout_final_link_info *finfo;
4736 bfd *input_bfd;
4737 asection *input_section;
4738 file_ptr *reloff_ptr;
4739 bfd_size_type rel_size;
4740{
4741 bfd_size_type input_size;
4742 PTR relocs;
4743
4744 /* Get the section contents. */
4745 input_size = bfd_section_size (input_bfd, input_section);
4746 if (! bfd_get_section_contents (input_bfd, input_section,
4747 (PTR) finfo->contents,
4748 (file_ptr) 0, input_size))
4749 return FALSE;
4750
4751 /* Read in the relocs if we haven't already done it. */
4752 if (aout_section_data (input_section) != NULL
4753 && aout_section_data (input_section)->relocs != NULL)
4754 relocs = aout_section_data (input_section)->relocs;
4755 else
4756 {
4757 relocs = finfo->relocs;
4758 if (rel_size > 0)
4759 {
4760 if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0
4761 || bfd_bread (relocs, rel_size, input_bfd) != rel_size)
4762 return FALSE;
4763 }
4764 }
4765
4766 /* Relocate the section contents. */
4767 if (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE)
4768 {
4769 if (! aout_link_input_section_std (finfo, input_bfd, input_section,
4770 (struct reloc_std_external *) relocs,
4771 rel_size, finfo->contents))
4772 return FALSE;
4773 }
4774 else
4775 {
4776 if (! aout_link_input_section_ext (finfo, input_bfd, input_section,
4777 (struct reloc_ext_external *) relocs,
4778 rel_size, finfo->contents))
4779 return FALSE;
4780 }
4781
4782 /* Write out the section contents. */
4783 if (! bfd_set_section_contents (finfo->output_bfd,
4784 input_section->output_section,
4785 (PTR) finfo->contents,
4786 (file_ptr) input_section->output_offset,
4787 input_size))
4788 return FALSE;
4789
4790 /* If we are producing relocatable output, the relocs were
4791 modified, and we now write them out. */
4792 if (finfo->info->relocatable && rel_size > 0)
4793 {
4794 if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0)
4795 return FALSE;
4796 if (bfd_bwrite (relocs, rel_size, finfo->output_bfd) != rel_size)
4797 return FALSE;
4798 *reloff_ptr += rel_size;
4799
4800 /* Assert that the relocs have not run into the symbols, and
4801 that if these are the text relocs they have not run into the
4802 data relocs. */
4803 BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd)
4804 && (reloff_ptr != &finfo->treloff
4805 || (*reloff_ptr
4806 <= obj_datasec (finfo->output_bfd)->rel_filepos)));
4807 }
4808
4809 return TRUE;
4810}
4811
4812/* Get the section corresponding to a reloc index. */
4813
4814static INLINE asection *
4815aout_reloc_index_to_section (abfd, indx)
4816 bfd *abfd;
4817 int indx;
--- 13 unchanged lines hidden (view full) ---
4831 abort ();
4832 }
4833 /*NOTREACHED*/
4834 return NULL;
4835}
4836
4837/* Relocate an a.out section using standard a.out relocs. */
4838
4839static bfd_boolean
4840aout_link_input_section_std (finfo, input_bfd, input_section, relocs,
4841 rel_size, contents)
4842 struct aout_final_link_info *finfo;
4843 bfd *input_bfd;
4844 asection *input_section;
4845 struct reloc_std_external *relocs;
4846 bfd_size_type rel_size;
4847 bfd_byte *contents;
4848{
4849 bfd_boolean (*check_dynamic_reloc)
4850 PARAMS ((struct bfd_link_info *, bfd *, asection *,
4851 struct aout_link_hash_entry *, PTR, bfd_byte *, bfd_boolean *,
4852 bfd_vma *));
4853 bfd *output_bfd;
4854 bfd_boolean relocatable;
4855 struct external_nlist *syms;
4856 char *strings;
4857 struct aout_link_hash_entry **sym_hashes;
4858 int *symbol_map;
4859 bfd_size_type reloc_count;
4860 register struct reloc_std_external *rel;
4861 struct reloc_std_external *rel_end;
4862
4863 output_bfd = finfo->output_bfd;
4864 check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;
4865
4866 BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE);
4867 BFD_ASSERT (input_bfd->xvec->header_byteorder
4868 == output_bfd->xvec->header_byteorder);
4869
4870 relocatable = finfo->info->relocatable;
4871 syms = obj_aout_external_syms (input_bfd);
4872 strings = obj_aout_external_strings (input_bfd);
4873 sym_hashes = obj_aout_sym_hashes (input_bfd);
4874 symbol_map = finfo->symbol_map;
4875
4876 reloc_count = rel_size / RELOC_STD_SIZE;
4877 rel = relocs;
4878 rel_end = rel + reloc_count;
--- 52 unchanged lines hidden (view full) ---
4931
4932 howto_idx = (r_length + 4 * r_pcrel + 8 * r_baserel
4933 + 16 * r_jmptable + 32 * r_relative);
4934 BFD_ASSERT (howto_idx < TABLE_SIZE (howto_table_std));
4935 howto = howto_table_std + howto_idx;
4936 }
4937#endif
4938
4939 if (relocatable)
4940 {
4941 /* We are generating a relocatable output file, and must
4942 modify the reloc accordingly. */
4943 if (r_extern)
4944 {
4945 /* If we know the symbol this relocation is against,
4946 convert it into a relocation against a section. This
4947 is what the native linker does. */
4948 h = sym_hashes[r_index];
4949 if (h != (struct aout_link_hash_entry *) NULL
--- 38 unchanged lines hidden (view full) ---
4988 /* We decided to strip this symbol, but it
4989 turns out that we can't. Note that we
4990 lose the other and desc information here.
4991 I don't think that will ever matter for a
4992 global symbol. */
4993 if (h->indx < 0)
4994 {
4995 h->indx = -2;
4996 h->written = FALSE;
4997 if (! aout_link_write_other_symbol (h,
4998 (PTR) finfo))
4999 return FALSE;
5000 }
5001 r_index = h->indx;
5002 }
5003 else
5004 {
5005 const char *name;
5006
5007 name = strings + GET_WORD (input_bfd,
5008 syms[r_index].e_strx);
5009 if (! ((*finfo->info->callbacks->unattached_reloc)
5010 (finfo->info, name, input_bfd, input_section,
5011 r_addr)))
5012 return FALSE;
5013 r_index = 0;
5014 }
5015 }
5016
5017 relocation = 0;
5018 }
5019
5020 /* Write out the new r_index value. */
--- 43 unchanged lines hidden (view full) ---
5064 r = bfd_reloc_ok;
5065 else
5066 r = MY_relocate_contents (howto,
5067 input_bfd, relocation,
5068 contents + r_addr);
5069 }
5070 else
5071 {
5072 bfd_boolean hundef;
5073
5074 /* We are generating an executable, and must do a full
5075 relocation. */
5076 hundef = FALSE;
5077
5078 if (r_extern)
5079 {
5080 h = sym_hashes[r_index];
5081
5082 if (h != (struct aout_link_hash_entry *) NULL
5083 && (h->root.type == bfd_link_hash_defined
5084 || h->root.type == bfd_link_hash_defweak))
5085 {
5086 relocation = (h->root.u.def.value
5087 + h->root.u.def.section->output_section->vma
5088 + h->root.u.def.section->output_offset);
5089 }
5090 else if (h != (struct aout_link_hash_entry *) NULL
5091 && h->root.type == bfd_link_hash_undefweak)
5092 relocation = 0;
5093 else
5094 {
5095 hundef = TRUE;
5096 relocation = 0;
5097 }
5098 }
5099 else
5100 {
5101 asection *section;
5102
5103 section = aout_reloc_index_to_section (input_bfd, r_index);
5104 relocation = (section->output_section->vma
5105 + section->output_offset
5106 - section->vma);
5107 if (r_pcrel)
5108 relocation += input_section->vma;
5109 }
5110
5111 if (check_dynamic_reloc != NULL)
5112 {
5113 bfd_boolean skip;
5114
5115 if (! ((*check_dynamic_reloc)
5116 (finfo->info, input_bfd, input_section, h,
5117 (PTR) rel, contents, &skip, &relocation)))
5118 return FALSE;
5119 if (skip)
5120 continue;
5121 }
5122
5123 /* Now warn if a global symbol is undefined. We could not
5124 do this earlier, because check_dynamic_reloc might want
5125 to skip this reloc. */
5126 if (hundef && ! finfo->info->shared && ! r_baserel)
5127 {
5128 const char *name;
5129
5130 if (h != NULL)
5131 name = h->root.root.string;
5132 else
5133 name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
5134 if (! ((*finfo->info->callbacks->undefined_symbol)
5135 (finfo->info, name, input_bfd, input_section,
5136 r_addr, TRUE)))
5137 return FALSE;
5138 }
5139
5140 r = MY_final_link_relocate (howto,
5141 input_bfd, input_section,
5142 contents, r_addr, relocation,
5143 (bfd_vma) 0);
5144 }
5145
--- 18 unchanged lines hidden (view full) ---
5164 asection *s;
5165
5166 s = aout_reloc_index_to_section (input_bfd, r_index);
5167 name = bfd_section_name (input_bfd, s);
5168 }
5169 if (! ((*finfo->info->callbacks->reloc_overflow)
5170 (finfo->info, name, howto->name,
5171 (bfd_vma) 0, input_bfd, input_section, r_addr)))
5172 return FALSE;
5173 }
5174 break;
5175 }
5176 }
5177 }
5178
5179 return TRUE;
5180}
5181
5182/* Relocate an a.out section using extended a.out relocs. */
5183
5184static bfd_boolean
5185aout_link_input_section_ext (finfo, input_bfd, input_section, relocs,
5186 rel_size, contents)
5187 struct aout_final_link_info *finfo;
5188 bfd *input_bfd;
5189 asection *input_section;
5190 struct reloc_ext_external *relocs;
5191 bfd_size_type rel_size;
5192 bfd_byte *contents;
5193{
5194 bfd_boolean (*check_dynamic_reloc)
5195 PARAMS ((struct bfd_link_info *, bfd *, asection *,
5196 struct aout_link_hash_entry *, PTR, bfd_byte *, bfd_boolean *,
5197 bfd_vma *));
5198 bfd *output_bfd;
5199 bfd_boolean relocatable;
5200 struct external_nlist *syms;
5201 char *strings;
5202 struct aout_link_hash_entry **sym_hashes;
5203 int *symbol_map;
5204 bfd_size_type reloc_count;
5205 register struct reloc_ext_external *rel;
5206 struct reloc_ext_external *rel_end;
5207
5208 output_bfd = finfo->output_bfd;
5209 check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;
5210
5211 BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_EXT_SIZE);
5212 BFD_ASSERT (input_bfd->xvec->header_byteorder
5213 == output_bfd->xvec->header_byteorder);
5214
5215 relocatable = finfo->info->relocatable;
5216 syms = obj_aout_external_syms (input_bfd);
5217 strings = obj_aout_external_strings (input_bfd);
5218 sym_hashes = obj_aout_sym_hashes (input_bfd);
5219 symbol_map = finfo->symbol_map;
5220
5221 reloc_count = rel_size / RELOC_EXT_SIZE;
5222 rel = relocs;
5223 rel_end = rel + reloc_count;
--- 28 unchanged lines hidden (view full) ---
5252 r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE)
5253 >> RELOC_EXT_BITS_TYPE_SH_LITTLE);
5254 }
5255
5256 r_addend = GET_SWORD (input_bfd, rel->r_addend);
5257
5258 BFD_ASSERT (r_type < TABLE_SIZE (howto_table_ext));
5259
5260 if (relocatable)
5261 {
5262 /* We are generating a relocatable output file, and must
5263 modify the reloc accordingly. */
5264 if (r_extern
5265 || r_type == (unsigned int) RELOC_BASE10
5266 || r_type == (unsigned int) RELOC_BASE13
5267 || r_type == (unsigned int) RELOC_BASE22)
5268 {
5269 /* If we know the symbol this relocation is against,
5270 convert it into a relocation against a section. This
--- 54 unchanged lines hidden (view full) ---
5325 /* We decided to strip this symbol, but it
5326 turns out that we can't. Note that we
5327 lose the other and desc information here.
5328 I don't think that will ever matter for a
5329 global symbol. */
5330 if (h->indx < 0)
5331 {
5332 h->indx = -2;
5333 h->written = FALSE;
5334 if (! aout_link_write_other_symbol (h,
5335 (PTR) finfo))
5336 return FALSE;
5337 }
5338 r_index = h->indx;
5339 }
5340 else
5341 {
5342 const char *name;
5343
5344 name = strings + GET_WORD (input_bfd,
5345 syms[r_index].e_strx);
5346 if (! ((*finfo->info->callbacks->unattached_reloc)
5347 (finfo->info, name, input_bfd, input_section,
5348 r_addr)))
5349 return FALSE;
5350 r_index = 0;
5351 }
5352 }
5353
5354 relocation = 0;
5355
5356 /* If this is a PC relative reloc, then the addend
5357 is the negative of the source VMA. We must
--- 48 unchanged lines hidden (view full) ---
5406
5407 /* Change the address of the relocation. */
5408 PUT_WORD (output_bfd,
5409 r_addr + input_section->output_offset,
5410 rel->r_address);
5411 }
5412 else
5413 {
5414 bfd_boolean hundef;
5415 bfd_reloc_status_type r;
5416
5417 /* We are generating an executable, and must do a full
5418 relocation. */
5419 hundef = FALSE;
5420
5421 if (r_extern)
5422 {
5423 h = sym_hashes[r_index];
5424
5425 if (h != (struct aout_link_hash_entry *) NULL
5426 && (h->root.type == bfd_link_hash_defined
5427 || h->root.type == bfd_link_hash_defweak))
5428 {
5429 relocation = (h->root.u.def.value
5430 + h->root.u.def.section->output_section->vma
5431 + h->root.u.def.section->output_offset);
5432 }
5433 else if (h != (struct aout_link_hash_entry *) NULL
5434 && h->root.type == bfd_link_hash_undefweak)
5435 relocation = 0;
5436 else
5437 {
5438 hundef = TRUE;
5439 relocation = 0;
5440 }
5441 }
5442 else if (r_type == (unsigned int) RELOC_BASE10
5443 || r_type == (unsigned int) RELOC_BASE13
5444 || r_type == (unsigned int) RELOC_BASE22)
5445 {
5446 struct external_nlist *sym;
--- 56 unchanged lines hidden (view full) ---
5503 + r_section->output_offset
5504 - r_section->vma);
5505 if (howto_table_ext[r_type].pc_relative)
5506 relocation += input_section->vma;
5507 }
5508
5509 if (check_dynamic_reloc != NULL)
5510 {
5511 bfd_boolean skip;
5512
5513 if (! ((*check_dynamic_reloc)
5514 (finfo->info, input_bfd, input_section, h,
5515 (PTR) rel, contents, &skip, &relocation)))
5516 return FALSE;
5517 if (skip)
5518 continue;
5519 }
5520
5521 /* Now warn if a global symbol is undefined. We could not
5522 do this earlier, because check_dynamic_reloc might want
5523 to skip this reloc. */
5524 if (hundef
--- 5 unchanged lines hidden (view full) ---
5530 const char *name;
5531
5532 if (h != NULL)
5533 name = h->root.root.string;
5534 else
5535 name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
5536 if (! ((*finfo->info->callbacks->undefined_symbol)
5537 (finfo->info, name, input_bfd, input_section,
5538 r_addr, TRUE)))
5539 return FALSE;
5540 }
5541
5542 if (r_type != (unsigned int) RELOC_SPARC_REV32)
5543 r = MY_final_link_relocate (howto_table_ext + r_type,
5544 input_bfd, input_section,
5545 contents, r_addr, relocation,
5546 r_addend);
5547 else
--- 30 unchanged lines hidden (view full) ---
5578 asection *s;
5579
5580 s = aout_reloc_index_to_section (input_bfd, r_index);
5581 name = bfd_section_name (input_bfd, s);
5582 }
5583 if (! ((*finfo->info->callbacks->reloc_overflow)
5584 (finfo->info, name, howto_table_ext[r_type].name,
5585 r_addend, input_bfd, input_section, r_addr)))
5586 return FALSE;
5587 }
5588 break;
5589 }
5590 }
5591 }
5592 }
5593
5594 return TRUE;
5595}
5596
5597/* Handle a link order which is supposed to generate a reloc. */
5598
5599static bfd_boolean
5600aout_link_reloc_link_order (finfo, o, p)
5601 struct aout_final_link_info *finfo;
5602 asection *o;
5603 struct bfd_link_order *p;
5604{
5605 struct bfd_link_order_reloc *pr;
5606 int r_index;
5607 int r_extern;
--- 20 unchanged lines hidden (view full) ---
5628 else
5629 {
5630 struct aout_link_hash_entry *h;
5631
5632 BFD_ASSERT (p->type == bfd_symbol_reloc_link_order);
5633 r_extern = 1;
5634 h = ((struct aout_link_hash_entry *)
5635 bfd_wrapped_link_hash_lookup (finfo->output_bfd, finfo->info,
5636 pr->u.name, FALSE, FALSE, TRUE));
5637 if (h != (struct aout_link_hash_entry *) NULL
5638 && h->indx >= 0)
5639 r_index = h->indx;
5640 else if (h != NULL)
5641 {
5642 /* We decided to strip this symbol, but it turns out that we
5643 can't. Note that we lose the other and desc information
5644 here. I don't think that will ever matter for a global
5645 symbol. */
5646 h->indx = -2;
5647 h->written = FALSE;
5648 if (! aout_link_write_other_symbol (h, (PTR) finfo))
5649 return FALSE;
5650 r_index = h->indx;
5651 }
5652 else
5653 {
5654 if (! ((*finfo->info->callbacks->unattached_reloc)
5655 (finfo->info, pr->u.name, (bfd *) NULL,
5656 (asection *) NULL, (bfd_vma) 0)))
5657 return FALSE;
5658 r_index = 0;
5659 }
5660 }
5661
5662 howto = bfd_reloc_type_lookup (finfo->output_bfd, pr->reloc);
5663 if (howto == 0)
5664 {
5665 bfd_set_error (bfd_error_bad_value);
5666 return FALSE;
5667 }
5668
5669 if (o == obj_textsec (finfo->output_bfd))
5670 reloff_ptr = &finfo->treloff;
5671 else if (o == obj_datasec (finfo->output_bfd))
5672 reloff_ptr = &finfo->dreloff;
5673 else
5674 abort ();
--- 53 unchanged lines hidden (view full) ---
5728 reliable if we had the current contents of the file here,
5729 rather than assuming zeroes, but we can't read the file since
5730 it was opened using bfd_openw. */
5731 if (pr->addend != 0)
5732 {
5733 bfd_size_type size;
5734 bfd_reloc_status_type r;
5735 bfd_byte *buf;
5736 bfd_boolean ok;
5737
5738 size = bfd_get_reloc_size (howto);
5739 buf = (bfd_byte *) bfd_zmalloc (size);
5740 if (buf == (bfd_byte *) NULL)
5741 return FALSE;
5742 r = MY_relocate_contents (howto, finfo->output_bfd,
5743 (bfd_vma) pr->addend, buf);
5744 switch (r)
5745 {
5746 case bfd_reloc_ok:
5747 break;
5748 default:
5749 case bfd_reloc_outofrange:
--- 4 unchanged lines hidden (view full) ---
5754 (p->type == bfd_section_reloc_link_order
5755 ? bfd_section_name (finfo->output_bfd,
5756 pr->u.section)
5757 : pr->u.name),
5758 howto->name, pr->addend, (bfd *) NULL,
5759 (asection *) NULL, (bfd_vma) 0)))
5760 {
5761 free (buf);
5762 return FALSE;
5763 }
5764 break;
5765 }
5766 ok = bfd_set_section_contents (finfo->output_bfd, o, (PTR) buf,
5767 (file_ptr) p->offset, size);
5768 free (buf);
5769 if (! ok)
5770 return FALSE;
5771 }
5772 }
5773 else
5774 {
5775#ifdef MY_put_ext_reloc
5776 MY_put_ext_reloc (finfo->output_bfd, r_extern, r_index, p->offset,
5777 howto, &erel, pr->addend);
5778#else
--- 22 unchanged lines hidden (view full) ---
5801#endif /* MY_put_ext_reloc */
5802
5803 rel_ptr = (PTR) &erel;
5804 }
5805
5806 amt = obj_reloc_entry_size (finfo->output_bfd);
5807 if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0
5808 || bfd_bwrite (rel_ptr, amt, finfo->output_bfd) != amt)
5809 return FALSE;
5810
5811 *reloff_ptr += obj_reloc_entry_size (finfo->output_bfd);
5812
5813 /* Assert that the relocs have not run into the symbols, and that n
5814 the text relocs have not run into the data relocs. */
5815 BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd)
5816 && (reloff_ptr != &finfo->treloff
5817 || (*reloff_ptr
5818 <= obj_datasec (finfo->output_bfd)->rel_filepos)));
5819
5820 return TRUE;
5821}