projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
ChangeLog rotatation and copyright year update
[deliverable/binutils-gdb.git] / bfd / aoutx.h
CommitLineData
252b5132 1/* BFD semi-generic back-end for a.out binaries.
b90efa5b 2 Copyright (C) 1990-2015 Free Software Foundation, Inc.
252b5132
RH		 3 Written by Cygnus Support.
4
f7c33884 5 This file is part of BFD, the Binary File Descriptor library.
252b5132 6
f7c33884
NC		 7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
cd123cb7 9 the Free Software Foundation; either version 3 of the License, or
f7c33884 10 (at your option) any later version.
252b5132 11
f7c33884
NC		 12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
252b5132 16
f7c33884
NC		 17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
cd123cb7
NC		 19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
252b5132
RH		 21
22/*
23SECTION
24 a.out backends
25
252b5132
RH		 26DESCRIPTION
27
28 BFD supports a number of different flavours of a.out format,
29 though the major differences are only the sizes of the
30 structures on disk, and the shape of the relocation
31 information.
32
33 The support is split into a basic support file @file{aoutx.h}
34 and other files which derive functions from the base. One
35 derivation file is @file{aoutf1.h} (for a.out flavour 1), and
36 adds to the basic a.out functions support for sun3, sun4, 386
37 and 29k a.out files, to create a target jump vector for a
38 specific target.
39
40 This information is further split out into more specific files
41 for each machine, including @file{sunos.c} for sun3 and sun4,
42 @file{newsos3.c} for the Sony NEWS, and @file{demo64.c} for a
43 demonstration of a 64 bit a.out format.
44
45 The base file @file{aoutx.h} defines general mechanisms for
46 reading and writing records to and from disk and various
47 other methods which BFD requires. It is included by
48 @file{aout32.c} and @file{aout64.c} to form the names
49 <<aout_32_swap_exec_header_in>>, <<aout_64_swap_exec_header_in>>, etc.
50
51 As an example, this is what goes on to make the back end for a
52 sun4, from @file{aout32.c}:
53
54| #define ARCH_SIZE 32
55| #include "aoutx.h"
56
57 Which exports names:
58
59| ...
60| aout_32_canonicalize_reloc
61| aout_32_find_nearest_line
62| aout_32_get_lineno
63| aout_32_get_reloc_upper_bound
64| ...
65
66 from @file{sunos.c}:
67
68| #define TARGET_NAME "a.out-sunos-big"
6d00b590 69| #define VECNAME sparc_aout_sunos_be_vec
252b5132
RH		 70| #include "aoutf1.h"
71
72 requires all the names from @file{aout32.c}, and produces the jump vector
73
6d00b590 74| sparc_aout_sunos_be_vec
252b5132
RH		 75
76 The file @file{host-aout.c} is a special case. It is for a large set
77 of hosts that use ``more or less standard'' a.out files, and
78 for which cross-debugging is not interesting. It uses the
79 standard 32-bit a.out support routines, but determines the
80 file offsets and addresses of the text, data, and BSS
81 sections, the machine architecture and machine type, and the
82 entry point address, in a host-dependent manner. Once these
83 values have been determined, generic code is used to handle
84 the object file.
85
86 When porting it to run on a new system, you must supply:
87
88| HOST_PAGE_SIZE
89| HOST_SEGMENT_SIZE
90| HOST_MACHINE_ARCH (optional)
91| HOST_MACHINE_MACHINE (optional)
92| HOST_TEXT_START_ADDR
93| HOST_STACK_END_ADDR
94
95 in the file @file{../include/sys/h-@var{XXX}.h} (for your host). These
96 values, plus the structures and macros defined in @file{a.out.h} on
97 your host system, will produce a BFD target that will access
98 ordinary a.out files on your host. To configure a new machine
99 to use @file{host-aout.c}, specify:
100
101| TDEFAULTS = -DDEFAULT_VECTOR=host_aout_big_vec
102| TDEPFILES= host-aout.o trad-core.o
103
1110793a 104 in the @file{config/@var{XXX}.mt} file, and modify @file{configure.ac}
252b5132
RH		 105 to use the
106 @file{@var{XXX}.mt} file (by setting "<<bfd_target=XXX>>") when your
5ed6aba4 107 configuration is selected. */
252b5132
RH		 108
109/* Some assumptions:
110 * Any BFD with D_PAGED set is ZMAGIC, and vice versa.
111 Doesn't matter what the setting of WP_TEXT is on output, but it'll
112 get set on input.
113 * Any BFD with D_PAGED clear and WP_TEXT set is NMAGIC.
114 * Any BFD with both flags clear is OMAGIC.
115 (Just want to make these explicit, so the conditions tested in this
116 file make sense if you're more familiar with a.out than with BFD.) */
117
118#define KEEPIT udata.i
119
252b5132 120#include "sysdep.h"
3db64b00 121#include "bfd.h"
3882b010 122#include "safe-ctype.h"
252b5132
RH		 123#include "bfdlink.h"
124
125#include "libaout.h"
126#include "libbfd.h"
127#include "aout/aout64.h"
128#include "aout/stab_gnu.h"
129#include "aout/ar.h"
130
252b5132
RH		 131/*
132SUBSECTION
133 Relocations
134
135DESCRIPTION
136 The file @file{aoutx.h} provides for both the @emph{standard}
137 and @emph{extended} forms of a.out relocation records.
138
139 The standard records contain only an
140 address, a symbol index, and a type field. The extended records
141 (used on 29ks and sparcs) also have a full integer for an
5ed6aba4 142 addend. */
252b5132 143
252b5132
RH		 144#ifndef CTOR_TABLE_RELOC_HOWTO
145#define CTOR_TABLE_RELOC_IDX 2
923f08ff
AM		 146#define CTOR_TABLE_RELOC_HOWTO(BFD) \
147 ((obj_reloc_entry_size (BFD) == RELOC_EXT_SIZE \
148 ? howto_table_ext : howto_table_std) \
149 + CTOR_TABLE_RELOC_IDX)
252b5132
RH		 150#endif
151
152#ifndef MY_swap_std_reloc_in
116c20d2 153#define MY_swap_std_reloc_in NAME (aout, swap_std_reloc_in)
252b5132
RH		 154#endif
155
1642229e 156#ifndef MY_swap_ext_reloc_in
116c20d2 157#define MY_swap_ext_reloc_in NAME (aout, swap_ext_reloc_in)
1642229e
HPN		 158#endif
159
252b5132 160#ifndef MY_swap_std_reloc_out
116c20d2 161#define MY_swap_std_reloc_out NAME (aout, swap_std_reloc_out)
252b5132
RH		 162#endif
163
1642229e 164#ifndef MY_swap_ext_reloc_out
116c20d2 165#define MY_swap_ext_reloc_out NAME (aout, swap_ext_reloc_out)
1642229e
HPN		 166#endif
167
252b5132
RH		 168#ifndef MY_final_link_relocate
169#define MY_final_link_relocate _bfd_final_link_relocate
170#endif
171
172#ifndef MY_relocate_contents
173#define MY_relocate_contents _bfd_relocate_contents
174#endif
175
116c20d2
NC		 176#define howto_table_ext NAME (aout, ext_howto_table)
177#define howto_table_std NAME (aout, std_howto_table)
252b5132
RH		 178
179reloc_howto_type howto_table_ext[] =
180{
116c20d2
NC		 181 /* Type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone. */
182 HOWTO (RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield, 0, "8", FALSE, 0, 0x000000ff, FALSE),
183 HOWTO (RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield, 0, "16", FALSE, 0, 0x0000ffff, FALSE),
184 HOWTO (RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield, 0, "32", FALSE, 0, 0xffffffff, FALSE),
185 HOWTO (RELOC_DISP8, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0, "DISP8", FALSE, 0, 0x000000ff, FALSE),
186 HOWTO (RELOC_DISP16, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0, "DISP16", FALSE, 0, 0x0000ffff, FALSE),
187 HOWTO (RELOC_DISP32, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0, "DISP32", FALSE, 0, 0xffffffff, FALSE),
188 HOWTO (RELOC_WDISP30, 2, 2, 30, TRUE, 0, complain_overflow_signed, 0, "WDISP30", FALSE, 0, 0x3fffffff, FALSE),
189 HOWTO (RELOC_WDISP22, 2, 2, 22, TRUE, 0, complain_overflow_signed, 0, "WDISP22", FALSE, 0, 0x003fffff, FALSE),
190 HOWTO (RELOC_HI22, 10, 2, 22, FALSE, 0, complain_overflow_bitfield, 0, "HI22", FALSE, 0, 0x003fffff, FALSE),
191 HOWTO (RELOC_22, 0, 2, 22, FALSE, 0, complain_overflow_bitfield, 0, "22", FALSE, 0, 0x003fffff, FALSE),
192 HOWTO (RELOC_13, 0, 2, 13, FALSE, 0, complain_overflow_bitfield, 0, "13", FALSE, 0, 0x00001fff, FALSE),
193 HOWTO (RELOC_LO10, 0, 2, 10, FALSE, 0, complain_overflow_dont, 0, "LO10", FALSE, 0, 0x000003ff, FALSE),
194 HOWTO (RELOC_SFA_BASE,0, 2, 32, FALSE, 0, complain_overflow_bitfield, 0, "SFA_BASE", FALSE, 0, 0xffffffff, FALSE),
195 HOWTO (RELOC_SFA_OFF13,0, 2, 32, FALSE, 0, complain_overflow_bitfield, 0, "SFA_OFF13", FALSE, 0, 0xffffffff, FALSE),
196 HOWTO (RELOC_BASE10, 0, 2, 10, FALSE, 0, complain_overflow_dont, 0, "BASE10", FALSE, 0, 0x000003ff, FALSE),
197 HOWTO (RELOC_BASE13, 0, 2, 13, FALSE, 0, complain_overflow_signed, 0, "BASE13", FALSE, 0, 0x00001fff, FALSE),
198 HOWTO (RELOC_BASE22, 10, 2, 22, FALSE, 0, complain_overflow_bitfield, 0, "BASE22", FALSE, 0, 0x003fffff, FALSE),
199 HOWTO (RELOC_PC10, 0, 2, 10, TRUE, 0, complain_overflow_dont, 0, "PC10", FALSE, 0, 0x000003ff, TRUE),
200 HOWTO (RELOC_PC22, 10, 2, 22, TRUE, 0, complain_overflow_signed, 0, "PC22", FALSE, 0, 0x003fffff, TRUE),
201 HOWTO (RELOC_JMP_TBL, 2, 2, 30, TRUE, 0, complain_overflow_signed, 0, "JMP_TBL", FALSE, 0, 0x3fffffff, FALSE),
202 HOWTO (RELOC_SEGOFF16,0, 2, 0, FALSE, 0, complain_overflow_bitfield, 0, "SEGOFF16", FALSE, 0, 0x00000000, FALSE),
203 HOWTO (RELOC_GLOB_DAT,0, 2, 0, FALSE, 0, complain_overflow_bitfield, 0, "GLOB_DAT", FALSE, 0, 0x00000000, FALSE),
204 HOWTO (RELOC_JMP_SLOT,0, 2, 0, FALSE, 0, complain_overflow_bitfield, 0, "JMP_SLOT", FALSE, 0, 0x00000000, FALSE),
205 HOWTO (RELOC_RELATIVE,0, 2, 0, FALSE, 0, complain_overflow_bitfield, 0, "RELATIVE", FALSE, 0, 0x00000000, FALSE),
206 HOWTO (0, 0, 0, 0, FALSE, 0, complain_overflow_dont, 0, "R_SPARC_NONE",FALSE, 0, 0x00000000, TRUE),
207 HOWTO (0, 0, 0, 0, FALSE, 0, complain_overflow_dont, 0, "R_SPARC_NONE",FALSE, 0, 0x00000000, TRUE),
252b5132 208#define RELOC_SPARC_REV32 RELOC_WDISP19
116c20d2 209 HOWTO (RELOC_SPARC_REV32, 0, 2, 32, FALSE, 0, complain_overflow_dont, 0,"R_SPARC_REV32",FALSE, 0, 0xffffffff, FALSE),
252b5132
RH		 210};
211
212/* Convert standard reloc records to "arelent" format (incl byte swap). */
213
5ed6aba4
NC		 214reloc_howto_type howto_table_std[] =
215{
f7c33884 216 /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone. */
b34976b6
AM		 217HOWTO ( 0, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,"8", TRUE, 0x000000ff,0x000000ff, FALSE),
218HOWTO ( 1, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
219HOWTO ( 2, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"32", TRUE, 0xffffffff,0xffffffff, FALSE),
220HOWTO ( 3, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,0,"64", TRUE, 0xdeaddead,0xdeaddead, FALSE),
221HOWTO ( 4, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,"DISP8", TRUE, 0x000000ff,0x000000ff, FALSE),
222HOWTO ( 5, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,"DISP16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
223HOWTO ( 6, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,"DISP32", TRUE, 0xffffffff,0xffffffff, FALSE),
224HOWTO ( 7, 0, 4, 64, TRUE, 0, complain_overflow_signed, 0,"DISP64", TRUE, 0xfeedface,0xfeedface, FALSE),
225HOWTO ( 8, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"GOT_REL", FALSE, 0,0x00000000, FALSE),
226HOWTO ( 9, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,"BASE16", FALSE,0xffffffff,0xffffffff, FALSE),
227HOWTO (10, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,"BASE32", FALSE,0xffffffff,0xffffffff, FALSE),
5f771d47
ILT		 228EMPTY_HOWTO (-1),
229EMPTY_HOWTO (-1),
230EMPTY_HOWTO (-1),
231EMPTY_HOWTO (-1),
232EMPTY_HOWTO (-1),
b34976b6 233 HOWTO (16, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"JMP_TABLE", FALSE, 0,0x00000000, FALSE),
5f771d47
ILT		 234EMPTY_HOWTO (-1),
235EMPTY_HOWTO (-1),
236EMPTY_HOWTO (-1),
237EMPTY_HOWTO (-1),
238EMPTY_HOWTO (-1),
239EMPTY_HOWTO (-1),
240EMPTY_HOWTO (-1),
241EMPTY_HOWTO (-1),
242EMPTY_HOWTO (-1),
243EMPTY_HOWTO (-1),
244EMPTY_HOWTO (-1),
245EMPTY_HOWTO (-1),
246EMPTY_HOWTO (-1),
247EMPTY_HOWTO (-1),
248EMPTY_HOWTO (-1),
b34976b6 249 HOWTO (32, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"RELATIVE", FALSE, 0,0x00000000, FALSE),
5f771d47
ILT		 250EMPTY_HOWTO (-1),
251EMPTY_HOWTO (-1),
252EMPTY_HOWTO (-1),
253EMPTY_HOWTO (-1),
254EMPTY_HOWTO (-1),
255EMPTY_HOWTO (-1),
256EMPTY_HOWTO (-1),
b34976b6 257 HOWTO (40, 0, 2, 0, FALSE, 0, complain_overflow_bitfield,0,"BASEREL", FALSE, 0,0x00000000, FALSE),
252b5132
RH		 258};
259
923f08ff 260#define TABLE_SIZE(TABLE) (sizeof (TABLE) / sizeof (TABLE[0]))
252b5132
RH		 261
262reloc_howto_type *
116c20d2 263NAME (aout, reloc_type_lookup) (bfd *abfd, bfd_reloc_code_real_type code)
252b5132 264{
116c20d2
NC		 265#define EXT(i, j) case i: return & howto_table_ext [j]
266#define STD(i, j) case i: return & howto_table_std [j]
252b5132 267 int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
f7c33884 268
252b5132 269 if (code == BFD_RELOC_CTOR)
30d10e9e 270 switch (bfd_arch_bits_per_address (abfd))
252b5132
RH		 271 {
272 case 32:
273 code = BFD_RELOC_32;
274 break;
275 case 64:
276 code = BFD_RELOC_64;
277 break;
278 }
f7c33884 279
252b5132
RH		 280 if (ext)
281 switch (code)
282 {
1642229e
HPN		 283 EXT (BFD_RELOC_8, 0);
284 EXT (BFD_RELOC_16, 1);
252b5132
RH		 285 EXT (BFD_RELOC_32, 2);
286 EXT (BFD_RELOC_HI22, 8);
287 EXT (BFD_RELOC_LO10, 11);
288 EXT (BFD_RELOC_32_PCREL_S2, 6);
289 EXT (BFD_RELOC_SPARC_WDISP22, 7);
290 EXT (BFD_RELOC_SPARC13, 10);
291 EXT (BFD_RELOC_SPARC_GOT10, 14);
292 EXT (BFD_RELOC_SPARC_BASE13, 15);
293 EXT (BFD_RELOC_SPARC_GOT13, 15);
294 EXT (BFD_RELOC_SPARC_GOT22, 16);
295 EXT (BFD_RELOC_SPARC_PC10, 17);
296 EXT (BFD_RELOC_SPARC_PC22, 18);
297 EXT (BFD_RELOC_SPARC_WPLT30, 19);
298 EXT (BFD_RELOC_SPARC_REV32, 26);
116c20d2
NC		 299 default:
300 return NULL;
252b5132
RH		 301 }
302 else
f7c33884 303 /* std relocs. */
252b5132
RH		 304 switch (code)
305 {
2846975a 306 STD (BFD_RELOC_8, 0);
252b5132
RH		 307 STD (BFD_RELOC_16, 1);
308 STD (BFD_RELOC_32, 2);
309 STD (BFD_RELOC_8_PCREL, 4);
310 STD (BFD_RELOC_16_PCREL, 5);
311 STD (BFD_RELOC_32_PCREL, 6);
312 STD (BFD_RELOC_16_BASEREL, 9);
313 STD (BFD_RELOC_32_BASEREL, 10);
116c20d2
NC		 314 default:
315 return NULL;
252b5132
RH		 316 }
317}
318
157090f7
AM		 319reloc_howto_type *
320NAME (aout, reloc_name_lookup) (bfd *abfd, const char *r_name)
321{
322 unsigned int i, size;
323 reloc_howto_type *howto_table;
324
325 if (obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE)
326 {
327 howto_table = howto_table_ext;
328 size = sizeof (howto_table_ext) / sizeof (howto_table_ext[0]);
329 }
330 else
331 {
332 howto_table = howto_table_std;
333 size = sizeof (howto_table_std) / sizeof (howto_table_std[0]);
334 }
335
336 for (i = 0; i < size; i++)
337 if (howto_table[i].name != NULL
338 && strcasecmp (howto_table[i].name, r_name) == 0)
339 return &howto_table[i];
340
341 return NULL;
342}
343
252b5132
RH		 344/*
345SUBSECTION
346 Internal entry points
347
348DESCRIPTION
349 @file{aoutx.h} exports several routines for accessing the
350 contents of an a.out file, which are gathered and exported in
351 turn by various format specific files (eg sunos.c).
252b5132
RH		 352*/
353
354/*
355FUNCTION
356 aout_@var{size}_swap_exec_header_in
357
358SYNOPSIS
359 void aout_@var{size}_swap_exec_header_in,
360 (bfd *abfd,
116c20d2 361 struct external_exec *bytes,
252b5132
RH		 362 struct internal_exec *execp);
363
364DESCRIPTION
365 Swap the information in an executable header @var{raw_bytes} taken
366 from a raw byte stream memory image into the internal exec header
367 structure @var{execp}.
368*/
369
370#ifndef NAME_swap_exec_header_in
371void
116c20d2
NC		 372NAME (aout, swap_exec_header_in) (bfd *abfd,
373 struct external_exec *bytes,
374 struct internal_exec *execp)
252b5132 375{
252b5132
RH		 376 /* The internal_exec structure has some fields that are unused in this
377 configuration (IE for i960), so ensure that all such uninitialized
378 fields are zero'd out. There are places where two of these structs
0ef5a5bd 379 are memcmp'd, and thus the contents do matter. */
116c20d2 380 memset ((void *) execp, 0, sizeof (struct internal_exec));
252b5132 381 /* Now fill in fields in the execp, from the bytes in the raw data. */
dc810e39 382 execp->a_info = H_GET_32 (abfd, bytes->e_info);
252b5132
RH		 383 execp->a_text = GET_WORD (abfd, bytes->e_text);
384 execp->a_data = GET_WORD (abfd, bytes->e_data);
385 execp->a_bss = GET_WORD (abfd, bytes->e_bss);
386 execp->a_syms = GET_WORD (abfd, bytes->e_syms);
387 execp->a_entry = GET_WORD (abfd, bytes->e_entry);
388 execp->a_trsize = GET_WORD (abfd, bytes->e_trsize);
389 execp->a_drsize = GET_WORD (abfd, bytes->e_drsize);
390}
116c20d2 391#define NAME_swap_exec_header_in NAME (aout, swap_exec_header_in)
252b5132
RH		 392#endif
393
394/*
395FUNCTION
396 aout_@var{size}_swap_exec_header_out
397
398SYNOPSIS
399 void aout_@var{size}_swap_exec_header_out
400 (bfd *abfd,
401 struct internal_exec *execp,
402 struct external_exec *raw_bytes);
403
404DESCRIPTION
405 Swap the information in an internal exec header structure
406 @var{execp} into the buffer @var{raw_bytes} ready for writing to disk.
407*/
408void
116c20d2
NC		 409NAME (aout, swap_exec_header_out) (bfd *abfd,
410 struct internal_exec *execp,
411 struct external_exec *bytes)
252b5132 412{
0ef5a5bd 413 /* Now fill in fields in the raw data, from the fields in the exec struct. */
dc810e39 414 H_PUT_32 (abfd, execp->a_info , bytes->e_info);
252b5132
RH		 415 PUT_WORD (abfd, execp->a_text , bytes->e_text);
416 PUT_WORD (abfd, execp->a_data , bytes->e_data);
417 PUT_WORD (abfd, execp->a_bss , bytes->e_bss);
418 PUT_WORD (abfd, execp->a_syms , bytes->e_syms);
419 PUT_WORD (abfd, execp->a_entry , bytes->e_entry);
420 PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize);
421 PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize);
422}
423
424/* Make all the section for an a.out file. */
425
b34976b6 426bfd_boolean
116c20d2 427NAME (aout, make_sections) (bfd *abfd)
252b5132 428{
116c20d2 429 if (obj_textsec (abfd) == NULL && bfd_make_section (abfd, ".text") == NULL)
b34976b6 430 return FALSE;
116c20d2 431 if (obj_datasec (abfd) == NULL && bfd_make_section (abfd, ".data") == NULL)
b34976b6 432 return FALSE;
116c20d2 433 if (obj_bsssec (abfd) == NULL && bfd_make_section (abfd, ".bss") == NULL)
b34976b6
AM		 434 return FALSE;
435 return TRUE;
252b5132
RH		 436}
437
438/*
439FUNCTION
440 aout_@var{size}_some_aout_object_p
441
442SYNOPSIS
443 const bfd_target *aout_@var{size}_some_aout_object_p
444 (bfd *abfd,
116c20d2
NC		 445 struct internal_exec *execp,
446 const bfd_target *(*callback_to_real_object_p) (bfd *));
252b5132
RH		 447
448DESCRIPTION
449 Some a.out variant thinks that the file open in @var{abfd}
450 checking is an a.out file. Do some more checking, and set up
451 for access if it really is. Call back to the calling
452 environment's "finish up" function just before returning, to
453 handle any last-minute setup.
454*/
455
456const bfd_target *
116c20d2
NC		 457NAME (aout, some_aout_object_p) (bfd *abfd,
458 struct internal_exec *execp,
459 const bfd_target *(*callback_to_real_object_p) (bfd *))
252b5132
RH		 460{
461 struct aout_data_struct *rawptr, *oldrawptr;
462 const bfd_target *result;
116c20d2 463 bfd_size_type amt = sizeof (* rawptr);
252b5132 464
a50b1753 465 rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, amt);
252b5132 466 if (rawptr == NULL)
116c20d2 467 return NULL;
252b5132
RH		 468
469 oldrawptr = abfd->tdata.aout_data;
470 abfd->tdata.aout_data = rawptr;
471
472 /* Copy the contents of the old tdata struct.
473 In particular, we want the subformat, since for hpux it was set in
474 hp300hpux.c:swap_exec_header_in and will be used in
475 hp300hpux.c:callback. */
476 if (oldrawptr != NULL)
477 *abfd->tdata.aout_data = *oldrawptr;
478
479 abfd->tdata.aout_data->a.hdr = &rawptr->e;
f7c33884
NC		 480 /* Copy in the internal_exec struct. */
481 *(abfd->tdata.aout_data->a.hdr) = *execp;
252b5132
RH		 482 execp = abfd->tdata.aout_data->a.hdr;
483
f7c33884 484 /* Set the file flags. */
252b5132
RH		 485 abfd->flags = BFD_NO_FLAGS;
486 if (execp->a_drsize || execp->a_trsize)
487 abfd->flags |= HAS_RELOC;
f7c33884 488 /* Setting of EXEC_P has been deferred to the bottom of this function. */
252b5132
RH		 489 if (execp->a_syms)
490 abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
923f08ff 491 if (N_DYNAMIC (*execp))
252b5132
RH		 492 abfd->flags |= DYNAMIC;
493
494 if (N_MAGIC (*execp) == ZMAGIC)
495 {
496 abfd->flags |= D_PAGED | WP_TEXT;
497 adata (abfd).magic = z_magic;
498 }
499 else if (N_MAGIC (*execp) == QMAGIC)
500 {
501 abfd->flags |= D_PAGED | WP_TEXT;
502 adata (abfd).magic = z_magic;
503 adata (abfd).subformat = q_magic_format;
504 }
505 else if (N_MAGIC (*execp) == NMAGIC)
506 {
507 abfd->flags |= WP_TEXT;
508 adata (abfd).magic = n_magic;
509 }
510 else if (N_MAGIC (*execp) == OMAGIC
511 || N_MAGIC (*execp) == BMAGIC)
512 adata (abfd).magic = o_magic;
513 else
116c20d2
NC		 514 /* Should have been checked with N_BADMAG before this routine
515 was called. */
516 abort ();
252b5132
RH		 517
518 bfd_get_start_address (abfd) = execp->a_entry;
519
116c20d2 520 obj_aout_symbols (abfd) = NULL;
252b5132
RH		 521 bfd_get_symcount (abfd) = execp->a_syms / sizeof (struct external_nlist);
522
523 /* The default relocation entry size is that of traditional V7 Unix. */
524 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
525
0ef5a5bd 526 /* The default symbol entry size is that of traditional Unix. */
252b5132
RH		 527 obj_symbol_entry_size (abfd) = EXTERNAL_NLIST_SIZE;
528
529#ifdef USE_MMAP
530 bfd_init_window (&obj_aout_sym_window (abfd));
531 bfd_init_window (&obj_aout_string_window (abfd));
532#endif
533 obj_aout_external_syms (abfd) = NULL;
534 obj_aout_external_strings (abfd) = NULL;
535 obj_aout_sym_hashes (abfd) = NULL;
536
116c20d2 537 if (! NAME (aout, make_sections) (abfd))
487e54f2 538 goto error_ret;
252b5132 539
eea6121a
AM		 540 obj_datasec (abfd)->size = execp->a_data;
541 obj_bsssec (abfd)->size = execp->a_bss;
252b5132
RH		 542
543 obj_textsec (abfd)->flags =
544 (execp->a_trsize != 0
545 ? (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS | SEC_RELOC)
546 : (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS));
547 obj_datasec (abfd)->flags =
548 (execp->a_drsize != 0
549 ? (SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS | SEC_RELOC)
550 : (SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS));
551 obj_bsssec (abfd)->flags = SEC_ALLOC;
552
553#ifdef THIS_IS_ONLY_DOCUMENTATION
554 /* The common code can't fill in these things because they depend
555 on either the start address of the text segment, the rounding
556 up of virtual addresses between segments, or the starting file
557 position of the text segment -- all of which varies among different
558 versions of a.out. */
559
560 /* Call back to the format-dependent code to fill in the rest of the
561 fields and do any further cleanup. Things that should be filled
562 in by the callback: */
563
564 struct exec *execp = exec_hdr (abfd);
565
923f08ff 566 obj_textsec (abfd)->size = N_TXTSIZE (*execp);
f7c33884 567 /* Data and bss are already filled in since they're so standard. */
252b5132 568
f7c33884 569 /* The virtual memory addresses of the sections. */
923f08ff
AM		 570 obj_textsec (abfd)->vma = N_TXTADDR (*execp);
571 obj_datasec (abfd)->vma = N_DATADDR (*execp);
572 obj_bsssec (abfd)->vma = N_BSSADDR (*execp);
252b5132 573
f7c33884 574 /* The file offsets of the sections. */
923f08ff
AM		 575 obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
576 obj_datasec (abfd)->filepos = N_DATOFF (*execp);
252b5132 577
f7c33884 578 /* The file offsets of the relocation info. */
923f08ff
AM		 579 obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp);
580 obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp);
252b5132
RH		 581
582 /* The file offsets of the string table and symbol table. */
583 obj_str_filepos (abfd) = N_STROFF (*execp);
584 obj_sym_filepos (abfd) = N_SYMOFF (*execp);
585
586 /* Determine the architecture and machine type of the object file. */
923f08ff
AM		 587 switch (N_MACHTYPE (*exec_hdr (abfd)))
588 {
589 default:
590 abfd->obj_arch = bfd_arch_obscure;
591 break;
592 }
252b5132 593
923f08ff
AM		 594 adata (abfd)->page_size = TARGET_PAGE_SIZE;
595 adata (abfd)->segment_size = SEGMENT_SIZE;
596 adata (abfd)->exec_bytes_size = EXEC_BYTES_SIZE;
252b5132
RH		 597
598 return abfd->xvec;
599
600 /* The architecture is encoded in various ways in various a.out variants,
601 or is not encoded at all in some of them. The relocation size depends
602 on the architecture and the a.out variant. Finally, the return value
603 is the bfd_target vector in use. If an error occurs, return zero and
604 set bfd_error to the appropriate error code.
605
606 Formats such as b.out, which have additional fields in the a.out
607 header, should cope with them in this callback as well. */
608#endif /* DOCUMENTATION */
609
beb0d161 610 result = (*callback_to_real_object_p) (abfd);
252b5132
RH		 611
612 /* Now that the segment addresses have been worked out, take a better
613 guess at whether the file is executable. If the entry point
614 is within the text segment, assume it is. (This makes files
615 executable even if their entry point address is 0, as long as
616 their text starts at zero.).
617
618 This test had to be changed to deal with systems where the text segment
619 runs at a different location than the default. The problem is that the
620 entry address can appear to be outside the text segment, thus causing an
621 erroneous conclusion that the file isn't executable.
622
623 To fix this, we now accept any non-zero entry point as an indication of
624 executability. This will work most of the time, since only the linker
0ef5a5bd 625 sets the entry point, and that is likely to be non-zero for most systems. */
252b5132
RH		 626
627 if (execp->a_entry != 0
923f08ff
AM		 628 || (execp->a_entry >= obj_textsec (abfd)->vma
629 && execp->a_entry < (obj_textsec (abfd)->vma
4c1534c7
AM		 630 + obj_textsec (abfd)->size)
631 && execp->a_trsize == 0
632 && execp->a_drsize == 0))
252b5132
RH		 633 abfd->flags |= EXEC_P;
634#ifdef STAT_FOR_EXEC
635 else
636 {
637 struct stat stat_buf;
638
639 /* The original heuristic doesn't work in some important cases.
640 The a.out file has no information about the text start
641 address. For files (like kernels) linked to non-standard
642 addresses (ld -Ttext nnn) the entry point may not be between
643 the default text start (obj_textsec(abfd)->vma) and
644 (obj_textsec(abfd)->vma) + text size. This is not just a mach
645 issue. Many kernels are loaded at non standard addresses. */
646 if (abfd->iostream != NULL
647 && (abfd->flags & BFD_IN_MEMORY) == 0
923f08ff 648 && (fstat (fileno ((FILE *) (abfd->iostream)), &stat_buf) == 0)
252b5132
RH		 649 && ((stat_buf.st_mode & 0111) != 0))
650 abfd->flags |= EXEC_P;
651 }
652#endif /* STAT_FOR_EXEC */
653
654 if (result)
0e71e495 655 return result;
487e54f2
AM		 656
657 error_ret:
658 bfd_release (abfd, rawptr);
659 abfd->tdata.aout_data = oldrawptr;
660 return NULL;
252b5132
RH		 661}
662
663/*
664FUNCTION
665 aout_@var{size}_mkobject
666
667SYNOPSIS
b34976b6 668 bfd_boolean aout_@var{size}_mkobject, (bfd *abfd);
252b5132
RH		 669
670DESCRIPTION
671 Initialize BFD @var{abfd} for use with a.out files.
672*/
673
b34976b6 674bfd_boolean
116c20d2 675NAME (aout, mkobject) (bfd *abfd)
252b5132 676{
dc810e39 677 struct aout_data_struct *rawptr;
116c20d2 678 bfd_size_type amt = sizeof (* rawptr);
252b5132
RH		 679
680 bfd_set_error (bfd_error_system_call);
681
a50b1753 682 rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, amt);
252b5132 683 if (rawptr == NULL)
b34976b6 684 return FALSE;
252b5132
RH		 685
686 abfd->tdata.aout_data = rawptr;
687 exec_hdr (abfd) = &(rawptr->e);
688
116c20d2
NC		 689 obj_textsec (abfd) = NULL;
690 obj_datasec (abfd) = NULL;
691 obj_bsssec (abfd) = NULL;
252b5132 692
b34976b6 693 return TRUE;
252b5132
RH		 694}
695
252b5132
RH		 696/*
697FUNCTION
698 aout_@var{size}_machine_type
699
700SYNOPSIS
701 enum machine_type aout_@var{size}_machine_type
702 (enum bfd_architecture arch,
116c20d2
NC		 703 unsigned long machine,
704 bfd_boolean *unknown);
252b5132
RH		 705
706DESCRIPTION
707 Keep track of machine architecture and machine type for
708 a.out's. Return the <<machine_type>> for a particular
709 architecture and machine, or <<M_UNKNOWN>> if that exact architecture
710 and machine can't be represented in a.out format.
711
712 If the architecture is understood, machine type 0 (default)
713 is always understood.
714*/
715
716enum machine_type
116c20d2
NC		 717NAME (aout, machine_type) (enum bfd_architecture arch,
718 unsigned long machine,
719 bfd_boolean *unknown)
252b5132
RH		 720{
721 enum machine_type arch_flags;
722
723 arch_flags = M_UNKNOWN;
b34976b6 724 *unknown = TRUE;
252b5132 725
923f08ff
AM		 726 switch (arch)
727 {
728 case bfd_arch_sparc:
729 if (machine == 0
730 || machine == bfd_mach_sparc
731 || machine == bfd_mach_sparc_sparclite
732 || machine == bfd_mach_sparc_sparclite_le
74d26813
L		 733 || machine == bfd_mach_sparc_v8plus
734 || machine == bfd_mach_sparc_v8plusa
735 || machine == bfd_mach_sparc_v8plusb
736 || machine == bfd_mach_sparc_v9
737 || machine == bfd_mach_sparc_v9a
738 || machine == bfd_mach_sparc_v9b)
923f08ff
AM		 739 arch_flags = M_SPARC;
740 else if (machine == bfd_mach_sparc_sparclet)
741 arch_flags = M_SPARCLET;
742 break;
743
744 case bfd_arch_m68k:
745 switch (machine)
746 {
747 case 0: arch_flags = M_68010; break;
b34976b6 748 case bfd_mach_m68000: arch_flags = M_UNKNOWN; *unknown = FALSE; break;
923f08ff
AM		 749 case bfd_mach_m68010: arch_flags = M_68010; break;
750 case bfd_mach_m68020: arch_flags = M_68020; break;
751 default: arch_flags = M_UNKNOWN; break;
752 }
252b5132 753 break;
923f08ff
AM		 754
755 case bfd_arch_i386:
3b77b1d5
AM		 756 if (machine == 0
757 || machine == bfd_mach_i386_i386
758 || machine == bfd_mach_i386_i386_intel_syntax)
923f08ff 759 arch_flags = M_386;
252b5132 760 break;
923f08ff 761
923f08ff
AM		 762 case bfd_arch_arm:
763 if (machine == 0)
764 arch_flags = M_ARM;
252b5132 765 break;
252b5132 766
923f08ff
AM		 767 case bfd_arch_mips:
768 switch (machine)
769 {
770 case 0:
771 case bfd_mach_mips3000:
772 case bfd_mach_mips3900:
773 arch_flags = M_MIPS1;
774 break;
775 case bfd_mach_mips6000:
776 arch_flags = M_MIPS2;
777 break;
778 case bfd_mach_mips4000:
779 case bfd_mach_mips4010:
780 case bfd_mach_mips4100:
781 case bfd_mach_mips4300:
782 case bfd_mach_mips4400:
783 case bfd_mach_mips4600:
784 case bfd_mach_mips4650:
785 case bfd_mach_mips8000:
0d2e43ed 786 case bfd_mach_mips9000:
923f08ff
AM		 787 case bfd_mach_mips10000:
788 case bfd_mach_mips12000:
3aa3176b
TS		 789 case bfd_mach_mips14000:
790 case bfd_mach_mips16000:
923f08ff
AM		 791 case bfd_mach_mips16:
792 case bfd_mach_mipsisa32:
af7ee8bf 793 case bfd_mach_mipsisa32r2:
ae52f483
AB		 794 case bfd_mach_mipsisa32r3:
795 case bfd_mach_mipsisa32r5:
7361da2c 796 case bfd_mach_mipsisa32r6:
923f08ff
AM		 797 case bfd_mach_mips5:
798 case bfd_mach_mipsisa64:
5f74bc13 799 case bfd_mach_mipsisa64r2:
ae52f483
AB		 800 case bfd_mach_mipsisa64r3:
801 case bfd_mach_mipsisa64r5:
7361da2c 802 case bfd_mach_mipsisa64r6:
923f08ff 803 case bfd_mach_mips_sb1:
52b6b6b9 804 case bfd_mach_mips_xlr:
923f08ff
AM		 805 /* FIXME: These should be MIPS3, MIPS4, MIPS16, MIPS32, etc. */
806 arch_flags = M_MIPS2;
807 break;
808 default:
809 arch_flags = M_UNKNOWN;
810 break;
811 }
812 break;
813
814 case bfd_arch_ns32k:
815 switch (machine)
816 {
817 case 0: arch_flags = M_NS32532; break;
818 case 32032: arch_flags = M_NS32032; break;
819 case 32532: arch_flags = M_NS32532; break;
820 default: arch_flags = M_UNKNOWN; break;
821 }
822 break;
252b5132 823
923f08ff 824 case bfd_arch_vax:
b34976b6 825 *unknown = FALSE;
923f08ff 826 break;
06c15ad7 827
923f08ff
AM		 828 case bfd_arch_cris:
829 if (machine == 0 || machine == 255)
830 arch_flags = M_CRIS;
831 break;
832
727e493d
MK		 833 case bfd_arch_m88k:
834 *unknown = FALSE;
835 break;
836
923f08ff
AM		 837 default:
838 arch_flags = M_UNKNOWN;
839 }
252b5132
RH		 840
841 if (arch_flags != M_UNKNOWN)
b34976b6 842 *unknown = FALSE;
252b5132
RH		 843
844 return arch_flags;
845}
846
252b5132
RH		 847/*
848FUNCTION
849 aout_@var{size}_set_arch_mach
850
851SYNOPSIS
b34976b6 852 bfd_boolean aout_@var{size}_set_arch_mach,
252b5132
RH		 853 (bfd *,
854 enum bfd_architecture arch,
116c20d2 855 unsigned long machine);
252b5132
RH		 856
857DESCRIPTION
858 Set the architecture and the machine of the BFD @var{abfd} to the
859 values @var{arch} and @var{machine}. Verify that @var{abfd}'s format
860 can support the architecture required.
861*/
862
b34976b6 863bfd_boolean
116c20d2
NC		 864NAME (aout, set_arch_mach) (bfd *abfd,
865 enum bfd_architecture arch,
866 unsigned long machine)
252b5132
RH		 867{
868 if (! bfd_default_set_arch_mach (abfd, arch, machine))
b34976b6 869 return FALSE;
252b5132
RH		 870
871 if (arch != bfd_arch_unknown)
872 {
b34976b6 873 bfd_boolean unknown;
252b5132 874
116c20d2 875 NAME (aout, machine_type) (arch, machine, &unknown);
252b5132 876 if (unknown)
b34976b6 877 return FALSE;
252b5132
RH		 878 }
879
f7c33884 880 /* Determine the size of a relocation entry. */
923f08ff
AM		 881 switch (arch)
882 {
883 case bfd_arch_sparc:
923f08ff
AM		 884 case bfd_arch_mips:
885 obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
886 break;
887 default:
888 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
889 break;
890 }
252b5132 891
923f08ff 892 return (*aout_backend_info (abfd)->set_sizes) (abfd);
252b5132
RH		 893}
894
895static void
116c20d2 896adjust_o_magic (bfd *abfd, struct internal_exec *execp)
252b5132
RH		 897{
898 file_ptr pos = adata (abfd).exec_bytes_size;
899 bfd_vma vma = 0;
900 int pad = 0;
901
902 /* Text. */
923f08ff
AM		 903 obj_textsec (abfd)->filepos = pos;
904 if (!obj_textsec (abfd)->user_set_vma)
905 obj_textsec (abfd)->vma = vma;
252b5132 906 else
923f08ff 907 vma = obj_textsec (abfd)->vma;
252b5132 908
eea6121a
AM		 909 pos += obj_textsec (abfd)->size;
910 vma += obj_textsec (abfd)->size;
252b5132
RH		 911
912 /* Data. */
923f08ff 913 if (!obj_datasec (abfd)->user_set_vma)
252b5132 914 {
eea6121a 915 obj_textsec (abfd)->size += pad;
252b5132
RH		 916 pos += pad;
917 vma += pad;
923f08ff 918 obj_datasec (abfd)->vma = vma;
252b5132
RH		 919 }
920 else
923f08ff
AM		 921 vma = obj_datasec (abfd)->vma;
922 obj_datasec (abfd)->filepos = pos;
eea6121a
AM		 923 pos += obj_datasec (abfd)->size;
924 vma += obj_datasec (abfd)->size;
252b5132
RH		 925
926 /* BSS. */
923f08ff 927 if (!obj_bsssec (abfd)->user_set_vma)
252b5132 928 {
eea6121a 929 obj_datasec (abfd)->size += pad;
252b5132
RH		 930 pos += pad;
931 vma += pad;
923f08ff 932 obj_bsssec (abfd)->vma = vma;
252b5132
RH		 933 }
934 else
935 {
08da05b0 936 /* The VMA of the .bss section is set by the VMA of the
252b5132
RH		 937 .data section plus the size of the .data section. We may
938 need to add padding bytes to make this true. */
939 pad = obj_bsssec (abfd)->vma - vma;
940 if (pad > 0)
941 {
eea6121a 942 obj_datasec (abfd)->size += pad;
252b5132
RH		 943 pos += pad;
944 }
945 }
923f08ff 946 obj_bsssec (abfd)->filepos = pos;
252b5132
RH		 947
948 /* Fix up the exec header. */
eea6121a
AM		 949 execp->a_text = obj_textsec (abfd)->size;
950 execp->a_data = obj_datasec (abfd)->size;
951 execp->a_bss = obj_bsssec (abfd)->size;
252b5132
RH		 952 N_SET_MAGIC (*execp, OMAGIC);
953}
954
955static void
116c20d2 956adjust_z_magic (bfd *abfd, struct internal_exec *execp)
252b5132
RH		 957{
958 bfd_size_type data_pad, text_pad;
959 file_ptr text_end;
dc810e39 960 const struct aout_backend_data *abdp;
116c20d2
NC		 961 /* TRUE if text includes exec header. */
962 bfd_boolean ztih;
0ef5a5bd 963
252b5132
RH		 964 abdp = aout_backend_info (abfd);
965
966 /* Text. */
967 ztih = (abdp != NULL
968 && (abdp->text_includes_header
969 || obj_aout_subformat (abfd) == q_magic_format));
923f08ff
AM		 970 obj_textsec (abfd)->filepos = (ztih
971 ? adata (abfd).exec_bytes_size
972 : adata (abfd).zmagic_disk_block_size);
973 if (! obj_textsec (abfd)->user_set_vma)
252b5132
RH		 974 {
975 /* ?? Do we really need to check for relocs here? */
923f08ff
AM		 976 obj_textsec (abfd)->vma = ((abfd->flags & HAS_RELOC)
977 ? 0
978 : (ztih
979 ? (abdp->default_text_vma
980 + adata (abfd).exec_bytes_size)
981 : abdp->default_text_vma));
252b5132
RH		 982 text_pad = 0;
983 }
984 else
985 {
986 /* The .text section is being loaded at an unusual address. We
987 may need to pad it such that the .data section starts at a page
988 boundary. */
989 if (ztih)
990 text_pad = ((obj_textsec (abfd)->filepos - obj_textsec (abfd)->vma)
991 & (adata (abfd).page_size - 1));
992 else
993 text_pad = ((- obj_textsec (abfd)->vma)
994 & (adata (abfd).page_size - 1));
995 }
996
997 /* Find start of data. */
998 if (ztih)
999 {
eea6121a 1000 text_end = obj_textsec (abfd)->filepos + obj_textsec (abfd)->size;
252b5132
RH		 1001 text_pad += BFD_ALIGN (text_end, adata (abfd).page_size) - text_end;
1002 }
1003 else
1004 {
1005 /* Note that if page_size == zmagic_disk_block_size, then
1006 filepos == page_size, and this case is the same as the ztih
1007 case. */
eea6121a 1008 text_end = obj_textsec (abfd)->size;
252b5132
RH		 1009 text_pad += BFD_ALIGN (text_end, adata (abfd).page_size) - text_end;
1010 text_end += obj_textsec (abfd)->filepos;
1011 }
eea6121a 1012 obj_textsec (abfd)->size += text_pad;
252b5132
RH		 1013 text_end += text_pad;
1014
1015 /* Data. */
923f08ff 1016 if (!obj_datasec (abfd)->user_set_vma)
252b5132
RH		 1017 {
1018 bfd_vma vma;
eea6121a 1019 vma = obj_textsec (abfd)->vma + obj_textsec (abfd)->size;
923f08ff 1020 obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
252b5132
RH		 1021 }
1022 if (abdp && abdp->zmagic_mapped_contiguous)
1023 {
dee0a8f4
NC		 1024 asection * text = obj_textsec (abfd);
1025 asection * data = obj_datasec (abfd);
1026
eea6121a 1027 text_pad = data->vma - (text->vma + text->size);
dee0a8f4
NC		 1028 /* Only pad the text section if the data
1029 section is going to be placed after it. */
1030 if (text_pad > 0)
eea6121a 1031 text->size += text_pad;
252b5132 1032 }
923f08ff 1033 obj_datasec (abfd)->filepos = (obj_textsec (abfd)->filepos
eea6121a 1034 + obj_textsec (abfd)->size);
0ef5a5bd 1035
252b5132 1036 /* Fix up exec header while we're at it. */
eea6121a 1037 execp->a_text = obj_textsec (abfd)->size;
252b5132 1038 if (ztih && (!abdp || (abdp && !abdp->exec_header_not_counted)))
923f08ff 1039 execp->a_text += adata (abfd).exec_bytes_size;
252b5132
RH		 1040 if (obj_aout_subformat (abfd) == q_magic_format)
1041 N_SET_MAGIC (*execp, QMAGIC);
1042 else
1043 N_SET_MAGIC (*execp, ZMAGIC);
1044
1045 /* Spec says data section should be rounded up to page boundary. */
eea6121a
AM		 1046 obj_datasec (abfd)->size
1047 = align_power (obj_datasec (abfd)->size,
923f08ff 1048 obj_bsssec (abfd)->alignment_power);
eea6121a 1049 execp->a_data = BFD_ALIGN (obj_datasec (abfd)->size,
923f08ff 1050 adata (abfd).page_size);
eea6121a 1051 data_pad = execp->a_data - obj_datasec (abfd)->size;
252b5132
RH		 1052
1053 /* BSS. */
923f08ff
AM		 1054 if (!obj_bsssec (abfd)->user_set_vma)
1055 obj_bsssec (abfd)->vma = (obj_datasec (abfd)->vma
eea6121a 1056 + obj_datasec (abfd)->size);
252b5132
RH		 1057 /* If the BSS immediately follows the data section and extra space
1058 in the page is left after the data section, fudge data
1059 in the header so that the bss section looks smaller by that
1060 amount. We'll start the bss section there, and lie to the OS.
1061 (Note that a linker script, as well as the above assignment,
1062 could have explicitly set the BSS vma to immediately follow
1063 the data section.) */
923f08ff 1064 if (align_power (obj_bsssec (abfd)->vma, obj_bsssec (abfd)->alignment_power)
eea6121a
AM		 1065 == obj_datasec (abfd)->vma + obj_datasec (abfd)->size)
1066 execp->a_bss = (data_pad > obj_bsssec (abfd)->size
1067 ? 0 : obj_bsssec (abfd)->size - data_pad);
252b5132 1068 else
eea6121a 1069 execp->a_bss = obj_bsssec (abfd)->size;
252b5132
RH		 1070}
1071
1072static void
116c20d2 1073adjust_n_magic (bfd *abfd, struct internal_exec *execp)
252b5132 1074{
923f08ff 1075 file_ptr pos = adata (abfd).exec_bytes_size;
252b5132
RH		 1076 bfd_vma vma = 0;
1077 int pad;
0ef5a5bd 1078
252b5132 1079 /* Text. */
923f08ff
AM		 1080 obj_textsec (abfd)->filepos = pos;
1081 if (!obj_textsec (abfd)->user_set_vma)
1082 obj_textsec (abfd)->vma = vma;
252b5132 1083 else
923f08ff 1084 vma = obj_textsec (abfd)->vma;
eea6121a
AM		 1085 pos += obj_textsec (abfd)->size;
1086 vma += obj_textsec (abfd)->size;
252b5132
RH		 1087
1088 /* Data. */
923f08ff
AM		 1089 obj_datasec (abfd)->filepos = pos;
1090 if (!obj_datasec (abfd)->user_set_vma)
1091 obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
1092 vma = obj_datasec (abfd)->vma;
0ef5a5bd 1093
252b5132 1094 /* Since BSS follows data immediately, see if it needs alignment. */
eea6121a 1095 vma += obj_datasec (abfd)->size;
923f08ff 1096 pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
eea6121a
AM		 1097 obj_datasec (abfd)->size += pad;
1098 pos += obj_datasec (abfd)->size;
252b5132
RH		 1099
1100 /* BSS. */
923f08ff
AM		 1101 if (!obj_bsssec (abfd)->user_set_vma)
1102 obj_bsssec (abfd)->vma = vma;
252b5132 1103 else
923f08ff 1104 vma = obj_bsssec (abfd)->vma;
252b5132
RH		 1105
1106 /* Fix up exec header. */
eea6121a
AM		 1107 execp->a_text = obj_textsec (abfd)->size;
1108 execp->a_data = obj_datasec (abfd)->size;
1109 execp->a_bss = obj_bsssec (abfd)->size;
252b5132
RH		 1110 N_SET_MAGIC (*execp, NMAGIC);
1111}
1112
b34976b6 1113bfd_boolean
116c20d2
NC		 1114NAME (aout, adjust_sizes_and_vmas) (bfd *abfd,
1115 bfd_size_type *text_size,
1116 file_ptr *text_end ATTRIBUTE_UNUSED)
252b5132
RH		 1117{
1118 struct internal_exec *execp = exec_hdr (abfd);
1119
116c20d2 1120 if (! NAME (aout, make_sections) (abfd))
b34976b6 1121 return FALSE;
252b5132 1122
923f08ff 1123 if (adata (abfd).magic != undecided_magic)
b34976b6 1124 return TRUE;
252b5132 1125
eea6121a
AM		 1126 obj_textsec (abfd)->size =
1127 align_power (obj_textsec (abfd)->size,
923f08ff 1128 obj_textsec (abfd)->alignment_power);
252b5132 1129
eea6121a 1130 *text_size = obj_textsec (abfd)->size;
252b5132
RH		 1131 /* Rule (heuristic) for when to pad to a new page. Note that there
1132 are (at least) two ways demand-paged (ZMAGIC) files have been
1133 handled. Most Berkeley-based systems start the text segment at
1134 (TARGET_PAGE_SIZE). However, newer versions of SUNOS start the text
1135 segment right after the exec header; the latter is counted in the
1136 text segment size, and is paged in by the kernel with the rest of
0ef5a5bd 1137 the text. */
252b5132
RH		 1138
1139 /* This perhaps isn't the right way to do this, but made it simpler for me
1140 to understand enough to implement it. Better would probably be to go
1141 right from BFD flags to alignment/positioning characteristics. But the
1142 old code was sloppy enough about handling the flags, and had enough
1143 other magic, that it was a little hard for me to understand. I think
1144 I understand it better now, but I haven't time to do the cleanup this
1145 minute. */
1146
1147 if (abfd->flags & D_PAGED)
1148 /* Whether or not WP_TEXT is set -- let D_PAGED override. */
923f08ff 1149 adata (abfd).magic = z_magic;
252b5132 1150 else if (abfd->flags & WP_TEXT)
923f08ff 1151 adata (abfd).magic = n_magic;
252b5132 1152 else
923f08ff 1153 adata (abfd).magic = o_magic;
252b5132
RH		 1154
1155#ifdef BFD_AOUT_DEBUG /* requires gcc2 */
1156#if __GNUC__ >= 2
1157 fprintf (stderr, "%s text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x,%x>\n",
1158 ({ char *str;
923f08ff
AM		 1159 switch (adata (abfd).magic)
1160 {
1161 case n_magic: str = "NMAGIC"; break;
1162 case o_magic: str = "OMAGIC"; break;
1163 case z_magic: str = "ZMAGIC"; break;
1164 default: abort ();
1165 }
252b5132
RH		 1166 str;
1167 }),
eea6121a 1168 obj_textsec (abfd)->vma, obj_textsec (abfd)->size,
923f08ff 1169 obj_textsec (abfd)->alignment_power,
eea6121a 1170 obj_datasec (abfd)->vma, obj_datasec (abfd)->size,
923f08ff 1171 obj_datasec (abfd)->alignment_power,
eea6121a 1172 obj_bsssec (abfd)->vma, obj_bsssec (abfd)->size,
923f08ff 1173 obj_bsssec (abfd)->alignment_power);
252b5132
RH		 1174#endif
1175#endif
1176
923f08ff 1177 switch (adata (abfd).magic)
252b5132
RH		 1178 {
1179 case o_magic:
1180 adjust_o_magic (abfd, execp);
1181 break;
1182 case z_magic:
1183 adjust_z_magic (abfd, execp);
1184 break;
1185 case n_magic:
1186 adjust_n_magic (abfd, execp);
1187 break;
1188 default:
1189 abort ();
1190 }
1191
1192#ifdef BFD_AOUT_DEBUG
1193 fprintf (stderr, " text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x>\n",
eea6121a 1194 obj_textsec (abfd)->vma, obj_textsec (abfd)->size,
923f08ff 1195 obj_textsec (abfd)->filepos,
eea6121a 1196 obj_datasec (abfd)->vma, obj_datasec (abfd)->size,
923f08ff 1197 obj_datasec (abfd)->filepos,
eea6121a 1198 obj_bsssec (abfd)->vma, obj_bsssec (abfd)->size);
252b5132
RH		 1199#endif
1200
b34976b6 1201 return TRUE;
252b5132
RH		 1202}
1203
1204/*
1205FUNCTION
1206 aout_@var{size}_new_section_hook
1207
1208SYNOPSIS
b34976b6 1209 bfd_boolean aout_@var{size}_new_section_hook,
252b5132 1210 (bfd *abfd,
116c20d2 1211 asection *newsect);
252b5132
RH		 1212
1213DESCRIPTION
1214 Called by the BFD in response to a @code{bfd_make_section}
1215 request.
1216*/
b34976b6 1217bfd_boolean
116c20d2 1218NAME (aout, new_section_hook) (bfd *abfd, asection *newsect)
252b5132 1219{
f7c33884 1220 /* Align to double at least. */
923f08ff 1221 newsect->alignment_power = bfd_get_arch_info (abfd)->section_align_power;
252b5132 1222
252b5132 1223 if (bfd_get_format (abfd) == bfd_object)
f7c33884
NC		 1224 {
1225 if (obj_textsec (abfd) == NULL && !strcmp (newsect->name, ".text"))
1226 {
1227 obj_textsec (abfd)= newsect;
1228 newsect->target_index = N_TEXT;
f7c33884 1229 }
f592407e 1230 else if (obj_datasec (abfd) == NULL && !strcmp (newsect->name, ".data"))
f7c33884
NC		 1231 {
1232 obj_datasec (abfd) = newsect;
1233 newsect->target_index = N_DATA;
f7c33884 1234 }
f592407e 1235 else if (obj_bsssec (abfd) == NULL && !strcmp (newsect->name, ".bss"))
f7c33884
NC		 1236 {
1237 obj_bsssec (abfd) = newsect;
1238 newsect->target_index = N_BSS;
f7c33884
NC		 1239 }
1240 }
252b5132 1241
f7c33884 1242 /* We allow more than three sections internally. */
f592407e 1243 return _bfd_generic_new_section_hook (abfd, newsect);
252b5132
RH		 1244}
1245
b34976b6 1246bfd_boolean
116c20d2
NC		 1247NAME (aout, set_section_contents) (bfd *abfd,
1248 sec_ptr section,
1249 const void * location,
1250 file_ptr offset,
1251 bfd_size_type count)
252b5132
RH		 1252{
1253 file_ptr text_end;
1254 bfd_size_type text_size;
1255
1256 if (! abfd->output_has_begun)
1257 {
116c20d2 1258 if (! NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end))
b34976b6 1259 return FALSE;
252b5132
RH		 1260 }
1261
1262 if (section == obj_bsssec (abfd))
1263 {
1264 bfd_set_error (bfd_error_no_contents);
b34976b6 1265 return FALSE;
252b5132
RH		 1266 }
1267
1268 if (section != obj_textsec (abfd)
1269 && section != obj_datasec (abfd))
1270 {
e6af3a53
NC		 1271 if (aout_section_merge_with_text_p (abfd, section))
1272 section->filepos = obj_textsec (abfd)->filepos +
1273 (section->vma - obj_textsec (abfd)->vma);
1274 else
1275 {
1276 (*_bfd_error_handler)
1277 (_("%s: can not represent section `%s' in a.out object file format"),
1278 bfd_get_filename (abfd), bfd_get_section_name (abfd, section));
1279 bfd_set_error (bfd_error_nonrepresentable_section);
1280 return FALSE;
1281 }
252b5132
RH		 1282 }
1283
1284 if (count != 0)
1285 {
1286 if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
dc810e39 1287 || bfd_bwrite (location, count, abfd) != count)
b34976b6 1288 return FALSE;
252b5132
RH		 1289 }
1290
b34976b6 1291 return TRUE;
252b5132
RH		 1292}
1293\f
1294/* Read the external symbols from an a.out file. */
1295
b34976b6 1296static bfd_boolean
116c20d2 1297aout_get_external_symbols (bfd *abfd)
252b5132 1298{
116c20d2 1299 if (obj_aout_external_syms (abfd) == NULL)
252b5132
RH		 1300 {
1301 bfd_size_type count;
1302 struct external_nlist *syms;
7c53fd1c 1303 bfd_size_type amt = exec_hdr (abfd)->a_syms;
252b5132 1304
7c53fd1c 1305 count = amt / EXTERNAL_NLIST_SIZE;
6b8f0fd5
MS		 1306 if (count == 0)
1307 return TRUE; /* Nothing to do. */
252b5132
RH		 1308
1309#ifdef USE_MMAP
7c53fd1c 1310 if (! bfd_get_file_window (abfd, obj_sym_filepos (abfd), amt,
b34976b6
AM		 1311 &obj_aout_sym_window (abfd), TRUE))
1312 return FALSE;
252b5132
RH		 1313 syms = (struct external_nlist *) obj_aout_sym_window (abfd).data;
1314#else
1315 /* We allocate using malloc to make the values easy to free
1316 later on. If we put them on the objalloc it might not be
1317 possible to free them. */
7c53fd1c 1318 syms = (struct external_nlist *) bfd_malloc (amt);
6b8f0fd5 1319 if (syms == NULL)
b34976b6 1320 return FALSE;
252b5132 1321
7c53fd1c
AM		 1322 if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0
1323 || bfd_bread (syms, amt, abfd) != amt)
1324 {
1325 free (syms);
1326 return FALSE;
1327 }
252b5132
RH		 1328#endif
1329
1330 obj_aout_external_syms (abfd) = syms;
1331 obj_aout_external_sym_count (abfd) = count;
1332 }
0ef5a5bd 1333
252b5132
RH		 1334 if (obj_aout_external_strings (abfd) == NULL
1335 && exec_hdr (abfd)->a_syms != 0)
1336 {
1337 unsigned char string_chars[BYTES_IN_WORD];
1338 bfd_size_type stringsize;
1339 char *strings;
dc810e39 1340 bfd_size_type amt = BYTES_IN_WORD;
252b5132
RH		 1341
1342 /* Get the size of the strings. */
1343 if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0
116c20d2 1344 || bfd_bread ((void *) string_chars, amt, abfd) != amt)
b34976b6 1345 return FALSE;
252b5132
RH		 1346 stringsize = GET_WORD (abfd, string_chars);
1347
1348#ifdef USE_MMAP
82e51918 1349 if (! bfd_get_file_window (abfd, obj_str_filepos (abfd), stringsize,
b34976b6
AM		 1350 &obj_aout_string_window (abfd), TRUE))
1351 return FALSE;
252b5132
RH		 1352 strings = (char *) obj_aout_string_window (abfd).data;
1353#else
a50b1753 1354 strings = (char *) bfd_malloc (stringsize + 1);
252b5132 1355 if (strings == NULL)
b34976b6 1356 return FALSE;
252b5132
RH		 1357
1358 /* Skip space for the string count in the buffer for convenience
1359 when using indexes. */
dc810e39
AM		 1360 amt = stringsize - BYTES_IN_WORD;
1361 if (bfd_bread (strings + BYTES_IN_WORD, amt, abfd) != amt)
252b5132
RH		 1362 {
1363 free (strings);
b34976b6 1364 return FALSE;
252b5132
RH		 1365 }
1366#endif
1367
1368 /* Ensure that a zero index yields an empty string. */
1369 strings[0] = '\0';
1370
1371 strings[stringsize - 1] = 0;
1372
1373 obj_aout_external_strings (abfd) = strings;
1374 obj_aout_external_string_size (abfd) = stringsize;
1375 }
1376
b34976b6 1377 return TRUE;
252b5132
RH		 1378}
1379
1380/* Translate an a.out symbol into a BFD symbol. The desc, other, type
1381 and symbol->value fields of CACHE_PTR will be set from the a.out
1382 nlist structure. This function is responsible for setting
1383 symbol->flags and symbol->section, and adjusting symbol->value. */
1384
b34976b6 1385static bfd_boolean
116c20d2 1386translate_from_native_sym_flags (bfd *abfd, aout_symbol_type *cache_ptr)
252b5132
RH		 1387{
1388 flagword visible;
1389
1390 if ((cache_ptr->type & N_STAB) != 0
1391 || cache_ptr->type == N_FN)
1392 {
1393 asection *sec;
1394
1395 /* This is a debugging symbol. */
252b5132
RH		 1396 cache_ptr->symbol.flags = BSF_DEBUGGING;
1397
1398 /* Work out the symbol section. */
1399 switch (cache_ptr->type & N_TYPE)
1400 {
1401 case N_TEXT:
1402 case N_FN:
1403 sec = obj_textsec (abfd);
1404 break;
1405 case N_DATA:
1406 sec = obj_datasec (abfd);
1407 break;
1408 case N_BSS:
1409 sec = obj_bsssec (abfd);
1410 break;
1411 default:
1412 case N_ABS:
1413 sec = bfd_abs_section_ptr;
1414 break;
1415 }
1416
1417 cache_ptr->symbol.section = sec;
1418 cache_ptr->symbol.value -= sec->vma;
1419
b34976b6 1420 return TRUE;
252b5132
RH		 1421 }
1422
1423 /* Get the default visibility. This does not apply to all types, so
1424 we just hold it in a local variable to use if wanted. */
1425 if ((cache_ptr->type & N_EXT) == 0)
1426 visible = BSF_LOCAL;
1427 else
1428 visible = BSF_GLOBAL;
1429
1430 switch (cache_ptr->type)
1431 {
1432 default:
1433 case N_ABS: case N_ABS | N_EXT:
1434 cache_ptr->symbol.section = bfd_abs_section_ptr;
1435 cache_ptr->symbol.flags = visible;
1436 break;
1437
1438 case N_UNDF | N_EXT:
1439 if (cache_ptr->symbol.value != 0)
1440 {
1441 /* This is a common symbol. */
1442 cache_ptr->symbol.flags = BSF_GLOBAL;
1443 cache_ptr->symbol.section = bfd_com_section_ptr;
1444 }
1445 else
1446 {
1447 cache_ptr->symbol.flags = 0;
1448 cache_ptr->symbol.section = bfd_und_section_ptr;
1449 }
1450 break;
1451
1452 case N_TEXT: case N_TEXT | N_EXT:
1453 cache_ptr->symbol.section = obj_textsec (abfd);
1454 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1455 cache_ptr->symbol.flags = visible;
1456 break;
1457
1458 /* N_SETV symbols used to represent set vectors placed in the
1459 data section. They are no longer generated. Theoretically,
1460 it was possible to extract the entries and combine them with
1461 new ones, although I don't know if that was ever actually
1462 done. Unless that feature is restored, treat them as data
1463 symbols. */
1464 case N_SETV: case N_SETV | N_EXT:
1465 case N_DATA: case N_DATA | N_EXT:
1466 cache_ptr->symbol.section = obj_datasec (abfd);
1467 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1468 cache_ptr->symbol.flags = visible;
1469 break;
1470
1471 case N_BSS: case N_BSS | N_EXT:
1472 cache_ptr->symbol.section = obj_bsssec (abfd);
1473 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1474 cache_ptr->symbol.flags = visible;
1475 break;
1476
1477 case N_SETA: case N_SETA | N_EXT:
1478 case N_SETT: case N_SETT | N_EXT:
1479 case N_SETD: case N_SETD | N_EXT:
1480 case N_SETB: case N_SETB | N_EXT:
1481 {
1482 /* This code is no longer needed. It used to be used to make
1483 the linker handle set symbols, but they are now handled in
1484 the add_symbols routine instead. */
252b5132
RH		 1485 switch (cache_ptr->type & N_TYPE)
1486 {
1487 case N_SETA:
1488 cache_ptr->symbol.section = bfd_abs_section_ptr;
1489 break;
1490 case N_SETT:
1491 cache_ptr->symbol.section = obj_textsec (abfd);
1492 break;
1493 case N_SETD:
1494 cache_ptr->symbol.section = obj_datasec (abfd);
1495 break;
1496 case N_SETB:
1497 cache_ptr->symbol.section = obj_bsssec (abfd);
1498 break;
1499 }
1500
1501 cache_ptr->symbol.flags |= BSF_CONSTRUCTOR;
1502 }
1503 break;
1504
1505 case N_WARNING:
1506 /* This symbol is the text of a warning message. The next
1507 symbol is the symbol to associate the warning with. If a
1508 reference is made to that symbol, a warning is issued. */
1509 cache_ptr->symbol.flags = BSF_DEBUGGING | BSF_WARNING;
1510 cache_ptr->symbol.section = bfd_abs_section_ptr;
1511 break;
1512
1513 case N_INDR: case N_INDR | N_EXT:
1514 /* An indirect symbol. This consists of two symbols in a row.
1515 The first symbol is the name of the indirection. The second
1516 symbol is the name of the target. A reference to the first
1517 symbol becomes a reference to the second. */
1518 cache_ptr->symbol.flags = BSF_DEBUGGING | BSF_INDIRECT | visible;
1519 cache_ptr->symbol.section = bfd_ind_section_ptr;
1520 break;
1521
1522 case N_WEAKU:
1523 cache_ptr->symbol.section = bfd_und_section_ptr;
1524 cache_ptr->symbol.flags = BSF_WEAK;
1525 break;
1526
1527 case N_WEAKA:
1528 cache_ptr->symbol.section = bfd_abs_section_ptr;
1529 cache_ptr->symbol.flags = BSF_WEAK;
1530 break;
1531
1532 case N_WEAKT:
1533 cache_ptr->symbol.section = obj_textsec (abfd);
1534 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1535 cache_ptr->symbol.flags = BSF_WEAK;
1536 break;
1537
1538 case N_WEAKD:
1539 cache_ptr->symbol.section = obj_datasec (abfd);
1540 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1541 cache_ptr->symbol.flags = BSF_WEAK;
1542 break;
1543
1544 case N_WEAKB:
1545 cache_ptr->symbol.section = obj_bsssec (abfd);
1546 cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
1547 cache_ptr->symbol.flags = BSF_WEAK;
1548 break;
1549 }
1550
b34976b6 1551 return TRUE;
252b5132
RH		 1552}
1553
1554/* Set the fields of SYM_POINTER according to CACHE_PTR. */
1555
b34976b6 1556static bfd_boolean
116c20d2
NC		 1557translate_to_native_sym_flags (bfd *abfd,
1558 asymbol *cache_ptr,
1559 struct external_nlist *sym_pointer)
252b5132
RH		 1560{
1561 bfd_vma value = cache_ptr->value;
1562 asection *sec;
1563 bfd_vma off;
1564
1565 /* Mask out any existing type bits in case copying from one section
1566 to another. */
1567 sym_pointer->e_type[0] &= ~N_TYPE;
1568
1569 sec = bfd_get_section (cache_ptr);
1570 off = 0;
1571
1572 if (sec == NULL)
1573 {
1574 /* This case occurs, e.g., for the *DEBUG* section of a COFF
1575 file. */
1576 (*_bfd_error_handler)
1577 (_("%s: can not represent section for symbol `%s' in a.out object file format"),
0ef5a5bd 1578 bfd_get_filename (abfd),
252b5132
RH		 1579 cache_ptr->name != NULL ? cache_ptr->name : _("*unknown*"));
1580 bfd_set_error (bfd_error_nonrepresentable_section);
b34976b6 1581 return FALSE;
252b5132
RH		 1582 }
1583
1584 if (sec->output_section != NULL)
1585 {
1586 off = sec->output_offset;
1587 sec = sec->output_section;
1588 }
1589
1590 if (bfd_is_abs_section (sec))
1591 sym_pointer->e_type[0] |= N_ABS;
1592 else if (sec == obj_textsec (abfd))
1593 sym_pointer->e_type[0] |= N_TEXT;
1594 else if (sec == obj_datasec (abfd))
1595 sym_pointer->e_type[0] |= N_DATA;
1596 else if (sec == obj_bsssec (abfd))
1597 sym_pointer->e_type[0] |= N_BSS;
1598 else if (bfd_is_und_section (sec))
1599 sym_pointer->e_type[0] = N_UNDF | N_EXT;
1600 else if (bfd_is_ind_section (sec))
1601 sym_pointer->e_type[0] = N_INDR;
1602 else if (bfd_is_com_section (sec))
1603 sym_pointer->e_type[0] = N_UNDF | N_EXT;
1604 else
1605 {
e6af3a53
NC		 1606 if (aout_section_merge_with_text_p (abfd, sec))
1607 sym_pointer->e_type[0] |= N_TEXT;
1608 else
1609 {
1610 (*_bfd_error_handler)
1611 (_("%s: can not represent section `%s' in a.out object file format"),
1612 bfd_get_filename (abfd), bfd_get_section_name (abfd, sec));
1613 bfd_set_error (bfd_error_nonrepresentable_section);
1614 return FALSE;
1615 }
252b5132
RH		 1616 }
1617
f7c33884 1618 /* Turn the symbol from section relative to absolute again. */
252b5132
RH		 1619 value += sec->vma + off;
1620
1621 if ((cache_ptr->flags & BSF_WARNING) != 0)
1622 sym_pointer->e_type[0] = N_WARNING;
1623
1624 if ((cache_ptr->flags & BSF_DEBUGGING) != 0)
1625 sym_pointer->e_type[0] = ((aout_symbol_type *) cache_ptr)->type;
1626 else if ((cache_ptr->flags & BSF_GLOBAL) != 0)
1627 sym_pointer->e_type[0] |= N_EXT;
930d924d
L		 1628 else if ((cache_ptr->flags & BSF_LOCAL) != 0)
1629 sym_pointer->e_type[0] &= ~N_EXT;
252b5132
RH		 1630
1631 if ((cache_ptr->flags & BSF_CONSTRUCTOR) != 0)
1632 {
1633 int type = ((aout_symbol_type *) cache_ptr)->type;
f7c33884 1634
252b5132
RH		 1635 switch (type)
1636 {
1637 case N_ABS: type = N_SETA; break;
1638 case N_TEXT: type = N_SETT; break;
1639 case N_DATA: type = N_SETD; break;
1640 case N_BSS: type = N_SETB; break;
1641 }
1642 sym_pointer->e_type[0] = type;
1643 }
1644
1645 if ((cache_ptr->flags & BSF_WEAK) != 0)
1646 {
1647 int type;
1648
1649 switch (sym_pointer->e_type[0] & N_TYPE)
1650 {
1651 default:
1652 case N_ABS: type = N_WEAKA; break;
1653 case N_TEXT: type = N_WEAKT; break;
1654 case N_DATA: type = N_WEAKD; break;
1655 case N_BSS: type = N_WEAKB; break;
1656 case N_UNDF: type = N_WEAKU; break;
1657 }
1658 sym_pointer->e_type[0] = type;
1659 }
1660
923f08ff 1661 PUT_WORD (abfd, value, sym_pointer->e_value);
252b5132 1662
b34976b6 1663 return TRUE;
252b5132
RH		 1664}
1665\f
0ef5a5bd 1666/* Native-level interface to symbols. */
252b5132
RH		 1667
1668asymbol *
116c20d2 1669NAME (aout, make_empty_symbol) (bfd *abfd)
252b5132 1670{
dc810e39 1671 bfd_size_type amt = sizeof (aout_symbol_type);
116c20d2 1672
d3ce72d0
NC		 1673 aout_symbol_type *new_symbol = (aout_symbol_type *) bfd_zalloc (abfd, amt);
1674 if (!new_symbol)
252b5132 1675 return NULL;
d3ce72d0 1676 new_symbol->symbol.the_bfd = abfd;
252b5132 1677
d3ce72d0 1678 return &new_symbol->symbol;
252b5132
RH		 1679}
1680
1681/* Translate a set of internal symbols into external symbols. */
1682
b34976b6 1683bfd_boolean
116c20d2
NC		 1684NAME (aout, translate_symbol_table) (bfd *abfd,
1685 aout_symbol_type *in,
1686 struct external_nlist *ext,
1687 bfd_size_type count,
1688 char *str,
1689 bfd_size_type strsize,
1690 bfd_boolean dynamic)
252b5132
RH		 1691{
1692 struct external_nlist *ext_end;
1693
1694 ext_end = ext + count;
1695 for (; ext < ext_end; ext++, in++)
1696 {
1697 bfd_vma x;
1698
1699 x = GET_WORD (abfd, ext->e_strx);
1700 in->symbol.the_bfd = abfd;
1701
1702 /* For the normal symbols, the zero index points at the number
1703 of bytes in the string table but is to be interpreted as the
1704 null string. For the dynamic symbols, the number of bytes in
1705 the string table is stored in the __DYNAMIC structure and the
1706 zero index points at an actual string. */
1707 if (x == 0 && ! dynamic)
1708 in->symbol.name = "";
1709 else if (x < strsize)
1710 in->symbol.name = str + x;
1711 else
b34976b6 1712 return FALSE;
252b5132
RH		 1713
1714 in->symbol.value = GET_SWORD (abfd, ext->e_value);
dc810e39
AM		 1715 in->desc = H_GET_16 (abfd, ext->e_desc);
1716 in->other = H_GET_8 (abfd, ext->e_other);
1717 in->type = H_GET_8 (abfd, ext->e_type);
252b5132
RH		 1718 in->symbol.udata.p = NULL;
1719
1720 if (! translate_from_native_sym_flags (abfd, in))
b34976b6 1721 return FALSE;
252b5132
RH		 1722
1723 if (dynamic)
1724 in->symbol.flags |= BSF_DYNAMIC;
1725 }
1726
b34976b6 1727 return TRUE;
252b5132
RH		 1728}
1729
1730/* We read the symbols into a buffer, which is discarded when this
1731 function exits. We read the strings into a buffer large enough to
0ef5a5bd 1732 hold them all plus all the cached symbol entries. */
252b5132 1733
b34976b6 1734bfd_boolean
116c20d2 1735NAME (aout, slurp_symbol_table) (bfd *abfd)
252b5132
RH		 1736{
1737 struct external_nlist *old_external_syms;
1738 aout_symbol_type *cached;
dc810e39 1739 bfd_size_type cached_size;
252b5132 1740
f7c33884 1741 /* If there's no work to be done, don't do any. */
116c20d2 1742 if (obj_aout_symbols (abfd) != NULL)
b34976b6 1743 return TRUE;
252b5132
RH		 1744
1745 old_external_syms = obj_aout_external_syms (abfd);
1746
1747 if (! aout_get_external_symbols (abfd))
b34976b6 1748 return FALSE;
252b5132 1749
dc810e39 1750 cached_size = obj_aout_external_sym_count (abfd);
87b32780
MS		 1751 if (cached_size == 0)
1752 return TRUE; /* Nothing to do. */
1753
dc810e39 1754 cached_size *= sizeof (aout_symbol_type);
a50b1753 1755 cached = (aout_symbol_type *) bfd_zmalloc (cached_size);
87b32780 1756 if (cached == NULL)
b34976b6 1757 return FALSE;
252b5132
RH		 1758
1759 /* Convert from external symbol information to internal. */
116c20d2 1760 if (! (NAME (aout, translate_symbol_table)
252b5132
RH		 1761 (abfd, cached,
1762 obj_aout_external_syms (abfd),
1763 obj_aout_external_sym_count (abfd),
1764 obj_aout_external_strings (abfd),
1765 obj_aout_external_string_size (abfd),
b34976b6 1766 FALSE)))
252b5132
RH		 1767 {
1768 free (cached);
b34976b6 1769 return FALSE;
252b5132
RH		 1770 }
1771
1772 bfd_get_symcount (abfd) = obj_aout_external_sym_count (abfd);
1773
1774 obj_aout_symbols (abfd) = cached;
1775
1776 /* It is very likely that anybody who calls this function will not
1777 want the external symbol information, so if it was allocated
1778 because of our call to aout_get_external_symbols, we free it up
1779 right away to save space. */
116c20d2
NC		 1780 if (old_external_syms == NULL
1781 && obj_aout_external_syms (abfd) != NULL)
252b5132
RH		 1782 {
1783#ifdef USE_MMAP
1784 bfd_free_window (&obj_aout_sym_window (abfd));
1785#else
1786 free (obj_aout_external_syms (abfd));
1787#endif
1788 obj_aout_external_syms (abfd) = NULL;
1789 }
1790
b34976b6 1791 return TRUE;
252b5132
RH		 1792}
1793\f
1794/* We use a hash table when writing out symbols so that we only write
1795 out a particular string once. This helps particularly when the
1796 linker writes out stabs debugging entries, because each different
1797 contributing object file tends to have many duplicate stabs
1798 strings.
1799
1800 This hash table code breaks dbx on SunOS 4.1.3, so we don't do it
1801 if BFD_TRADITIONAL_FORMAT is set. */
1802
252b5132
RH		 1803/* Get the index of a string in a strtab, adding it if it is not
1804 already present. */
1805
116c20d2
NC		 1806static inline bfd_size_type
1807add_to_stringtab (bfd *abfd,
1808 struct bfd_strtab_hash *tab,
1809 const char *str,
1810 bfd_boolean copy)
252b5132 1811{
b34976b6 1812 bfd_boolean hash;
91d6fa6a 1813 bfd_size_type str_index;
252b5132
RH		 1814
1815 /* An index of 0 always means the empty string. */
1816 if (str == 0 || *str == '\0')
1817 return 0;
1818
1819 /* Don't hash if BFD_TRADITIONAL_FORMAT is set, because SunOS dbx
1820 doesn't understand a hashed string table. */
b34976b6 1821 hash = TRUE;
252b5132 1822 if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
b34976b6 1823 hash = FALSE;
252b5132 1824
91d6fa6a 1825 str_index = _bfd_stringtab_add (tab, str, hash, copy);
252b5132 1826
91d6fa6a 1827 if (str_index != (bfd_size_type) -1)
116c20d2
NC		 1828 /* Add BYTES_IN_WORD to the return value to account for the
1829 space taken up by the string table size. */
91d6fa6a 1830 str_index += BYTES_IN_WORD;
252b5132 1831
91d6fa6a 1832 return str_index;
252b5132
RH		 1833}
1834
1835/* Write out a strtab. ABFD is already at the right location in the
1836 file. */
1837
b34976b6 1838static bfd_boolean
116c20d2 1839emit_stringtab (bfd *abfd, struct bfd_strtab_hash *tab)
252b5132
RH		 1840{
1841 bfd_byte buffer[BYTES_IN_WORD];
dc810e39 1842 bfd_size_type amt = BYTES_IN_WORD;
252b5132
RH		 1843
1844 /* The string table starts with the size. */
1845 PUT_WORD (abfd, _bfd_stringtab_size (tab) + BYTES_IN_WORD, buffer);
116c20d2 1846 if (bfd_bwrite ((void *) buffer, amt, abfd) != amt)
b34976b6 1847 return FALSE;
252b5132
RH		 1848
1849 return _bfd_stringtab_emit (abfd, tab);
1850}
1851\f
b34976b6 1852bfd_boolean
116c20d2 1853NAME (aout, write_syms) (bfd *abfd)
252b5132
RH		 1854{
1855 unsigned int count ;
1856 asymbol **generic = bfd_get_outsymbols (abfd);
1857 struct bfd_strtab_hash *strtab;
1858
1859 strtab = _bfd_stringtab_init ();
1860 if (strtab == NULL)
b34976b6 1861 return FALSE;
252b5132
RH		 1862
1863 for (count = 0; count < bfd_get_symcount (abfd); count++)
1864 {
1865 asymbol *g = generic[count];
1866 bfd_size_type indx;
1867 struct external_nlist nsp;
dc810e39 1868 bfd_size_type amt;
252b5132 1869
b34976b6 1870 indx = add_to_stringtab (abfd, strtab, g->name, FALSE);
252b5132
RH		 1871 if (indx == (bfd_size_type) -1)
1872 goto error_return;
1873 PUT_WORD (abfd, indx, (bfd_byte *) nsp.e_strx);
1874
923f08ff 1875 if (bfd_asymbol_flavour (g) == abfd->xvec->flavour)
252b5132 1876 {
923f08ff
AM		 1877 H_PUT_16 (abfd, aout_symbol (g)->desc, nsp.e_desc);
1878 H_PUT_8 (abfd, aout_symbol (g)->other, nsp.e_other);
1879 H_PUT_8 (abfd, aout_symbol (g)->type, nsp.e_type);
252b5132
RH		 1880 }
1881 else
1882 {
dc810e39
AM		 1883 H_PUT_16 (abfd, 0, nsp.e_desc);
1884 H_PUT_8 (abfd, 0, nsp.e_other);
1885 H_PUT_8 (abfd, 0, nsp.e_type);
252b5132
RH		 1886 }
1887
1888 if (! translate_to_native_sym_flags (abfd, g, &nsp))
1889 goto error_return;
1890
dc810e39 1891 amt = EXTERNAL_NLIST_SIZE;
116c20d2 1892 if (bfd_bwrite ((void *) &nsp, amt, abfd) != amt)
252b5132
RH		 1893 goto error_return;
1894
1895 /* NB: `KEEPIT' currently overlays `udata.p', so set this only
1896 here, at the end. */
1897 g->KEEPIT = count;
1898 }
1899
1900 if (! emit_stringtab (abfd, strtab))
1901 goto error_return;
1902
1903 _bfd_stringtab_free (strtab);
1904
b34976b6 1905 return TRUE;
252b5132
RH		 1906
1907error_return:
1908 _bfd_stringtab_free (strtab);
b34976b6 1909 return FALSE;
252b5132 1910}
252b5132
RH		 1911\f
1912long
116c20d2 1913NAME (aout, canonicalize_symtab) (bfd *abfd, asymbol **location)
252b5132 1914{
116c20d2
NC		 1915 unsigned int counter = 0;
1916 aout_symbol_type *symbase;
252b5132 1917
116c20d2
NC		 1918 if (!NAME (aout, slurp_symbol_table) (abfd))
1919 return -1;
252b5132 1920
116c20d2
NC		 1921 for (symbase = obj_aout_symbols (abfd);
1922 counter++ < bfd_get_symcount (abfd);
1923 )
1924 *(location++) = (asymbol *) (symbase++);
1925 *location++ =0;
1926 return bfd_get_symcount (abfd);
252b5132 1927}
252b5132 1928\f
f7c33884 1929/* Standard reloc stuff. */
0ef5a5bd 1930/* Output standard relocation information to a file in target byte order. */
252b5132 1931
116c20d2
NC		 1932extern void NAME (aout, swap_std_reloc_out)
1933 (bfd *, arelent *, struct reloc_std_external *);
252b5132
RH		 1934
1935void
116c20d2
NC		 1936NAME (aout, swap_std_reloc_out) (bfd *abfd,
1937 arelent *g,
1938 struct reloc_std_external *natptr)
252b5132
RH		 1939{
1940 int r_index;
1941 asymbol *sym = *(g->sym_ptr_ptr);
1942 int r_extern;
1943 unsigned int r_length;
1944 int r_pcrel;
1945 int r_baserel, r_jmptable, r_relative;
1946 asection *output_section = sym->section->output_section;
1947
923f08ff 1948 PUT_WORD (abfd, g->address, natptr->r_address);
252b5132 1949
f7c33884
NC		 1950 r_length = g->howto->size ; /* Size as a power of two. */
1951 r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
252b5132
RH		 1952 /* XXX This relies on relocs coming from a.out files. */
1953 r_baserel = (g->howto->type & 8) != 0;
1954 r_jmptable = (g->howto->type & 16) != 0;
1955 r_relative = (g->howto->type & 32) != 0;
1956
f7c33884 1957 /* Name was clobbered by aout_write_syms to be symbol index. */
252b5132
RH		 1958
1959 /* If this relocation is relative to a symbol then set the
1960 r_index to the symbols index, and the r_extern bit.
1961
1962 Absolute symbols can come in in two ways, either as an offset
1963 from the abs section, or as a symbol which has an abs value.
f7c33884 1964 check for that here. */
252b5132 1965
252b5132
RH		 1966 if (bfd_is_com_section (output_section)
1967 || bfd_is_abs_section (output_section)
22184a77
NC		 1968 || bfd_is_und_section (output_section)
1969 /* PR gas/3041 a.out relocs against weak symbols
1970 must be treated as if they were against externs. */
1971 || (sym->flags & BSF_WEAK))
252b5132
RH		 1972 {
1973 if (bfd_abs_section_ptr->symbol == sym)
f7c33884
NC		 1974 {
1975 /* Whoops, looked like an abs symbol, but is
1976 really an offset from the abs section. */
1977 r_index = N_ABS;
1978 r_extern = 0;
1979 }
252b5132 1980 else
f7c33884
NC		 1981 {
1982 /* Fill in symbol. */
1983 r_extern = 1;
1984 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
1985 }
252b5132
RH		 1986 }
1987 else
1988 {
f7c33884 1989 /* Just an ordinary section. */
252b5132
RH		 1990 r_extern = 0;
1991 r_index = output_section->target_index;
1992 }
1993
f7c33884 1994 /* Now the fun stuff. */
923f08ff
AM		 1995 if (bfd_header_big_endian (abfd))
1996 {
252b5132
RH		 1997 natptr->r_index[0] = r_index >> 16;
1998 natptr->r_index[1] = r_index >> 8;
1999 natptr->r_index[2] = r_index;
923f08ff
AM		 2000 natptr->r_type[0] = ((r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0)
2001 | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0)
2002 | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0)
2003 | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_BIG : 0)
2004 | (r_relative ? RELOC_STD_BITS_RELATIVE_BIG : 0)
2005 | (r_length << RELOC_STD_BITS_LENGTH_SH_BIG));
2006 }
2007 else
2008 {
2009 natptr->r_index[2] = r_index >> 16;
2010 natptr->r_index[1] = r_index >> 8;
2011 natptr->r_index[0] = r_index;
2012 natptr->r_type[0] = ((r_extern ? RELOC_STD_BITS_EXTERN_LITTLE : 0)
2013 | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0)
2014 | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0)
2015 | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0)
2016 | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0)
2017 | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE));
2018 }
252b5132
RH		 2019}
2020
f7c33884 2021/* Extended stuff. */
0ef5a5bd 2022/* Output extended relocation information to a file in target byte order. */
252b5132 2023
116c20d2
NC		 2024extern void NAME (aout, swap_ext_reloc_out)
2025 (bfd *, arelent *, struct reloc_ext_external *);
252b5132
RH		 2026
2027void
116c20d2
NC		 2028NAME (aout, swap_ext_reloc_out) (bfd *abfd,
2029 arelent *g,
2030 struct reloc_ext_external *natptr)
252b5132
RH		 2031{
2032 int r_index;
2033 int r_extern;
2034 unsigned int r_type;
dc810e39 2035 bfd_vma r_addend;
252b5132
RH		 2036 asymbol *sym = *(g->sym_ptr_ptr);
2037 asection *output_section = sym->section->output_section;
2038
2039 PUT_WORD (abfd, g->address, natptr->r_address);
2040
2041 r_type = (unsigned int) g->howto->type;
2042
2043 r_addend = g->addend;
2044 if ((sym->flags & BSF_SECTION_SYM) != 0)
2045 r_addend += (*(g->sym_ptr_ptr))->section->output_section->vma;
2046
2047 /* If this relocation is relative to a symbol then set the
2048 r_index to the symbols index, and the r_extern bit.
2049
2050 Absolute symbols can come in in two ways, either as an offset
2051 from the abs section, or as a symbol which has an abs value.
2052 check for that here. */
252b5132
RH		 2053 if (bfd_is_abs_section (bfd_get_section (sym)))
2054 {
2055 r_extern = 0;
2056 r_index = N_ABS;
2057 }
2058 else if ((sym->flags & BSF_SECTION_SYM) == 0)
2059 {
2060 if (bfd_is_und_section (bfd_get_section (sym))
2061 || (sym->flags & BSF_GLOBAL) != 0)
2062 r_extern = 1;
2063 else
2064 r_extern = 0;
2065 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
2066 }
2067 else
2068 {
f7c33884 2069 /* Just an ordinary section. */
252b5132
RH		 2070 r_extern = 0;
2071 r_index = output_section->target_index;
2072 }
2073
f7c33884 2074 /* Now the fun stuff. */
923f08ff
AM		 2075 if (bfd_header_big_endian (abfd))
2076 {
2077 natptr->r_index[0] = r_index >> 16;
2078 natptr->r_index[1] = r_index >> 8;
2079 natptr->r_index[2] = r_index;
2080 natptr->r_type[0] = ((r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0)
2081 | (r_type << RELOC_EXT_BITS_TYPE_SH_BIG));
2082 }
2083 else
2084 {
2085 natptr->r_index[2] = r_index >> 16;
2086 natptr->r_index[1] = r_index >> 8;
2087 natptr->r_index[0] = r_index;
2088 natptr->r_type[0] = ((r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0)
2089 | (r_type << RELOC_EXT_BITS_TYPE_SH_LITTLE));
2090 }
252b5132
RH		 2091
2092 PUT_WORD (abfd, r_addend, natptr->r_addend);
2093}
2094
2095/* BFD deals internally with all things based from the section they're
2096 in. so, something in 10 bytes into a text section with a base of
2097 50 would have a symbol (.text+10) and know .text vma was 50.
2098
2099 Aout keeps all it's symbols based from zero, so the symbol would
2100 contain 60. This macro subs the base of each section from the value
923f08ff
AM		 2101 to give the true offset from the section. */
2102
2103#define MOVE_ADDRESS(ad) \
2104 if (r_extern) \
2105 { \
2106 /* Undefined symbol. */ \
2107 cache_ptr->sym_ptr_ptr = symbols + r_index; \
252b5132 2108 cache_ptr->addend = ad; \
252b5132 2109 } \
923f08ff
AM		 2110 else \
2111 { \
2112 /* Defined, section relative. Replace symbol with pointer to \
2113 symbol which points to section. */ \
2114 switch (r_index) \
2115 { \
2116 case N_TEXT: \
2117 case N_TEXT | N_EXT: \
2118 cache_ptr->sym_ptr_ptr = obj_textsec (abfd)->symbol_ptr_ptr; \
2119 cache_ptr->addend = ad - su->textsec->vma; \
2120 break; \
2121 case N_DATA: \
2122 case N_DATA | N_EXT: \
2123 cache_ptr->sym_ptr_ptr = obj_datasec (abfd)->symbol_ptr_ptr; \
2124 cache_ptr->addend = ad - su->datasec->vma; \
2125 break; \
2126 case N_BSS: \
2127 case N_BSS | N_EXT: \
2128 cache_ptr->sym_ptr_ptr = obj_bsssec (abfd)->symbol_ptr_ptr; \
2129 cache_ptr->addend = ad - su->bsssec->vma; \
2130 break; \
2131 default: \
2132 case N_ABS: \
2133 case N_ABS | N_EXT: \
2134 cache_ptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; \
2135 cache_ptr->addend = ad; \
2136 break; \
2137 } \
2138 }
252b5132
RH		 2139
2140void
116c20d2
NC		 2141NAME (aout, swap_ext_reloc_in) (bfd *abfd,
2142 struct reloc_ext_external *bytes,
2143 arelent *cache_ptr,
2144 asymbol **symbols,
2145 bfd_size_type symcount)
252b5132
RH		 2146{
2147 unsigned int r_index;
2148 int r_extern;
2149 unsigned int r_type;
2150 struct aoutdata *su = &(abfd->tdata.aout_data->a);
2151
2152 cache_ptr->address = (GET_SWORD (abfd, bytes->r_address));
2153
f7c33884 2154 /* Now the fun stuff. */
923f08ff
AM		 2155 if (bfd_header_big_endian (abfd))
2156 {
d45913a0
DA		 2157 r_index = (((unsigned int) bytes->r_index[0] << 16)
2158 | ((unsigned int) bytes->r_index[1] << 8)
923f08ff
AM		 2159 | bytes->r_index[2]);
2160 r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG));
2161 r_type = ((bytes->r_type[0] & RELOC_EXT_BITS_TYPE_BIG)
2162 >> RELOC_EXT_BITS_TYPE_SH_BIG);
2163 }
2164 else
2165 {
d45913a0
DA		 2166 r_index = (((unsigned int) bytes->r_index[2] << 16)
2167 | ((unsigned int) bytes->r_index[1] << 8)
923f08ff
AM		 2168 | bytes->r_index[0]);
2169 r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_LITTLE));
2170 r_type = ((bytes->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE)
2171 >> RELOC_EXT_BITS_TYPE_SH_LITTLE);
2172 }
252b5132 2173
ad756e3f
AM		 2174 if (r_type < TABLE_SIZE (howto_table_ext))
2175 cache_ptr->howto = howto_table_ext + r_type;
2176 else
2177 cache_ptr->howto = NULL;
252b5132
RH		 2178
2179 /* Base relative relocs are always against the symbol table,
2180 regardless of the setting of r_extern. r_extern just reflects
2181 whether the symbol the reloc is against is local or global. */
d45913a0
DA		 2182 if (r_type == (unsigned int) RELOC_BASE10
2183 || r_type == (unsigned int) RELOC_BASE13
2184 || r_type == (unsigned int) RELOC_BASE22)
252b5132
RH		 2185 r_extern = 1;
2186
2187 if (r_extern && r_index > symcount)
2188 {
2189 /* We could arrange to return an error, but it might be useful
2190 to see the file even if it is bad. */
2191 r_extern = 0;
2192 r_index = N_ABS;
2193 }
2194
923f08ff 2195 MOVE_ADDRESS (GET_SWORD (abfd, bytes->r_addend));
252b5132
RH		 2196}
2197
2198void
116c20d2
NC		 2199NAME (aout, swap_std_reloc_in) (bfd *abfd,
2200 struct reloc_std_external *bytes,
2201 arelent *cache_ptr,
2202 asymbol **symbols,
2203 bfd_size_type symcount)
252b5132
RH		 2204{
2205 unsigned int r_index;
2206 int r_extern;
2207 unsigned int r_length;
2208 int r_pcrel;
2209 int r_baserel, r_jmptable, r_relative;
2210 struct aoutdata *su = &(abfd->tdata.aout_data->a);
2211 unsigned int howto_idx;
2212
dc810e39 2213 cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
252b5132 2214
f7c33884 2215 /* Now the fun stuff. */
923f08ff
AM		 2216 if (bfd_header_big_endian (abfd))
2217 {
d45913a0
DA		 2218 r_index = (((unsigned int) bytes->r_index[0] << 16)
2219 | ((unsigned int) bytes->r_index[1] << 8)
923f08ff
AM		 2220 | bytes->r_index[2]);
2221 r_extern = (0 != (bytes->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
2222 r_pcrel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
2223 r_baserel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_BASEREL_BIG));
2224 r_jmptable= (0 != (bytes->r_type[0] & RELOC_STD_BITS_JMPTABLE_BIG));
2225 r_relative= (0 != (bytes->r_type[0] & RELOC_STD_BITS_RELATIVE_BIG));
2226 r_length = ((bytes->r_type[0] & RELOC_STD_BITS_LENGTH_BIG)
2227 >> RELOC_STD_BITS_LENGTH_SH_BIG);
2228 }
2229 else
2230 {
d45913a0
DA		 2231 r_index = (((unsigned int) bytes->r_index[2] << 16)
2232 | ((unsigned int) bytes->r_index[1] << 8)
923f08ff
AM		 2233 | bytes->r_index[0]);
2234 r_extern = (0 != (bytes->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
2235 r_pcrel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
2236 r_baserel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_BASEREL_LITTLE));
2237 r_jmptable= (0 != (bytes->r_type[0] & RELOC_STD_BITS_JMPTABLE_LITTLE));
2238 r_relative= (0 != (bytes->r_type[0] & RELOC_STD_BITS_RELATIVE_LITTLE));
2239 r_length = ((bytes->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
2240 >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
2241 }
252b5132 2242
923f08ff
AM		 2243 howto_idx = (r_length + 4 * r_pcrel + 8 * r_baserel
2244 + 16 * r_jmptable + 32 * r_relative);
ad756e3f
AM		 2245 if (howto_idx < TABLE_SIZE (howto_table_std))
2246 {
2247 cache_ptr->howto = howto_table_std + howto_idx;
2248 if (cache_ptr->howto->type == (unsigned int) -1)
2249 cache_ptr->howto = NULL;
2250 }
2251 else
2252 cache_ptr->howto = NULL;
252b5132
RH		 2253
2254 /* Base relative relocs are always against the symbol table,
2255 regardless of the setting of r_extern. r_extern just reflects
2256 whether the symbol the reloc is against is local or global. */
2257 if (r_baserel)
2258 r_extern = 1;
2259
2260 if (r_extern && r_index > symcount)
2261 {
2262 /* We could arrange to return an error, but it might be useful
2263 to see the file even if it is bad. */
2264 r_extern = 0;
2265 r_index = N_ABS;
2266 }
2267
923f08ff 2268 MOVE_ADDRESS (0);
252b5132
RH		 2269}
2270
2271/* Read and swap the relocs for a section. */
2272
b34976b6 2273bfd_boolean
116c20d2 2274NAME (aout, slurp_reloc_table) (bfd *abfd, sec_ptr asect, asymbol **symbols)
252b5132 2275{
dc810e39 2276 bfd_size_type count;
252b5132 2277 bfd_size_type reloc_size;
116c20d2 2278 void * relocs;
252b5132
RH		 2279 arelent *reloc_cache;
2280 size_t each_size;
2281 unsigned int counter = 0;
2282 arelent *cache_ptr;
dc810e39 2283 bfd_size_type amt;
252b5132
RH		 2284
2285 if (asect->relocation)
b34976b6 2286 return TRUE;
252b5132
RH		 2287
2288 if (asect->flags & SEC_CONSTRUCTOR)
b34976b6 2289 return TRUE;
252b5132
RH		 2290
2291 if (asect == obj_datasec (abfd))
923f08ff 2292 reloc_size = exec_hdr (abfd)->a_drsize;
252b5132 2293 else if (asect == obj_textsec (abfd))
923f08ff 2294 reloc_size = exec_hdr (abfd)->a_trsize;
252b5132
RH		 2295 else if (asect == obj_bsssec (abfd))
2296 reloc_size = 0;
2297 else
2298 {
2299 bfd_set_error (bfd_error_invalid_operation);
b34976b6 2300 return FALSE;
252b5132
RH		 2301 }
2302
078c4bfc
MS		 2303 if (reloc_size == 0)
2304 return TRUE; /* Nothing to be done. */
2305
252b5132 2306 if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0)
b34976b6 2307 return FALSE;
252b5132
RH		 2308
2309 each_size = obj_reloc_entry_size (abfd);
2310
2311 count = reloc_size / each_size;
078c4bfc
MS		 2312 if (count == 0)
2313 return TRUE; /* Nothing to be done. */
252b5132 2314
dc810e39 2315 amt = count * sizeof (arelent);
a50b1753 2316 reloc_cache = (arelent *) bfd_zmalloc (amt);
078c4bfc 2317 if (reloc_cache == NULL)
b34976b6 2318 return FALSE;
252b5132 2319
dc810e39 2320 relocs = bfd_malloc (reloc_size);
078c4bfc 2321 if (relocs == NULL)
252b5132
RH		 2322 {
2323 free (reloc_cache);
b34976b6 2324 return FALSE;
252b5132
RH		 2325 }
2326
dc810e39 2327 if (bfd_bread (relocs, reloc_size, abfd) != reloc_size)
252b5132
RH		 2328 {
2329 free (relocs);
2330 free (reloc_cache);
b34976b6 2331 return FALSE;
252b5132
RH		 2332 }
2333
2334 cache_ptr = reloc_cache;
2335 if (each_size == RELOC_EXT_SIZE)
2336 {
dc810e39 2337 struct reloc_ext_external *rptr = (struct reloc_ext_external *) relocs;
252b5132
RH		 2338
2339 for (; counter < count; counter++, rptr++, cache_ptr++)
1642229e 2340 MY_swap_ext_reloc_in (abfd, rptr, cache_ptr, symbols,
dc810e39 2341 (bfd_size_type) bfd_get_symcount (abfd));
252b5132
RH		 2342 }
2343 else
2344 {
dc810e39 2345 struct reloc_std_external *rptr = (struct reloc_std_external *) relocs;
252b5132
RH		 2346
2347 for (; counter < count; counter++, rptr++, cache_ptr++)
2348 MY_swap_std_reloc_in (abfd, rptr, cache_ptr, symbols,
dc810e39 2349 (bfd_size_type) bfd_get_symcount (abfd));
252b5132
RH		 2350 }
2351
2352 free (relocs);
2353
2354 asect->relocation = reloc_cache;
2355 asect->reloc_count = cache_ptr - reloc_cache;
2356
b34976b6 2357 return TRUE;
252b5132
RH		 2358}
2359
2360/* Write out a relocation section into an object file. */
2361
b34976b6 2362bfd_boolean
116c20d2 2363NAME (aout, squirt_out_relocs) (bfd *abfd, asection *section)
252b5132
RH		 2364{
2365 arelent **generic;
2366 unsigned char *native, *natptr;
2367 size_t each_size;
2368
2369 unsigned int count = section->reloc_count;
dc810e39 2370 bfd_size_type natsize;
252b5132
RH		 2371
2372 if (count == 0 || section->orelocation == NULL)
b34976b6 2373 return TRUE;
252b5132
RH		 2374
2375 each_size = obj_reloc_entry_size (abfd);
dc810e39 2376 natsize = (bfd_size_type) each_size * count;
a50b1753 2377 native = (unsigned char *) bfd_zalloc (abfd, natsize);
252b5132 2378 if (!native)
b34976b6 2379 return FALSE;
252b5132
RH		 2380
2381 generic = section->orelocation;
2382
2383 if (each_size == RELOC_EXT_SIZE)
2384 {
2385 for (natptr = native;
2386 count != 0;
2387 --count, natptr += each_size, ++generic)
1642229e
HPN		 2388 MY_swap_ext_reloc_out (abfd, *generic,
2389 (struct reloc_ext_external *) natptr);
252b5132
RH		 2390 }
2391 else
2392 {
2393 for (natptr = native;
2394 count != 0;
2395 --count, natptr += each_size, ++generic)
923f08ff
AM		 2396 MY_swap_std_reloc_out (abfd, *generic,
2397 (struct reloc_std_external *) natptr);
252b5132
RH		 2398 }
2399
116c20d2 2400 if (bfd_bwrite ((void *) native, natsize, abfd) != natsize)
dc810e39 2401 {
923f08ff 2402 bfd_release (abfd, native);
b34976b6 2403 return FALSE;
dc810e39 2404 }
252b5132
RH		 2405 bfd_release (abfd, native);
2406
b34976b6 2407 return TRUE;
252b5132
RH		 2408}
2409
f7c33884
NC		 2410/* This is stupid. This function should be a boolean predicate. */
2411
252b5132 2412long
116c20d2
NC		 2413NAME (aout, canonicalize_reloc) (bfd *abfd,
2414 sec_ptr section,
2415 arelent **relptr,
2416 asymbol **symbols)
252b5132
RH		 2417{
2418 arelent *tblptr = section->relocation;
2419 unsigned int count;
2420
2421 if (section == obj_bsssec (abfd))
2422 {
2423 *relptr = NULL;
2424 return 0;
2425 }
2426
116c20d2 2427 if (!(tblptr || NAME (aout, slurp_reloc_table) (abfd, section, symbols)))
252b5132
RH		 2428 return -1;
2429
923f08ff
AM		 2430 if (section->flags & SEC_CONSTRUCTOR)
2431 {
2432 arelent_chain *chain = section->constructor_chain;
2433 for (count = 0; count < section->reloc_count; count ++)
2434 {
2435 *relptr ++ = &chain->relent;
2436 chain = chain->next;
2437 }
252b5132 2438 }
923f08ff
AM		 2439 else
2440 {
2441 tblptr = section->relocation;
252b5132 2442
923f08ff
AM		 2443 for (count = 0; count++ < section->reloc_count; )
2444 {
2445 *relptr++ = tblptr++;
2446 }
2447 }
252b5132
RH		 2448 *relptr = 0;
2449
2450 return section->reloc_count;
2451}
2452
2453long
116c20d2 2454NAME (aout, get_reloc_upper_bound) (bfd *abfd, sec_ptr asect)
252b5132 2455{
923f08ff
AM		 2456 if (bfd_get_format (abfd) != bfd_object)
2457 {
2458 bfd_set_error (bfd_error_invalid_operation);
2459 return -1;
2460 }
f7c33884 2461
923f08ff 2462 if (asect->flags & SEC_CONSTRUCTOR)
116c20d2 2463 return sizeof (arelent *) * (asect->reloc_count + 1);
252b5132
RH		 2464
2465 if (asect == obj_datasec (abfd))
116c20d2
NC		 2466 return sizeof (arelent *)
2467 * ((exec_hdr (abfd)->a_drsize / obj_reloc_entry_size (abfd))
2468 + 1);
252b5132
RH		 2469
2470 if (asect == obj_textsec (abfd))
116c20d2
NC		 2471 return sizeof (arelent *)
2472 * ((exec_hdr (abfd)->a_trsize / obj_reloc_entry_size (abfd))
2473 + 1);
252b5132
RH		 2474
2475 if (asect == obj_bsssec (abfd))
2476 return sizeof (arelent *);
2477
2478 if (asect == obj_bsssec (abfd))
2479 return 0;
2480
2481 bfd_set_error (bfd_error_invalid_operation);
2482 return -1;
2483}
252b5132
RH		 2484\f
2485long
116c20d2 2486NAME (aout, get_symtab_upper_bound) (bfd *abfd)
252b5132 2487{
116c20d2 2488 if (!NAME (aout, slurp_symbol_table) (abfd))
252b5132
RH		 2489 return -1;
2490
2491 return (bfd_get_symcount (abfd)+1) * (sizeof (aout_symbol_type *));
2492}
2493
1725a96e 2494alent *
116c20d2
NC		 2495NAME (aout, get_lineno) (bfd *ignore_abfd ATTRIBUTE_UNUSED,
2496 asymbol *ignore_symbol ATTRIBUTE_UNUSED)
252b5132 2497{
116c20d2 2498 return NULL;
252b5132
RH		 2499}
2500
252b5132 2501void
116c20d2
NC		 2502NAME (aout, get_symbol_info) (bfd *ignore_abfd ATTRIBUTE_UNUSED,
2503 asymbol *symbol,
2504 symbol_info *ret)
252b5132
RH		 2505{
2506 bfd_symbol_info (symbol, ret);
2507
2508 if (ret->type == '?')
2509 {
923f08ff 2510 int type_code = aout_symbol (symbol)->type & 0xff;
252b5132
RH		 2511 const char *stab_name = bfd_get_stab_name (type_code);
2512 static char buf[10];
2513
2514 if (stab_name == NULL)
2515 {
e60b52c6 2516 sprintf (buf, "(%d)", type_code);
252b5132
RH		 2517 stab_name = buf;
2518 }
2519 ret->type = '-';
2520 ret->stab_type = type_code;
923f08ff
AM		 2521 ret->stab_other = (unsigned) (aout_symbol (symbol)->other & 0xff);
2522 ret->stab_desc = (unsigned) (aout_symbol (symbol)->desc & 0xffff);
252b5132
RH		 2523 ret->stab_name = stab_name;
2524 }
2525}
2526
252b5132 2527void
116c20d2
NC		 2528NAME (aout, print_symbol) (bfd *abfd,
2529 void * afile,
2530 asymbol *symbol,
2531 bfd_print_symbol_type how)
252b5132
RH		 2532{
2533 FILE *file = (FILE *)afile;
2534
923f08ff 2535 switch (how)
252b5132 2536 {
923f08ff
AM		 2537 case bfd_print_symbol_name:
2538 if (symbol->name)
2539 fprintf (file,"%s", symbol->name);
2540 break;
2541 case bfd_print_symbol_more:
2542 fprintf (file,"%4x %2x %2x",
2543 (unsigned) (aout_symbol (symbol)->desc & 0xffff),
2544 (unsigned) (aout_symbol (symbol)->other & 0xff),
2545 (unsigned) (aout_symbol (symbol)->type));
2546 break;
2547 case bfd_print_symbol_all:
2548 {
2549 const char *section_name = symbol->section->name;
252b5132 2550
116c20d2 2551 bfd_print_symbol_vandf (abfd, (void *)file, symbol);
252b5132 2552
923f08ff
AM		 2553 fprintf (file," %-5s %04x %02x %02x",
2554 section_name,
2555 (unsigned) (aout_symbol (symbol)->desc & 0xffff),
2556 (unsigned) (aout_symbol (symbol)->other & 0xff),
2557 (unsigned) (aout_symbol (symbol)->type & 0xff));
2558 if (symbol->name)
2559 fprintf (file," %s", symbol->name);
2560 }
2561 break;
252b5132 2562 }
252b5132
RH		 2563}
2564
2565/* If we don't have to allocate more than 1MB to hold the generic
2566 symbols, we use the generic minisymbol methord: it's faster, since
2567 it only translates the symbols once, not multiple times. */
2568#define MINISYM_THRESHOLD (1000000 / sizeof (asymbol))
2569
2570/* Read minisymbols. For minisymbols, we use the unmodified a.out
2571 symbols. The minisymbol_to_symbol function translates these into
2572 BFD asymbol structures. */
2573
2574long
116c20d2
NC		 2575NAME (aout, read_minisymbols) (bfd *abfd,
2576 bfd_boolean dynamic,
2577 void * *minisymsp,
2578 unsigned int *sizep)
252b5132
RH		 2579{
2580 if (dynamic)
116c20d2
NC		 2581 /* We could handle the dynamic symbols here as well, but it's
2582 easier to hand them off. */
2583 return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
252b5132
RH		 2584
2585 if (! aout_get_external_symbols (abfd))
2586 return -1;
2587
2588 if (obj_aout_external_sym_count (abfd) < MINISYM_THRESHOLD)
2589 return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
2590
116c20d2 2591 *minisymsp = (void *) obj_aout_external_syms (abfd);
252b5132
RH		 2592
2593 /* By passing the external symbols back from this routine, we are
2594 giving up control over the memory block. Clear
2595 obj_aout_external_syms, so that we do not try to free it
2596 ourselves. */
2597 obj_aout_external_syms (abfd) = NULL;
2598
2599 *sizep = EXTERNAL_NLIST_SIZE;
2600 return obj_aout_external_sym_count (abfd);
2601}
2602
2603/* Convert a minisymbol to a BFD asymbol. A minisymbol is just an
2604 unmodified a.out symbol. The SYM argument is a structure returned
2605 by bfd_make_empty_symbol, which we fill in here. */
2606
2607asymbol *
116c20d2
NC		 2608NAME (aout, minisymbol_to_symbol) (bfd *abfd,
2609 bfd_boolean dynamic,
2610 const void * minisym,
2611 asymbol *sym)
252b5132
RH		 2612{
2613 if (dynamic
2614 || obj_aout_external_sym_count (abfd) < MINISYM_THRESHOLD)
2615 return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
2616
2617 memset (sym, 0, sizeof (aout_symbol_type));
2618
2619 /* We call translate_symbol_table to translate a single symbol. */
116c20d2 2620 if (! (NAME (aout, translate_symbol_table)
252b5132
RH		 2621 (abfd,
2622 (aout_symbol_type *) sym,
2623 (struct external_nlist *) minisym,
2624 (bfd_size_type) 1,
2625 obj_aout_external_strings (abfd),
2626 obj_aout_external_string_size (abfd),
b34976b6 2627 FALSE)))
252b5132
RH		 2628 return NULL;
2629
2630 return sym;
2631}
2632
f7c33884
NC		 2633/* Provided a BFD, a section and an offset into the section, calculate
2634 and return the name of the source file and the line nearest to the
2635 wanted location. */
252b5132 2636
b34976b6 2637bfd_boolean
116c20d2 2638NAME (aout, find_nearest_line) (bfd *abfd,
116c20d2 2639 asymbol **symbols,
fb167eb2 2640 asection *section,
116c20d2
NC		 2641 bfd_vma offset,
2642 const char **filename_ptr,
2643 const char **functionname_ptr,
fb167eb2
AM		 2644 unsigned int *line_ptr,
2645 unsigned int *disriminator_ptr)
252b5132 2646{
f7c33884 2647 /* Run down the file looking for the filename, function and linenumber. */
252b5132 2648 asymbol **p;
dc810e39
AM		 2649 const char *directory_name = NULL;
2650 const char *main_file_name = NULL;
2651 const char *current_file_name = NULL;
116c20d2 2652 const char *line_file_name = NULL; /* Value of current_file_name at line number. */
dc810e39 2653 const char *line_directory_name = NULL; /* Value of directory_name at line number. */
252b5132
RH		 2654 bfd_vma low_line_vma = 0;
2655 bfd_vma low_func_vma = 0;
2656 asymbol *func = 0;
dc810e39 2657 bfd_size_type filelen, funclen;
252b5132
RH		 2658 char *buf;
2659
2660 *filename_ptr = abfd->filename;
2661 *functionname_ptr = 0;
2662 *line_ptr = 0;
fb167eb2
AM		 2663 if (disriminator_ptr)
2664 *disriminator_ptr = 0;
f7c33884 2665
116c20d2 2666 if (symbols != NULL)
923f08ff
AM		 2667 {
2668 for (p = symbols; *p; p++)
2669 {
2670 aout_symbol_type *q = (aout_symbol_type *) (*p);
2671 next:
2672 switch (q->type)
2673 {
2674 case N_TEXT:
2675 /* If this looks like a file name symbol, and it comes after
2676 the line number we have found so far, but before the
2677 offset, then we have probably not found the right line
2678 number. */
2679 if (q->symbol.value <= offset
2680 && ((q->symbol.value > low_line_vma
2681 && (line_file_name != NULL
2682 || *line_ptr != 0))
2683 || (q->symbol.value > low_func_vma
2684 && func != NULL)))
2685 {
2686 const char *symname;
252b5132 2687
923f08ff
AM		 2688 symname = q->symbol.name;
2689 if (strcmp (symname + strlen (symname) - 2, ".o") == 0)
2690 {
2691 if (q->symbol.value > low_line_vma)
2692 {
2693 *line_ptr = 0;
2694 line_file_name = NULL;
2695 }
2696 if (q->symbol.value > low_func_vma)
2697 func = NULL;
2698 }
2699 }
2700 break;
252b5132 2701
923f08ff
AM		 2702 case N_SO:
2703 /* If this symbol is less than the offset, but greater than
2704 the line number we have found so far, then we have not
2705 found the right line number. */
2706 if (q->symbol.value <= offset)
2707 {
2708 if (q->symbol.value > low_line_vma)
2709 {
2710 *line_ptr = 0;
2711 line_file_name = NULL;
2712 }
2713 if (q->symbol.value > low_func_vma)
2714 func = NULL;
2715 }
252b5132 2716
923f08ff
AM		 2717 main_file_name = current_file_name = q->symbol.name;
2718 /* Look ahead to next symbol to check if that too is an N_SO. */
2719 p++;
2720 if (*p == NULL)
c3864421 2721 goto done;
923f08ff
AM		 2722 q = (aout_symbol_type *) (*p);
2723 if (q->type != (int)N_SO)
2724 goto next;
2725
2726 /* Found a second N_SO First is directory; second is filename. */
2727 directory_name = current_file_name;
2728 main_file_name = current_file_name = q->symbol.name;
2729 if (obj_textsec (abfd) != section)
2730 goto done;
2731 break;
2732 case N_SOL:
2733 current_file_name = q->symbol.name;
2734 break;
252b5132 2735
923f08ff 2736 case N_SLINE:
252b5132 2737
923f08ff
AM		 2738 case N_DSLINE:
2739 case N_BSLINE:
2740 /* We'll keep this if it resolves nearer than the one we have
2741 already. */
2742 if (q->symbol.value >= low_line_vma
2743 && q->symbol.value <= offset)
2744 {
2745 *line_ptr = q->desc;
2746 low_line_vma = q->symbol.value;
2747 line_file_name = current_file_name;
2748 line_directory_name = directory_name;
2749 }
2750 break;
2751 case N_FUN:
2752 {
f7c33884 2753 /* We'll keep this if it is nearer than the one we have already. */
923f08ff 2754 if (q->symbol.value >= low_func_vma &&
f7c33884
NC		 2755 q->symbol.value <= offset)
2756 {
2757 low_func_vma = q->symbol.value;
2758 func = (asymbol *)q;
2759 }
923f08ff
AM		 2760 else if (q->symbol.value > offset)
2761 goto done;
2762 }
2763 break;
2764 }
252b5132 2765 }
252b5132 2766 }
252b5132
RH		 2767
2768 done:
2769 if (*line_ptr != 0)
2770 {
2771 main_file_name = line_file_name;
2772 directory_name = line_directory_name;
2773 }
2774
2775 if (main_file_name == NULL
5af11cab 2776 || IS_ABSOLUTE_PATH (main_file_name)
252b5132
RH		 2777 || directory_name == NULL)
2778 filelen = 0;
2779 else
2780 filelen = strlen (directory_name) + strlen (main_file_name);
f7c33884 2781
252b5132
RH		 2782 if (func == NULL)
2783 funclen = 0;
2784 else
2785 funclen = strlen (bfd_asymbol_name (func));
2786
2787 if (adata (abfd).line_buf != NULL)
2788 free (adata (abfd).line_buf);
f7c33884 2789
252b5132
RH		 2790 if (filelen + funclen == 0)
2791 adata (abfd).line_buf = buf = NULL;
2792 else
2793 {
a50b1753 2794 buf = (char *) bfd_malloc (filelen + funclen + 3);
252b5132
RH		 2795 adata (abfd).line_buf = buf;
2796 if (buf == NULL)
b34976b6 2797 return FALSE;
252b5132
RH		 2798 }
2799
2800 if (main_file_name != NULL)
2801 {
5af11cab 2802 if (IS_ABSOLUTE_PATH (main_file_name) || directory_name == NULL)
252b5132
RH		 2803 *filename_ptr = main_file_name;
2804 else
2805 {
2806 sprintf (buf, "%s%s", directory_name, main_file_name);
2807 *filename_ptr = buf;
2808 buf += filelen + 1;
2809 }
2810 }
2811
2812 if (func)
2813 {
2814 const char *function = func->name;
dc810e39 2815 char *colon;
252b5132
RH		 2816
2817 /* The caller expects a symbol name. We actually have a
2818 function name, without the leading underscore. Put the
2819 underscore back in, so that the caller gets a symbol name. */
2820 if (bfd_get_symbol_leading_char (abfd) == '\0')
2821 strcpy (buf, function);
2822 else
2823 {
2824 buf[0] = bfd_get_symbol_leading_char (abfd);
2825 strcpy (buf + 1, function);
2826 }
f7c33884 2827 /* Have to remove : stuff. */
dc810e39
AM		 2828 colon = strchr (buf, ':');
2829 if (colon != NULL)
2830 *colon = '\0';
252b5132
RH		 2831 *functionname_ptr = buf;
2832 }
2833
b34976b6 2834 return TRUE;
252b5132
RH		 2835}
2836
252b5132 2837int
a6b96beb
AM		 2838NAME (aout, sizeof_headers) (bfd *abfd,
2839 struct bfd_link_info *info ATTRIBUTE_UNUSED)
252b5132 2840{
923f08ff 2841 return adata (abfd).exec_bytes_size;
252b5132
RH		 2842}
2843
2844/* Free all information we have cached for this BFD. We can always
2845 read it again later if we need it. */
2846
b34976b6 2847bfd_boolean
116c20d2 2848NAME (aout, bfd_free_cached_info) (bfd *abfd)
252b5132
RH		 2849{
2850 asection *o;
2851
920581c5
L		 2852 if (bfd_get_format (abfd) != bfd_object
2853 || abfd->tdata.aout_data == NULL)
b34976b6 2854 return TRUE;
252b5132
RH		 2855
2856#define BFCI_FREE(x) if (x != NULL) { free (x); x = NULL; }
2857 BFCI_FREE (obj_aout_symbols (abfd));
2858#ifdef USE_MMAP
2859 obj_aout_external_syms (abfd) = 0;
2860 bfd_free_window (&obj_aout_sym_window (abfd));
2861 bfd_free_window (&obj_aout_string_window (abfd));
2862 obj_aout_external_strings (abfd) = 0;
2863#else
2864 BFCI_FREE (obj_aout_external_syms (abfd));
2865 BFCI_FREE (obj_aout_external_strings (abfd));
2866#endif
116c20d2 2867 for (o = abfd->sections; o != NULL; o = o->next)
252b5132
RH		 2868 BFCI_FREE (o->relocation);
2869#undef BFCI_FREE
2870
b34976b6 2871 return TRUE;
252b5132
RH		 2872}
2873\f
2874/* a.out link code. */
2875
252b5132
RH		 2876/* Routine to create an entry in an a.out link hash table. */
2877
2878struct bfd_hash_entry *
116c20d2
NC		 2879NAME (aout, link_hash_newfunc) (struct bfd_hash_entry *entry,
2880 struct bfd_hash_table *table,
2881 const char *string)
252b5132
RH		 2882{
2883 struct aout_link_hash_entry *ret = (struct aout_link_hash_entry *) entry;
2884
2885 /* Allocate the structure if it has not already been allocated by a
2886 subclass. */
116c20d2 2887 if (ret == NULL)
a50b1753
NC		 2888 ret = (struct aout_link_hash_entry *) bfd_hash_allocate (table,
2889 sizeof (* ret));
116c20d2
NC		 2890 if (ret == NULL)
2891 return NULL;
252b5132
RH		 2892
2893 /* Call the allocation method of the superclass. */
2894 ret = ((struct aout_link_hash_entry *)
2895 _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret,
2896 table, string));
2897 if (ret)
2898 {
2899 /* Set local fields. */
b34976b6 2900 ret->written = FALSE;
252b5132
RH		 2901 ret->indx = -1;
2902 }
2903
2904 return (struct bfd_hash_entry *) ret;
2905}
2906
2907/* Initialize an a.out link hash table. */
2908
b34976b6 2909bfd_boolean
116c20d2
NC		 2910NAME (aout, link_hash_table_init) (struct aout_link_hash_table *table,
2911 bfd *abfd,
2912 struct bfd_hash_entry *(*newfunc)
2913 (struct bfd_hash_entry *, struct bfd_hash_table *,
66eb6687
AM		 2914 const char *),
2915 unsigned int entsize)
252b5132 2916{
66eb6687 2917 return _bfd_link_hash_table_init (&table->root, abfd, newfunc, entsize);
252b5132
RH		 2918}
2919
2920/* Create an a.out link hash table. */
2921
2922struct bfd_link_hash_table *
116c20d2 2923NAME (aout, link_hash_table_create) (bfd *abfd)
252b5132
RH		 2924{
2925 struct aout_link_hash_table *ret;
116c20d2 2926 bfd_size_type amt = sizeof (* ret);
252b5132 2927
a50b1753 2928 ret = (struct aout_link_hash_table *) bfd_malloc (amt);
252b5132 2929 if (ret == NULL)
116c20d2 2930 return NULL;
5ed6aba4 2931
66eb6687
AM		 2932 if (!NAME (aout, link_hash_table_init) (ret, abfd,
2933 NAME (aout, link_hash_newfunc),
2934 sizeof (struct aout_link_hash_entry)))
252b5132
RH		 2935 {
2936 free (ret);
116c20d2 2937 return NULL;
252b5132
RH		 2938 }
2939 return &ret->root;
2940}
2941
116c20d2 2942/* Add all symbols from an object file to the hash table. */
252b5132 2943
b34976b6 2944static bfd_boolean
116c20d2 2945aout_link_add_symbols (bfd *abfd, struct bfd_link_info *info)
252b5132 2946{
116c20d2
NC		 2947 bfd_boolean (*add_one_symbol)
2948 (struct bfd_link_info *, bfd *, const char *, flagword, asection *,
2949 bfd_vma, const char *, bfd_boolean, bfd_boolean,
2950 struct bfd_link_hash_entry **);
2951 struct external_nlist *syms;
2952 bfd_size_type sym_count;
2953 char *strings;
2954 bfd_boolean copy;
2955 struct aout_link_hash_entry **sym_hash;
2956 struct external_nlist *p;
2957 struct external_nlist *pend;
2958 bfd_size_type amt;
252b5132 2959
116c20d2
NC		 2960 syms = obj_aout_external_syms (abfd);
2961 sym_count = obj_aout_external_sym_count (abfd);
2962 strings = obj_aout_external_strings (abfd);
2963 if (info->keep_memory)
2964 copy = FALSE;
2965 else
2966 copy = TRUE;
252b5132 2967
116c20d2 2968 if (aout_backend_info (abfd)->add_dynamic_symbols != NULL)
252b5132 2969 {
116c20d2
NC		 2970 if (! ((*aout_backend_info (abfd)->add_dynamic_symbols)
2971 (abfd, info, &syms, &sym_count, &strings)))
b34976b6 2972 return FALSE;
252b5132
RH		 2973 }
2974
20c6e70e
MS		 2975 if (sym_count == 0)
2976 return TRUE; /* Nothing to do. */
2977
116c20d2
NC		 2978 /* We keep a list of the linker hash table entries that correspond
2979 to particular symbols. We could just look them up in the hash
2980 table, but keeping the list is more efficient. Perhaps this
2981 should be conditional on info->keep_memory. */
2982 amt = sym_count * sizeof (struct aout_link_hash_entry *);
a50b1753 2983 sym_hash = (struct aout_link_hash_entry **) bfd_alloc (abfd, amt);
20c6e70e 2984 if (sym_hash == NULL)
116c20d2
NC		 2985 return FALSE;
2986 obj_aout_sym_hashes (abfd) = sym_hash;
252b5132 2987
116c20d2
NC		 2988 add_one_symbol = aout_backend_info (abfd)->add_one_symbol;
2989 if (add_one_symbol == NULL)
2990 add_one_symbol = _bfd_generic_link_add_one_symbol;
252b5132 2991
116c20d2
NC		 2992 p = syms;
2993 pend = p + sym_count;
2994 for (; p < pend; p++, sym_hash++)
252b5132 2995 {
116c20d2 2996 int type;
252b5132 2997 const char *name;
116c20d2
NC		 2998 bfd_vma value;
2999 asection *section;
3000 flagword flags;
3001 const char *string;
252b5132 3002
116c20d2 3003 *sym_hash = NULL;
252b5132 3004
116c20d2 3005 type = H_GET_8 (abfd, p->e_type);
252b5132 3006
116c20d2
NC		 3007 /* Ignore debugging symbols. */
3008 if ((type & N_STAB) != 0)
3009 continue;
252b5132 3010
116c20d2
NC		 3011 name = strings + GET_WORD (abfd, p->e_strx);
3012 value = GET_WORD (abfd, p->e_value);
3013 flags = BSF_GLOBAL;
3014 string = NULL;
3015 switch (type)
252b5132 3016 {
116c20d2
NC		 3017 default:
3018 abort ();
f7c33884 3019
116c20d2
NC		 3020 case N_UNDF:
3021 case N_ABS:
3022 case N_TEXT:
3023 case N_DATA:
3024 case N_BSS:
3025 case N_FN_SEQ:
3026 case N_COMM:
3027 case N_SETV:
3028 case N_FN:
3029 /* Ignore symbols that are not externally visible. */
3030 continue;
3031 case N_INDR:
3032 /* Ignore local indirect symbol. */
3033 ++p;
3034 ++sym_hash;
3035 continue;
252b5132 3036
116c20d2
NC		 3037 case N_UNDF | N_EXT:
3038 if (value == 0)
f7c33884 3039 {
116c20d2
NC		 3040 section = bfd_und_section_ptr;
3041 flags = 0;
252b5132
RH		 3042 }
3043 else
3044 section = bfd_com_section_ptr;
3045 break;
3046 case N_ABS | N_EXT:
3047 section = bfd_abs_section_ptr;
3048 break;
3049 case N_TEXT | N_EXT:
3050 section = obj_textsec (abfd);
3051 value -= bfd_get_section_vma (abfd, section);
3052 break;
3053 case N_DATA | N_EXT:
3054 case N_SETV | N_EXT:
3055 /* Treat N_SETV symbols as N_DATA symbol; see comment in
3056 translate_from_native_sym_flags. */
3057 section = obj_datasec (abfd);
3058 value -= bfd_get_section_vma (abfd, section);
3059 break;
3060 case N_BSS | N_EXT:
3061 section = obj_bsssec (abfd);
3062 value -= bfd_get_section_vma (abfd, section);
3063 break;
3064 case N_INDR | N_EXT:
3065 /* An indirect symbol. The next symbol is the symbol
3066 which this one really is. */
3067 BFD_ASSERT (p + 1 < pend);
3068 ++p;
3069 string = strings + GET_WORD (abfd, p->e_strx);
3070 section = bfd_ind_section_ptr;
3071 flags |= BSF_INDIRECT;
3072 break;
3073 case N_COMM | N_EXT:
3074 section = bfd_com_section_ptr;
3075 break;
3076 case N_SETA: case N_SETA | N_EXT:
3077 section = bfd_abs_section_ptr;
3078 flags |= BSF_CONSTRUCTOR;
3079 break;
3080 case N_SETT: case N_SETT | N_EXT:
3081 section = obj_textsec (abfd);
3082 flags |= BSF_CONSTRUCTOR;
3083 value -= bfd_get_section_vma (abfd, section);
3084 break;
3085 case N_SETD: case N_SETD | N_EXT:
3086 section = obj_datasec (abfd);
3087 flags |= BSF_CONSTRUCTOR;
3088 value -= bfd_get_section_vma (abfd, section);
3089 break;
3090 case N_SETB: case N_SETB | N_EXT:
3091 section = obj_bsssec (abfd);
3092 flags |= BSF_CONSTRUCTOR;
3093 value -= bfd_get_section_vma (abfd, section);
3094 break;
3095 case N_WARNING:
3096 /* A warning symbol. The next symbol is the one to warn
9f400ee9
HPN		 3097 about. If there is no next symbol, just look away. */
3098 if (p + 1 >= pend)
3099 return TRUE;
252b5132
RH		 3100 ++p;
3101 string = name;
3102 name = strings + GET_WORD (abfd, p->e_strx);
3103 section = bfd_und_section_ptr;
3104 flags |= BSF_WARNING;
3105 break;
3106 case N_WEAKU:
3107 section = bfd_und_section_ptr;
3108 flags = BSF_WEAK;
3109 break;
3110 case N_WEAKA:
3111 section = bfd_abs_section_ptr;
3112 flags = BSF_WEAK;
3113 break;
3114 case N_WEAKT:
3115 section = obj_textsec (abfd);
3116 value -= bfd_get_section_vma (abfd, section);
3117 flags = BSF_WEAK;
3118 break;
3119 case N_WEAKD:
3120 section = obj_datasec (abfd);
3121 value -= bfd_get_section_vma (abfd, section);
3122 flags = BSF_WEAK;
3123 break;
3124 case N_WEAKB:
3125 section = obj_bsssec (abfd);
3126 value -= bfd_get_section_vma (abfd, section);
3127 flags = BSF_WEAK;
3128 break;
3129 }
3130
3131 if (! ((*add_one_symbol)
b34976b6 3132 (info, abfd, name, flags, section, value, string, copy, FALSE,
252b5132 3133 (struct bfd_link_hash_entry **) sym_hash)))
b34976b6 3134 return FALSE;
252b5132
RH		 3135
3136 /* Restrict the maximum alignment of a common symbol based on
3137 the architecture, since a.out has no way to represent
3138 alignment requirements of a section in a .o file. FIXME:
3139 This isn't quite right: it should use the architecture of the
3140 output file, not the input files. */
3141 if ((*sym_hash)->root.type == bfd_link_hash_common
3142 && ((*sym_hash)->root.u.c.p->alignment_power >
3143 bfd_get_arch_info (abfd)->section_align_power))
3144 (*sym_hash)->root.u.c.p->alignment_power =
3145 bfd_get_arch_info (abfd)->section_align_power;
3146
3147 /* If this is a set symbol, and we are not building sets, then
3148 it is possible for the hash entry to not have been set. In
3149 such a case, treat the symbol as not globally defined. */
3150 if ((*sym_hash)->root.type == bfd_link_hash_new)
3151 {
3152 BFD_ASSERT ((flags & BSF_CONSTRUCTOR) != 0);
3153 *sym_hash = NULL;
3154 }
3155
3156 if (type == (N_INDR | N_EXT) || type == N_WARNING)
3157 ++sym_hash;
3158 }
3159
b34976b6 3160 return TRUE;
252b5132 3161}
252b5132 3162
116c20d2
NC		 3163/* Free up the internal symbols read from an a.out file. */
3164
3165static bfd_boolean
3166aout_link_free_symbols (bfd *abfd)
252b5132 3167{
116c20d2
NC		 3168 if (obj_aout_external_syms (abfd) != NULL)
3169 {
3170#ifdef USE_MMAP
3171 bfd_free_window (&obj_aout_sym_window (abfd));
3172#else
3173 free ((void *) obj_aout_external_syms (abfd));
3174#endif
3175 obj_aout_external_syms (abfd) = NULL;
3176 }
3177 if (obj_aout_external_strings (abfd) != NULL)
3178 {
3179#ifdef USE_MMAP
3180 bfd_free_window (&obj_aout_string_window (abfd));
3181#else
3182 free ((void *) obj_aout_external_strings (abfd));
3183#endif
3184 obj_aout_external_strings (abfd) = NULL;
3185 }
3186 return TRUE;
3187}
252b5132 3188
116c20d2 3189/* Add symbols from an a.out object file. */
252b5132 3190
116c20d2
NC		 3191static bfd_boolean
3192aout_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
252b5132 3193{
116c20d2
NC		 3194 if (! aout_get_external_symbols (abfd))
3195 return FALSE;
3196 if (! aout_link_add_symbols (abfd, info))
3197 return FALSE;
3198 if (! info->keep_memory)
3199 {
3200 if (! aout_link_free_symbols (abfd))
3201 return FALSE;
3202 }
3203 return TRUE;
3204}
252b5132 3205
116c20d2
NC		 3206/* Look through the internal symbols to see if this object file should
3207 be included in the link. We should include this object file if it
3208 defines any symbols which are currently undefined. If this object
3209 file defines a common symbol, then we may adjust the size of the
3210 known symbol but we do not include the object file in the link
3211 (unless there is some other reason to include it). */
252b5132 3212
116c20d2
NC		 3213static bfd_boolean
3214aout_link_check_ar_symbols (bfd *abfd,
3215 struct bfd_link_info *info,
5d3236ee
DK		 3216 bfd_boolean *pneeded,
3217 bfd **subsbfd)
252b5132 3218{
116c20d2
NC		 3219 struct external_nlist *p;
3220 struct external_nlist *pend;
3221 char *strings;
252b5132 3222
116c20d2 3223 *pneeded = FALSE;
252b5132 3224
116c20d2
NC		 3225 /* Look through all the symbols. */
3226 p = obj_aout_external_syms (abfd);
3227 pend = p + obj_aout_external_sym_count (abfd);
3228 strings = obj_aout_external_strings (abfd);
3229 for (; p < pend; p++)
3230 {
3231 int type = H_GET_8 (abfd, p->e_type);
3232 const char *name;
3233 struct bfd_link_hash_entry *h;
252b5132 3234
116c20d2
NC		 3235 /* Ignore symbols that are not externally visible. This is an
3236 optimization only, as we check the type more thoroughly
3237 below. */
3238 if (((type & N_EXT) == 0
3239 || (type & N_STAB) != 0
3240 || type == N_FN)
3241 && type != N_WEAKA
3242 && type != N_WEAKT
3243 && type != N_WEAKD
3244 && type != N_WEAKB)
3245 {
3246 if (type == N_WARNING
3247 || type == N_INDR)
3248 ++p;
3249 continue;
3250 }
3251
3252 name = strings + GET_WORD (abfd, p->e_strx);
3253 h = bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);
3254
3255 /* We are only interested in symbols that are currently
3256 undefined or common. */
3257 if (h == NULL
3258 || (h->type != bfd_link_hash_undefined
3259 && h->type != bfd_link_hash_common))
3260 {
3261 if (type == (N_INDR | N_EXT))
3262 ++p;
3263 continue;
3264 }
3265
3266 if (type == (N_TEXT | N_EXT)
3267 || type == (N_DATA | N_EXT)
3268 || type == (N_BSS | N_EXT)
3269 || type == (N_ABS | N_EXT)
3270 || type == (N_INDR | N_EXT))
3271 {
3272 /* This object file defines this symbol. We must link it
3273 in. This is true regardless of whether the current
3274 definition of the symbol is undefined or common.
3275
3276 If the current definition is common, we have a case in
3277 which we have already seen an object file including:
3278 int a;
3279 and this object file from the archive includes:
3280 int a = 5;
3281 In such a case, whether to include this object is target
3282 dependant for backward compatibility.
3283
3284 FIXME: The SunOS 4.1.3 linker will pull in the archive
3285 element if the symbol is defined in the .data section,
3286 but not if it is defined in the .text section. That
3287 seems a bit crazy to me, and it has not been implemented
3288 yet. However, it might be correct. */
3289 if (h->type == bfd_link_hash_common)
3290 {
3291 int skip = 0;
3292
f88dc410 3293 switch (info->common_skip_ar_symbols)
116c20d2
NC		 3294 {
3295 case bfd_link_common_skip_text:
3296 skip = (type == (N_TEXT | N_EXT));
3297 break;
3298 case bfd_link_common_skip_data:
3299 skip = (type == (N_DATA | N_EXT));
3300 break;
3301 default:
3302 case bfd_link_common_skip_all:
3303 skip = 1;
3304 break;
3305 }
3306
3307 if (skip)
3308 continue;
3309 }
3310
0e144ba7
AM		 3311 if (!(*info->callbacks
3312 ->add_archive_element) (info, abfd, name, subsbfd))
116c20d2
NC		 3313 return FALSE;
3314 *pneeded = TRUE;
3315 return TRUE;
3316 }
3317
3318 if (type == (N_UNDF | N_EXT))
3319 {
3320 bfd_vma value;
3321
3322 value = GET_WORD (abfd, p->e_value);
3323 if (value != 0)
3324 {
3325 /* This symbol is common in the object from the archive
3326 file. */
3327 if (h->type == bfd_link_hash_undefined)
3328 {
3329 bfd *symbfd;
3330 unsigned int power;
3331
3332 symbfd = h->u.undef.abfd;
3333 if (symbfd == NULL)
3334 {
3335 /* This symbol was created as undefined from
3336 outside BFD. We assume that we should link
3337 in the object file. This is done for the -u
3338 option in the linker. */
0e144ba7
AM		 3339 if (!(*info->callbacks
3340 ->add_archive_element) (info, abfd, name, subsbfd))
116c20d2
NC		 3341 return FALSE;
3342 *pneeded = TRUE;
3343 return TRUE;
3344 }
3345 /* Turn the current link symbol into a common
3346 symbol. It is already on the undefs list. */
3347 h->type = bfd_link_hash_common;
a50b1753 3348 h->u.c.p = (struct bfd_link_hash_common_entry *)
0e144ba7
AM		 3349 bfd_hash_allocate (&info->hash->table,
3350 sizeof (struct bfd_link_hash_common_entry));
116c20d2
NC		 3351 if (h->u.c.p == NULL)
3352 return FALSE;
3353
3354 h->u.c.size = value;
3355
3356 /* FIXME: This isn't quite right. The maximum
3357 alignment of a common symbol should be set by the
3358 architecture of the output file, not of the input
3359 file. */
3360 power = bfd_log2 (value);
3361 if (power > bfd_get_arch_info (abfd)->section_align_power)
3362 power = bfd_get_arch_info (abfd)->section_align_power;
3363 h->u.c.p->alignment_power = power;
3364
3365 h->u.c.p->section = bfd_make_section_old_way (symbfd,
3366 "COMMON");
3367 }
3368 else
3369 {
3370 /* Adjust the size of the common symbol if
3371 necessary. */
3372 if (value > h->u.c.size)
3373 h->u.c.size = value;
3374 }
3375 }
3376 }
3377
3378 if (type == N_WEAKA
3379 || type == N_WEAKT
3380 || type == N_WEAKD
3381 || type == N_WEAKB)
3382 {
3383 /* This symbol is weak but defined. We must pull it in if
3384 the current link symbol is undefined, but we don't want
3385 it if the current link symbol is common. */
3386 if (h->type == bfd_link_hash_undefined)
3387 {
0e144ba7
AM		 3388 if (!(*info->callbacks
3389 ->add_archive_element) (info, abfd, name, subsbfd))
116c20d2
NC		 3390 return FALSE;
3391 *pneeded = TRUE;
3392 return TRUE;
3393 }
3394 }
3395 }
3396
3397 /* We do not need this object file. */
3398 return TRUE;
3399}
3400/* Check a single archive element to see if we need to include it in
3401 the link. *PNEEDED is set according to whether this element is
3402 needed in the link or not. This is called from
3403 _bfd_generic_link_add_archive_symbols. */
3404
3405static bfd_boolean
3406aout_link_check_archive_element (bfd *abfd,
3407 struct bfd_link_info *info,
13e570f8
AM		 3408 struct bfd_link_hash_entry *h ATTRIBUTE_UNUSED,
3409 const char *name ATTRIBUTE_UNUSED,
116c20d2
NC		 3410 bfd_boolean *pneeded)
3411{
0e144ba7
AM		 3412 bfd *oldbfd;
3413 bfd_boolean needed;
5d3236ee 3414
0e144ba7 3415 if (!aout_get_external_symbols (abfd))
116c20d2
NC		 3416 return FALSE;
3417
0e144ba7
AM		 3418 oldbfd = abfd;
3419 if (!aout_link_check_ar_symbols (abfd, info, pneeded, &abfd))
116c20d2
NC		 3420 return FALSE;
3421
0e144ba7
AM		 3422 needed = *pneeded;
3423 if (needed)
116c20d2 3424 {
5d3236ee
DK		 3425 /* Potentially, the add_archive_element hook may have set a
3426 substitute BFD for us. */
0e144ba7
AM		 3427 if (abfd != oldbfd)
3428 {
3429 if (!info->keep_memory
3430 && !aout_link_free_symbols (oldbfd))
3431 return FALSE;
3432 if (!aout_get_external_symbols (abfd))
3433 return FALSE;
3434 }
3435 if (!aout_link_add_symbols (abfd, info))
116c20d2
NC		 3436 return FALSE;
3437 }
3438
0e144ba7 3439 if (!info->keep_memory || !needed)
116c20d2 3440 {
0e144ba7 3441 if (!aout_link_free_symbols (abfd))
116c20d2
NC		 3442 return FALSE;
3443 }
3444
3445 return TRUE;
3446}
3447
3448/* Given an a.out BFD, add symbols to the global hash table as
3449 appropriate. */
3450
3451bfd_boolean
3452NAME (aout, link_add_symbols) (bfd *abfd, struct bfd_link_info *info)
3453{
3454 switch (bfd_get_format (abfd))
3455 {
3456 case bfd_object:
3457 return aout_link_add_object_symbols (abfd, info);
3458 case bfd_archive:
3459 return _bfd_generic_link_add_archive_symbols
3460 (abfd, info, aout_link_check_archive_element);
3461 default:
3462 bfd_set_error (bfd_error_wrong_format);
3463 return FALSE;
3464 }
3465}
3466\f
3467/* A hash table used for header files with N_BINCL entries. */
3468
3469struct aout_link_includes_table
3470{
3471 struct bfd_hash_table root;
3472};
3473
3474/* A linked list of totals that we have found for a particular header
3475 file. */
3476
3477struct aout_link_includes_totals
3478{
3479 struct aout_link_includes_totals *next;
3480 bfd_vma total;
3481};
3482
3483/* An entry in the header file hash table. */
3484
3485struct aout_link_includes_entry
3486{
3487 struct bfd_hash_entry root;
3488 /* List of totals we have found for this file. */
3489 struct aout_link_includes_totals *totals;
3490};
3491
3492/* Look up an entry in an the header file hash table. */
3493
3494#define aout_link_includes_lookup(table, string, create, copy) \
3495 ((struct aout_link_includes_entry *) \
3496 bfd_hash_lookup (&(table)->root, (string), (create), (copy)))
3497
3498/* During the final link step we need to pass around a bunch of
3499 information, so we do it in an instance of this structure. */
3500
3501struct aout_final_link_info
3502{
3503 /* General link information. */
3504 struct bfd_link_info *info;
3505 /* Output bfd. */
252b5132
RH		 3506 bfd *output_bfd;
3507 /* Reloc file positions. */
3508 file_ptr treloff, dreloff;
3509 /* File position of symbols. */
3510 file_ptr symoff;
3511 /* String table. */
3512 struct bfd_strtab_hash *strtab;
3513 /* Header file hash table. */
3514 struct aout_link_includes_table includes;
3515 /* A buffer large enough to hold the contents of any section. */
3516 bfd_byte *contents;
3517 /* A buffer large enough to hold the relocs of any section. */
116c20d2 3518 void * relocs;
252b5132
RH		 3519 /* A buffer large enough to hold the symbol map of any input BFD. */
3520 int *symbol_map;
3521 /* A buffer large enough to hold output symbols of any input BFD. */
3522 struct external_nlist *output_syms;
3523};
3524
252b5132
RH		 3525/* The function to create a new entry in the header file hash table. */
3526
3527static struct bfd_hash_entry *
116c20d2
NC		 3528aout_link_includes_newfunc (struct bfd_hash_entry *entry,
3529 struct bfd_hash_table *table,
3530 const char *string)
252b5132
RH		 3531{
3532 struct aout_link_includes_entry *ret =
3533 (struct aout_link_includes_entry *) entry;
3534
3535 /* Allocate the structure if it has not already been allocated by a
3536 subclass. */
116c20d2 3537 if (ret == NULL)
a50b1753
NC		 3538 ret = (struct aout_link_includes_entry *)
3539 bfd_hash_allocate (table, sizeof (* ret));
116c20d2
NC		 3540 if (ret == NULL)
3541 return NULL;
252b5132
RH		 3542
3543 /* Call the allocation method of the superclass. */
3544 ret = ((struct aout_link_includes_entry *)
3545 bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string));
3546 if (ret)
3547 {
3548 /* Set local fields. */
3549 ret->totals = NULL;
3550 }
3551
3552 return (struct bfd_hash_entry *) ret;
3553}
3554
116c20d2
NC		 3555/* Write out a symbol that was not associated with an a.out input
3556 object. */
252b5132 3557
116c20d2 3558static bfd_boolean
7686d77d 3559aout_link_write_other_symbol (struct bfd_hash_entry *bh, void *data)
252b5132 3560{
7686d77d 3561 struct aout_link_hash_entry *h = (struct aout_link_hash_entry *) bh;
57402f1e 3562 struct aout_final_link_info *flaginfo = (struct aout_final_link_info *) data;
116c20d2
NC		 3563 bfd *output_bfd;
3564 int type;
3565 bfd_vma val;
3566 struct external_nlist outsym;
3567 bfd_size_type indx;
3568 bfd_size_type amt;
252b5132 3569
116c20d2
NC		 3570 if (h->root.type == bfd_link_hash_warning)
3571 {
3572 h = (struct aout_link_hash_entry *) h->root.u.i.link;
3573 if (h->root.type == bfd_link_hash_new)
3574 return TRUE;
3575 }
252b5132 3576
57402f1e 3577 output_bfd = flaginfo->output_bfd;
252b5132 3578
116c20d2 3579 if (aout_backend_info (output_bfd)->write_dynamic_symbol != NULL)
252b5132 3580 {
116c20d2 3581 if (! ((*aout_backend_info (output_bfd)->write_dynamic_symbol)
57402f1e 3582 (output_bfd, flaginfo->info, h)))
252b5132 3583 {
116c20d2
NC		 3584 /* FIXME: No way to handle errors. */
3585 abort ();
252b5132 3586 }
116c20d2 3587 }
252b5132 3588
116c20d2
NC		 3589 if (h->written)
3590 return TRUE;
252b5132 3591
116c20d2 3592 h->written = TRUE;
252b5132 3593
116c20d2
NC		 3594 /* An indx of -2 means the symbol must be written. */
3595 if (h->indx != -2
57402f1e
NC		 3596 && (flaginfo->info->strip == strip_all
3597 || (flaginfo->info->strip == strip_some
3598 && bfd_hash_lookup (flaginfo->info->keep_hash, h->root.root.string,
116c20d2
NC		 3599 FALSE, FALSE) == NULL)))
3600 return TRUE;
252b5132 3601
116c20d2 3602 switch (h->root.type)
252b5132 3603 {
116c20d2
NC		 3604 default:
3605 case bfd_link_hash_warning:
3606 abort ();
3607 /* Avoid variable not initialized warnings. */
3608 return TRUE;
3609 case bfd_link_hash_new:
3610 /* This can happen for set symbols when sets are not being
3611 built. */
3612 return TRUE;
3613 case bfd_link_hash_undefined:
3614 type = N_UNDF | N_EXT;
3615 val = 0;
3616 break;
3617 case bfd_link_hash_defined:
3618 case bfd_link_hash_defweak:
3619 {
3620 asection *sec;
252b5132 3621
116c20d2
NC		 3622 sec = h->root.u.def.section->output_section;
3623 BFD_ASSERT (bfd_is_abs_section (sec)
3624 || sec->owner == output_bfd);
3625 if (sec == obj_textsec (output_bfd))
3626 type = h->root.type == bfd_link_hash_defined ? N_TEXT : N_WEAKT;
3627 else if (sec == obj_datasec (output_bfd))
3628 type = h->root.type == bfd_link_hash_defined ? N_DATA : N_WEAKD;
3629 else if (sec == obj_bsssec (output_bfd))
3630 type = h->root.type == bfd_link_hash_defined ? N_BSS : N_WEAKB;
3631 else
3632 type = h->root.type == bfd_link_hash_defined ? N_ABS : N_WEAKA;
3633 type |= N_EXT;
3634 val = (h->root.u.def.value
3635 + sec->vma
3636 + h->root.u.def.section->output_offset);
3637 }
3638 break;
3639 case bfd_link_hash_common:
3640 type = N_UNDF | N_EXT;
3641 val = h->root.u.c.size;
3642 break;
3643 case bfd_link_hash_undefweak:
3644 type = N_WEAKU;
3645 val = 0;
c38eb2a6 3646 break;
116c20d2
NC		 3647 case bfd_link_hash_indirect:
3648 /* We ignore these symbols, since the indirected symbol is
3649 already in the hash table. */
3650 return TRUE;
3651 }
252b5132 3652
116c20d2
NC		 3653 H_PUT_8 (output_bfd, type, outsym.e_type);
3654 H_PUT_8 (output_bfd, 0, outsym.e_other);
3655 H_PUT_16 (output_bfd, 0, outsym.e_desc);
57402f1e 3656 indx = add_to_stringtab (output_bfd, flaginfo->strtab, h->root.root.string,
116c20d2
NC		 3657 FALSE);
3658 if (indx == - (bfd_size_type) 1)
3659 /* FIXME: No way to handle errors. */
3660 abort ();
252b5132 3661
116c20d2
NC		 3662 PUT_WORD (output_bfd, indx, outsym.e_strx);
3663 PUT_WORD (output_bfd, val, outsym.e_value);
252b5132 3664
116c20d2 3665 amt = EXTERNAL_NLIST_SIZE;
57402f1e 3666 if (bfd_seek (output_bfd, flaginfo->symoff, SEEK_SET) != 0
116c20d2
NC		 3667 || bfd_bwrite ((void *) &outsym, amt, output_bfd) != amt)
3668 /* FIXME: No way to handle errors. */
3669 abort ();
252b5132 3670
57402f1e 3671 flaginfo->symoff += EXTERNAL_NLIST_SIZE;
116c20d2
NC		 3672 h->indx = obj_aout_external_sym_count (output_bfd);
3673 ++obj_aout_external_sym_count (output_bfd);
252b5132 3674
116c20d2
NC		 3675 return TRUE;
3676}
252b5132 3677
116c20d2 3678/* Handle a link order which is supposed to generate a reloc. */
252b5132 3679
116c20d2 3680static bfd_boolean
57402f1e 3681aout_link_reloc_link_order (struct aout_final_link_info *flaginfo,
116c20d2
NC		 3682 asection *o,
3683 struct bfd_link_order *p)
3684{
3685 struct bfd_link_order_reloc *pr;
3686 int r_index;
3687 int r_extern;
3688 reloc_howto_type *howto;
3689 file_ptr *reloff_ptr = NULL;
3690 struct reloc_std_external srel;
3691 struct reloc_ext_external erel;
3692 void * rel_ptr;
3693 bfd_size_type amt;
252b5132 3694
116c20d2 3695 pr = p->u.reloc.p;
252b5132 3696
116c20d2
NC		 3697 if (p->type == bfd_section_reloc_link_order)
3698 {
3699 r_extern = 0;
3700 if (bfd_is_abs_section (pr->u.section))
3701 r_index = N_ABS | N_EXT;
3702 else
3703 {
57402f1e 3704 BFD_ASSERT (pr->u.section->owner == flaginfo->output_bfd);
116c20d2
NC		 3705 r_index = pr->u.section->target_index;
3706 }
3707 }
3708 else
3709 {
3710 struct aout_link_hash_entry *h;
252b5132 3711
116c20d2
NC		 3712 BFD_ASSERT (p->type == bfd_symbol_reloc_link_order);
3713 r_extern = 1;
3714 h = ((struct aout_link_hash_entry *)
57402f1e 3715 bfd_wrapped_link_hash_lookup (flaginfo->output_bfd, flaginfo->info,
116c20d2
NC		 3716 pr->u.name, FALSE, FALSE, TRUE));
3717 if (h != NULL
3718 && h->indx >= 0)
3719 r_index = h->indx;
3720 else if (h != NULL)
3721 {
3722 /* We decided to strip this symbol, but it turns out that we
3723 can't. Note that we lose the other and desc information
3724 here. I don't think that will ever matter for a global
3725 symbol. */
3726 h->indx = -2;
3727 h->written = FALSE;
57402f1e 3728 if (!aout_link_write_other_symbol (&h->root.root, flaginfo))
116c20d2
NC		 3729 return FALSE;
3730 r_index = h->indx;
3731 }
3732 else
3733 {
57402f1e
NC		 3734 if (! ((*flaginfo->info->callbacks->unattached_reloc)
3735 (flaginfo->info, pr->u.name, NULL, NULL, (bfd_vma) 0)))
116c20d2
NC		 3736 return FALSE;
3737 r_index = 0;
3738 }
3739 }
252b5132 3740
57402f1e 3741 howto = bfd_reloc_type_lookup (flaginfo->output_bfd, pr->reloc);
116c20d2 3742 if (howto == 0)
252b5132 3743 {
116c20d2
NC		 3744 bfd_set_error (bfd_error_bad_value);
3745 return FALSE;
252b5132
RH		 3746 }
3747
57402f1e
NC		 3748 if (o == obj_textsec (flaginfo->output_bfd))
3749 reloff_ptr = &flaginfo->treloff;
3750 else if (o == obj_datasec (flaginfo->output_bfd))
3751 reloff_ptr = &flaginfo->dreloff;
116c20d2
NC		 3752 else
3753 abort ();
3754
57402f1e 3755 if (obj_reloc_entry_size (flaginfo->output_bfd) == RELOC_STD_SIZE)
252b5132 3756 {
116c20d2 3757#ifdef MY_put_reloc
57402f1e 3758 MY_put_reloc (flaginfo->output_bfd, r_extern, r_index, p->offset, howto,
116c20d2
NC		 3759 &srel);
3760#else
3761 {
3762 int r_pcrel;
3763 int r_baserel;
3764 int r_jmptable;
3765 int r_relative;
3766 int r_length;
252b5132 3767
116c20d2
NC		 3768 r_pcrel = (int) howto->pc_relative;
3769 r_baserel = (howto->type & 8) != 0;
3770 r_jmptable = (howto->type & 16) != 0;
3771 r_relative = (howto->type & 32) != 0;
3772 r_length = howto->size;
252b5132 3773
57402f1e
NC		 3774 PUT_WORD (flaginfo->output_bfd, p->offset, srel.r_address);
3775 if (bfd_header_big_endian (flaginfo->output_bfd))
116c20d2
NC		 3776 {
3777 srel.r_index[0] = r_index >> 16;
3778 srel.r_index[1] = r_index >> 8;
3779 srel.r_index[2] = r_index;
3780 srel.r_type[0] =
3781 ((r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0)
3782 | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0)
3783 | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0)
3784 | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_BIG : 0)
3785 | (r_relative ? RELOC_STD_BITS_RELATIVE_BIG : 0)
3786 | (r_length << RELOC_STD_BITS_LENGTH_SH_BIG));
3787 }
3788 else
3789 {
3790 srel.r_index[2] = r_index >> 16;
3791 srel.r_index[1] = r_index >> 8;
3792 srel.r_index[0] = r_index;
3793 srel.r_type[0] =
3794 ((r_extern ? RELOC_STD_BITS_EXTERN_LITTLE : 0)
3795 | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0)
3796 | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0)
3797 | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0)
3798 | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0)
3799 | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE));
3800 }
3801 }
3802#endif
3803 rel_ptr = (void *) &srel;
252b5132 3804
116c20d2
NC		 3805 /* We have to write the addend into the object file, since
3806 standard a.out relocs are in place. It would be more
3807 reliable if we had the current contents of the file here,
3808 rather than assuming zeroes, but we can't read the file since
3809 it was opened using bfd_openw. */
3810 if (pr->addend != 0)
252b5132 3811 {
116c20d2
NC		 3812 bfd_size_type size;
3813 bfd_reloc_status_type r;
3814 bfd_byte *buf;
3815 bfd_boolean ok;
3816
3817 size = bfd_get_reloc_size (howto);
a50b1753 3818 buf = (bfd_byte *) bfd_zmalloc (size);
116c20d2
NC		 3819 if (buf == NULL)
3820 return FALSE;
57402f1e 3821 r = MY_relocate_contents (howto, flaginfo->output_bfd,
116c20d2
NC		 3822 (bfd_vma) pr->addend, buf);
3823 switch (r)
252b5132 3824 {
116c20d2
NC		 3825 case bfd_reloc_ok:
3826 break;
3827 default:
3828 case bfd_reloc_outofrange:
3829 abort ();
3830 case bfd_reloc_overflow:
57402f1e
NC		 3831 if (! ((*flaginfo->info->callbacks->reloc_overflow)
3832 (flaginfo->info, NULL,
116c20d2 3833 (p->type == bfd_section_reloc_link_order
57402f1e 3834 ? bfd_section_name (flaginfo->output_bfd,
116c20d2
NC		 3835 pr->u.section)
3836 : pr->u.name),
3837 howto->name, pr->addend, NULL, NULL, (bfd_vma) 0)))
252b5132 3838 {
116c20d2
NC		 3839 free (buf);
3840 return FALSE;
252b5132 3841 }
116c20d2 3842 break;
252b5132 3843 }
57402f1e 3844 ok = bfd_set_section_contents (flaginfo->output_bfd, o, (void *) buf,
116c20d2
NC		 3845 (file_ptr) p->offset, size);
3846 free (buf);
3847 if (! ok)
3848 return FALSE;
252b5132
RH		 3849 }
3850 }
116c20d2 3851 else
252b5132 3852 {
116c20d2 3853#ifdef MY_put_ext_reloc
57402f1e 3854 MY_put_ext_reloc (flaginfo->output_bfd, r_extern, r_index, p->offset,
116c20d2
NC		 3855 howto, &erel, pr->addend);
3856#else
57402f1e 3857 PUT_WORD (flaginfo->output_bfd, p->offset, erel.r_address);
252b5132 3858
57402f1e 3859 if (bfd_header_big_endian (flaginfo->output_bfd))
116c20d2
NC		 3860 {
3861 erel.r_index[0] = r_index >> 16;
3862 erel.r_index[1] = r_index >> 8;
3863 erel.r_index[2] = r_index;
3864 erel.r_type[0] =
3865 ((r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0)
3866 | (howto->type << RELOC_EXT_BITS_TYPE_SH_BIG));
3867 }
3868 else
3869 {
3870 erel.r_index[2] = r_index >> 16;
3871 erel.r_index[1] = r_index >> 8;
3872 erel.r_index[0] = r_index;
3873 erel.r_type[0] =
3874 (r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0)
3875 | (howto->type << RELOC_EXT_BITS_TYPE_SH_LITTLE);
3876 }
252b5132 3877
57402f1e 3878 PUT_WORD (flaginfo->output_bfd, (bfd_vma) pr->addend, erel.r_addend);
116c20d2 3879#endif /* MY_put_ext_reloc */
252b5132 3880
116c20d2 3881 rel_ptr = (void *) &erel;
252b5132 3882 }
252b5132 3883
57402f1e
NC		 3884 amt = obj_reloc_entry_size (flaginfo->output_bfd);
3885 if (bfd_seek (flaginfo->output_bfd, *reloff_ptr, SEEK_SET) != 0
3886 || bfd_bwrite (rel_ptr, amt, flaginfo->output_bfd) != amt)
116c20d2 3887 return FALSE;
252b5132 3888
57402f1e 3889 *reloff_ptr += obj_reloc_entry_size (flaginfo->output_bfd);
252b5132 3890
116c20d2
NC		 3891 /* Assert that the relocs have not run into the symbols, and that n
3892 the text relocs have not run into the data relocs. */
57402f1e
NC		 3893 BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (flaginfo->output_bfd)
3894 && (reloff_ptr != &flaginfo->treloff
116c20d2 3895 || (*reloff_ptr
57402f1e 3896 <= obj_datasec (flaginfo->output_bfd)->rel_filepos)));
116c20d2
NC		 3897
3898 return TRUE;
252b5132
RH		 3899}
3900
116c20d2 3901/* Get the section corresponding to a reloc index. */
252b5132 3902
116c20d2
NC		 3903static INLINE asection *
3904aout_reloc_index_to_section (bfd *abfd, int indx)
252b5132 3905{
116c20d2 3906 switch (indx & N_TYPE)
252b5132 3907 {
116c20d2
NC		 3908 case N_TEXT: return obj_textsec (abfd);
3909 case N_DATA: return obj_datasec (abfd);
3910 case N_BSS: return obj_bsssec (abfd);
3911 case N_ABS:
3912 case N_UNDF: return bfd_abs_section_ptr;
3913 default: abort ();
252b5132 3914 }
116c20d2 3915 return NULL;
252b5132
RH		 3916}
3917
116c20d2 3918/* Relocate an a.out section using standard a.out relocs. */
252b5132 3919
b34976b6 3920static bfd_boolean
57402f1e 3921aout_link_input_section_std (struct aout_final_link_info *flaginfo,
116c20d2
NC		 3922 bfd *input_bfd,
3923 asection *input_section,
3924 struct reloc_std_external *relocs,
3925 bfd_size_type rel_size,
3926 bfd_byte *contents)
252b5132 3927{
116c20d2
NC		 3928 bfd_boolean (*check_dynamic_reloc)
3929 (struct bfd_link_info *, bfd *, asection *,
3930 struct aout_link_hash_entry *, void *, bfd_byte *, bfd_boolean *,
3931 bfd_vma *);
252b5132 3932 bfd *output_bfd;
116c20d2
NC		 3933 bfd_boolean relocatable;
3934 struct external_nlist *syms;
252b5132 3935 char *strings;
116c20d2 3936 struct aout_link_hash_entry **sym_hashes;
252b5132 3937 int *symbol_map;
116c20d2
NC		 3938 bfd_size_type reloc_count;
3939 struct reloc_std_external *rel;
3940 struct reloc_std_external *rel_end;
252b5132 3941
57402f1e 3942 output_bfd = flaginfo->output_bfd;
116c20d2 3943 check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;
252b5132 3944
116c20d2
NC		 3945 BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE);
3946 BFD_ASSERT (input_bfd->xvec->header_byteorder
3947 == output_bfd->xvec->header_byteorder);
252b5132 3948
57402f1e 3949 relocatable = flaginfo->info->relocatable;
116c20d2
NC		 3950 syms = obj_aout_external_syms (input_bfd);
3951 strings = obj_aout_external_strings (input_bfd);
3952 sym_hashes = obj_aout_sym_hashes (input_bfd);
57402f1e 3953 symbol_map = flaginfo->symbol_map;
116c20d2
NC		 3954
3955 reloc_count = rel_size / RELOC_STD_SIZE;
3956 rel = relocs;
3957 rel_end = rel + reloc_count;
3958 for (; rel < rel_end; rel++)
252b5132 3959 {
116c20d2
NC		 3960 bfd_vma r_addr;
3961 int r_index;
3962 int r_extern;
3963 int r_pcrel;
3964 int r_baserel = 0;
3965 reloc_howto_type *howto;
3966 struct aout_link_hash_entry *h = NULL;
3967 bfd_vma relocation;
3968 bfd_reloc_status_type r;
252b5132 3969
116c20d2 3970 r_addr = GET_SWORD (input_bfd, rel->r_address);
252b5132 3971
116c20d2
NC		 3972#ifdef MY_reloc_howto
3973 howto = MY_reloc_howto (input_bfd, rel, r_index, r_extern, r_pcrel);
3974#else
3975 {
3976 int r_jmptable;
3977 int r_relative;
3978 int r_length;
3979 unsigned int howto_idx;
252b5132 3980
116c20d2
NC		 3981 if (bfd_header_big_endian (input_bfd))
3982 {
3983 r_index = (((unsigned int) rel->r_index[0] << 16)
3984 | ((unsigned int) rel->r_index[1] << 8)
3985 | rel->r_index[2]);
3986 r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
3987 r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
3988 r_baserel = (0 != (rel->r_type[0] & RELOC_STD_BITS_BASEREL_BIG));
3989 r_jmptable= (0 != (rel->r_type[0] & RELOC_STD_BITS_JMPTABLE_BIG));
3990 r_relative= (0 != (rel->r_type[0] & RELOC_STD_BITS_RELATIVE_BIG));
3991 r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_BIG)
3992 >> RELOC_STD_BITS_LENGTH_SH_BIG);
3993 }
3994 else
3995 {
3996 r_index = (((unsigned int) rel->r_index[2] << 16)
3997 | ((unsigned int) rel->r_index[1] << 8)
3998 | rel->r_index[0]);
3999 r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
4000 r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
4001 r_baserel = (0 != (rel->r_type[0]
4002 & RELOC_STD_BITS_BASEREL_LITTLE));
4003 r_jmptable= (0 != (rel->r_type[0]
4004 & RELOC_STD_BITS_JMPTABLE_LITTLE));
4005 r_relative= (0 != (rel->r_type[0]
4006 & RELOC_STD_BITS_RELATIVE_LITTLE));
4007 r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
4008 >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
4009 }
252b5132 4010
116c20d2
NC		 4011 howto_idx = (r_length + 4 * r_pcrel + 8 * r_baserel
4012 + 16 * r_jmptable + 32 * r_relative);
ad756e3f
AM		 4013 if (howto_idx < TABLE_SIZE (howto_table_std))
4014 howto = howto_table_std + howto_idx;
4015 else
4016 howto = NULL;
116c20d2
NC		 4017 }
4018#endif
252b5132 4019
ad756e3f
AM		 4020 if (howto == NULL)
4021 {
57402f1e 4022 (*flaginfo->info->callbacks->einfo)
ad756e3f
AM		 4023 (_("%P: %B: unexpected relocation type\n"), input_bfd);
4024 bfd_set_error (bfd_error_bad_value);
4025 return FALSE;
4026 }
4027
116c20d2 4028 if (relocatable)
252b5132 4029 {
116c20d2
NC		 4030 /* We are generating a relocatable output file, and must
4031 modify the reloc accordingly. */
4032 if (r_extern)
252b5132 4033 {
116c20d2
NC		 4034 /* If we know the symbol this relocation is against,
4035 convert it into a relocation against a section. This
4036 is what the native linker does. */
4037 h = sym_hashes[r_index];
4038 if (h != NULL
4039 && (h->root.type == bfd_link_hash_defined
4040 || h->root.type == bfd_link_hash_defweak))
252b5132 4041 {
252b5132
RH		 4042 asection *output_section;
4043
116c20d2
NC		 4044 /* Change the r_extern value. */
4045 if (bfd_header_big_endian (output_bfd))
4046 rel->r_type[0] &=~ RELOC_STD_BITS_EXTERN_BIG;
4047 else
4048 rel->r_type[0] &=~ RELOC_STD_BITS_EXTERN_LITTLE;
252b5132 4049
116c20d2
NC		 4050 /* Compute a new r_index. */
4051 output_section = h->root.u.def.section->output_section;
252b5132 4052 if (output_section == obj_textsec (output_bfd))
116c20d2 4053 r_index = N_TEXT;
252b5132 4054 else if (output_section == obj_datasec (output_bfd))
116c20d2 4055 r_index = N_DATA;
252b5132 4056 else if (output_section == obj_bsssec (output_bfd))
116c20d2 4057 r_index = N_BSS;
252b5132 4058 else
116c20d2 4059 r_index = N_ABS;
252b5132 4060
116c20d2
NC		 4061 /* Add the symbol value and the section VMA to the
4062 addend stored in the contents. */
4063 relocation = (h->root.u.def.value
4064 + output_section->vma
4065 + h->root.u.def.section->output_offset);
252b5132 4066 }
116c20d2 4067 else
252b5132 4068 {
116c20d2
NC		 4069 /* We must change r_index according to the symbol
4070 map. */
4071 r_index = symbol_map[r_index];
252b5132 4072
116c20d2 4073 if (r_index == -1)
252b5132 4074 {
116c20d2 4075 if (h != NULL)
252b5132 4076 {
116c20d2
NC		 4077 /* We decided to strip this symbol, but it
4078 turns out that we can't. Note that we
4079 lose the other and desc information here.
4080 I don't think that will ever matter for a
4081 global symbol. */
4082 if (h->indx < 0)
252b5132 4083 {
116c20d2
NC		 4084 h->indx = -2;
4085 h->written = FALSE;
7686d77d 4086 if (!aout_link_write_other_symbol (&h->root.root,
57402f1e 4087 flaginfo))
116c20d2 4088 return FALSE;
252b5132 4089 }
116c20d2
NC		 4090 r_index = h->indx;
4091 }
4092 else
4093 {
4094 const char *name;
4095
4096 name = strings + GET_WORD (input_bfd,
4097 syms[r_index].e_strx);
57402f1e
NC		 4098 if (! ((*flaginfo->info->callbacks->unattached_reloc)
4099 (flaginfo->info, name, input_bfd, input_section,
116c20d2
NC		 4100 r_addr)))
4101 return FALSE;
4102 r_index = 0;
252b5132
RH		 4103 }
4104 }
116c20d2
NC		 4105
4106 relocation = 0;
252b5132
RH		 4107 }
4108
116c20d2
NC		 4109 /* Write out the new r_index value. */
4110 if (bfd_header_big_endian (output_bfd))
252b5132 4111 {
116c20d2
NC		 4112 rel->r_index[0] = r_index >> 16;
4113 rel->r_index[1] = r_index >> 8;
4114 rel->r_index[2] = r_index;
252b5132
RH		 4115 }
4116 else
4117 {
116c20d2
NC		 4118 rel->r_index[2] = r_index >> 16;
4119 rel->r_index[1] = r_index >> 8;
4120 rel->r_index[0] = r_index;
252b5132
RH		 4121 }
4122 }
252b5132 4123 else
116c20d2
NC		 4124 {
4125 asection *section;
252b5132 4126
116c20d2
NC		 4127 /* This is a relocation against a section. We must
4128 adjust by the amount that the section moved. */
4129 section = aout_reloc_index_to_section (input_bfd, r_index);
4130 relocation = (section->output_section->vma
4131 + section->output_offset
4132 - section->vma);
4133 }
252b5132 4134
116c20d2
NC		 4135 /* Change the address of the relocation. */
4136 PUT_WORD (output_bfd,
4137 r_addr + input_section->output_offset,
4138 rel->r_address);
252b5132 4139
116c20d2
NC		 4140 /* Adjust a PC relative relocation by removing the reference
4141 to the original address in the section and including the
4142 reference to the new address. */
4143 if (r_pcrel)
4144 relocation -= (input_section->output_section->vma
4145 + input_section->output_offset
4146 - input_section->vma);
e92d460e 4147
116c20d2
NC		 4148#ifdef MY_relocatable_reloc
4149 MY_relocatable_reloc (howto, output_bfd, rel, relocation, r_addr);
4150#endif
252b5132 4151
116c20d2
NC		 4152 if (relocation == 0)
4153 r = bfd_reloc_ok;
4154 else
4155 r = MY_relocate_contents (howto,
4156 input_bfd, relocation,
4157 contents + r_addr);
252b5132 4158 }
116c20d2
NC		 4159 else
4160 {
4161 bfd_boolean hundef;
252b5132 4162
116c20d2
NC		 4163 /* We are generating an executable, and must do a full
4164 relocation. */
4165 hundef = FALSE;
252b5132 4166
116c20d2
NC		 4167 if (r_extern)
4168 {
4169 h = sym_hashes[r_index];
252b5132 4170
116c20d2
NC		 4171 if (h != NULL
4172 && (h->root.type == bfd_link_hash_defined
4173 || h->root.type == bfd_link_hash_defweak))
4174 {
4175 relocation = (h->root.u.def.value
4176 + h->root.u.def.section->output_section->vma
4177 + h->root.u.def.section->output_offset);
4178 }
4179 else if (h != NULL
4180 && h->root.type == bfd_link_hash_undefweak)
4181 relocation = 0;
4182 else
4183 {
4184 hundef = TRUE;
4185 relocation = 0;
4186 }
4187 }
4188 else
4189 {
4190 asection *section;
252b5132 4191
116c20d2
NC		 4192 section = aout_reloc_index_to_section (input_bfd, r_index);
4193 relocation = (section->output_section->vma
4194 + section->output_offset
4195 - section->vma);
4196 if (r_pcrel)
4197 relocation += input_section->vma;
4198 }
252b5132 4199
116c20d2
NC		 4200 if (check_dynamic_reloc != NULL)
4201 {
4202 bfd_boolean skip;
252b5132 4203
116c20d2 4204 if (! ((*check_dynamic_reloc)
57402f1e 4205 (flaginfo->info, input_bfd, input_section, h,
116c20d2
NC		 4206 (void *) rel, contents, &skip, &relocation)))
4207 return FALSE;
4208 if (skip)
4209 continue;
4210 }
252b5132 4211
116c20d2
NC		 4212 /* Now warn if a global symbol is undefined. We could not
4213 do this earlier, because check_dynamic_reloc might want
4214 to skip this reloc. */
57402f1e 4215 if (hundef && ! flaginfo->info->shared && ! r_baserel)
116c20d2
NC		 4216 {
4217 const char *name;
252b5132 4218
116c20d2
NC		 4219 if (h != NULL)
4220 name = h->root.root.string;
4221 else
4222 name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
57402f1e
NC		 4223 if (! ((*flaginfo->info->callbacks->undefined_symbol)
4224 (flaginfo->info, name, input_bfd, input_section,
116c20d2
NC		 4225 r_addr, TRUE)))
4226 return FALSE;
4227 }
252b5132 4228
116c20d2
NC		 4229 r = MY_final_link_relocate (howto,
4230 input_bfd, input_section,
4231 contents, r_addr, relocation,
4232 (bfd_vma) 0);
252b5132 4233 }
252b5132 4234
116c20d2
NC		 4235 if (r != bfd_reloc_ok)
4236 {
4237 switch (r)
4238 {
4239 default:
4240 case bfd_reloc_outofrange:
4241 abort ();
4242 case bfd_reloc_overflow:
4243 {
4244 const char *name;
252b5132 4245
116c20d2
NC		 4246 if (h != NULL)
4247 name = NULL;
4248 else if (r_extern)
4249 name = strings + GET_WORD (input_bfd,
4250 syms[r_index].e_strx);
4251 else
4252 {
4253 asection *s;
252b5132 4254
116c20d2
NC		 4255 s = aout_reloc_index_to_section (input_bfd, r_index);
4256 name = bfd_section_name (input_bfd, s);
4257 }
57402f1e
NC		 4258 if (! ((*flaginfo->info->callbacks->reloc_overflow)
4259 (flaginfo->info, (h ? &h->root : NULL), name,
116c20d2
NC		 4260 howto->name, (bfd_vma) 0, input_bfd,
4261 input_section, r_addr)))
4262 return FALSE;
4263 }
4264 break;
4265 }
4266 }
252b5132
RH		 4267 }
4268
b34976b6 4269 return TRUE;
252b5132
RH		 4270}
4271
116c20d2 4272/* Relocate an a.out section using extended a.out relocs. */
252b5132 4273
b34976b6 4274static bfd_boolean
57402f1e 4275aout_link_input_section_ext (struct aout_final_link_info *flaginfo,
116c20d2
NC		 4276 bfd *input_bfd,
4277 asection *input_section,
4278 struct reloc_ext_external *relocs,
4279 bfd_size_type rel_size,
4280 bfd_byte *contents)
252b5132 4281{
b34976b6 4282 bfd_boolean (*check_dynamic_reloc)
116c20d2
NC		 4283 (struct bfd_link_info *, bfd *, asection *,
4284 struct aout_link_hash_entry *, void *, bfd_byte *, bfd_boolean *,
4285 bfd_vma *);
252b5132 4286 bfd *output_bfd;
1049f94e 4287 bfd_boolean relocatable;
252b5132
RH		 4288 struct external_nlist *syms;
4289 char *strings;
4290 struct aout_link_hash_entry **sym_hashes;
4291 int *symbol_map;
4292 bfd_size_type reloc_count;
116c20d2
NC		 4293 struct reloc_ext_external *rel;
4294 struct reloc_ext_external *rel_end;
252b5132 4295
57402f1e 4296 output_bfd = flaginfo->output_bfd;
252b5132
RH		 4297 check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;
4298
116c20d2 4299 BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_EXT_SIZE);
252b5132
RH		 4300 BFD_ASSERT (input_bfd->xvec->header_byteorder
4301 == output_bfd->xvec->header_byteorder);
4302
57402f1e 4303 relocatable = flaginfo->info->relocatable;
252b5132
RH		 4304 syms = obj_aout_external_syms (input_bfd);
4305 strings = obj_aout_external_strings (input_bfd);
4306 sym_hashes = obj_aout_sym_hashes (input_bfd);
57402f1e 4307 symbol_map = flaginfo->symbol_map;
252b5132 4308
116c20d2 4309 reloc_count = rel_size / RELOC_EXT_SIZE;
252b5132
RH		 4310 rel = relocs;
4311 rel_end = rel + reloc_count;
4312 for (; rel < rel_end; rel++)
4313 {
4314 bfd_vma r_addr;
4315 int r_index;
4316 int r_extern;
116c20d2
NC		 4317 unsigned int r_type;
4318 bfd_vma r_addend;
252b5132 4319 struct aout_link_hash_entry *h = NULL;
116c20d2 4320 asection *r_section = NULL;
252b5132 4321 bfd_vma relocation;
252b5132
RH		 4322
4323 r_addr = GET_SWORD (input_bfd, rel->r_address);
4324
116c20d2
NC		 4325 if (bfd_header_big_endian (input_bfd))
4326 {
4327 r_index = (((unsigned int) rel->r_index[0] << 16)
4328 | ((unsigned int) rel->r_index[1] << 8)
4329 | rel->r_index[2]);
4330 r_extern = (0 != (rel->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG));
4331 r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_BIG)
4332 >> RELOC_EXT_BITS_TYPE_SH_BIG);
4333 }
4334 else
4335 {
4336 r_index = (((unsigned int) rel->r_index[2] << 16)
4337 | ((unsigned int) rel->r_index[1] << 8)
4338 | rel->r_index[0]);
4339 r_extern = (0 != (rel->r_type[0] & RELOC_EXT_BITS_EXTERN_LITTLE));
4340 r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE)
4341 >> RELOC_EXT_BITS_TYPE_SH_LITTLE);
4342 }
252b5132 4343
116c20d2 4344 r_addend = GET_SWORD (input_bfd, rel->r_addend);
252b5132 4345
ad756e3f
AM		 4346 if (r_type >= TABLE_SIZE (howto_table_ext))
4347 {
57402f1e 4348 (*flaginfo->info->callbacks->einfo)
ad756e3f
AM		 4349 (_("%P: %B: unexpected relocation type\n"), input_bfd);
4350 bfd_set_error (bfd_error_bad_value);
4351 return FALSE;
4352 }
252b5132 4353
1049f94e 4354 if (relocatable)
252b5132 4355 {
1049f94e 4356 /* We are generating a relocatable output file, and must
252b5132 4357 modify the reloc accordingly. */
116c20d2
NC		 4358 if (r_extern
4359 || r_type == (unsigned int) RELOC_BASE10
4360 || r_type == (unsigned int) RELOC_BASE13
4361 || r_type == (unsigned int) RELOC_BASE22)
252b5132
RH		 4362 {
4363 /* If we know the symbol this relocation is against,
4364 convert it into a relocation against a section. This
4365 is what the native linker does. */
116c20d2
NC		 4366 if (r_type == (unsigned int) RELOC_BASE10
4367 || r_type == (unsigned int) RELOC_BASE13
4368 || r_type == (unsigned int) RELOC_BASE22)
4369 h = NULL;
4370 else
4371 h = sym_hashes[r_index];
4372 if (h != NULL
252b5132
RH		 4373 && (h->root.type == bfd_link_hash_defined
4374 || h->root.type == bfd_link_hash_defweak))
4375 {
4376 asection *output_section;
4377
4378 /* Change the r_extern value. */
4379 if (bfd_header_big_endian (output_bfd))
116c20d2 4380 rel->r_type[0] &=~ RELOC_EXT_BITS_EXTERN_BIG;
252b5132 4381 else
116c20d2 4382 rel->r_type[0] &=~ RELOC_EXT_BITS_EXTERN_LITTLE;
252b5132
RH		 4383
4384 /* Compute a new r_index. */
4385 output_section = h->root.u.def.section->output_section;
4386 if (output_section == obj_textsec (output_bfd))
4387 r_index = N_TEXT;
4388 else if (output_section == obj_datasec (output_bfd))
4389 r_index = N_DATA;
4390 else if (output_section == obj_bsssec (output_bfd))
4391 r_index = N_BSS;
4392 else
4393 r_index = N_ABS;
4394
4395 /* Add the symbol value and the section VMA to the
116c20d2 4396 addend. */
252b5132
RH		 4397 relocation = (h->root.u.def.value
4398 + output_section->vma
4399 + h->root.u.def.section->output_offset);
116c20d2
NC		 4400
4401 /* Now RELOCATION is the VMA of the final
4402 destination. If this is a PC relative reloc,
4403 then ADDEND is the negative of the source VMA.
4404 We want to set ADDEND to the difference between
4405 the destination VMA and the source VMA, which
4406 means we must adjust RELOCATION by the change in
4407 the source VMA. This is done below. */
252b5132
RH		 4408 }
4409 else
4410 {
4411 /* We must change r_index according to the symbol
4412 map. */
4413 r_index = symbol_map[r_index];
4414
4415 if (r_index == -1)
4416 {
4417 if (h != NULL)
4418 {
4419 /* We decided to strip this symbol, but it
4420 turns out that we can't. Note that we
4421 lose the other and desc information here.
4422 I don't think that will ever matter for a
4423 global symbol. */
4424 if (h->indx < 0)
4425 {
4426 h->indx = -2;
b34976b6 4427 h->written = FALSE;
7686d77d 4428 if (!aout_link_write_other_symbol (&h->root.root,
57402f1e 4429 flaginfo))
b34976b6 4430 return FALSE;
252b5132
RH		 4431 }
4432 r_index = h->indx;
4433 }
4434 else
4435 {
4436 const char *name;
4437
4438 name = strings + GET_WORD (input_bfd,
4439 syms[r_index].e_strx);
57402f1e
NC		 4440 if (! ((*flaginfo->info->callbacks->unattached_reloc)
4441 (flaginfo->info, name, input_bfd, input_section,
252b5132 4442 r_addr)))
b34976b6 4443 return FALSE;
252b5132
RH		 4444 r_index = 0;
4445 }
4446 }
4447
4448 relocation = 0;
116c20d2
NC		 4449
4450 /* If this is a PC relative reloc, then the addend
4451 is the negative of the source VMA. We must
4452 adjust it by the change in the source VMA. This
4453 is done below. */
252b5132
RH		 4454 }
4455
4456 /* Write out the new r_index value. */
4457 if (bfd_header_big_endian (output_bfd))
4458 {
4459 rel->r_index[0] = r_index >> 16;
4460 rel->r_index[1] = r_index >> 8;
4461 rel->r_index[2] = r_index;
4462 }
4463 else
4464 {
4465 rel->r_index[2] = r_index >> 16;
4466 rel->r_index[1] = r_index >> 8;
4467 rel->r_index[0] = r_index;
4468 }
4469 }
4470 else
4471 {
252b5132
RH		 4472 /* This is a relocation against a section. We must
4473 adjust by the amount that the section moved. */
116c20d2
NC		 4474 r_section = aout_reloc_index_to_section (input_bfd, r_index);
4475 relocation = (r_section->output_section->vma
4476 + r_section->output_offset
4477 - r_section->vma);
252b5132 4478
116c20d2
NC		 4479 /* If this is a PC relative reloc, then the addend is
4480 the difference in VMA between the destination and the
4481 source. We have just adjusted for the change in VMA
4482 of the destination, so we must also adjust by the
4483 change in VMA of the source. This is done below. */
4484 }
252b5132 4485
116c20d2
NC		 4486 /* As described above, we must always adjust a PC relative
4487 reloc by the change in VMA of the source. However, if
4488 pcrel_offset is set, then the addend does not include the
4489 location within the section, in which case we don't need
4490 to adjust anything. */
4491 if (howto_table_ext[r_type].pc_relative
4492 && ! howto_table_ext[r_type].pcrel_offset)
252b5132
RH		 4493 relocation -= (input_section->output_section->vma
4494 + input_section->output_offset
4495 - input_section->vma);
4496
116c20d2
NC		 4497 /* Change the addend if necessary. */
4498 if (relocation != 0)
4499 PUT_WORD (output_bfd, r_addend + relocation, rel->r_addend);
252b5132 4500
116c20d2
NC		 4501 /* Change the address of the relocation. */
4502 PUT_WORD (output_bfd,
4503 r_addr + input_section->output_offset,
4504 rel->r_address);
252b5132
RH		 4505 }
4506 else
4507 {
b34976b6 4508 bfd_boolean hundef;
116c20d2 4509 bfd_reloc_status_type r;
252b5132
RH		 4510
4511 /* We are generating an executable, and must do a full
4512 relocation. */
b34976b6 4513 hundef = FALSE;
252b5132
RH		 4514
4515 if (r_extern)
4516 {
4517 h = sym_hashes[r_index];
4518
116c20d2 4519 if (h != NULL
252b5132
RH		 4520 && (h->root.type == bfd_link_hash_defined
4521 || h->root.type == bfd_link_hash_defweak))
4522 {
4523 relocation = (h->root.u.def.value
4524 + h->root.u.def.section->output_section->vma
4525 + h->root.u.def.section->output_offset);
4526 }
116c20d2 4527 else if (h != NULL
252b5132
RH		 4528 && h->root.type == bfd_link_hash_undefweak)
4529 relocation = 0;
4530 else
4531 {
b34976b6 4532 hundef = TRUE;
252b5132
RH		 4533 relocation = 0;
4534 }
4535 }
116c20d2
NC		 4536 else if (r_type == (unsigned int) RELOC_BASE10
4537 || r_type == (unsigned int) RELOC_BASE13
4538 || r_type == (unsigned int) RELOC_BASE22)
4539 {
4540 struct external_nlist *sym;
4541 int type;
4542
4543 /* For base relative relocs, r_index is always an index
4544 into the symbol table, even if r_extern is 0. */
4545 sym = syms + r_index;
4546 type = H_GET_8 (input_bfd, sym->e_type);
4547 if ((type & N_TYPE) == N_TEXT
4548 || type == N_WEAKT)
4549 r_section = obj_textsec (input_bfd);
4550 else if ((type & N_TYPE) == N_DATA
4551 || type == N_WEAKD)
4552 r_section = obj_datasec (input_bfd);
4553 else if ((type & N_TYPE) == N_BSS
4554 || type == N_WEAKB)
4555 r_section = obj_bsssec (input_bfd);
4556 else if ((type & N_TYPE) == N_ABS
4557 || type == N_WEAKA)
4558 r_section = bfd_abs_section_ptr;
4559 else
4560 abort ();
4561 relocation = (r_section->output_section->vma
4562 + r_section->output_offset
4563 + (GET_WORD (input_bfd, sym->e_value)
4564 - r_section->vma));
4565 }
252b5132
RH		 4566 else
4567 {
116c20d2 4568 r_section = aout_reloc_index_to_section (input_bfd, r_index);
252b5132 4569
116c20d2
NC		 4570 /* If this is a PC relative reloc, then R_ADDEND is the
4571 difference between the two vmas, or
4572 old_dest_sec + old_dest_off - (old_src_sec + old_src_off)
4573 where
4574 old_dest_sec == section->vma
4575 and
4576 old_src_sec == input_section->vma
4577 and
4578 old_src_off == r_addr
4579
4580 _bfd_final_link_relocate expects RELOCATION +
4581 R_ADDEND to be the VMA of the destination minus
4582 r_addr (the minus r_addr is because this relocation
4583 is not pcrel_offset, which is a bit confusing and
4584 should, perhaps, be changed), or
4585 new_dest_sec
4586 where
4587 new_dest_sec == output_section->vma + output_offset
4588 We arrange for this to happen by setting RELOCATION to
4589 new_dest_sec + old_src_sec - old_dest_sec
4590
4591 If this is not a PC relative reloc, then R_ADDEND is
4592 simply the VMA of the destination, so we set
4593 RELOCATION to the change in the destination VMA, or
4594 new_dest_sec - old_dest_sec
4595 */
4596 relocation = (r_section->output_section->vma
4597 + r_section->output_offset
4598 - r_section->vma);
4599 if (howto_table_ext[r_type].pc_relative)
252b5132
RH		 4600 relocation += input_section->vma;
4601 }
4602
4603 if (check_dynamic_reloc != NULL)
4604 {
b34976b6 4605 bfd_boolean skip;
252b5132
RH		 4606
4607 if (! ((*check_dynamic_reloc)
57402f1e 4608 (flaginfo->info, input_bfd, input_section, h,
116c20d2 4609 (void *) rel, contents, &skip, &relocation)))
b34976b6 4610 return FALSE;
252b5132
RH		 4611 if (skip)
4612 continue;
4613 }
4614
4615 /* Now warn if a global symbol is undefined. We could not
4616 do this earlier, because check_dynamic_reloc might want
4617 to skip this reloc. */
116c20d2 4618 if (hundef
57402f1e 4619 && ! flaginfo->info->shared
116c20d2
NC		 4620 && r_type != (unsigned int) RELOC_BASE10
4621 && r_type != (unsigned int) RELOC_BASE13
4622 && r_type != (unsigned int) RELOC_BASE22)
252b5132
RH		 4623 {
4624 const char *name;
4625
4626 if (h != NULL)
4627 name = h->root.root.string;
4628 else
4629 name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
57402f1e
NC		 4630 if (! ((*flaginfo->info->callbacks->undefined_symbol)
4631 (flaginfo->info, name, input_bfd, input_section,
b34976b6
AM		 4632 r_addr, TRUE)))
4633 return FALSE;
252b5132
RH		 4634 }
4635
116c20d2
NC		 4636 if (r_type != (unsigned int) RELOC_SPARC_REV32)
4637 r = MY_final_link_relocate (howto_table_ext + r_type,
4638 input_bfd, input_section,
4639 contents, r_addr, relocation,
4640 r_addend);
4641 else
252b5132 4642 {
116c20d2 4643 bfd_vma x;
252b5132 4644
116c20d2
NC		 4645 x = bfd_get_32 (input_bfd, contents + r_addr);
4646 x = x + relocation + r_addend;
4647 bfd_putl32 (/*input_bfd,*/ x, contents + r_addr);
4648 r = bfd_reloc_ok;
4649 }
4650
4651 if (r != bfd_reloc_ok)
4652 {
4653 switch (r)
4654 {
4655 default:
4656 case bfd_reloc_outofrange:
4657 abort ();
4658 case bfd_reloc_overflow:
252b5132 4659 {
116c20d2 4660 const char *name;
252b5132 4661
116c20d2
NC		 4662 if (h != NULL)
4663 name = NULL;
4664 else if (r_extern
4665 || r_type == (unsigned int) RELOC_BASE10
4666 || r_type == (unsigned int) RELOC_BASE13
4667 || r_type == (unsigned int) RELOC_BASE22)
4668 name = strings + GET_WORD (input_bfd,
4669 syms[r_index].e_strx);
4670 else
4671 {
4672 asection *s;
4673
4674 s = aout_reloc_index_to_section (input_bfd, r_index);
4675 name = bfd_section_name (input_bfd, s);
4676 }
57402f1e
NC		 4677 if (! ((*flaginfo->info->callbacks->reloc_overflow)
4678 (flaginfo->info, (h ? &h->root : NULL), name,
116c20d2
NC		 4679 howto_table_ext[r_type].name,
4680 r_addend, input_bfd, input_section, r_addr)))
4681 return FALSE;
252b5132 4682 }
116c20d2
NC		 4683 break;
4684 }
252b5132
RH		 4685 }
4686 }
4687 }
4688
b34976b6 4689 return TRUE;
252b5132
RH		 4690}
4691
116c20d2
NC		 4692/* Link an a.out section into the output file. */
4693
4694static bfd_boolean
57402f1e 4695aout_link_input_section (struct aout_final_link_info *flaginfo,
116c20d2
NC		 4696 bfd *input_bfd,
4697 asection *input_section,
4698 file_ptr *reloff_ptr,
4699 bfd_size_type rel_size)
4700{
4701 bfd_size_type input_size;
4702 void * relocs;
4703
4704 /* Get the section contents. */
4705 input_size = input_section->size;
4706 if (! bfd_get_section_contents (input_bfd, input_section,
57402f1e 4707 (void *) flaginfo->contents,
116c20d2
NC		 4708 (file_ptr) 0, input_size))
4709 return FALSE;
4710
4711 /* Read in the relocs if we haven't already done it. */
4712 if (aout_section_data (input_section) != NULL
4713 && aout_section_data (input_section)->relocs != NULL)
4714 relocs = aout_section_data (input_section)->relocs;
4715 else
4716 {
57402f1e 4717 relocs = flaginfo->relocs;
116c20d2
NC		 4718 if (rel_size > 0)
4719 {
4720 if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0
4721 || bfd_bread (relocs, rel_size, input_bfd) != rel_size)
4722 return FALSE;
4723 }
4724 }
4725
4726 /* Relocate the section contents. */
4727 if (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE)
4728 {
57402f1e 4729 if (! aout_link_input_section_std (flaginfo, input_bfd, input_section,
116c20d2 4730 (struct reloc_std_external *) relocs,
57402f1e 4731 rel_size, flaginfo->contents))
116c20d2
NC		 4732 return FALSE;
4733 }
4734 else
4735 {
57402f1e 4736 if (! aout_link_input_section_ext (flaginfo, input_bfd, input_section,
116c20d2 4737 (struct reloc_ext_external *) relocs,
57402f1e 4738 rel_size, flaginfo->contents))
116c20d2
NC		 4739 return FALSE;
4740 }
4741
4742 /* Write out the section contents. */
57402f1e 4743 if (! bfd_set_section_contents (flaginfo->output_bfd,
116c20d2 4744 input_section->output_section,
57402f1e 4745 (void *) flaginfo->contents,
116c20d2
NC		 4746 (file_ptr) input_section->output_offset,
4747 input_size))
4748 return FALSE;
4749
4750 /* If we are producing relocatable output, the relocs were
4751 modified, and we now write them out. */
57402f1e 4752 if (flaginfo->info->relocatable && rel_size > 0)
116c20d2 4753 {
57402f1e 4754 if (bfd_seek (flaginfo->output_bfd, *reloff_ptr, SEEK_SET) != 0)
116c20d2 4755 return FALSE;
57402f1e 4756 if (bfd_bwrite (relocs, rel_size, flaginfo->output_bfd) != rel_size)
116c20d2
NC		 4757 return FALSE;
4758 *reloff_ptr += rel_size;
4759
4760 /* Assert that the relocs have not run into the symbols, and
4761 that if these are the text relocs they have not run into the
4762 data relocs. */
57402f1e
NC		 4763 BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (flaginfo->output_bfd)
4764 && (reloff_ptr != &flaginfo->treloff
116c20d2 4765 || (*reloff_ptr
57402f1e 4766 <= obj_datasec (flaginfo->output_bfd)->rel_filepos)));
116c20d2
NC		 4767 }
4768
4769 return TRUE;
4770}
4771
4772/* Adjust and write out the symbols for an a.out file. Set the new
4773 symbol indices into a symbol_map. */
252b5132 4774
b34976b6 4775static bfd_boolean
57402f1e 4776aout_link_write_symbols (struct aout_final_link_info *flaginfo, bfd *input_bfd)
252b5132 4777{
252b5132 4778 bfd *output_bfd;
116c20d2 4779 bfd_size_type sym_count;
252b5132 4780 char *strings;
116c20d2
NC		 4781 enum bfd_link_strip strip;
4782 enum bfd_link_discard discard;
4783 struct external_nlist *outsym;
4784 bfd_size_type strtab_index;
4785 struct external_nlist *sym;
4786 struct external_nlist *sym_end;
4787 struct aout_link_hash_entry **sym_hash;
252b5132 4788 int *symbol_map;
116c20d2
NC		 4789 bfd_boolean pass;
4790 bfd_boolean skip_next;
252b5132 4791
57402f1e 4792 output_bfd = flaginfo->output_bfd;
116c20d2
NC		 4793 sym_count = obj_aout_external_sym_count (input_bfd);
4794 strings = obj_aout_external_strings (input_bfd);
57402f1e
NC		 4795 strip = flaginfo->info->strip;
4796 discard = flaginfo->info->discard;
4797 outsym = flaginfo->output_syms;
252b5132 4798
116c20d2
NC		 4799 /* First write out a symbol for this object file, unless we are
4800 discarding such symbols. */
4801 if (strip != strip_all
4802 && (strip != strip_some
57402f1e 4803 || bfd_hash_lookup (flaginfo->info->keep_hash, input_bfd->filename,
116c20d2
NC		 4804 FALSE, FALSE) != NULL)
4805 && discard != discard_all)
4806 {
4807 H_PUT_8 (output_bfd, N_TEXT, outsym->e_type);
4808 H_PUT_8 (output_bfd, 0, outsym->e_other);
4809 H_PUT_16 (output_bfd, 0, outsym->e_desc);
57402f1e 4810 strtab_index = add_to_stringtab (output_bfd, flaginfo->strtab,
116c20d2
NC		 4811 input_bfd->filename, FALSE);
4812 if (strtab_index == (bfd_size_type) -1)
4813 return FALSE;
4814 PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
4815 PUT_WORD (output_bfd,
4816 (bfd_get_section_vma (output_bfd,
4817 obj_textsec (input_bfd)->output_section)
4818 + obj_textsec (input_bfd)->output_offset),
4819 outsym->e_value);
4820 ++obj_aout_external_sym_count (output_bfd);
4821 ++outsym;
4822 }
252b5132 4823
116c20d2
NC		 4824 pass = FALSE;
4825 skip_next = FALSE;
4826 sym = obj_aout_external_syms (input_bfd);
4827 sym_end = sym + sym_count;
4828 sym_hash = obj_aout_sym_hashes (input_bfd);
57402f1e 4829 symbol_map = flaginfo->symbol_map;
116c20d2
NC		 4830 memset (symbol_map, 0, (size_t) sym_count * sizeof *symbol_map);
4831 for (; sym < sym_end; sym++, sym_hash++, symbol_map++)
252b5132 4832 {
116c20d2
NC		 4833 const char *name;
4834 int type;
4835 struct aout_link_hash_entry *h;
4836 bfd_boolean skip;
4837 asection *symsec;
4838 bfd_vma val = 0;
4839 bfd_boolean copy;
252b5132 4840
116c20d2
NC		 4841 /* We set *symbol_map to 0 above for all symbols. If it has
4842 already been set to -1 for this symbol, it means that we are
4843 discarding it because it appears in a duplicate header file.
4844 See the N_BINCL code below. */
4845 if (*symbol_map == -1)
4846 continue;
252b5132 4847
116c20d2
NC		 4848 /* Initialize *symbol_map to -1, which means that the symbol was
4849 not copied into the output file. We will change it later if
4850 we do copy the symbol over. */
4851 *symbol_map = -1;
4852
4853 type = H_GET_8 (input_bfd, sym->e_type);
4854 name = strings + GET_WORD (input_bfd, sym->e_strx);
4855
4856 h = NULL;
4857
4858 if (pass)
252b5132 4859 {
116c20d2
NC		 4860 /* Pass this symbol through. It is the target of an
4861 indirect or warning symbol. */
4862 val = GET_WORD (input_bfd, sym->e_value);
4863 pass = FALSE;
252b5132 4864 }
116c20d2 4865 else if (skip_next)
252b5132 4866 {
116c20d2
NC		 4867 /* Skip this symbol, which is the target of an indirect
4868 symbol that we have changed to no longer be an indirect
4869 symbol. */
4870 skip_next = FALSE;
4871 continue;
252b5132 4872 }
116c20d2
NC		 4873 else
4874 {
4875 struct aout_link_hash_entry *hresolve;
252b5132 4876
116c20d2
NC		 4877 /* We have saved the hash table entry for this symbol, if
4878 there is one. Note that we could just look it up again
4879 in the hash table, provided we first check that it is an
4880 external symbol. */
4881 h = *sym_hash;
252b5132 4882
116c20d2
NC		 4883 /* Use the name from the hash table, in case the symbol was
4884 wrapped. */
4885 if (h != NULL
4886 && h->root.type != bfd_link_hash_warning)
4887 name = h->root.root.string;
252b5132 4888
116c20d2
NC		 4889 /* If this is an indirect or warning symbol, then change
4890 hresolve to the base symbol. We also change *sym_hash so
4891 that the relocation routines relocate against the real
4892 symbol. */
4893 hresolve = h;
4894 if (h != (struct aout_link_hash_entry *) NULL
4895 && (h->root.type == bfd_link_hash_indirect
4896 || h->root.type == bfd_link_hash_warning))
252b5132 4897 {
116c20d2
NC		 4898 hresolve = (struct aout_link_hash_entry *) h->root.u.i.link;
4899 while (hresolve->root.type == bfd_link_hash_indirect
4900 || hresolve->root.type == bfd_link_hash_warning)
4901 hresolve = ((struct aout_link_hash_entry *)
4902 hresolve->root.u.i.link);
4903 *sym_hash = hresolve;
4904 }
4905
4906 /* If the symbol has already been written out, skip it. */
4907 if (h != NULL
4908 && h->written)
4909 {
4910 if ((type & N_TYPE) == N_INDR
4911 || type == N_WARNING)
4912 skip_next = TRUE;
4913 *symbol_map = h->indx;
4914 continue;
4915 }
4916
4917 /* See if we are stripping this symbol. */
4918 skip = FALSE;
4919 switch (strip)
4920 {
4921 case strip_none:
4922 break;
4923 case strip_debugger:
4924 if ((type & N_STAB) != 0)
4925 skip = TRUE;
4926 break;
4927 case strip_some:
57402f1e 4928 if (bfd_hash_lookup (flaginfo->info->keep_hash, name, FALSE, FALSE)
116c20d2
NC		 4929 == NULL)
4930 skip = TRUE;
4931 break;
4932 case strip_all:
4933 skip = TRUE;
4934 break;
4935 }
4936 if (skip)
4937 {
4938 if (h != NULL)
4939 h->written = TRUE;
4940 continue;
4941 }
4942
4943 /* Get the value of the symbol. */
4944 if ((type & N_TYPE) == N_TEXT
4945 || type == N_WEAKT)
4946 symsec = obj_textsec (input_bfd);
4947 else if ((type & N_TYPE) == N_DATA
4948 || type == N_WEAKD)
4949 symsec = obj_datasec (input_bfd);
4950 else if ((type & N_TYPE) == N_BSS
4951 || type == N_WEAKB)
4952 symsec = obj_bsssec (input_bfd);
4953 else if ((type & N_TYPE) == N_ABS
4954 || type == N_WEAKA)
4955 symsec = bfd_abs_section_ptr;
4956 else if (((type & N_TYPE) == N_INDR
4957 && (hresolve == NULL
4958 || (hresolve->root.type != bfd_link_hash_defined
4959 && hresolve->root.type != bfd_link_hash_defweak
4960 && hresolve->root.type != bfd_link_hash_common)))
4961 || type == N_WARNING)
4962 {
4963 /* Pass the next symbol through unchanged. The
4964 condition above for indirect symbols is so that if
4965 the indirect symbol was defined, we output it with
4966 the correct definition so the debugger will
4967 understand it. */
4968 pass = TRUE;
4969 val = GET_WORD (input_bfd, sym->e_value);
4970 symsec = NULL;
4971 }
4972 else if ((type & N_STAB) != 0)
4973 {
4974 val = GET_WORD (input_bfd, sym->e_value);
4975 symsec = NULL;
4976 }
4977 else
4978 {
4979 /* If we get here with an indirect symbol, it means that
4980 we are outputting it with a real definition. In such
4981 a case we do not want to output the next symbol,
4982 which is the target of the indirection. */
4983 if ((type & N_TYPE) == N_INDR)
4984 skip_next = TRUE;
4985
4986 symsec = NULL;
4987
4988 /* We need to get the value from the hash table. We use
4989 hresolve so that if we have defined an indirect
4990 symbol we output the final definition. */
4991 if (h == NULL)
4992 {
4993 switch (type & N_TYPE)
4994 {
4995 case N_SETT:
4996 symsec = obj_textsec (input_bfd);
4997 break;
4998 case N_SETD:
4999 symsec = obj_datasec (input_bfd);
5000 break;
5001 case N_SETB:
5002 symsec = obj_bsssec (input_bfd);
5003 break;
5004 case N_SETA:
5005 symsec = bfd_abs_section_ptr;
5006 break;
5007 default:
5008 val = 0;
5009 break;
5010 }
5011 }
5012 else if (hresolve->root.type == bfd_link_hash_defined
5013 || hresolve->root.type == bfd_link_hash_defweak)
252b5132 5014 {
116c20d2 5015 asection *input_section;
252b5132
RH		 5016 asection *output_section;
5017
116c20d2
NC		 5018 /* This case usually means a common symbol which was
5019 turned into a defined symbol. */
5020 input_section = hresolve->root.u.def.section;
5021 output_section = input_section->output_section;
5022 BFD_ASSERT (bfd_is_abs_section (output_section)
5023 || output_section->owner == output_bfd);
5024 val = (hresolve->root.u.def.value
5025 + bfd_get_section_vma (output_bfd, output_section)
5026 + input_section->output_offset);
5027
5028 /* Get the correct type based on the section. If
5029 this is a constructed set, force it to be
5030 globally visible. */
5031 if (type == N_SETT
5032 || type == N_SETD
5033 || type == N_SETB
5034 || type == N_SETA)
5035 type |= N_EXT;
5036
5037 type &=~ N_TYPE;
252b5132 5038
252b5132 5039 if (output_section == obj_textsec (output_bfd))
116c20d2
NC		 5040 type |= (hresolve->root.type == bfd_link_hash_defined
5041 ? N_TEXT
5042 : N_WEAKT);
252b5132 5043 else if (output_section == obj_datasec (output_bfd))
116c20d2
NC		 5044 type |= (hresolve->root.type == bfd_link_hash_defined
5045 ? N_DATA
5046 : N_WEAKD);
252b5132 5047 else if (output_section == obj_bsssec (output_bfd))
116c20d2
NC		 5048 type |= (hresolve->root.type == bfd_link_hash_defined
5049 ? N_BSS
5050 : N_WEAKB);
252b5132 5051 else
116c20d2
NC		 5052 type |= (hresolve->root.type == bfd_link_hash_defined
5053 ? N_ABS
5054 : N_WEAKA);
5055 }
5056 else if (hresolve->root.type == bfd_link_hash_common)
5057 val = hresolve->root.u.c.size;
5058 else if (hresolve->root.type == bfd_link_hash_undefweak)
5059 {
5060 val = 0;
5061 type = N_WEAKU;
252b5132
RH		 5062 }
5063 else
116c20d2
NC		 5064 val = 0;
5065 }
5066 if (symsec != NULL)
5067 val = (symsec->output_section->vma
5068 + symsec->output_offset
5069 + (GET_WORD (input_bfd, sym->e_value)
5070 - symsec->vma));
5071
5072 /* If this is a global symbol set the written flag, and if
5073 it is a local symbol see if we should discard it. */
5074 if (h != NULL)
5075 {
5076 h->written = TRUE;
5077 h->indx = obj_aout_external_sym_count (output_bfd);
5078 }
5079 else if ((type & N_TYPE) != N_SETT
5080 && (type & N_TYPE) != N_SETD
5081 && (type & N_TYPE) != N_SETB
5082 && (type & N_TYPE) != N_SETA)
5083 {
5084 switch (discard)
252b5132 5085 {
116c20d2
NC		 5086 case discard_none:
5087 case discard_sec_merge:
5088 break;
5089 case discard_l:
5090 if ((type & N_STAB) == 0
5091 && bfd_is_local_label_name (input_bfd, name))
5092 skip = TRUE;
5093 break;
5094 case discard_all:
5095 skip = TRUE;
5096 break;
5097 }
5098 if (skip)
5099 {
5100 pass = FALSE;
5101 continue;
5102 }
5103 }
252b5132 5104
116c20d2
NC		 5105 /* An N_BINCL symbol indicates the start of the stabs
5106 entries for a header file. We need to scan ahead to the
5107 next N_EINCL symbol, ignoring nesting, adding up all the
5108 characters in the symbol names, not including the file
5109 numbers in types (the first number after an open
5110 parenthesis). */
5111 if (type == (int) N_BINCL)
5112 {
5113 struct external_nlist *incl_sym;
5114 int nest;
5115 struct aout_link_includes_entry *incl_entry;
5116 struct aout_link_includes_totals *t;
5117
5118 val = 0;
5119 nest = 0;
5120 for (incl_sym = sym + 1; incl_sym < sym_end; incl_sym++)
5121 {
5122 int incl_type;
5123
5124 incl_type = H_GET_8 (input_bfd, incl_sym->e_type);
5125 if (incl_type == (int) N_EINCL)
252b5132 5126 {
116c20d2
NC		 5127 if (nest == 0)
5128 break;
5129 --nest;
5130 }
5131 else if (incl_type == (int) N_BINCL)
5132 ++nest;
5133 else if (nest == 0)
5134 {
5135 const char *s;
5136
5137 s = strings + GET_WORD (input_bfd, incl_sym->e_strx);
5138 for (; *s != '\0'; s++)
252b5132 5139 {
116c20d2
NC		 5140 val += *s;
5141 if (*s == '(')
252b5132 5142 {
116c20d2
NC		 5143 /* Skip the file number. */
5144 ++s;
5145 while (ISDIGIT (*s))
5146 ++s;
5147 --s;
252b5132 5148 }
252b5132 5149 }
116c20d2
NC		 5150 }
5151 }
252b5132 5152
116c20d2
NC		 5153 /* If we have already included a header file with the
5154 same value, then replace this one with an N_EXCL
5155 symbol. */
57402f1e
NC		 5156 copy = (bfd_boolean) (! flaginfo->info->keep_memory);
5157 incl_entry = aout_link_includes_lookup (&flaginfo->includes,
116c20d2
NC		 5158 name, TRUE, copy);
5159 if (incl_entry == NULL)
5160 return FALSE;
5161 for (t = incl_entry->totals; t != NULL; t = t->next)
5162 if (t->total == val)
5163 break;
5164 if (t == NULL)
5165 {
5166 /* This is the first time we have seen this header
5167 file with this set of stabs strings. */
a50b1753 5168 t = (struct aout_link_includes_totals *)
57402f1e 5169 bfd_hash_allocate (&flaginfo->includes.root,
116c20d2
NC		 5170 sizeof *t);
5171 if (t == NULL)
5172 return FALSE;
5173 t->total = val;
5174 t->next = incl_entry->totals;
5175 incl_entry->totals = t;
5176 }
5177 else
5178 {
5179 int *incl_map;
5180
5181 /* This is a duplicate header file. We must change
5182 it to be an N_EXCL entry, and mark all the
5183 included symbols to prevent outputting them. */
5184 type = (int) N_EXCL;
5185
5186 nest = 0;
5187 for (incl_sym = sym + 1, incl_map = symbol_map + 1;
5188 incl_sym < sym_end;
5189 incl_sym++, incl_map++)
5190 {
5191 int incl_type;
5192
5193 incl_type = H_GET_8 (input_bfd, incl_sym->e_type);
5194 if (incl_type == (int) N_EINCL)
5195 {
5196 if (nest == 0)
5197 {
5198 *incl_map = -1;
5199 break;
5200 }
5201 --nest;
252b5132 5202 }
116c20d2
NC		 5203 else if (incl_type == (int) N_BINCL)
5204 ++nest;
5205 else if (nest == 0)
5206 *incl_map = -1;
252b5132 5207 }
252b5132
RH		 5208 }
5209 }
116c20d2
NC		 5210 }
5211
5212 /* Copy this symbol into the list of symbols we are going to
5213 write out. */
5214 H_PUT_8 (output_bfd, type, outsym->e_type);
5215 H_PUT_8 (output_bfd, H_GET_8 (input_bfd, sym->e_other), outsym->e_other);
5216 H_PUT_16 (output_bfd, H_GET_16 (input_bfd, sym->e_desc), outsym->e_desc);
5217 copy = FALSE;
57402f1e 5218 if (! flaginfo->info->keep_memory)
116c20d2
NC		 5219 {
5220 /* name points into a string table which we are going to
5221 free. If there is a hash table entry, use that string.
5222 Otherwise, copy name into memory. */
5223 if (h != NULL)
5224 name = h->root.root.string;
252b5132 5225 else
116c20d2
NC		 5226 copy = TRUE;
5227 }
57402f1e 5228 strtab_index = add_to_stringtab (output_bfd, flaginfo->strtab,
116c20d2
NC		 5229 name, copy);
5230 if (strtab_index == (bfd_size_type) -1)
5231 return FALSE;
5232 PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
5233 PUT_WORD (output_bfd, val, outsym->e_value);
5234 *symbol_map = obj_aout_external_sym_count (output_bfd);
5235 ++obj_aout_external_sym_count (output_bfd);
5236 ++outsym;
5237 }
252b5132 5238
116c20d2 5239 /* Write out the output symbols we have just constructed. */
57402f1e 5240 if (outsym > flaginfo->output_syms)
116c20d2
NC		 5241 {
5242 bfd_size_type outsym_size;
252b5132 5243
57402f1e 5244 if (bfd_seek (output_bfd, flaginfo->symoff, SEEK_SET) != 0)
116c20d2 5245 return FALSE;
57402f1e 5246 outsym_size = outsym - flaginfo->output_syms;
116c20d2 5247 outsym_size *= EXTERNAL_NLIST_SIZE;
57402f1e 5248 if (bfd_bwrite ((void *) flaginfo->output_syms, outsym_size, output_bfd)
116c20d2
NC		 5249 != outsym_size)
5250 return FALSE;
57402f1e 5251 flaginfo->symoff += outsym_size;
116c20d2 5252 }
252b5132 5253
116c20d2
NC		 5254 return TRUE;
5255}
252b5132 5256
116c20d2 5257/* Link an a.out input BFD into the output file. */
252b5132 5258
116c20d2 5259static bfd_boolean
57402f1e 5260aout_link_input_bfd (struct aout_final_link_info *flaginfo, bfd *input_bfd)
116c20d2 5261{
116c20d2 5262 BFD_ASSERT (bfd_get_format (input_bfd) == bfd_object);
252b5132 5263
116c20d2
NC		 5264 /* If this is a dynamic object, it may need special handling. */
5265 if ((input_bfd->flags & DYNAMIC) != 0
5266 && aout_backend_info (input_bfd)->link_dynamic_object != NULL)
5267 return ((*aout_backend_info (input_bfd)->link_dynamic_object)
57402f1e 5268 (flaginfo->info, input_bfd));
252b5132 5269
116c20d2 5270 /* Get the symbols. We probably have them already, unless
57402f1e 5271 flaginfo->info->keep_memory is FALSE. */
116c20d2
NC		 5272 if (! aout_get_external_symbols (input_bfd))
5273 return FALSE;
252b5132 5274
116c20d2 5275 /* Write out the symbols and get a map of the new indices. The map
57402f1e
NC		 5276 is placed into flaginfo->symbol_map. */
5277 if (! aout_link_write_symbols (flaginfo, input_bfd))
116c20d2 5278 return FALSE;
252b5132 5279
116c20d2
NC		 5280 /* Relocate and write out the sections. These functions use the
5281 symbol map created by aout_link_write_symbols. The linker_mark
5282 field will be set if these sections are to be included in the
5283 link, which will normally be the case. */
5284 if (obj_textsec (input_bfd)->linker_mark)
5285 {
57402f1e 5286 if (! aout_link_input_section (flaginfo, input_bfd,
116c20d2 5287 obj_textsec (input_bfd),
57402f1e 5288 &flaginfo->treloff,
116c20d2
NC		 5289 exec_hdr (input_bfd)->a_trsize))
5290 return FALSE;
5291 }
5292 if (obj_datasec (input_bfd)->linker_mark)
5293 {
57402f1e 5294 if (! aout_link_input_section (flaginfo, input_bfd,
116c20d2 5295 obj_datasec (input_bfd),
57402f1e 5296 &flaginfo->dreloff,
116c20d2
NC		 5297 exec_hdr (input_bfd)->a_drsize))
5298 return FALSE;
5299 }
5300
5301 /* If we are not keeping memory, we don't need the symbols any
5302 longer. We still need them if we are keeping memory, because the
5303 strings in the hash table point into them. */
57402f1e 5304 if (! flaginfo->info->keep_memory)
116c20d2
NC		 5305 {
5306 if (! aout_link_free_symbols (input_bfd))
5307 return FALSE;
5308 }
5309
5310 return TRUE;
5311}
5312
5313/* Do the final link step. This is called on the output BFD. The
5314 INFO structure should point to a list of BFDs linked through the
c72f2fb2 5315 link.next field which can be used to find each BFD which takes part
116c20d2
NC		 5316 in the output. Also, each section in ABFD should point to a list
5317 of bfd_link_order structures which list all the input sections for
5318 the output section. */
5319
5320bfd_boolean
5321NAME (aout, final_link) (bfd *abfd,
5322 struct bfd_link_info *info,
5323 void (*callback) (bfd *, file_ptr *, file_ptr *, file_ptr *))
5324{
5325 struct aout_final_link_info aout_info;
5326 bfd_boolean includes_hash_initialized = FALSE;
5327 bfd *sub;
5328 bfd_size_type trsize, drsize;
5329 bfd_size_type max_contents_size;
5330 bfd_size_type max_relocs_size;
5331 bfd_size_type max_sym_count;
5332 bfd_size_type text_size;
5333 file_ptr text_end;
5334 struct bfd_link_order *p;
5335 asection *o;
5336 bfd_boolean have_link_order_relocs;
5337
5338 if (info->shared)
5339 abfd->flags |= DYNAMIC;
5340
5341 aout_info.info = info;
5342 aout_info.output_bfd = abfd;
5343 aout_info.contents = NULL;
5344 aout_info.relocs = NULL;
5345 aout_info.symbol_map = NULL;
5346 aout_info.output_syms = NULL;
252b5132 5347
66eb6687
AM		 5348 if (!bfd_hash_table_init_n (&aout_info.includes.root,
5349 aout_link_includes_newfunc,
5350 sizeof (struct aout_link_includes_entry),
5351 251))
116c20d2
NC		 5352 goto error_return;
5353 includes_hash_initialized = TRUE;
252b5132 5354
116c20d2
NC		 5355 /* Figure out the largest section size. Also, if generating
5356 relocatable output, count the relocs. */
5357 trsize = 0;
5358 drsize = 0;
5359 max_contents_size = 0;
5360 max_relocs_size = 0;
5361 max_sym_count = 0;
c72f2fb2 5362 for (sub = info->input_bfds; sub != NULL; sub = sub->link.next)
116c20d2
NC		 5363 {
5364 bfd_size_type sz;
252b5132 5365
116c20d2
NC		 5366 if (info->relocatable)
5367 {
5368 if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
252b5132 5369 {
116c20d2
NC		 5370 trsize += exec_hdr (sub)->a_trsize;
5371 drsize += exec_hdr (sub)->a_drsize;
252b5132 5372 }
252b5132
RH		 5373 else
5374 {
116c20d2
NC		 5375 /* FIXME: We need to identify the .text and .data sections
5376 and call get_reloc_upper_bound and canonicalize_reloc to
5377 work out the number of relocs needed, and then multiply
5378 by the reloc size. */
5379 (*_bfd_error_handler)
5380 (_("%s: relocatable link from %s to %s not supported"),
5381 bfd_get_filename (abfd),
5382 sub->xvec->name, abfd->xvec->name);
5383 bfd_set_error (bfd_error_invalid_operation);
5384 goto error_return;
252b5132 5385 }
116c20d2 5386 }
252b5132 5387
116c20d2
NC		 5388 if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
5389 {
5390 sz = obj_textsec (sub)->size;
5391 if (sz > max_contents_size)
5392 max_contents_size = sz;
5393 sz = obj_datasec (sub)->size;
5394 if (sz > max_contents_size)
5395 max_contents_size = sz;
252b5132 5396
116c20d2
NC		 5397 sz = exec_hdr (sub)->a_trsize;
5398 if (sz > max_relocs_size)
5399 max_relocs_size = sz;
5400 sz = exec_hdr (sub)->a_drsize;
5401 if (sz > max_relocs_size)
5402 max_relocs_size = sz;
252b5132 5403
116c20d2
NC		 5404 sz = obj_aout_external_sym_count (sub);
5405 if (sz > max_sym_count)
5406 max_sym_count = sz;
252b5132
RH		 5407 }
5408 }
5409
116c20d2
NC		 5410 if (info->relocatable)
5411 {
5412 if (obj_textsec (abfd) != NULL)
5413 trsize += (_bfd_count_link_order_relocs (obj_textsec (abfd)
8423293d 5414 ->map_head.link_order)
116c20d2
NC		 5415 * obj_reloc_entry_size (abfd));
5416 if (obj_datasec (abfd) != NULL)
5417 drsize += (_bfd_count_link_order_relocs (obj_datasec (abfd)
8423293d 5418 ->map_head.link_order)
116c20d2
NC		 5419 * obj_reloc_entry_size (abfd));
5420 }
252b5132 5421
116c20d2
NC		 5422 exec_hdr (abfd)->a_trsize = trsize;
5423 exec_hdr (abfd)->a_drsize = drsize;
252b5132 5424
116c20d2 5425 exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd);
252b5132 5426
116c20d2
NC		 5427 /* Adjust the section sizes and vmas according to the magic number.
5428 This sets a_text, a_data and a_bss in the exec_hdr and sets the
5429 filepos for each section. */
5430 if (! NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end))
5431 goto error_return;
252b5132 5432
116c20d2
NC		 5433 /* The relocation and symbol file positions differ among a.out
5434 targets. We are passed a callback routine from the backend
5435 specific code to handle this.
5436 FIXME: At this point we do not know how much space the symbol
5437 table will require. This will not work for any (nonstandard)
5438 a.out target that needs to know the symbol table size before it
5439 can compute the relocation file positions. This may or may not
5440 be the case for the hp300hpux target, for example. */
5441 (*callback) (abfd, &aout_info.treloff, &aout_info.dreloff,
5442 &aout_info.symoff);
5443 obj_textsec (abfd)->rel_filepos = aout_info.treloff;
5444 obj_datasec (abfd)->rel_filepos = aout_info.dreloff;
5445 obj_sym_filepos (abfd) = aout_info.symoff;
252b5132 5446
116c20d2
NC		 5447 /* We keep a count of the symbols as we output them. */
5448 obj_aout_external_sym_count (abfd) = 0;
5449
5450 /* We accumulate the string table as we write out the symbols. */
5451 aout_info.strtab = _bfd_stringtab_init ();
5452 if (aout_info.strtab == NULL)
5453 goto error_return;
5454
5455 /* Allocate buffers to hold section contents and relocs. */
a50b1753 5456 aout_info.contents = (bfd_byte *) bfd_malloc (max_contents_size);
116c20d2 5457 aout_info.relocs = bfd_malloc (max_relocs_size);
c38eb2a6 5458 aout_info.symbol_map = (int *) bfd_malloc (max_sym_count * sizeof (int));
a50b1753
NC		 5459 aout_info.output_syms = (struct external_nlist *)
5460 bfd_malloc ((max_sym_count + 1) * sizeof (struct external_nlist));
116c20d2
NC		 5461 if ((aout_info.contents == NULL && max_contents_size != 0)
5462 || (aout_info.relocs == NULL && max_relocs_size != 0)
5463 || (aout_info.symbol_map == NULL && max_sym_count != 0)
5464 || aout_info.output_syms == NULL)
5465 goto error_return;
5466
5467 /* If we have a symbol named __DYNAMIC, force it out now. This is
5468 required by SunOS. Doing this here rather than in sunos.c is a
5469 hack, but it's easier than exporting everything which would be
5470 needed. */
5471 {
5472 struct aout_link_hash_entry *h;
5473
5474 h = aout_link_hash_lookup (aout_hash_table (info), "__DYNAMIC",
5475 FALSE, FALSE, FALSE);
5476 if (h != NULL)
7686d77d 5477 aout_link_write_other_symbol (&h->root.root, &aout_info);
116c20d2
NC		 5478 }
5479
5480 /* The most time efficient way to do the link would be to read all
5481 the input object files into memory and then sort out the
5482 information into the output file. Unfortunately, that will
5483 probably use too much memory. Another method would be to step
5484 through everything that composes the text section and write it
5485 out, and then everything that composes the data section and write
5486 it out, and then write out the relocs, and then write out the
5487 symbols. Unfortunately, that requires reading stuff from each
5488 input file several times, and we will not be able to keep all the
5489 input files open simultaneously, and reopening them will be slow.
5490
5491 What we do is basically process one input file at a time. We do
5492 everything we need to do with an input file once--copy over the
5493 section contents, handle the relocation information, and write
5494 out the symbols--and then we throw away the information we read
5495 from it. This approach requires a lot of lseeks of the output
5496 file, which is unfortunate but still faster than reopening a lot
5497 of files.
5498
5499 We use the output_has_begun field of the input BFDs to see
5500 whether we have already handled it. */
c72f2fb2 5501 for (sub = info->input_bfds; sub != NULL; sub = sub->link.next)
116c20d2 5502 sub->output_has_begun = FALSE;
252b5132 5503
116c20d2
NC		 5504 /* Mark all sections which are to be included in the link. This
5505 will normally be every section. We need to do this so that we
5506 can identify any sections which the linker has decided to not
5507 include. */
5508 for (o = abfd->sections; o != NULL; o = o->next)
252b5132 5509 {
8423293d 5510 for (p = o->map_head.link_order; p != NULL; p = p->next)
116c20d2
NC		 5511 if (p->type == bfd_indirect_link_order)
5512 p->u.indirect.section->linker_mark = TRUE;
252b5132
RH		 5513 }
5514
116c20d2
NC		 5515 have_link_order_relocs = FALSE;
5516 for (o = abfd->sections; o != NULL; o = o->next)
252b5132 5517 {
8423293d 5518 for (p = o->map_head.link_order;
116c20d2
NC		 5519 p != NULL;
5520 p = p->next)
252b5132 5521 {
116c20d2
NC		 5522 if (p->type == bfd_indirect_link_order
5523 && (bfd_get_flavour (p->u.indirect.section->owner)
5524 == bfd_target_aout_flavour))
252b5132 5525 {
116c20d2
NC		 5526 bfd *input_bfd;
5527
5528 input_bfd = p->u.indirect.section->owner;
5529 if (! input_bfd->output_has_begun)
252b5132 5530 {
116c20d2
NC		 5531 if (! aout_link_input_bfd (&aout_info, input_bfd))
5532 goto error_return;
5533 input_bfd->output_has_begun = TRUE;
252b5132 5534 }
252b5132 5535 }
116c20d2
NC		 5536 else if (p->type == bfd_section_reloc_link_order
5537 || p->type == bfd_symbol_reloc_link_order)
5538 {
5539 /* These are handled below. */
5540 have_link_order_relocs = TRUE;
5541 }
5542 else
5543 {
5544 if (! _bfd_default_link_order (abfd, info, o, p))
5545 goto error_return;
5546 }
252b5132
RH		 5547 }
5548 }
252b5132 5549
116c20d2 5550 /* Write out any symbols that we have not already written out. */
7686d77d
AM		 5551 bfd_hash_traverse (&info->hash->table,
5552 aout_link_write_other_symbol,
5553 &aout_info);
116c20d2
NC		 5554
5555 /* Now handle any relocs we were asked to create by the linker.
5556 These did not come from any input file. We must do these after
5557 we have written out all the symbols, so that we know the symbol
5558 indices to use. */
5559 if (have_link_order_relocs)
5560 {
5561 for (o = abfd->sections; o != NULL; o = o->next)
252b5132 5562 {
8423293d 5563 for (p = o->map_head.link_order;
116c20d2
NC		 5564 p != NULL;
5565 p = p->next)
5566 {
5567 if (p->type == bfd_section_reloc_link_order
5568 || p->type == bfd_symbol_reloc_link_order)
5569 {
5570 if (! aout_link_reloc_link_order (&aout_info, o, p))
5571 goto error_return;
5572 }
5573 }
252b5132 5574 }
116c20d2 5575 }
252b5132 5576
116c20d2
NC		 5577 if (aout_info.contents != NULL)
5578 {
5579 free (aout_info.contents);
5580 aout_info.contents = NULL;
5581 }
5582 if (aout_info.relocs != NULL)
5583 {
5584 free (aout_info.relocs);
5585 aout_info.relocs = NULL;
5586 }
5587 if (aout_info.symbol_map != NULL)
5588 {
5589 free (aout_info.symbol_map);
5590 aout_info.symbol_map = NULL;
5591 }
5592 if (aout_info.output_syms != NULL)
5593 {
5594 free (aout_info.output_syms);
5595 aout_info.output_syms = NULL;
5596 }
5597 if (includes_hash_initialized)
5598 {
5599 bfd_hash_table_free (&aout_info.includes.root);
5600 includes_hash_initialized = FALSE;
5601 }
252b5132 5602
116c20d2
NC		 5603 /* Finish up any dynamic linking we may be doing. */
5604 if (aout_backend_info (abfd)->finish_dynamic_link != NULL)
5605 {
5606 if (! (*aout_backend_info (abfd)->finish_dynamic_link) (abfd, info))
5607 goto error_return;
252b5132
RH		 5608 }
5609
116c20d2
NC		 5610 /* Update the header information. */
5611 abfd->symcount = obj_aout_external_sym_count (abfd);
5612 exec_hdr (abfd)->a_syms = abfd->symcount * EXTERNAL_NLIST_SIZE;
5613 obj_str_filepos (abfd) = obj_sym_filepos (abfd) + exec_hdr (abfd)->a_syms;
5614 obj_textsec (abfd)->reloc_count =
5615 exec_hdr (abfd)->a_trsize / obj_reloc_entry_size (abfd);
5616 obj_datasec (abfd)->reloc_count =
5617 exec_hdr (abfd)->a_drsize / obj_reloc_entry_size (abfd);
252b5132 5618
116c20d2 5619 /* Write out the string table, unless there are no symbols. */
f6e688f7
AM		 5620 if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0)
5621 goto error_return;
116c20d2
NC		 5622 if (abfd->symcount > 0)
5623 {
f6e688f7 5624 if (!emit_stringtab (abfd, aout_info.strtab))
116c20d2
NC		 5625 goto error_return;
5626 }
f6e688f7 5627 else
116c20d2 5628 {
f6e688f7 5629 bfd_byte b[BYTES_IN_WORD];
252b5132 5630
f6e688f7
AM		 5631 memset (b, 0, BYTES_IN_WORD);
5632 if (bfd_bwrite (b, (bfd_size_type) BYTES_IN_WORD, abfd) != BYTES_IN_WORD)
116c20d2
NC		 5633 goto error_return;
5634 }
252b5132 5635
b34976b6 5636 return TRUE;
116c20d2
NC		 5637
5638 error_return:
5639 if (aout_info.contents != NULL)
5640 free (aout_info.contents);
5641 if (aout_info.relocs != NULL)
5642 free (aout_info.relocs);
5643 if (aout_info.symbol_map != NULL)
5644 free (aout_info.symbol_map);
5645 if (aout_info.output_syms != NULL)
5646 free (aout_info.output_syms);
5647 if (includes_hash_initialized)
5648 bfd_hash_table_free (&aout_info.includes.root);
5649 return FALSE;
252b5132 5650}
GDB Binutils - Deliverables
This page took 0.95747 seconds and 4 git commands to generate.