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 bfd_set_error (bfd_error_system_call
);
93 if (bfd_read ((PTR
)longbuf
, 1, sizeof (longbuf
), abfd
) != sizeof (longbuf
))
96 if (strncmp(longbuf
,COR_MAGIC
,4)) return 0;
98 if (bfd_seek (abfd
, 0L, false) < 0) return 0;
100 mergem
= (struct mergem
*)bfd_zalloc (abfd
, sizeof (struct mergem
));
103 bfd_set_error (bfd_error_no_memory
);
107 core
= &mergem
->internal_core
;
109 if ((bfd_read ((PTR
) core
, 1, core_size
, abfd
)) != core_size
)
111 bfd_set_error (bfd_error_system_call
);
112 bfd_release (abfd
, (char *)mergem
);
116 set_tdata (abfd
, &mergem
->coredata
);
117 core_hdr (abfd
) = core
;
119 /* create the sections. This is raunchy, but bfd_close wants to reclaim
121 core_regsec (abfd
) = (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
122 if (core_regsec (abfd
) == NULL
)
125 bfd_set_error (bfd_error_no_memory
);
126 bfd_release (abfd
, (char *)mergem
);
129 core_reg2sec (abfd
) = (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
130 if (core_reg2sec (abfd
) == NULL
)
133 bfd_release (abfd
, core_regsec (abfd
));
137 for (i
=0, n
=0 ; (i
< MAX_CORE_SEGS
) && (core
->cd_segs
[i
].cs_type
) ; i
++)
139 if (core
->cd_segs
[i
].cs_offset
== 0)
141 core_section (abfd
,n
) =
142 (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
143 if (core_section (abfd
,n
) == NULL
)
148 for (j
=0; j
< n
; j
++)
149 bfd_release (abfd
, core_section(abfd
, j
));
151 bfd_release (abfd
, (char *)mergem
);
155 switch (core
->cd_segs
[i
].cs_type
)
158 core_section (abfd
, n
)->name
= ".data";
159 core_section (abfd
, n
)->flags
= (SEC_ALLOC
+ SEC_LOAD
+
163 core_section (abfd
, n
)->name
= ".stack";
164 core_section (abfd
, n
)->flags
= (SEC_ALLOC
+ SEC_LOAD
+
167 case COR_TYPE_LIBDATA
:
168 core_section (abfd
, n
)->name
= ".libdata";
169 core_section (abfd
, n
)->flags
= (SEC_ALLOC
+ SEC_HAS_CONTENTS
);
172 core_section (abfd
, n
)->name
= ".writeable";
173 core_section (abfd
, n
)->flags
= (SEC_ALLOC
+ SEC_HAS_CONTENTS
);
176 core_section (abfd
, n
)->name
= ".misc";
177 core_section (abfd
, n
)->flags
= (SEC_ALLOC
+ SEC_HAS_CONTENTS
);
180 core_section (abfd
, n
)->name
= ".unknown";
181 core_section (abfd
, n
)->flags
= (SEC_ALLOC
+ SEC_HAS_CONTENTS
);
184 core_section (abfd
, n
)->_raw_size
= core
->cd_segs
[i
].cs_len
;
185 core_section (abfd
, n
)->vma
= core
->cd_segs
[i
].cs_address
;
186 core_section (abfd
, n
)->filepos
= core
->cd_segs
[i
].cs_offset
;
187 core_section (abfd
, n
)->alignment_power
= 2;
188 core_section (abfd
, n
)->next
= NULL
;
190 core_section (abfd
, (n
-1))->next
= core_section (abfd
, n
);
192 abfd
->section_count
= ++n
;
195 core_regsec (abfd
)->name
= ".reg";
196 core_reg2sec (abfd
)->name
= ".reg2";
198 core_regsec (abfd
)->flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
199 core_reg2sec (abfd
)->flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
201 core_regsec (abfd
)->_raw_size
= sizeof(core
->cd_regs
);
202 core_reg2sec (abfd
)->_raw_size
= sizeof(core
->cd_fpregs
);
204 core_regsec (abfd
)->vma
= -1;
205 core_reg2sec (abfd
)->vma
= -1;
207 /* We'll access the regs afresh in the core file, like any section: */
208 core_regsec (abfd
)->filepos
= (file_ptr
)offsetof(struct corehdr
,cd_regs
[0]);
209 core_reg2sec (abfd
)->filepos
= (file_ptr
)offsetof(struct corehdr
,
212 /* add the 2 reg fake sections to abfd */
213 abfd
->section_count
+= 2;
214 abfd
->sections
= core_regsec (abfd
);
215 core_regsec (abfd
)->next
= core_reg2sec (abfd
);
216 core_reg2sec (abfd
)->next
= core_section (abfd
, 0);
222 aix386_core_file_failing_command (abfd
)
225 return core_hdr (abfd
)->cd_comm
;
229 aix386_core_file_failing_signal (abfd
)
232 return core_hdr (abfd
)->cd_cursig
;
236 aix386_core_file_matches_executable_p (core_bfd
, exec_bfd
)
240 return true; /* FIXME, We have no way of telling at this
244 /* No archive file support via this BFD */
245 #define aix386_openr_next_archived_file bfd_generic_openr_next_archived_file
246 #define aix386_generic_stat_arch_elt bfd_generic_stat_arch_elt
247 #define aix386_slurp_armap bfd_false
248 #define aix386_slurp_extended_name_table bfd_true
249 #define aix386_write_armap (PROTO (boolean, (*), \
250 (bfd *arch, unsigned int elength, struct orl *map, \
251 unsigned int orl_count, int stridx))) bfd_false
252 #define aix386_truncate_arname bfd_dont_truncate_arname
254 #define aix386_close_and_cleanup bfd_generic_close_and_cleanup
255 #define aix386_set_section_contents (PROTO(boolean, (*), \
256 (bfd *abfd, asection *section, PTR data, file_ptr offset, \
257 bfd_size_type count))) bfd_generic_set_section_contents
258 #define aix386_get_section_contents bfd_generic_get_section_contents
259 #define aix386_new_section_hook (PROTO (boolean, (*), \
260 (bfd *, sec_ptr))) bfd_true
261 #define aix386_get_symtab_upper_bound bfd_0u
262 #define aix386_get_symtab (PROTO (unsigned int, (*), \
263 (bfd *, struct symbol_cache_entry **))) bfd_0u
264 #define aix386_get_reloc_upper_bound (PROTO (unsigned int, (*), \
265 (bfd *, sec_ptr))) bfd_0u
266 #define aix386_canonicalize_reloc (PROTO (unsigned int, (*), \
267 (bfd *, sec_ptr, arelent **, struct symbol_cache_entry**))) bfd_0u
268 #define aix386_make_empty_symbol (PROTO ( \
269 struct symbol_cache_entry *, (*), (bfd *))) bfd_false
270 #define aix386_print_symbol (PROTO (void, (*), \
271 (bfd *, PTR, struct symbol_cache_entry *, \
272 bfd_print_symbol_type))) bfd_false
273 #define aix386_get_symbol_info (PROTO (void, (*), \
274 (bfd *, struct symbol_cache_entry *, \
275 symbol_info *))) bfd_false
276 #define aix386_get_lineno (PROTO (alent *, (*), \
277 (bfd *, struct symbol_cache_entry *))) bfd_nullvoidptr
278 #define aix386_set_arch_mach (PROTO (boolean, (*), \
279 (bfd *, enum bfd_architecture, unsigned long))) bfd_false
280 #define aix386_find_nearest_line (PROTO (boolean, (*), \
281 (bfd *abfd, struct sec *section, \
282 struct symbol_cache_entry **symbols,bfd_vma offset, \
283 CONST char **file, CONST char **func, unsigned int *line))) bfd_false
284 #define aix386_sizeof_headers (PROTO (int, (*), \
285 (bfd *, boolean))) bfd_0
287 #define aix386_bfd_debug_info_start bfd_void
288 #define aix386_bfd_debug_info_end bfd_void
289 #define aix386_bfd_debug_info_accumulate (PROTO (void, (*), \
290 (bfd *, struct sec *))) bfd_void
291 #define aix386_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
292 #define aix386_bfd_relax_section bfd_generic_relax_section
293 #define aix386_bfd_reloc_type_lookup \
294 ((CONST struct reloc_howto_struct *(*) PARAMS ((bfd *, bfd_reloc_code_real_type))) bfd_nullvoidptr)
295 #define aix386_bfd_make_debug_symbol \
296 ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr)
297 #define aix386_bfd_link_hash_table_create \
298 ((struct bfd_link_hash_table *(*) PARAMS ((bfd *))) bfd_nullvoidptr)
299 #define aix386_bfd_link_add_symbols \
300 ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false)
301 #define aix386_bfd_final_link \
302 ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false)
304 /* If somebody calls any byte-swapping routines, shoot them. */
308 abort(); /* This way doesn't require any declaration for ANSI to fuck up */
310 #define NO_GET ((PROTO(bfd_vma, (*), ( const bfd_byte *))) swap_abort )
311 #define NO_GETS ((PROTO(bfd_signed_vma, (*), (const bfd_byte *))) swap_abort )
312 #define NO_PUT ((PROTO(void, (*), (bfd_vma, bfd_byte *))) swap_abort )
314 bfd_target aix386_core_vec
=
317 bfd_target_unknown_flavour
,
318 true, /* target byte order */
319 true, /* target headers byte order */
320 (HAS_RELOC
| EXEC_P
| /* object flags */
321 HAS_LINENO
| HAS_DEBUG
|
322 HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
324 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
325 0, /* leading underscore */
326 ' ', /* ar_pad_char */
327 16, /* ar_max_namelen */
328 3, /* minimum alignment power */
329 NO_GET
, NO_GETS
, NO_PUT
,
330 NO_GET
, NO_GETS
, NO_PUT
,
331 NO_GET
, NO_GETS
, NO_PUT
, /* data */
332 NO_GET
, NO_GETS
, NO_PUT
,
333 NO_GET
, NO_GETS
, NO_PUT
,
334 NO_GET
, NO_GETS
, NO_PUT
, /* hdrs */
336 {_bfd_dummy_target
, _bfd_dummy_target
,
337 _bfd_dummy_target
, aix386_core_file_p
},
338 {bfd_false
, bfd_false
, /* bfd_create_object */
339 bfd_false
, bfd_false
},
340 {bfd_false
, bfd_false
, /* bfd_write_contents */
341 bfd_false
, bfd_false
},