1 /* BFD back-end for AIX on PS/2 core files.
2 This was based on trad-core.c, which was written by John Gilmore of
4 Copyright 1988, 1989, 1991, 1992, 1993, 1994, 1996, 1998, 1999, 2000,
5 2001, 2002, 2004, 2005, 2006, 2007, 2010, 2011, 2012
6 Free Software Foundation, Inc.
7 Written by Minh Tran-Le <TRANLE@INTELLICORP.COM>.
8 Converted to back end form by Ian Lance Taylor <ian@cygnus.com>.
10 This file is part of BFD, the Binary File Descriptor library.
12 This program is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 3 of the License, or
15 (at your option) any later version.
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software
24 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
25 MA 02110-1301, USA. */
30 #include "coff/i386.h"
31 #include "coff/internal.h"
36 #if defined (_AIX) && defined (_I386)
37 #define NOCHECKS /* This is for coredump.h. */
38 #define _h_USER /* Avoid including user.h from coredump.h. */
40 #include <sys/i386/coredump.h>
41 #endif /* _AIX && _I386 */
43 /* Maybe this could work on some other i386 but I have not tried it
44 * mtranle@paris - Tue Sep 24 12:49:35 1991
48 # define COR_MAGIC "core"
51 /* Need this cast because ptr is really void *. */
52 #define core_hdr(bfd) \
53 (((bfd->tdata.trad_core_data))->hdr)
54 #define core_section(bfd,n) \
55 (((bfd)->tdata.trad_core_data)->sections[n])
56 #define core_regsec(bfd) \
57 (((bfd)->tdata.trad_core_data)->reg_section)
58 #define core_reg2sec(bfd) \
59 (((bfd)->tdata.trad_core_data)->reg2_section)
61 /* These are stored in the bfd's tdata. */
62 struct trad_core_struct
64 struct corehdr
*hdr
; /* core file header */
65 asection
*reg_section
;
66 asection
*reg2_section
;
67 asection
*sections
[MAX_CORE_SEGS
];
70 static const bfd_target
*
71 aix386_core_file_p (bfd
*abfd
)
74 unsigned char longbuf
[4]; /* Raw bytes of various header fields */
75 bfd_size_type core_size
= sizeof (struct corehdr
);
80 struct trad_core_struct coredata
;
81 struct corehdr internal_core
;
85 amt
= sizeof (longbuf
);
86 if (bfd_bread (longbuf
, amt
, abfd
) != amt
)
88 if (bfd_get_error () != bfd_error_system_call
)
89 bfd_set_error (bfd_error_wrong_format
);
93 if (strncmp (longbuf
, COR_MAGIC
, 4))
96 if (bfd_seek (abfd
, (file_ptr
) 0, 0) != 0)
99 amt
= sizeof (struct mergem
);
100 mergem
= (struct mergem
*) bfd_zalloc (abfd
, amt
);
104 core
= &mergem
->internal_core
;
106 if ((bfd_bread (core
, core_size
, abfd
)) != core_size
)
108 if (bfd_get_error () != bfd_error_system_call
)
109 bfd_set_error (bfd_error_wrong_format
);
111 bfd_release (abfd
, (char *) mergem
);
112 abfd
->tdata
.any
= NULL
;
113 bfd_section_list_clear (abfd
);
117 set_tdata (abfd
, &mergem
->coredata
);
118 core_hdr (abfd
) = core
;
120 /* Create the sections. */
121 flags
= SEC_HAS_CONTENTS
;
122 core_regsec (abfd
) = bfd_make_section_anyway_with_flags (abfd
, ".reg",
124 if (core_regsec (abfd
) == NULL
)
127 core_regsec (abfd
)->size
= sizeof (core
->cd_regs
);
128 core_regsec (abfd
)->vma
= (bfd_vma
) -1;
130 /* We'll access the regs afresh in the core file, like any section. */
131 core_regsec (abfd
)->filepos
=
132 (file_ptr
) offsetof (struct corehdr
, cd_regs
[0]);
134 flags
= SEC_HAS_CONTENTS
;
135 core_reg2sec (abfd
) = bfd_make_section_anyway_with_flags (abfd
, ".reg2",
137 if (core_reg2sec (abfd
) == NULL
)
138 /* bfd_release frees everything allocated after it's arg. */
141 core_reg2sec (abfd
)->size
= sizeof (core
->cd_fpregs
);
142 core_reg2sec (abfd
)->vma
= (bfd_vma
) -1;
143 core_reg2sec (abfd
)->filepos
=
144 (file_ptr
) offsetof (struct corehdr
, cd_fpregs
);
146 for (i
= 0, n
= 0; (i
< MAX_CORE_SEGS
) && (core
->cd_segs
[i
].cs_type
); i
++)
151 if (core
->cd_segs
[i
].cs_offset
== 0)
154 switch (core
->cd_segs
[i
].cs_type
)
158 flags
= SEC_ALLOC
+ SEC_LOAD
+ SEC_HAS_CONTENTS
;
162 flags
= SEC_ALLOC
+ SEC_LOAD
+ SEC_HAS_CONTENTS
;
164 case COR_TYPE_LIBDATA
:
166 flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
169 sname
= ".writeable";
170 flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
174 flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
178 flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
181 core_section (abfd
, n
) = bfd_make_section_anyway_with_flags (abfd
,
184 if (core_section (abfd
, n
) == NULL
)
187 core_section (abfd
, n
)->size
= core
->cd_segs
[i
].cs_len
;
188 core_section (abfd
, n
)->vma
= core
->cd_segs
[i
].cs_address
;
189 core_section (abfd
, n
)->filepos
= core
->cd_segs
[i
].cs_offset
;
190 core_section (abfd
, n
)->alignment_power
= 2;
198 aix386_core_file_failing_command (bfd
*abfd
)
200 return core_hdr (abfd
)->cd_comm
;
204 aix386_core_file_failing_signal (bfd
*abfd
)
206 return core_hdr (abfd
)->cd_cursig
;
209 #define aix386_core_file_matches_executable_p generic_core_file_matches_executable_p
211 #define aix386_core_file_pid _bfd_nocore_core_file_pid
213 /* If somebody calls any byte-swapping routines, shoot them. */
218 /* This way doesn't require any declaration for ANSI to fuck up. */
222 #define NO_GET ((bfd_vma (*) (const void *)) swap_abort)
223 #define NO_PUT ((void (*) (bfd_vma, void *)) swap_abort)
224 #define NO_GETS ((bfd_signed_vma (*) (const void *)) swap_abort)
225 #define NO_GET64 ((bfd_uint64_t (*) (const void *)) swap_abort)
226 #define NO_PUT64 ((void (*) (bfd_uint64_t, void *)) swap_abort)
227 #define NO_GETS64 ((bfd_int64_t (*) (const void *)) swap_abort)
229 const bfd_target aix386_core_vec
=
232 bfd_target_unknown_flavour
,
233 BFD_ENDIAN_BIG
, /* target byte order */
234 BFD_ENDIAN_BIG
, /* target headers byte order */
235 (HAS_RELOC
| EXEC_P
| /* object flags */
236 HAS_LINENO
| HAS_DEBUG
|
237 HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
239 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
240 0, /* leading underscore */
241 ' ', /* ar_pad_char */
242 16, /* ar_max_namelen */
243 0, /* match priority. */
244 NO_GET64
, NO_GETS64
, NO_PUT64
,
245 NO_GET
, NO_GETS
, NO_PUT
,
246 NO_GET
, NO_GETS
, NO_PUT
, /* data */
247 NO_GET64
, NO_GETS64
, NO_PUT64
,
248 NO_GET
, NO_GETS
, NO_PUT
,
249 NO_GET
, NO_GETS
, NO_PUT
, /* hdrs */
251 {_bfd_dummy_target
, _bfd_dummy_target
,
252 _bfd_dummy_target
, aix386_core_file_p
},
253 {bfd_false
, bfd_false
, /* bfd_create_object */
254 bfd_false
, bfd_false
},
255 {bfd_false
, bfd_false
, /* bfd_write_contents */
256 bfd_false
, bfd_false
},
258 BFD_JUMP_TABLE_GENERIC (_bfd_generic
),
259 BFD_JUMP_TABLE_COPY (_bfd_generic
),
260 BFD_JUMP_TABLE_CORE (aix386
),
261 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
262 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols
),
263 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
264 BFD_JUMP_TABLE_WRITE (_bfd_generic
),
265 BFD_JUMP_TABLE_LINK (_bfd_nolink
),
266 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),