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