1 /* BFD back-end for HPPA BSD core files.
2 Copyright 1993, 94, 95, 97, 1998 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20 Written by the Center for Software Science at the University of Utah
21 and by Cygnus Support.
23 The core file structure for the Utah 4.3BSD and OSF1 ports on the
24 PA is a mix between traditional cores and hpux cores -- just
25 different enough that supporting this format would tend to add
26 gross hacks to trad-core.c or hpux-core.c. So instead we keep any
27 gross hacks isolated to this file. */
29 /* This file can only be compiled on systems which use HPPA-BSD style
32 I would not expect this to be of use to any other host/target, but
39 #if defined (HOST_HPPABSD)
41 #include "machine/vmparam.h"
43 #include <sys/param.h>
46 #include <machine/reg.h>
47 #include <sys/user.h> /* After a.out.h */
50 static asection
*make_bfd_asection
PARAMS ((bfd
*, CONST
char *,
51 flagword
, bfd_size_type
,
52 file_ptr
, unsigned int));
53 static asymbol
*hppabsd_core_make_empty_symbol
PARAMS ((bfd
*));
54 static const bfd_target
*hppabsd_core_core_file_p
PARAMS ((bfd
*));
55 static char *hppabsd_core_core_file_failing_command
PARAMS ((bfd
*));
56 static int hppabsd_core_core_file_failing_signal
PARAMS ((bfd
*));
57 static boolean hppabsd_core_core_file_matches_executable_p
58 PARAMS ((bfd
*, bfd
*));
59 static void swap_abort
PARAMS ((void));
61 /* These are stored in the bfd's tdata. */
63 struct hppabsd_core_struct
66 char cmd
[MAXCOMLEN
+ 1];
67 asection
*data_section
;
68 asection
*stack_section
;
69 asection
*reg_section
;
72 #define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
73 #define core_signal(bfd) (core_hdr(bfd)->sig)
74 #define core_command(bfd) (core_hdr(bfd)->cmd)
75 #define core_datasec(bfd) (core_hdr(bfd)->data_section)
76 #define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
77 #define core_regsec(bfd) (core_hdr(bfd)->reg_section)
80 make_bfd_asection (abfd
, name
, flags
, _raw_size
, offset
, alignment_power
)
84 bfd_size_type _raw_size
;
86 unsigned int alignment_power
;
90 asect
= bfd_make_section (abfd
, name
);
95 asect
->_raw_size
= _raw_size
;
96 asect
->filepos
= offset
;
97 asect
->alignment_power
= alignment_power
;
103 hppabsd_core_make_empty_symbol (abfd
)
106 asymbol
*new = (asymbol
*) bfd_zalloc (abfd
, sizeof (asymbol
));
112 static const bfd_target
*
113 hppabsd_core_core_file_p (abfd
)
118 struct hppabsd_core_struct
*coredata
;
121 /* Try to read in the u-area. We will need information from this
122 to know how to grok the rest of the core structures. */
123 val
= bfd_read ((void *) &u
, 1, sizeof u
, abfd
);
126 if (bfd_get_error () != bfd_error_system_call
)
127 bfd_set_error (bfd_error_wrong_format
);
131 /* Get the page size out of the u structure. This will be different
132 for PA 1.0 machines and PA 1.1 machines. Yuk! */
133 clicksz
= u
.u_pcb
.pcb_pgsz
;
135 /* clicksz must be a power of two >= 2k. */
137 || clicksz
!= (clicksz
& -clicksz
))
139 bfd_set_error (bfd_error_wrong_format
);
143 /* Sanity checks. Make sure the size of the core file matches the
144 the size computed from information within the core itself. */
146 FILE *stream
= bfd_cache_lookup (abfd
);
148 if (stream
== NULL
|| fstat (fileno (stream
), &statbuf
) < 0)
150 bfd_set_error (bfd_error_system_call
);
153 if (NBPG
* (UPAGES
+ u
.u_dsize
+ u
.u_ssize
) > statbuf
.st_size
)
155 bfd_set_error (bfd_error_file_truncated
);
158 if (clicksz
* (UPAGES
+ u
.u_dsize
+ u
.u_ssize
) < statbuf
.st_size
)
160 /* The file is too big. Maybe it's not a core file
161 or we otherwise have bad values for u_dsize and u_ssize). */
162 bfd_set_error (bfd_error_wrong_format
);
167 /* OK, we believe you. You're a core file (sure, sure). */
169 coredata
= (struct hppabsd_core_struct
*)
170 bfd_zalloc (abfd
, sizeof (struct hppabsd_core_struct
));
174 /* Make the core data and available via the tdata part of the BFD. */
175 abfd
->tdata
.hppabsd_core_data
= coredata
;
177 /* Create the sections. */
178 core_stacksec (abfd
) = make_bfd_asection (abfd
, ".stack",
179 SEC_ALLOC
+ SEC_HAS_CONTENTS
,
181 NBPG
* (USIZE
+ KSTAKSIZE
)
182 + clicksz
* u
.u_dsize
, 2);
183 core_stacksec (abfd
)->vma
= USRSTACK
;
185 core_datasec (abfd
) = make_bfd_asection (abfd
, ".data",
189 NBPG
* (USIZE
+ KSTAKSIZE
), 2);
190 core_datasec (abfd
)->vma
= UDATASEG
;
192 core_regsec (abfd
) = make_bfd_asection (abfd
, ".reg",
196 core_regsec (abfd
)->vma
= 0;
198 strncpy (core_command (abfd
), u
.u_comm
, MAXCOMLEN
+ 1);
199 core_signal (abfd
) = u
.u_code
;
204 hppabsd_core_core_file_failing_command (abfd
)
207 return core_command (abfd
);
212 hppabsd_core_core_file_failing_signal (abfd
)
215 return core_signal (abfd
);
220 hppabsd_core_core_file_matches_executable_p (core_bfd
, exec_bfd
)
221 bfd
*core_bfd
, *exec_bfd
;
223 /* There's no way to know this... */
227 #define hppabsd_core_get_symtab_upper_bound \
228 _bfd_nosymbols_get_symtab_upper_bound
229 #define hppabsd_core_get_symtab _bfd_nosymbols_get_symtab
230 #define hppabsd_core_print_symbol _bfd_nosymbols_print_symbol
231 #define hppabsd_core_get_symbol_info _bfd_nosymbols_get_symbol_info
232 #define hppabsd_core_bfd_is_local_label_name \
233 _bfd_nosymbols_bfd_is_local_label_name
234 #define hppabsd_core_get_lineno _bfd_nosymbols_get_lineno
235 #define hppabsd_core_find_nearest_line _bfd_nosymbols_find_nearest_line
236 #define hppabsd_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
237 #define hppabsd_core_read_minisymbols _bfd_nosymbols_read_minisymbols
238 #define hppabsd_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
240 /* If somebody calls any byte-swapping routines, shoot them. */
244 /* This way doesn't require any declaration for ANSI to fuck up. */
248 #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
249 #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
250 #define NO_SIGNED_GET \
251 ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
253 const bfd_target hppabsd_core_vec
=
256 bfd_target_unknown_flavour
,
257 BFD_ENDIAN_BIG
, /* target byte order */
258 BFD_ENDIAN_BIG
, /* target headers byte order */
259 (HAS_RELOC
| EXEC_P
| /* object flags */
260 HAS_LINENO
| HAS_DEBUG
|
261 HAS_SYMS
| HAS_LOCALS
| WP_TEXT
| D_PAGED
),
262 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
263 0, /* symbol prefix */
264 ' ', /* ar_pad_char */
265 16, /* ar_max_namelen */
266 NO_GET
, NO_SIGNED_GET
, NO_PUT
, /* 64 bit data */
267 NO_GET
, NO_SIGNED_GET
, NO_PUT
, /* 32 bit data */
268 NO_GET
, NO_SIGNED_GET
, NO_PUT
, /* 16 bit data */
269 NO_GET
, NO_SIGNED_GET
, NO_PUT
, /* 64 bit hdrs */
270 NO_GET
, NO_SIGNED_GET
, NO_PUT
, /* 32 bit hdrs */
271 NO_GET
, NO_SIGNED_GET
, NO_PUT
, /* 16 bit hdrs */
273 { /* bfd_check_format */
274 _bfd_dummy_target
, /* unknown format */
275 _bfd_dummy_target
, /* object file */
276 _bfd_dummy_target
, /* archive */
277 hppabsd_core_core_file_p
/* a core file */
279 { /* bfd_set_format */
280 bfd_false
, bfd_false
,
283 { /* bfd_write_contents */
284 bfd_false
, bfd_false
,
288 BFD_JUMP_TABLE_GENERIC (_bfd_generic
),
289 BFD_JUMP_TABLE_COPY (_bfd_generic
),
290 BFD_JUMP_TABLE_CORE (hppabsd_core
),
291 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
292 BFD_JUMP_TABLE_SYMBOLS (hppabsd_core
),
293 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
294 BFD_JUMP_TABLE_WRITE (_bfd_generic
),
295 BFD_JUMP_TABLE_LINK (_bfd_nolink
),
296 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),
300 (PTR
) 0 /* backend_data */