source: trunk/src/binutils/bfd/aoutf1.h@ 536

Last change on this file since 536 was 10, checked in by bird, 22 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 27.6 KB
Line 
1/* A.out "format 1" file handling code for BFD.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000
3 Free Software Foundation, Inc.
4 Written by Cygnus Support.
5
6This file is part of BFD, the Binary File Descriptor library.
7
8This program is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 2 of the License, or
11(at your option) any later version.
12
13This program is distributed in the hope that it will be useful,
14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16GNU General Public License for more details.
17
18You should have received a copy of the GNU General Public License
19along with this program; if not, write to the Free Software
20Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21
22#include "bfd.h"
23#include "sysdep.h"
24#include "libbfd.h"
25
26#include "aout/sun4.h"
27#include "libaout.h" /* BFD a.out internal data structures */
28
29#include "aout/aout64.h"
30#include "aout/stab_gnu.h"
31#include "aout/ar.h"
32
33/* This is needed to reject a NewsOS file, e.g. in
34 gdb/testsuite/gdb.t10/crossload.exp. <kingdon@cygnus.com>
35 I needed to add M_UNKNOWN to recognize a 68000 object, so this will
36 probably no longer reject a NewsOS object. <ian@cygnus.com>. */
37#ifndef MACHTYPE_OK
38#define MACHTYPE_OK(mtype) \
39 (((mtype) == M_SPARC && bfd_lookup_arch (bfd_arch_sparc, 0) != NULL) \
40 || (((mtype) == M_UNKNOWN || (mtype) == M_68010 || (mtype) == M_68020) \
41 && bfd_lookup_arch (bfd_arch_m68k, 0) != NULL))
42#endif
43
44/*
45The file @code{aoutf1.h} contains the code for BFD's
46a.out back end. Control over the generated back end is given by these
47two preprocessor names:
48@table @code
49@item ARCH_SIZE
50This value should be either 32 or 64, depending upon the size of an
51int in the target format. It changes the sizes of the structs which
52perform the memory/disk mapping of structures.
53
54The 64 bit backend may only be used if the host compiler supports 64
55ints (eg long long with gcc), by defining the name @code{BFD_HOST_64_BIT} in @code{bfd.h}.
56With this name defined, @emph{all} bfd operations are performed with 64bit
57arithmetic, not just those to a 64bit target.
58
59@item TARGETNAME
60The name put into the target vector.
61@item
62@end table
63
64*/
65
66/*SUPPRESS558*/
67/*SUPPRESS529*/
68
69#if ARCH_SIZE == 64
70#define sunos_set_arch_mach sunos_64_set_arch_mach
71#define sunos_write_object_contents aout_64_sunos4_write_object_contents
72#else
73#define sunos_set_arch_mach sunos_32_set_arch_mach
74#define sunos_write_object_contents aout_32_sunos4_write_object_contents
75#endif
76
77static boolean sunos_merge_private_bfd_data PARAMS ((bfd *, bfd *));
78static void sunos_set_arch_mach PARAMS ((bfd *, int));
79static void choose_reloc_size PARAMS ((bfd *));
80static boolean sunos_write_object_contents PARAMS ((bfd *));
81static const bfd_target *sunos4_core_file_p PARAMS ((bfd *));
82static char *sunos4_core_file_failing_command PARAMS ((bfd *));
83static int sunos4_core_file_failing_signal PARAMS ((bfd *));
84static boolean sunos4_core_file_matches_executable_p PARAMS ((bfd *, bfd *));
85static boolean sunos4_set_sizes PARAMS ((bfd *));
86
87/* Merge backend data into the output file.
88 This is necessary on sparclet-aout where we want the resultant machine
89 number to be M_SPARCLET if any input file is M_SPARCLET. */
90
91#define MY_bfd_merge_private_bfd_data sunos_merge_private_bfd_data
92
93static boolean
94sunos_merge_private_bfd_data (ibfd, obfd)
95 bfd *ibfd, *obfd;
96{
97 if (bfd_get_flavour (ibfd) != bfd_target_aout_flavour
98 || bfd_get_flavour (obfd) != bfd_target_aout_flavour)
99 return true;
100
101 if (bfd_get_arch (obfd) == bfd_arch_sparc)
102 {
103 if (bfd_get_mach (obfd) < bfd_get_mach (ibfd))
104 bfd_set_arch_mach (obfd, bfd_arch_sparc, bfd_get_mach (ibfd));
105 }
106
107 return true;
108}
109
110/* This is either sunos_32_set_arch_mach or sunos_64_set_arch_mach,
111 depending upon ARCH_SIZE. */
112
113static void
114sunos_set_arch_mach (abfd, machtype)
115 bfd *abfd;
116 int machtype;
117{
118 /* Determine the architecture and machine type of the object file. */
119 enum bfd_architecture arch;
120 long machine;
121 switch (machtype)
122 {
123
124 case M_UNKNOWN:
125 /* Some Sun3s make magic numbers without cpu types in them, so
126 we'll default to the 68000. */
127 arch = bfd_arch_m68k;
128 machine = bfd_mach_m68000;
129 break;
130
131 case M_68010:
132 case M_HP200:
133 arch = bfd_arch_m68k;
134 machine = bfd_mach_m68010;
135 break;
136
137 case M_68020:
138 case M_HP300:
139 arch = bfd_arch_m68k;
140 machine = bfd_mach_m68020;
141 break;
142
143 case M_SPARC:
144 arch = bfd_arch_sparc;
145 machine = 0;
146 break;
147
148 case M_SPARCLET:
149 arch = bfd_arch_sparc;
150 machine = bfd_mach_sparc_sparclet;
151 break;
152
153 case M_SPARCLITE_LE:
154 arch = bfd_arch_sparc;
155 machine = bfd_mach_sparc_sparclite_le;
156 break;
157
158 case M_386:
159 case M_386_DYNIX:
160 arch = bfd_arch_i386;
161 machine = 0;
162 break;
163
164 case M_29K:
165 arch = bfd_arch_a29k;
166 machine = 0;
167 break;
168
169 case M_HPUX:
170 arch = bfd_arch_m68k;
171 machine = 0;
172 break;
173
174 default:
175 arch = bfd_arch_obscure;
176 machine = 0;
177 break;
178 }
179 bfd_set_arch_mach (abfd, arch, machine);
180}
181
182#define SET_ARCH_MACH(ABFD, EXEC) \
183 NAME(sunos,set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
184 choose_reloc_size(ABFD);
185
186/* Determine the size of a relocation entry, based on the architecture */
187static void
188choose_reloc_size (abfd)
189 bfd *abfd;
190{
191 switch (bfd_get_arch (abfd))
192 {
193 case bfd_arch_sparc:
194 case bfd_arch_a29k:
195 obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
196 break;
197 default:
198 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
199 break;
200 }
201}
202
203/* Write an object file in SunOS format. Section contents have
204 already been written. We write the file header, symbols, and
205 relocation. The real name of this function is either
206 aout_64_sunos4_write_object_contents or
207 aout_32_sunos4_write_object_contents, depending upon ARCH_SIZE. */
208
209static boolean
210sunos_write_object_contents (abfd)
211 bfd *abfd;
212{
213 struct external_exec exec_bytes;
214 struct internal_exec *execp = exec_hdr (abfd);
215
216 /* Magic number, maestro, please! */
217 switch (bfd_get_arch (abfd))
218 {
219 case bfd_arch_m68k:
220 switch (bfd_get_mach (abfd))
221 {
222 case bfd_mach_m68000:
223 N_SET_MACHTYPE (*execp, M_UNKNOWN);
224 break;
225 case bfd_mach_m68010:
226 N_SET_MACHTYPE (*execp, M_68010);
227 break;
228 default:
229 case bfd_mach_m68020:
230 N_SET_MACHTYPE (*execp, M_68020);
231 break;
232 }
233 break;
234 case bfd_arch_sparc:
235 switch (bfd_get_mach (abfd))
236 {
237 case bfd_mach_sparc_sparclet:
238 N_SET_MACHTYPE (*execp, M_SPARCLET);
239 break;
240 case bfd_mach_sparc_sparclite_le:
241 N_SET_MACHTYPE (*execp, M_SPARCLITE_LE);
242 break;
243 default:
244 N_SET_MACHTYPE (*execp, M_SPARC);
245 break;
246 }
247 break;
248 case bfd_arch_i386:
249 N_SET_MACHTYPE (*execp, M_386);
250 break;
251 case bfd_arch_a29k:
252 N_SET_MACHTYPE (*execp, M_29K);
253 break;
254 default:
255 N_SET_MACHTYPE (*execp, M_UNKNOWN);
256 }
257
258 choose_reloc_size (abfd);
259
260 N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);
261
262 N_SET_DYNAMIC (*execp, bfd_get_file_flags (abfd) & DYNAMIC);
263
264 WRITE_HEADERS (abfd, execp);
265
266 return true;
267}
268
269
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
279 so far we don't use but is easy to find with a little arithmetic. */
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
283 the same info. */
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
426 intcore->c_magic = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_magic);
427 intcore->c_len = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_len);
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);
436 intcore->c_signo = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_signo);
437 intcore->c_tsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_tsize);
438 intcore->c_dsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_dsize);
439 intcore->c_data_addr = N_DATADDR (intcore->c_aouthdr);
440 intcore->c_ssize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_ssize);
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);
443 /* FP stuff takes up whole rest of struct, except c_ucode. */
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 */
447 intcore->c_ucode =
448 bfd_h_get_32 (abfd,
449 intcore->c_len - sizeof (extcore->c_ucode) + (unsigned char *) extcore);
450 intcore->c_stacktop = 0x0E000000; /* By experimentation */
451}
452
453/* byte-swap in the Sparc core structure */
454static void
455swapcore_sparc (abfd, ext, intcore)
456 bfd *abfd;
457 char *ext;
458 struct internal_sunos_core *intcore;
459{
460 struct external_sparc_core *extcore = (struct external_sparc_core *) ext;
461
462 intcore->c_magic = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_magic);
463 intcore->c_len = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_len);
464 intcore->c_regs_pos = (long) (((struct external_sparc_core *) 0)->c_regs);
465 intcore->c_regs_size = sizeof (extcore->c_regs);
466#if ARCH_SIZE == 64
467 aout_64_swap_exec_header_in
468#else
469 aout_32_swap_exec_header_in
470#endif
471 (abfd, &extcore->c_aouthdr, &intcore->c_aouthdr);
472 intcore->c_signo = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_signo);
473 intcore->c_tsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_tsize);
474 intcore->c_dsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_dsize);
475 intcore->c_data_addr = N_DATADDR (intcore->c_aouthdr);
476 intcore->c_ssize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_ssize);
477 memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname));
478 intcore->fp_stuff_pos = (long) (((struct external_sparc_core *) 0)->fp_stuff);
479 /* FP stuff takes up whole rest of struct, except c_ucode. */
480 intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) -
481 (file_ptr) (((struct external_sparc_core *) 0)->fp_stuff);
482 /* Ucode is the last thing in the struct -- just before the end */
483 intcore->c_ucode =
484 bfd_h_get_32 (abfd,
485 intcore->c_len - sizeof (extcore->c_ucode) + (unsigned char *) extcore);
486
487 /* Supposedly the user stack grows downward from the bottom of kernel memory.
488 Presuming that this remains true, this definition will work. */
489 /* Now sun has provided us with another challenge. The value is different
490 for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or
491 the other based on the current value of the stack pointer. This
492 loses (a) if the stack pointer has been clobbered, or (b) if the stack
493 is larger than 128 megabytes.
494
495 It's times like these you're glad they're switching to ELF.
496
497 Note that using include files or nlist on /vmunix would be wrong,
498 because we want the value for this core file, no matter what kind of
499 machine we were compiled on or are running on. */
500#define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000)
501#define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000)
502 {
503 bfd_vma sp = bfd_h_get_32
504 (abfd, (unsigned char *) &((struct regs *) &extcore->c_regs[0])->r_o6);
505 if (sp < SPARC_USRSTACK_SPARC10)
506 intcore->c_stacktop = SPARC_USRSTACK_SPARC10;
507 else
508 intcore->c_stacktop = SPARC_USRSTACK_SPARC2;
509 }
510}
511
512/* byte-swap in the Solaris BCP core structure */
513static void
514swapcore_solaris_bcp (abfd, ext, intcore)
515 bfd *abfd;
516 char *ext;
517 struct internal_sunos_core *intcore;
518{
519 struct external_solaris_bcp_core *extcore =
520 (struct external_solaris_bcp_core *) ext;
521
522 intcore->c_magic = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_magic);
523 intcore->c_len = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_len);
524 intcore->c_regs_pos = (long) (((struct external_solaris_bcp_core *) 0)->c_regs);
525 intcore->c_regs_size = sizeof (extcore->c_regs);
526
527 /* The Solaris BCP exdata structure does not contain an a_syms field,
528 so we are unable to synthesize an internal exec header.
529 Luckily we are able to figure out the start address of the data section,
530 which is the only thing needed from the internal exec header,
531 from the exdata structure.
532
533 As of Solaris 2.3, BCP core files for statically linked executables
534 are buggy. The exdata structure is not properly filled in, and
535 the data section is written from address zero instead of the data
536 start address. */
537 memset ((PTR) &intcore->c_aouthdr, 0, sizeof (struct internal_exec));
538 intcore->c_data_addr =
539 bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_exdata_datorg);
540 intcore->c_signo = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_signo);
541 intcore->c_tsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_tsize);
542 intcore->c_dsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_dsize);
543 intcore->c_ssize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_ssize);
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);
547 /* FP stuff takes up whole rest of struct, except c_ucode. */
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 */
551 intcore->c_ucode =
552 bfd_h_get_32 (abfd,
553 intcore->c_len - sizeof (extcore->c_ucode) + (unsigned char *) extcore);
554
555 /* Supposedly the user stack grows downward from the bottom of kernel memory.
556 Presuming that this remains true, this definition will work. */
557 /* Now sun has provided us with another challenge. The value is different
558 for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or
559 the other based on the current value of the stack pointer. This
560 loses (a) if the stack pointer has been clobbered, or (b) if the stack
561 is larger than 128 megabytes.
562
563 It's times like these you're glad they're switching to ELF.
564
565 Note that using include files or nlist on /vmunix would be wrong,
566 because we want the value for this core file, no matter what kind of
567 machine we were compiled on or are running on. */
568#define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000)
569#define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000)
570 {
571 bfd_vma sp = bfd_h_get_32
572 (abfd, (unsigned char *) &((struct regs *) &extcore->c_regs[0])->r_o6);
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 */
602 bfd_size_type core_size;
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];
611 }
612 *mergem;
613
614 if (bfd_read ((PTR) longbuf, 1, sizeof (longbuf), abfd) !=
615 sizeof (longbuf))
616 return 0;
617 core_mag = bfd_h_get_32 (abfd, longbuf);
618
619 if (core_mag != CORE_MAGIC)
620 return 0;
621
622 /* SunOS core headers can vary in length; second word is size; */
623 if (bfd_read ((PTR) longbuf, 1, sizeof (longbuf), abfd) !=
624 sizeof (longbuf))
625 return 0;
626 core_size = bfd_h_get_32 (abfd, longbuf);
627 /* Sanity check */
628 if (core_size > 20000)
629 return 0;
630
631 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) < 0)
632 return 0;
633
634 mergem = (struct mergem *) bfd_zalloc (abfd, core_size + sizeof (struct mergem));
635 if (mergem == NULL)
636 return 0;
637
638 extcore = mergem->external_core;
639
640 if ((bfd_read ((PTR) extcore, 1, core_size, abfd)) != core_size)
641 {
642 bfd_release (abfd, (char *) mergem);
643 return 0;
644 }
645
646 /* Validate that it's a core file we know how to handle, due to sun
647 botching the positioning of registers and other fields in a machine
648 dependent way. */
649 core = &mergem->internal_sunos_core;
650 switch (core_size)
651 {
652 case SPARC_CORE_LEN:
653 swapcore_sparc (abfd, extcore, core);
654 break;
655 case SUN3_CORE_LEN:
656 swapcore_sun3 (abfd, extcore, core);
657 break;
658 case SOLARIS_BCP_CORE_LEN:
659 swapcore_solaris_bcp (abfd, extcore, core);
660 break;
661 default:
662 bfd_set_error (bfd_error_system_call); /* FIXME */
663 bfd_release (abfd, (char *) mergem);
664 return 0;
665 }
666
667 abfd->tdata.sun_core_data = &mergem->suncoredata;
668 abfd->tdata.sun_core_data->hdr = core;
669
670 /* create the sections. This is raunchy, but bfd_close wants to reclaim
671 them */
672 core_stacksec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection));
673 if (core_stacksec (abfd) == NULL)
674 {
675 loser:
676 bfd_release (abfd, (char *) mergem);
677 return 0;
678 }
679 core_datasec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection));
680 if (core_datasec (abfd) == NULL)
681 {
682 loser1:
683 bfd_release (abfd, core_stacksec (abfd));
684 goto loser;
685 }
686 core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection));
687 if (core_regsec (abfd) == NULL)
688 {
689 loser2:
690 bfd_release (abfd, core_datasec (abfd));
691 goto loser1;
692 }
693 core_reg2sec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection));
694 if (core_reg2sec (abfd) == NULL)
695 {
696 bfd_release (abfd, core_regsec (abfd));
697 goto loser2;
698 }
699
700 core_stacksec (abfd)->name = ".stack";
701 core_datasec (abfd)->name = ".data";
702 core_regsec (abfd)->name = ".reg";
703 core_reg2sec (abfd)->name = ".reg2";
704
705 core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
706 core_datasec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
707 core_regsec (abfd)->flags = SEC_HAS_CONTENTS;
708 core_reg2sec (abfd)->flags = SEC_HAS_CONTENTS;
709
710 core_stacksec (abfd)->_raw_size = core->c_ssize;
711 core_datasec (abfd)->_raw_size = core->c_dsize;
712 core_regsec (abfd)->_raw_size = core->c_regs_size;
713 core_reg2sec (abfd)->_raw_size = core->fp_stuff_size;
714
715 core_stacksec (abfd)->vma = (core->c_stacktop - core->c_ssize);
716 core_datasec (abfd)->vma = core->c_data_addr;
717 core_regsec (abfd)->vma = 0;
718 core_reg2sec (abfd)->vma = 0;
719
720 core_stacksec (abfd)->filepos = core->c_len + core->c_dsize;
721 core_datasec (abfd)->filepos = core->c_len;
722 /* We'll access the regs afresh in the core file, like any section: */
723 core_regsec (abfd)->filepos = (file_ptr) core->c_regs_pos;
724 core_reg2sec (abfd)->filepos = (file_ptr) core->fp_stuff_pos;
725
726 /* Align to word at least */
727 core_stacksec (abfd)->alignment_power = 2;
728 core_datasec (abfd)->alignment_power = 2;
729 core_regsec (abfd)->alignment_power = 2;
730 core_reg2sec (abfd)->alignment_power = 2;
731
732 abfd->sections = core_stacksec (abfd);
733 core_stacksec (abfd)->next = core_datasec (abfd);
734 core_datasec (abfd)->next = core_regsec (abfd);
735 core_regsec (abfd)->next = core_reg2sec (abfd);
736
737 abfd->section_count = 4;
738
739 return abfd->xvec;
740}
741
742static char *
743sunos4_core_file_failing_command (abfd)
744 bfd *abfd;
745{
746 return core_hdr (abfd)->hdr->c_cmdname;
747}
748
749static int
750sunos4_core_file_failing_signal (abfd)
751 bfd *abfd;
752{
753 return core_hdr (abfd)->hdr->c_signo;
754}
755
756static boolean
757sunos4_core_file_matches_executable_p (core_bfd, exec_bfd)
758 bfd *core_bfd;
759 bfd *exec_bfd;
760{
761 if (core_bfd->xvec != exec_bfd->xvec)
762 {
763 bfd_set_error (bfd_error_system_call);
764 return false;
765 }
766
767 /* Solaris core files do not include an aouthdr. */
768 if ((core_hdr (core_bfd)->hdr)->c_len == SOLARIS_BCP_CORE_LEN)
769 return true;
770
771 return (memcmp ((char *) &((core_hdr (core_bfd)->hdr)->c_aouthdr),
772 (char *) exec_hdr (exec_bfd),
773 sizeof (struct internal_exec)) == 0) ? true : false;
774}
775
776#define MY_set_sizes sunos4_set_sizes
777static boolean
778sunos4_set_sizes (abfd)
779 bfd *abfd;
780{
781 switch (bfd_get_arch (abfd))
782 {
783 default:
784 return false;
785 case bfd_arch_sparc:
786 adata (abfd).page_size = 0x2000;
787 adata (abfd).segment_size = 0x2000;
788 adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
789 return true;
790 case bfd_arch_m68k:
791 adata (abfd).page_size = 0x2000;
792 adata (abfd).segment_size = 0x20000;
793 adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
794 return true;
795 }
796}
797
798/* We default to setting the toolversion field to 1, as is required by
799 SunOS. */
800#ifndef MY_exec_hdr_flags
801#define MY_exec_hdr_flags 1
802#endif
803
804#ifndef MY_entry_is_text_address
805#define MY_entry_is_text_address 0
806#endif
807#ifndef MY_add_dynamic_symbols
808#define MY_add_dynamic_symbols 0
809#endif
810#ifndef MY_add_one_symbol
811#define MY_add_one_symbol 0
812#endif
813#ifndef MY_link_dynamic_object
814#define MY_link_dynamic_object 0
815#endif
816#ifndef MY_write_dynamic_symbol
817#define MY_write_dynamic_symbol 0
818#endif
819#ifndef MY_check_dynamic_reloc
820#define MY_check_dynamic_reloc 0
821#endif
822#ifndef MY_finish_dynamic_link
823#define MY_finish_dynamic_link 0
824#endif
825
826static CONST struct aout_backend_data sunos4_aout_backend =
827{
828 0, /* zmagic files are not contiguous */
829 1, /* text includes header */
830 MY_entry_is_text_address,
831 MY_exec_hdr_flags,
832 0, /* default text vma */
833 sunos4_set_sizes,
834 0, /* header is counted in zmagic text */
835 MY_add_dynamic_symbols,
836 MY_add_one_symbol,
837 MY_link_dynamic_object,
838 MY_write_dynamic_symbol,
839 MY_check_dynamic_reloc,
840 MY_finish_dynamic_link
841};
842
843
844#define MY_core_file_failing_command sunos4_core_file_failing_command
845#define MY_core_file_failing_signal sunos4_core_file_failing_signal
846#define MY_core_file_matches_executable_p sunos4_core_file_matches_executable_p
847
848#define MY_bfd_debug_info_start bfd_void
849#define MY_bfd_debug_info_end bfd_void
850#define MY_bfd_debug_info_accumulate \
851 (void (*) PARAMS ((bfd *, struct sec *))) bfd_void
852#define MY_core_file_p sunos4_core_file_p
853#define MY_write_object_contents NAME(aout,sunos4_write_object_contents)
854#define MY_backend_data &sunos4_aout_backend
855
856#ifndef TARGET_IS_LITTLE_ENDIAN_P
857#define TARGET_IS_BIG_ENDIAN_P
858#endif
859
860#include "aout-target.h"
Note: See TracBrowser for help on using the repository browser.