projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
bfd/
[deliverable/binutils-gdb.git] / bfd / aoutf1.h
CommitLineData
252b5132 1/* A.out "format 1" file handling code for BFD.
dc810e39 2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
9e7b37b3 3 2001, 2002
252b5132
RH		 4 Free Software Foundation, Inc.
5 Written by Cygnus Support.
6
7This file is part of BFD, the Binary File Descriptor library.
8
9This program is free software; you can redistribute it and/or modify
10it under the terms of the GNU General Public License as published by
11the Free Software Foundation; either version 2 of the License, or
12(at your option) any later version.
13
14This program is distributed in the hope that it will be useful,
15but WITHOUT ANY WARRANTY; without even the implied warranty of
16MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17GNU General Public License for more details.
18
19You should have received a copy of the GNU General Public License
20along with this program; if not, write to the Free Software
21Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
23#include "bfd.h"
24#include "sysdep.h"
25#include "libbfd.h"
26
27#include "aout/sun4.h"
28#include "libaout.h" /* BFD a.out internal data structures */
29
30#include "aout/aout64.h"
31#include "aout/stab_gnu.h"
32#include "aout/ar.h"
33
34/* This is needed to reject a NewsOS file, e.g. in
35 gdb/testsuite/gdb.t10/crossload.exp. <kingdon@cygnus.com>
36 I needed to add M_UNKNOWN to recognize a 68000 object, so this will
0ef5a5bd 37 probably no longer reject a NewsOS object. <ian@cygnus.com>. */
252b5132
RH		 38#ifndef MACHTYPE_OK
39#define MACHTYPE_OK(mtype) \
40 (((mtype) == M_SPARC && bfd_lookup_arch (bfd_arch_sparc, 0) != NULL) \
41 || (((mtype) == M_UNKNOWN || (mtype) == M_68010 || (mtype) == M_68020) \
42 && bfd_lookup_arch (bfd_arch_m68k, 0) != NULL))
43#endif
44
45/*
46The file @code{aoutf1.h} contains the code for BFD's
47a.out back end. Control over the generated back end is given by these
48two preprocessor names:
49@table @code
50@item ARCH_SIZE
51This value should be either 32 or 64, depending upon the size of an
52int in the target format. It changes the sizes of the structs which
53perform the memory/disk mapping of structures.
54
55The 64 bit backend may only be used if the host compiler supports 64
56ints (eg long long with gcc), by defining the name @code{BFD_HOST_64_BIT} in @code{bfd.h}.
57With this name defined, @emph{all} bfd operations are performed with 64bit
58arithmetic, not just those to a 64bit target.
59
60@item TARGETNAME
61The name put into the target vector.
62@item
63@end table
64
65*/
66
67/*SUPPRESS558*/
68/*SUPPRESS529*/
69
70#if ARCH_SIZE == 64
71#define sunos_set_arch_mach sunos_64_set_arch_mach
72#define sunos_write_object_contents aout_64_sunos4_write_object_contents
73#else
74#define sunos_set_arch_mach sunos_32_set_arch_mach
75#define sunos_write_object_contents aout_32_sunos4_write_object_contents
76#endif
77
78static boolean sunos_merge_private_bfd_data PARAMS ((bfd *, bfd *));
dc810e39 79static void sunos_set_arch_mach PARAMS ((bfd *, enum machine_type));
252b5132
RH		 80static void choose_reloc_size PARAMS ((bfd *));
81static boolean sunos_write_object_contents PARAMS ((bfd *));
82static const bfd_target *sunos4_core_file_p PARAMS ((bfd *));
83static char *sunos4_core_file_failing_command PARAMS ((bfd *));
84static int sunos4_core_file_failing_signal PARAMS ((bfd *));
85static boolean sunos4_core_file_matches_executable_p PARAMS ((bfd *, bfd *));
86static boolean sunos4_set_sizes PARAMS ((bfd *));
87
88/* Merge backend data into the output file.
89 This is necessary on sparclet-aout where we want the resultant machine
90 number to be M_SPARCLET if any input file is M_SPARCLET. */
91
92#define MY_bfd_merge_private_bfd_data sunos_merge_private_bfd_data
93
94static boolean
95sunos_merge_private_bfd_data (ibfd, obfd)
96 bfd *ibfd, *obfd;
97{
98 if (bfd_get_flavour (ibfd) != bfd_target_aout_flavour
99 || bfd_get_flavour (obfd) != bfd_target_aout_flavour)
100 return true;
101
102 if (bfd_get_arch (obfd) == bfd_arch_sparc)
103 {
104 if (bfd_get_mach (obfd) < bfd_get_mach (ibfd))
105 bfd_set_arch_mach (obfd, bfd_arch_sparc, bfd_get_mach (ibfd));
106 }
107
108 return true;
109}
110
111/* This is either sunos_32_set_arch_mach or sunos_64_set_arch_mach,
112 depending upon ARCH_SIZE. */
113
114static void
115sunos_set_arch_mach (abfd, machtype)
116 bfd *abfd;
dc810e39 117 enum machine_type machtype;
252b5132
RH		 118{
119 /* Determine the architecture and machine type of the object file. */
120 enum bfd_architecture arch;
dc810e39 121 unsigned long machine;
252b5132
RH		 122 switch (machtype)
123 {
124
125 case M_UNKNOWN:
126 /* Some Sun3s make magic numbers without cpu types in them, so
0ef5a5bd 127 we'll default to the 68000. */
252b5132
RH		 128 arch = bfd_arch_m68k;
129 machine = bfd_mach_m68000;
130 break;
131
132 case M_68010:
133 case M_HP200:
134 arch = bfd_arch_m68k;
135 machine = bfd_mach_m68010;
136 break;
137
138 case M_68020:
139 case M_HP300:
140 arch = bfd_arch_m68k;
141 machine = bfd_mach_m68020;
142 break;
143
144 case M_SPARC:
145 arch = bfd_arch_sparc;
146 machine = 0;
147 break;
148
149 case M_SPARCLET:
150 arch = bfd_arch_sparc;
151 machine = bfd_mach_sparc_sparclet;
152 break;
153
154 case M_SPARCLITE_LE:
155 arch = bfd_arch_sparc;
156 machine = bfd_mach_sparc_sparclite_le;
157 break;
158
159 case M_386:
160 case M_386_DYNIX:
161 arch = bfd_arch_i386;
162 machine = 0;
163 break;
164
165 case M_29K:
166 arch = bfd_arch_a29k;
167 machine = 0;
168 break;
169
170 case M_HPUX:
171 arch = bfd_arch_m68k;
172 machine = 0;
173 break;
174
175 default:
176 arch = bfd_arch_obscure;
177 machine = 0;
178 break;
179 }
180 bfd_set_arch_mach (abfd, arch, machine);
181}
182
183#define SET_ARCH_MACH(ABFD, EXEC) \
beb0d161 184 NAME(sunos,set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
252b5132
RH		 185 choose_reloc_size(ABFD);
186
187/* Determine the size of a relocation entry, based on the architecture */
188static void
189choose_reloc_size (abfd)
190 bfd *abfd;
191{
192 switch (bfd_get_arch (abfd))
193 {
194 case bfd_arch_sparc:
195 case bfd_arch_a29k:
196 obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
197 break;
198 default:
199 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
200 break;
201 }
202}
203
204/* Write an object file in SunOS format. Section contents have
205 already been written. We write the file header, symbols, and
206 relocation. The real name of this function is either
207 aout_64_sunos4_write_object_contents or
208 aout_32_sunos4_write_object_contents, depending upon ARCH_SIZE. */
209
210static boolean
211sunos_write_object_contents (abfd)
212 bfd *abfd;
213{
214 struct external_exec exec_bytes;
215 struct internal_exec *execp = exec_hdr (abfd);
216
217 /* Magic number, maestro, please! */
218 switch (bfd_get_arch (abfd))
219 {
220 case bfd_arch_m68k:
221 switch (bfd_get_mach (abfd))
222 {
223 case bfd_mach_m68000:
224 N_SET_MACHTYPE (*execp, M_UNKNOWN);
225 break;
226 case bfd_mach_m68010:
227 N_SET_MACHTYPE (*execp, M_68010);
228 break;
229 default:
230 case bfd_mach_m68020:
231 N_SET_MACHTYPE (*execp, M_68020);
232 break;
233 }
234 break;
235 case bfd_arch_sparc:
236 switch (bfd_get_mach (abfd))
237 {
238 case bfd_mach_sparc_sparclet:
239 N_SET_MACHTYPE (*execp, M_SPARCLET);
240 break;
241 case bfd_mach_sparc_sparclite_le:
242 N_SET_MACHTYPE (*execp, M_SPARCLITE_LE);
243 break;
244 default:
245 N_SET_MACHTYPE (*execp, M_SPARC);
246 break;
247 }
248 break;
249 case bfd_arch_i386:
250 N_SET_MACHTYPE (*execp, M_386);
251 break;
252 case bfd_arch_a29k:
253 N_SET_MACHTYPE (*execp, M_29K);
254 break;
255 default:
256 N_SET_MACHTYPE (*execp, M_UNKNOWN);
257 }
258
259 choose_reloc_size (abfd);
260
261 N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);
262
67a374a5 263 N_SET_DYNAMIC (*execp, (long)(bfd_get_file_flags (abfd) & DYNAMIC));
252b5132
RH		 264
265 WRITE_HEADERS (abfd, execp);
266
267 return true;
268}
269\f
270/* core files */
271
272#define CORE_MAGIC 0x080456
273#define CORE_NAMELEN 16
274
275/* The core structure is taken from the Sun documentation.
276 Unfortunately, they don't document the FPA structure, or at least I
277 can't find it easily. Fortunately the core header contains its own
278 length. So this shouldn't cause problems, except for c_ucode, which
0ef5a5bd 279 so far we don't use but is easy to find with a little arithmetic. */
252b5132
RH		 280
281/* But the reg structure can be gotten from the SPARC processor handbook.
282 This really should be in a GNU include file though so that gdb can use
0ef5a5bd 283 the same info. */
252b5132
RH		 284struct regs
285{
286 int r_psr;
287 int r_pc;
288 int r_npc;
289 int r_y;
290 int r_g1;
291 int r_g2;
292 int r_g3;
293 int r_g4;
294 int r_g5;
295 int r_g6;
296 int r_g7;
297 int r_o0;
298 int r_o1;
299 int r_o2;
300 int r_o3;
301 int r_o4;
302 int r_o5;
303 int r_o6;
304 int r_o7;
305};
306
307/* Taken from Sun documentation: */
308
309/* FIXME: It's worse than we expect. This struct contains TWO substructs
310 neither of whose size we know, WITH STUFF IN BETWEEN THEM! We can't
311 even portably access the stuff in between! */
312
313struct external_sparc_core
314 {
315 int c_magic; /* Corefile magic number */
316 int c_len; /* Sizeof (struct core) */
317#define SPARC_CORE_LEN 432
318 int c_regs[19]; /* General purpose registers -- MACHDEP SIZE */
319 struct external_exec c_aouthdr; /* A.out header */
320 int c_signo; /* Killing signal, if any */
321 int c_tsize; /* Text size (bytes) */
322 int c_dsize; /* Data size (bytes) */
323 int c_ssize; /* Stack size (bytes) */
324 char c_cmdname[CORE_NAMELEN + 1]; /* Command name */
325 double fp_stuff[1]; /* external FPU state (size unknown by us) */
326 /* The type "double" is critical here, for alignment.
327 SunOS declares a struct here, but the struct's alignment
328 is double since it contains doubles. */
329 int c_ucode; /* Exception no. from u_code */
330 /* (this member is not accessible by name since we don't
331 portably know the size of fp_stuff.) */
332 };
333
334/* Core files generated by the BCP (the part of Solaris which allows
335 it to run SunOS4 a.out files). */
336struct external_solaris_bcp_core
337 {
338 int c_magic; /* Corefile magic number */
339 int c_len; /* Sizeof (struct core) */
340#define SOLARIS_BCP_CORE_LEN 456
341 int c_regs[19]; /* General purpose registers -- MACHDEP SIZE */
342 int c_exdata_vp; /* exdata structure */
343 int c_exdata_tsize;
344 int c_exdata_dsize;
345 int c_exdata_bsize;
346 int c_exdata_lsize;
347 int c_exdata_nshlibs;
348 short c_exdata_mach;
349 short c_exdata_mag;
350 int c_exdata_toffset;
351 int c_exdata_doffset;
352 int c_exdata_loffset;
353 int c_exdata_txtorg;
354 int c_exdata_datorg;
355 int c_exdata_entloc;
356 int c_signo; /* Killing signal, if any */
357 int c_tsize; /* Text size (bytes) */
358 int c_dsize; /* Data size (bytes) */
359 int c_ssize; /* Stack size (bytes) */
360 char c_cmdname[CORE_NAMELEN + 1]; /* Command name */
361 double fp_stuff[1]; /* external FPU state (size unknown by us) */
362 /* The type "double" is critical here, for alignment.
363 SunOS declares a struct here, but the struct's alignment
364 is double since it contains doubles. */
365 int c_ucode; /* Exception no. from u_code */
366 /* (this member is not accessible by name since we don't
367 portably know the size of fp_stuff.) */
368 };
369
370struct external_sun3_core
371 {
372 int c_magic; /* Corefile magic number */
373 int c_len; /* Sizeof (struct core) */
374#define SUN3_CORE_LEN 826 /* As of SunOS 4.1.1 */
375 int c_regs[18]; /* General purpose registers -- MACHDEP SIZE */
376 struct external_exec c_aouthdr; /* A.out header */
377 int c_signo; /* Killing signal, if any */
378 int c_tsize; /* Text size (bytes) */
379 int c_dsize; /* Data size (bytes) */
380 int c_ssize; /* Stack size (bytes) */
381 char c_cmdname[CORE_NAMELEN + 1]; /* Command name */
382 double fp_stuff[1]; /* external FPU state (size unknown by us) */
383 /* The type "double" is critical here, for alignment.
384 SunOS declares a struct here, but the struct's alignment
385 is double since it contains doubles. */
386 int c_ucode; /* Exception no. from u_code */
387 /* (this member is not accessible by name since we don't
388 portably know the size of fp_stuff.) */
389 };
390
391struct internal_sunos_core
392 {
393 int c_magic; /* Corefile magic number */
394 int c_len; /* Sizeof (struct core) */
395 long c_regs_pos; /* file offset of General purpose registers */
396 int c_regs_size; /* size of General purpose registers */
397 struct internal_exec c_aouthdr; /* A.out header */
398 int c_signo; /* Killing signal, if any */
399 int c_tsize; /* Text size (bytes) */
400 int c_dsize; /* Data size (bytes) */
401 bfd_vma c_data_addr; /* Data start (address) */
402 int c_ssize; /* Stack size (bytes) */
403 bfd_vma c_stacktop; /* Stack top (address) */
404 char c_cmdname[CORE_NAMELEN + 1]; /* Command name */
405 long fp_stuff_pos; /* file offset of external FPU state (regs) */
406 int fp_stuff_size; /* Size of it */
407 int c_ucode; /* Exception no. from u_code */
408 };
409
410static void swapcore_sun3
411 PARAMS ((bfd *, char *, struct internal_sunos_core *));
412static void swapcore_sparc
413 PARAMS ((bfd *, char *, struct internal_sunos_core *));
414static void swapcore_solaris_bcp
415 PARAMS ((bfd *, char *, struct internal_sunos_core *));
416
417/* byte-swap in the Sun-3 core structure */
418static void
419swapcore_sun3 (abfd, ext, intcore)
420 bfd *abfd;
421 char *ext;
422 struct internal_sunos_core *intcore;
423{
424 struct external_sun3_core *extcore = (struct external_sun3_core *) ext;
425
dc810e39
AM		 426 intcore->c_magic = H_GET_32 (abfd, &extcore->c_magic);
427 intcore->c_len = H_GET_32 (abfd, &extcore->c_len);
252b5132
RH		 428 intcore->c_regs_pos = (long) (((struct external_sun3_core *) 0)->c_regs);
429 intcore->c_regs_size = sizeof (extcore->c_regs);
430#if ARCH_SIZE == 64
431 aout_64_swap_exec_header_in
432#else
433 aout_32_swap_exec_header_in
434#endif
435 (abfd, &extcore->c_aouthdr, &intcore->c_aouthdr);
dc810e39
AM		 436 intcore->c_signo = H_GET_32 (abfd, &extcore->c_signo);
437 intcore->c_tsize = H_GET_32 (abfd, &extcore->c_tsize);
438 intcore->c_dsize = H_GET_32 (abfd, &extcore->c_dsize);
252b5132 439 intcore->c_data_addr = N_DATADDR (intcore->c_aouthdr);
dc810e39 440 intcore->c_ssize = H_GET_32 (abfd, &extcore->c_ssize);
252b5132
RH		 441 memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname));
442 intcore->fp_stuff_pos = (long) (((struct external_sun3_core *) 0)->fp_stuff);
0ef5a5bd 443 /* FP stuff takes up whole rest of struct, except c_ucode. */
252b5132
RH		 444 intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) -
445 (file_ptr) (((struct external_sun3_core *) 0)->fp_stuff);
446 /* Ucode is the last thing in the struct -- just before the end */
dc810e39
AM		 447 intcore->c_ucode = H_GET_32 (abfd,
448 (intcore->c_len
449 - sizeof (extcore->c_ucode)
450 + (unsigned char *) extcore));
252b5132
RH		 451 intcore->c_stacktop = 0x0E000000; /* By experimentation */
452}
453
252b5132
RH		 454/* byte-swap in the Sparc core structure */
455static void
456swapcore_sparc (abfd, ext, intcore)
457 bfd *abfd;
458 char *ext;
459 struct internal_sunos_core *intcore;
460{
461 struct external_sparc_core *extcore = (struct external_sparc_core *) ext;
462
dc810e39
AM		 463 intcore->c_magic = H_GET_32 (abfd, &extcore->c_magic);
464 intcore->c_len = H_GET_32 (abfd, &extcore->c_len);
252b5132
RH		 465 intcore->c_regs_pos = (long) (((struct external_sparc_core *) 0)->c_regs);
466 intcore->c_regs_size = sizeof (extcore->c_regs);
467#if ARCH_SIZE == 64
468 aout_64_swap_exec_header_in
469#else
470 aout_32_swap_exec_header_in
471#endif
472 (abfd, &extcore->c_aouthdr, &intcore->c_aouthdr);
dc810e39
AM		 473 intcore->c_signo = H_GET_32 (abfd, &extcore->c_signo);
474 intcore->c_tsize = H_GET_32 (abfd, &extcore->c_tsize);
475 intcore->c_dsize = H_GET_32 (abfd, &extcore->c_dsize);
252b5132 476 intcore->c_data_addr = N_DATADDR (intcore->c_aouthdr);
dc810e39 477 intcore->c_ssize = H_GET_32 (abfd, &extcore->c_ssize);
252b5132
RH		 478 memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname));
479 intcore->fp_stuff_pos = (long) (((struct external_sparc_core *) 0)->fp_stuff);
0ef5a5bd 480 /* FP stuff takes up whole rest of struct, except c_ucode. */
252b5132
RH		 481 intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) -
482 (file_ptr) (((struct external_sparc_core *) 0)->fp_stuff);
483 /* Ucode is the last thing in the struct -- just before the end */
dc810e39
AM		 484 intcore->c_ucode = H_GET_32 (abfd,
485 (intcore->c_len
486 - sizeof (extcore->c_ucode)
487 + (unsigned char *) extcore));
252b5132
RH		 488
489 /* Supposedly the user stack grows downward from the bottom of kernel memory.
490 Presuming that this remains true, this definition will work. */
491 /* Now sun has provided us with another challenge. The value is different
492 for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or
493 the other based on the current value of the stack pointer. This
494 loses (a) if the stack pointer has been clobbered, or (b) if the stack
495 is larger than 128 megabytes.
496
497 It's times like these you're glad they're switching to ELF.
498
499 Note that using include files or nlist on /vmunix would be wrong,
500 because we want the value for this core file, no matter what kind of
501 machine we were compiled on or are running on. */
502#define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000)
503#define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000)
504 {
dc810e39 505 bfd_vma sp = H_GET_32 (abfd, &((struct regs *) &extcore->c_regs[0])->r_o6);
252b5132
RH		 506 if (sp < SPARC_USRSTACK_SPARC10)
507 intcore->c_stacktop = SPARC_USRSTACK_SPARC10;
508 else
509 intcore->c_stacktop = SPARC_USRSTACK_SPARC2;
510 }
511}
512
513/* byte-swap in the Solaris BCP core structure */
514static void
515swapcore_solaris_bcp (abfd, ext, intcore)
516 bfd *abfd;
517 char *ext;
518 struct internal_sunos_core *intcore;
519{
520 struct external_solaris_bcp_core *extcore =
521 (struct external_solaris_bcp_core *) ext;
522
dc810e39
AM		 523 intcore->c_magic = H_GET_32 (abfd, &extcore->c_magic);
524 intcore->c_len = H_GET_32 (abfd, &extcore->c_len);
252b5132
RH		 525 intcore->c_regs_pos = (long) (((struct external_solaris_bcp_core *) 0)->c_regs);
526 intcore->c_regs_size = sizeof (extcore->c_regs);
527
528 /* The Solaris BCP exdata structure does not contain an a_syms field,
529 so we are unable to synthesize an internal exec header.
530 Luckily we are able to figure out the start address of the data section,
531 which is the only thing needed from the internal exec header,
532 from the exdata structure.
533
534 As of Solaris 2.3, BCP core files for statically linked executables
535 are buggy. The exdata structure is not properly filled in, and
536 the data section is written from address zero instead of the data
537 start address. */
538 memset ((PTR) &intcore->c_aouthdr, 0, sizeof (struct internal_exec));
dc810e39
AM		 539 intcore->c_data_addr = H_GET_32 (abfd, &extcore->c_exdata_datorg);
540 intcore->c_signo = H_GET_32 (abfd, &extcore->c_signo);
541 intcore->c_tsize = H_GET_32 (abfd, &extcore->c_tsize);
542 intcore->c_dsize = H_GET_32 (abfd, &extcore->c_dsize);
543 intcore->c_ssize = H_GET_32 (abfd, &extcore->c_ssize);
252b5132
RH		 544 memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname));
545 intcore->fp_stuff_pos =
546 (long) (((struct external_solaris_bcp_core *) 0)->fp_stuff);
0ef5a5bd 547 /* FP stuff takes up whole rest of struct, except c_ucode. */
252b5132
RH		 548 intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) -
549 (file_ptr) (((struct external_solaris_bcp_core *) 0)->fp_stuff);
550 /* Ucode is the last thing in the struct -- just before the end */
dc810e39
AM		 551 intcore->c_ucode = H_GET_32 (abfd,
552 (intcore->c_len
553 - sizeof (extcore->c_ucode)
554 + (unsigned char *) extcore));
252b5132
RH		 555
556 /* Supposedly the user stack grows downward from the bottom of kernel memory.
557 Presuming that this remains true, this definition will work. */
558 /* Now sun has provided us with another challenge. The value is different
559 for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or
560 the other based on the current value of the stack pointer. This
561 loses (a) if the stack pointer has been clobbered, or (b) if the stack
562 is larger than 128 megabytes.
563
564 It's times like these you're glad they're switching to ELF.
565
566 Note that using include files or nlist on /vmunix would be wrong,
567 because we want the value for this core file, no matter what kind of
568 machine we were compiled on or are running on. */
569#define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000)
570#define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000)
571 {
dc810e39 572 bfd_vma sp = H_GET_32 (abfd, &((struct regs *) &extcore->c_regs[0])->r_o6);
252b5132
RH		 573 if (sp < SPARC_USRSTACK_SPARC10)
574 intcore->c_stacktop = SPARC_USRSTACK_SPARC10;
575 else
576 intcore->c_stacktop = SPARC_USRSTACK_SPARC2;
577 }
578}
579
580/* need this cast because ptr is really void * */
581#define core_hdr(bfd) ((bfd)->tdata.sun_core_data)
582#define core_datasec(bfd) (core_hdr(bfd)->data_section)
583#define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
584#define core_regsec(bfd) (core_hdr(bfd)->reg_section)
585#define core_reg2sec(bfd) (core_hdr(bfd)->reg2_section)
586
587/* These are stored in the bfd's tdata */
588struct sun_core_struct
589{
590 struct internal_sunos_core *hdr; /* core file header */
591 asection *data_section;
592 asection *stack_section;
593 asection *reg_section;
594 asection *reg2_section;
595};
596
597static const bfd_target *
598sunos4_core_file_p (abfd)
599 bfd *abfd;
600{
601 unsigned char longbuf[4]; /* Raw bytes of various header fields */
dc810e39 602 bfd_size_type core_size, amt;
252b5132
RH		 603 unsigned long core_mag;
604 struct internal_sunos_core *core;
605 char *extcore;
606 struct mergem
607 {
608 struct sun_core_struct suncoredata;
609 struct internal_sunos_core internal_sunos_core;
610 char external_core[1];
dc810e39 611 } *mergem;
252b5132 612
dc810e39
AM		 613 if (bfd_bread ((PTR) longbuf, (bfd_size_type) sizeof (longbuf), abfd)
614 != sizeof (longbuf))
252b5132 615 return 0;
dc810e39 616 core_mag = H_GET_32 (abfd, longbuf);
252b5132
RH		 617
618 if (core_mag != CORE_MAGIC)
619 return 0;
620
621 /* SunOS core headers can vary in length; second word is size; */
dc810e39
AM		 622 if (bfd_bread ((PTR) longbuf, (bfd_size_type) sizeof (longbuf), abfd)
623 != sizeof (longbuf))
252b5132 624 return 0;
dc810e39 625 core_size = H_GET_32 (abfd, longbuf);
252b5132
RH		 626 /* Sanity check */
627 if (core_size > 20000)
628 return 0;
629
dc810e39 630 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
252b5132
RH		 631 return 0;
632
dc810e39
AM		 633 amt = core_size + sizeof (struct mergem);
634 mergem = (struct mergem *) bfd_zalloc (abfd, amt);
252b5132
RH		 635 if (mergem == NULL)
636 return 0;
637
638 extcore = mergem->external_core;
639
dc810e39 640 if ((bfd_bread ((PTR) extcore, core_size, abfd)) != core_size)
252b5132 641 {
dc810e39 642 loser:
252b5132 643 bfd_release (abfd, (char *) mergem);
9e7b37b3
AM		 644 abfd->tdata.any = NULL;
645 bfd_section_list_clear (abfd);
252b5132
RH		 646 return 0;
647 }
648
649 /* Validate that it's a core file we know how to handle, due to sun
650 botching the positioning of registers and other fields in a machine
651 dependent way. */
652 core = &mergem->internal_sunos_core;
653 switch (core_size)
654 {
655 case SPARC_CORE_LEN:
656 swapcore_sparc (abfd, extcore, core);
657 break;
658 case SUN3_CORE_LEN:
659 swapcore_sun3 (abfd, extcore, core);
660 break;
661 case SOLARIS_BCP_CORE_LEN:
662 swapcore_solaris_bcp (abfd, extcore, core);
663 break;
664 default:
665 bfd_set_error (bfd_error_system_call); /* FIXME */
dc810e39 666 goto loser;
252b5132
RH		 667 }
668
669 abfd->tdata.sun_core_data = &mergem->suncoredata;
670 abfd->tdata.sun_core_data->hdr = core;
671
9e7b37b3
AM		 672 /* Create the sections. */
673 core_stacksec (abfd) = bfd_make_section_anyway (abfd, ".stack");
252b5132 674 if (core_stacksec (abfd) == NULL)
dc810e39
AM		 675 /* bfd_release frees everything allocated after it's arg. */
676 goto loser;
677
9e7b37b3 678 core_datasec (abfd) = bfd_make_section_anyway (abfd, ".data");
252b5132 679 if (core_datasec (abfd) == NULL)
dc810e39
AM		 680 goto loser;
681
9e7b37b3 682 core_regsec (abfd) = bfd_make_section_anyway (abfd, ".reg");
252b5132 683 if (core_regsec (abfd) == NULL)
dc810e39
AM		 684 goto loser;
685
9e7b37b3 686 core_reg2sec (abfd) = bfd_make_section_anyway (abfd, ".reg2");
252b5132 687 if (core_reg2sec (abfd) == NULL)
dc810e39 688 goto loser;
252b5132 689
252b5132
RH		 690 core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
691 core_datasec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
692 core_regsec (abfd)->flags = SEC_HAS_CONTENTS;
693 core_reg2sec (abfd)->flags = SEC_HAS_CONTENTS;
694
695 core_stacksec (abfd)->_raw_size = core->c_ssize;
696 core_datasec (abfd)->_raw_size = core->c_dsize;
697 core_regsec (abfd)->_raw_size = core->c_regs_size;
698 core_reg2sec (abfd)->_raw_size = core->fp_stuff_size;
699
700 core_stacksec (abfd)->vma = (core->c_stacktop - core->c_ssize);
701 core_datasec (abfd)->vma = core->c_data_addr;
702 core_regsec (abfd)->vma = 0;
703 core_reg2sec (abfd)->vma = 0;
704
705 core_stacksec (abfd)->filepos = core->c_len + core->c_dsize;
706 core_datasec (abfd)->filepos = core->c_len;
707 /* We'll access the regs afresh in the core file, like any section: */
708 core_regsec (abfd)->filepos = (file_ptr) core->c_regs_pos;
709 core_reg2sec (abfd)->filepos = (file_ptr) core->fp_stuff_pos;
710
711 /* Align to word at least */
712 core_stacksec (abfd)->alignment_power = 2;
713 core_datasec (abfd)->alignment_power = 2;
714 core_regsec (abfd)->alignment_power = 2;
715 core_reg2sec (abfd)->alignment_power = 2;
716
252b5132
RH		 717 return abfd->xvec;
718}
719
720static char *
721sunos4_core_file_failing_command (abfd)
722 bfd *abfd;
723{
724 return core_hdr (abfd)->hdr->c_cmdname;
725}
726
727static int
728sunos4_core_file_failing_signal (abfd)
729 bfd *abfd;
730{
731 return core_hdr (abfd)->hdr->c_signo;
732}
733
734static boolean
735sunos4_core_file_matches_executable_p (core_bfd, exec_bfd)
736 bfd *core_bfd;
737 bfd *exec_bfd;
738{
739 if (core_bfd->xvec != exec_bfd->xvec)
740 {
741 bfd_set_error (bfd_error_system_call);
742 return false;
743 }
744
0ef5a5bd 745 /* Solaris core files do not include an aouthdr. */
252b5132
RH		 746 if ((core_hdr (core_bfd)->hdr)->c_len == SOLARIS_BCP_CORE_LEN)
747 return true;
748
749 return (memcmp ((char *) &((core_hdr (core_bfd)->hdr)->c_aouthdr),
750 (char *) exec_hdr (exec_bfd),
82e51918 751 sizeof (struct internal_exec)) == 0);
252b5132
RH		 752}
753
754#define MY_set_sizes sunos4_set_sizes
755static boolean
756sunos4_set_sizes (abfd)
757 bfd *abfd;
758{
759 switch (bfd_get_arch (abfd))
760 {
761 default:
762 return false;
763 case bfd_arch_sparc:
764 adata (abfd).page_size = 0x2000;
765 adata (abfd).segment_size = 0x2000;
766 adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
767 return true;
768 case bfd_arch_m68k:
769 adata (abfd).page_size = 0x2000;
770 adata (abfd).segment_size = 0x20000;
771 adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
772 return true;
773 }
774}
775
776/* We default to setting the toolversion field to 1, as is required by
777 SunOS. */
778#ifndef MY_exec_hdr_flags
779#define MY_exec_hdr_flags 1
780#endif
781
782#ifndef MY_entry_is_text_address
783#define MY_entry_is_text_address 0
784#endif
785#ifndef MY_add_dynamic_symbols
786#define MY_add_dynamic_symbols 0
787#endif
788#ifndef MY_add_one_symbol
789#define MY_add_one_symbol 0
790#endif
791#ifndef MY_link_dynamic_object
792#define MY_link_dynamic_object 0
793#endif
794#ifndef MY_write_dynamic_symbol
795#define MY_write_dynamic_symbol 0
796#endif
797#ifndef MY_check_dynamic_reloc
798#define MY_check_dynamic_reloc 0
799#endif
800#ifndef MY_finish_dynamic_link
801#define MY_finish_dynamic_link 0
802#endif
803
dc810e39 804static const struct aout_backend_data sunos4_aout_backend =
252b5132
RH		 805{
806 0, /* zmagic files are not contiguous */
807 1, /* text includes header */
808 MY_entry_is_text_address,
809 MY_exec_hdr_flags,
810 0, /* default text vma */
811 sunos4_set_sizes,
812 0, /* header is counted in zmagic text */
813 MY_add_dynamic_symbols,
814 MY_add_one_symbol,
815 MY_link_dynamic_object,
816 MY_write_dynamic_symbol,
817 MY_check_dynamic_reloc,
818 MY_finish_dynamic_link
819};
820\f
821#define MY_core_file_failing_command sunos4_core_file_failing_command
822#define MY_core_file_failing_signal sunos4_core_file_failing_signal
823#define MY_core_file_matches_executable_p sunos4_core_file_matches_executable_p
824
825#define MY_bfd_debug_info_start bfd_void
826#define MY_bfd_debug_info_end bfd_void
827#define MY_bfd_debug_info_accumulate \
828 (void (*) PARAMS ((bfd *, struct sec *))) bfd_void
829#define MY_core_file_p sunos4_core_file_p
830#define MY_write_object_contents NAME(aout,sunos4_write_object_contents)
831#define MY_backend_data &sunos4_aout_backend
832
833#ifndef TARGET_IS_LITTLE_ENDIAN_P
834#define TARGET_IS_BIG_ENDIAN_P
835#endif
836
837#include "aout-target.h"
GDB Binutils - Deliverables
This page took 0.1577 seconds and 4 git commands to generate.