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_0l
265 #define aix386_get_symtab (PROTO (long, (*), \
266 (bfd *, struct symbol_cache_entry **))) bfd_0l
267 #define aix386_get_reloc_upper_bound (PROTO (long, (*), \
268 (bfd *, sec_ptr))) bfd_0l
269 #define aix386_canonicalize_reloc (PROTO (long, (*), \
270 (bfd *, sec_ptr, arelent **, struct symbol_cache_entry**))) bfd_0l
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
},