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 Free Software Foundation, Inc.
5 Written by Minh Tran-Le <TRANLE@INTELLICORP.COM>.
6 Converted to back end form by Ian Lance Taylor <ian@cygnus.com>.
8 This file is part of BFD, the Binary File Descriptor library.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
24 /* To use this file on a particular host, configure the host with these
25 parameters in the config/h-HOST file:
27 HDEFINES=-DAIX386_CORE=1
28 HDEPFILES=aix386-core.o
35 #include "coff/i386.h"
36 #include "coff/internal.h"
45 #if defined (_AIX) && defined (_I386)
46 #define NOCHECKS /* this is for coredump.h */
47 #define _h_USER /* avoid including user.h from coredump.h */
49 #include <sys/i386/coredump.h>
50 #endif /* _AIX && _I386 */
52 /* maybe this could work on some other i386 but I have not tried it
53 * mtranle@paris - Tue Sep 24 12:49:35 1991
57 # define COR_MAGIC "core"
60 /* need this cast because ptr is really void * */
61 #define core_hdr(bfd) \
62 (((bfd->tdata.trad_core_data))->hdr)
63 #define core_section(bfd,n) \
64 (((bfd)->tdata.trad_core_data)->sections[n])
65 #define core_regsec(bfd) \
66 (((bfd)->tdata.trad_core_data)->reg_section)
67 #define core_reg2sec(bfd) \
68 (((bfd)->tdata.trad_core_data)->reg2_section)
70 /* These are stored in the bfd's tdata */
71 struct trad_core_struct {
72 struct corehdr *hdr; /* core file header */
73 asection *reg_section;
74 asection *reg2_section;
75 asection *sections[MAX_CORE_SEGS];
79 aix386_core_file_p (abfd)
83 unsigned char longbuf[4]; /* Raw bytes of various header fields */
84 int core_size = sizeof (struct corehdr);
87 struct trad_core_struct coredata;
88 struct corehdr internal_core;
91 if (bfd_read ((PTR)longbuf, 1, sizeof (longbuf), abfd) != sizeof (longbuf))
93 if (bfd_get_error () != bfd_error_system_call)
94 bfd_set_error (bfd_error_wrong_format);
98 if (strncmp(longbuf,COR_MAGIC,4)) return 0;
100 if (bfd_seek (abfd, 0L, false) < 0) return 0;
102 mergem = (struct mergem *)bfd_zalloc (abfd, sizeof (struct mergem));
105 bfd_set_error (bfd_error_no_memory);
109 core = &mergem->internal_core;
111 if ((bfd_read ((PTR) core, 1, core_size, abfd)) != core_size)
113 if (bfd_get_error () != bfd_error_system_call)
114 bfd_set_error (bfd_error_wrong_format);
115 bfd_release (abfd, (char *)mergem);
119 set_tdata (abfd, &mergem->coredata);
120 core_hdr (abfd) = core;
122 /* create the sections. This is raunchy, but bfd_close wants to reclaim
124 core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection));
125 if (core_regsec (abfd) == NULL)
128 bfd_set_error (bfd_error_no_memory);
129 bfd_release (abfd, (char *)mergem);
132 core_reg2sec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection));
133 if (core_reg2sec (abfd) == NULL)
136 bfd_release (abfd, core_regsec (abfd));
140 for (i=0, n=0 ; (i < MAX_CORE_SEGS) && (core->cd_segs[i].cs_type) ; i++)
142 if (core->cd_segs[i].cs_offset == 0)
144 core_section (abfd,n) =
145 (asection *) bfd_zalloc (abfd, sizeof (asection));
146 if (core_section (abfd,n) == NULL)
151 for (j=0; j < n; j++)
152 bfd_release (abfd, core_section(abfd, j));
154 bfd_release (abfd, (char *)mergem);
158 switch (core->cd_segs[i].cs_type)
161 core_section (abfd, n)->name = ".data";
162 core_section (abfd, n)->flags = (SEC_ALLOC + SEC_LOAD +
166 core_section (abfd, n)->name = ".stack";
167 core_section (abfd, n)->flags = (SEC_ALLOC + SEC_LOAD +
170 case COR_TYPE_LIBDATA:
171 core_section (abfd, n)->name = ".libdata";
172 core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS);
175 core_section (abfd, n)->name = ".writeable";
176 core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS);
179 core_section (abfd, n)->name = ".misc";
180 core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS);
183 core_section (abfd, n)->name = ".unknown";
184 core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS);
187 core_section (abfd, n)->_raw_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;
191 core_section (abfd, n)->next = NULL;
193 core_section (abfd, (n-1))->next = core_section (abfd, n);
195 abfd->section_count = ++n;
198 core_regsec (abfd)->name = ".reg";
199 core_reg2sec (abfd)->name = ".reg2";
201 core_regsec (abfd)->flags = SEC_ALLOC + SEC_HAS_CONTENTS;
202 core_reg2sec (abfd)->flags = SEC_ALLOC + SEC_HAS_CONTENTS;
204 core_regsec (abfd)->_raw_size = sizeof(core->cd_regs);
205 core_reg2sec (abfd)->_raw_size = sizeof(core->cd_fpregs);
207 core_regsec (abfd)->vma = -1;
208 core_reg2sec (abfd)->vma = -1;
210 /* We'll access the regs afresh in the core file, like any section: */
211 core_regsec (abfd)->filepos = (file_ptr)offsetof(struct corehdr,cd_regs[0]);
212 core_reg2sec (abfd)->filepos = (file_ptr)offsetof(struct corehdr,
215 /* add the 2 reg fake sections to abfd */
216 abfd->section_count += 2;
217 abfd->sections = core_regsec (abfd);
218 core_regsec (abfd)->next = core_reg2sec (abfd);
219 core_reg2sec (abfd)->next = core_section (abfd, 0);
225 aix386_core_file_failing_command (abfd)
228 return core_hdr (abfd)->cd_comm;
232 aix386_core_file_failing_signal (abfd)
235 return core_hdr (abfd)->cd_cursig;
239 aix386_core_file_matches_executable_p (core_bfd, exec_bfd)
243 return true; /* FIXME, We have no way of telling at this
247 /* No archive file support via this BFD */
248 #define aix386_openr_next_archived_file bfd_generic_openr_next_archived_file
249 #define aix386_generic_stat_arch_elt bfd_generic_stat_arch_elt
250 #define aix386_slurp_armap bfd_false
251 #define aix386_slurp_extended_name_table bfd_true
252 #define aix386_write_armap (PROTO (boolean, (*), \
253 (bfd *arch, unsigned int elength, struct orl *map, \
254 unsigned int orl_count, int stridx))) bfd_false
255 #define aix386_truncate_arname bfd_dont_truncate_arname
257 #define aix386_close_and_cleanup bfd_generic_close_and_cleanup
258 #define aix386_set_section_contents (PROTO(boolean, (*), \
259 (bfd *abfd, asection *section, PTR data, file_ptr offset, \
260 bfd_size_type count))) bfd_generic_set_section_contents
261 #define aix386_get_section_contents bfd_generic_get_section_contents
262 #define aix386_new_section_hook (PROTO (boolean, (*), \
263 (bfd *, sec_ptr))) bfd_true
264 #define aix386_get_symtab_upper_bound bfd_0u
265 #define aix386_get_symtab (PROTO (unsigned int, (*), \
266 (bfd *, struct symbol_cache_entry **))) bfd_0u
267 #define aix386_get_reloc_upper_bound (PROTO (unsigned int, (*), \
268 (bfd *, sec_ptr))) bfd_0u
269 #define aix386_canonicalize_reloc (PROTO (unsigned int, (*), \
270 (bfd *, sec_ptr, arelent **, struct symbol_cache_entry**))) bfd_0u
271 #define aix386_make_empty_symbol (PROTO ( \
272 struct symbol_cache_entry *, (*), (bfd *))) bfd_false
273 #define aix386_print_symbol (PROTO (void, (*), \
274 (bfd *, PTR, struct symbol_cache_entry *, \
275 bfd_print_symbol_type))) bfd_false
276 #define aix386_get_symbol_info (PROTO (void, (*), \
277 (bfd *, struct symbol_cache_entry *, \
278 symbol_info *))) bfd_false
279 #define aix386_get_lineno (PROTO (alent *, (*), \
280 (bfd *, struct symbol_cache_entry *))) bfd_nullvoidptr
281 #define aix386_set_arch_mach (PROTO (boolean, (*), \
282 (bfd *, enum bfd_architecture, unsigned long))) bfd_false
283 #define aix386_find_nearest_line (PROTO (boolean, (*), \
284 (bfd *abfd, struct sec *section, \
285 struct symbol_cache_entry **symbols,bfd_vma offset, \
286 CONST char **file, CONST char **func, unsigned int *line))) bfd_false
287 #define aix386_sizeof_headers (PROTO (int, (*), \
288 (bfd *, boolean))) bfd_0
290 #define aix386_bfd_debug_info_start bfd_void
291 #define aix386_bfd_debug_info_end bfd_void
292 #define aix386_bfd_debug_info_accumulate (PROTO (void, (*), \
293 (bfd *, struct sec *))) bfd_void
294 #define aix386_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
295 #define aix386_bfd_relax_section bfd_generic_relax_section
296 #define aix386_bfd_reloc_type_lookup \
297 ((CONST struct reloc_howto_struct *(*) PARAMS ((bfd *, bfd_reloc_code_real_type))) bfd_nullvoidptr)
298 #define aix386_bfd_make_debug_symbol \
299 ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr)
300 #define aix386_bfd_link_hash_table_create \
301 ((struct bfd_link_hash_table *(*) PARAMS ((bfd *))) bfd_nullvoidptr)
302 #define aix386_bfd_link_add_symbols \
303 ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false)
304 #define aix386_bfd_final_link \
305 ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false)
306 #define aix386_bfd_copy_private_section_data \
307 ((boolean (*) PARAMS ((bfd *, asection *, bfd *, asection *))) bfd_false)
308 #define aix386_bfd_copy_private_bfd_data \
309 ((boolean (*) PARAMS ((bfd *, bfd *))) bfd_false)
310 #define aix386_bfd_is_local_label \
311 ((boolean (*) PARAMS ((bfd *, asection *))) bfd_false)
313 /* If somebody calls any byte-swapping routines, shoot them. */
317 abort(); /* This way doesn't require any declaration for ANSI to fuck up */
319 #define NO_GET ((PROTO(bfd_vma, (*), ( const bfd_byte *))) swap_abort )
320 #define NO_GETS ((PROTO(bfd_signed_vma, (*), (const bfd_byte *))) swap_abort )
321 #define NO_PUT ((PROTO(void, (*), (bfd_vma, bfd_byte *))) swap_abort )
323 bfd_target aix386_core_vec =
326 bfd_target_unknown_flavour,
327 true, /* target byte order */
328 true, /* target headers byte order */
329 (HAS_RELOC | EXEC_P | /* object flags */
330 HAS_LINENO | HAS_DEBUG |
331 HAS_SYMS | HAS_LOCALS | WP_TEXT),
333 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
334 0, /* leading underscore */
335 ' ', /* ar_pad_char */
336 16, /* ar_max_namelen */
337 3, /* minimum alignment power */
338 NO_GET, NO_GETS, NO_PUT,
339 NO_GET, NO_GETS, NO_PUT,
340 NO_GET, NO_GETS, NO_PUT, /* data */
341 NO_GET, NO_GETS, NO_PUT,
342 NO_GET, NO_GETS, NO_PUT,
343 NO_GET, NO_GETS, NO_PUT, /* hdrs */
345 {_bfd_dummy_target, _bfd_dummy_target,
346 _bfd_dummy_target, aix386_core_file_p},
347 {bfd_false, bfd_false, /* bfd_create_object */
348 bfd_false, bfd_false},
349 {bfd_false, bfd_false, /* bfd_write_contents */
350 bfd_false, bfd_false},