1 | /* BFD back-end for HPPA BSD core files.
|
---|
2 | Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002
|
---|
3 | Free Software Foundation, Inc.
|
---|
4 |
|
---|
5 | This file is part of BFD, the Binary File Descriptor library.
|
---|
6 |
|
---|
7 | This program is free software; you can redistribute it and/or modify
|
---|
8 | it under the terms of the GNU General Public License as published by
|
---|
9 | the Free Software Foundation; either version 2 of the License, or
|
---|
10 | (at your option) any later version.
|
---|
11 |
|
---|
12 | This program is distributed in the hope that it will be useful,
|
---|
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
15 | GNU General Public License for more details.
|
---|
16 |
|
---|
17 | You should have received a copy of the GNU General Public License
|
---|
18 | along with this program; if not, write to the Free Software
|
---|
19 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
---|
20 |
|
---|
21 | Written by the Center for Software Science at the University of Utah
|
---|
22 | and by Cygnus Support.
|
---|
23 |
|
---|
24 | The core file structure for the Utah 4.3BSD and OSF1 ports on the
|
---|
25 | PA is a mix between traditional cores and hpux cores -- just
|
---|
26 | different enough that supporting this format would tend to add
|
---|
27 | gross hacks to trad-core.c or hpux-core.c. So instead we keep any
|
---|
28 | gross hacks isolated to this file. */
|
---|
29 |
|
---|
30 | /* This file can only be compiled on systems which use HPPA-BSD style
|
---|
31 | core files.
|
---|
32 |
|
---|
33 | I would not expect this to be of use to any other host/target, but
|
---|
34 | you never know. */
|
---|
35 |
|
---|
36 | #include "bfd.h"
|
---|
37 | #include "sysdep.h"
|
---|
38 | #include "libbfd.h"
|
---|
39 |
|
---|
40 | #if defined (HOST_HPPABSD)
|
---|
41 |
|
---|
42 | #include "machine/vmparam.h"
|
---|
43 |
|
---|
44 | #include <sys/param.h>
|
---|
45 | #include <sys/dir.h>
|
---|
46 | #include <signal.h>
|
---|
47 | #include <machine/reg.h>
|
---|
48 | #include <sys/user.h> /* After a.out.h */
|
---|
49 | #include <sys/file.h>
|
---|
50 |
|
---|
51 | static asection *make_bfd_asection
|
---|
52 | PARAMS ((bfd *, const char *, flagword, bfd_size_type, file_ptr,
|
---|
53 | unsigned int));
|
---|
54 | static const bfd_target *hppabsd_core_core_file_p
|
---|
55 | PARAMS ((bfd *));
|
---|
56 | static char *hppabsd_core_core_file_failing_command
|
---|
57 | PARAMS ((bfd *));
|
---|
58 | static int hppabsd_core_core_file_failing_signal
|
---|
59 | PARAMS ((bfd *));
|
---|
60 | static bfd_boolean hppabsd_core_core_file_matches_executable_p
|
---|
61 | PARAMS ((bfd *, bfd *));
|
---|
62 | static void swap_abort
|
---|
63 | PARAMS ((void));
|
---|
64 |
|
---|
65 | /* These are stored in the bfd's tdata. */
|
---|
66 |
|
---|
67 | struct hppabsd_core_struct
|
---|
68 | {
|
---|
69 | int sig;
|
---|
70 | char cmd[MAXCOMLEN + 1];
|
---|
71 | asection *data_section;
|
---|
72 | asection *stack_section;
|
---|
73 | asection *reg_section;
|
---|
74 | };
|
---|
75 |
|
---|
76 | #define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
|
---|
77 | #define core_signal(bfd) (core_hdr(bfd)->sig)
|
---|
78 | #define core_command(bfd) (core_hdr(bfd)->cmd)
|
---|
79 | #define core_datasec(bfd) (core_hdr(bfd)->data_section)
|
---|
80 | #define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
|
---|
81 | #define core_regsec(bfd) (core_hdr(bfd)->reg_section)
|
---|
82 |
|
---|
83 | static asection *
|
---|
84 | make_bfd_asection (abfd, name, flags, _raw_size, offset, alignment_power)
|
---|
85 | bfd *abfd;
|
---|
86 | const char *name;
|
---|
87 | flagword flags;
|
---|
88 | bfd_size_type _raw_size;
|
---|
89 | file_ptr offset;
|
---|
90 | unsigned int alignment_power;
|
---|
91 | {
|
---|
92 | asection *asect;
|
---|
93 |
|
---|
94 | asect = bfd_make_section (abfd, name);
|
---|
95 | if (!asect)
|
---|
96 | return NULL;
|
---|
97 |
|
---|
98 | asect->flags = flags;
|
---|
99 | asect->_raw_size = _raw_size;
|
---|
100 | asect->filepos = offset;
|
---|
101 | asect->alignment_power = alignment_power;
|
---|
102 |
|
---|
103 | return asect;
|
---|
104 | }
|
---|
105 |
|
---|
106 | static const bfd_target *
|
---|
107 | hppabsd_core_core_file_p (abfd)
|
---|
108 | bfd *abfd;
|
---|
109 | {
|
---|
110 | int val;
|
---|
111 | struct user u;
|
---|
112 | struct hppabsd_core_struct *coredata;
|
---|
113 | int clicksz;
|
---|
114 |
|
---|
115 | /* Try to read in the u-area. We will need information from this
|
---|
116 | to know how to grok the rest of the core structures. */
|
---|
117 | val = bfd_bread ((void *) &u, (bfd_size_type) sizeof u, abfd);
|
---|
118 | if (val != sizeof u)
|
---|
119 | {
|
---|
120 | if (bfd_get_error () != bfd_error_system_call)
|
---|
121 | bfd_set_error (bfd_error_wrong_format);
|
---|
122 | return NULL;
|
---|
123 | }
|
---|
124 |
|
---|
125 | /* Get the page size out of the u structure. This will be different
|
---|
126 | for PA 1.0 machines and PA 1.1 machines. Yuk! */
|
---|
127 | clicksz = u.u_pcb.pcb_pgsz;
|
---|
128 |
|
---|
129 | /* clicksz must be a power of two >= 2k. */
|
---|
130 | if (clicksz < 0x800
|
---|
131 | || clicksz != (clicksz & -clicksz))
|
---|
132 | {
|
---|
133 | bfd_set_error (bfd_error_wrong_format);
|
---|
134 | return NULL;
|
---|
135 | }
|
---|
136 |
|
---|
137 | /* Sanity checks. Make sure the size of the core file matches the
|
---|
138 | the size computed from information within the core itself. */
|
---|
139 | {
|
---|
140 | FILE *stream = bfd_cache_lookup (abfd);
|
---|
141 | struct stat statbuf;
|
---|
142 | if (stream == NULL || fstat (fileno (stream), &statbuf) < 0)
|
---|
143 | {
|
---|
144 | bfd_set_error (bfd_error_system_call);
|
---|
145 | return NULL;
|
---|
146 | }
|
---|
147 | if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
|
---|
148 | {
|
---|
149 | bfd_set_error (bfd_error_file_truncated);
|
---|
150 | return NULL;
|
---|
151 | }
|
---|
152 | if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
|
---|
153 | {
|
---|
154 | /* The file is too big. Maybe it's not a core file
|
---|
155 | or we otherwise have bad values for u_dsize and u_ssize). */
|
---|
156 | bfd_set_error (bfd_error_wrong_format);
|
---|
157 | return NULL;
|
---|
158 | }
|
---|
159 | }
|
---|
160 |
|
---|
161 | /* OK, we believe you. You're a core file (sure, sure). */
|
---|
162 |
|
---|
163 | coredata = (struct hppabsd_core_struct *)
|
---|
164 | bfd_zalloc (abfd, (bfd_size_type) sizeof (struct hppabsd_core_struct));
|
---|
165 | if (!coredata)
|
---|
166 | return NULL;
|
---|
167 |
|
---|
168 | /* Make the core data and available via the tdata part of the BFD. */
|
---|
169 | abfd->tdata.hppabsd_core_data = coredata;
|
---|
170 |
|
---|
171 | /* Create the sections. */
|
---|
172 | core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
|
---|
173 | SEC_ALLOC + SEC_HAS_CONTENTS,
|
---|
174 | clicksz * u.u_ssize,
|
---|
175 | NBPG * (USIZE + KSTAKSIZE)
|
---|
176 | + clicksz * u.u_dsize, 2);
|
---|
177 | if (core_stacksec (abfd) == NULL)
|
---|
178 | goto fail;
|
---|
179 | core_stacksec (abfd)->vma = USRSTACK;
|
---|
180 |
|
---|
181 | core_datasec (abfd) = make_bfd_asection (abfd, ".data",
|
---|
182 | SEC_ALLOC + SEC_LOAD
|
---|
183 | + SEC_HAS_CONTENTS,
|
---|
184 | clicksz * u.u_dsize,
|
---|
185 | NBPG * (USIZE + KSTAKSIZE), 2);
|
---|
186 | if (core_datasec (abfd) == NULL)
|
---|
187 | goto fail;
|
---|
188 | core_datasec (abfd)->vma = UDATASEG;
|
---|
189 |
|
---|
190 | core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
|
---|
191 | SEC_HAS_CONTENTS,
|
---|
192 | KSTAKSIZE * NBPG,
|
---|
193 | NBPG * USIZE, 2);
|
---|
194 | if (core_regsec (abfd) == NULL)
|
---|
195 | goto fail;
|
---|
196 | core_regsec (abfd)->vma = 0;
|
---|
197 |
|
---|
198 | strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
|
---|
199 | core_signal (abfd) = u.u_code;
|
---|
200 | return abfd->xvec;
|
---|
201 |
|
---|
202 | fail:
|
---|
203 | bfd_release (abfd, abfd->tdata.any);
|
---|
204 | abfd->tdata.any = NULL;
|
---|
205 | bfd_section_list_clear (abfd);
|
---|
206 | return NULL;
|
---|
207 | }
|
---|
208 |
|
---|
209 | static char *
|
---|
210 | hppabsd_core_core_file_failing_command (abfd)
|
---|
211 | bfd *abfd;
|
---|
212 | {
|
---|
213 | return core_command (abfd);
|
---|
214 | }
|
---|
215 |
|
---|
216 | /* ARGSUSED */
|
---|
217 | static int
|
---|
218 | hppabsd_core_core_file_failing_signal (abfd)
|
---|
219 | bfd *abfd;
|
---|
220 | {
|
---|
221 | return core_signal (abfd);
|
---|
222 | }
|
---|
223 |
|
---|
224 | /* ARGSUSED */
|
---|
225 | static bfd_boolean
|
---|
226 | hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
|
---|
227 | bfd *core_bfd, *exec_bfd;
|
---|
228 | {
|
---|
229 | /* There's no way to know this... */
|
---|
230 | return TRUE;
|
---|
231 | }
|
---|
232 | |
---|
233 |
|
---|
234 | /* If somebody calls any byte-swapping routines, shoot them. */
|
---|
235 | static void
|
---|
236 | swap_abort ()
|
---|
237 | {
|
---|
238 | /* This way doesn't require any declaration for ANSI to fuck up. */
|
---|
239 | abort ();
|
---|
240 | }
|
---|
241 |
|
---|
242 | #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
|
---|
243 | #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
|
---|
244 | #define NO_SIGNED_GET \
|
---|
245 | ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
|
---|
246 |
|
---|
247 | const bfd_target hppabsd_core_vec =
|
---|
248 | {
|
---|
249 | "hppabsd-core",
|
---|
250 | bfd_target_unknown_flavour,
|
---|
251 | BFD_ENDIAN_BIG, /* target byte order */
|
---|
252 | BFD_ENDIAN_BIG, /* target headers byte order */
|
---|
253 | (HAS_RELOC | EXEC_P | /* object flags */
|
---|
254 | HAS_LINENO | HAS_DEBUG |
|
---|
255 | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
|
---|
256 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
|
---|
257 | 0, /* symbol prefix */
|
---|
258 | ' ', /* ar_pad_char */
|
---|
259 | 16, /* ar_max_namelen */
|
---|
260 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
|
---|
261 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
|
---|
262 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
|
---|
263 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
|
---|
264 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
|
---|
265 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
|
---|
266 |
|
---|
267 | { /* bfd_check_format */
|
---|
268 | _bfd_dummy_target, /* unknown format */
|
---|
269 | _bfd_dummy_target, /* object file */
|
---|
270 | _bfd_dummy_target, /* archive */
|
---|
271 | hppabsd_core_core_file_p /* a core file */
|
---|
272 | },
|
---|
273 | { /* bfd_set_format */
|
---|
274 | bfd_false, bfd_false,
|
---|
275 | bfd_false, bfd_false
|
---|
276 | },
|
---|
277 | { /* bfd_write_contents */
|
---|
278 | bfd_false, bfd_false,
|
---|
279 | bfd_false, bfd_false
|
---|
280 | },
|
---|
281 |
|
---|
282 | BFD_JUMP_TABLE_GENERIC (_bfd_generic),
|
---|
283 | BFD_JUMP_TABLE_COPY (_bfd_generic),
|
---|
284 | BFD_JUMP_TABLE_CORE (hppabsd_core),
|
---|
285 | BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
|
---|
286 | BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
|
---|
287 | BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
|
---|
288 | BFD_JUMP_TABLE_WRITE (_bfd_generic),
|
---|
289 | BFD_JUMP_TABLE_LINK (_bfd_nolink),
|
---|
290 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
|
---|
291 |
|
---|
292 | NULL,
|
---|
293 |
|
---|
294 | (PTR) 0 /* backend_data */
|
---|
295 | };
|
---|
296 | #endif
|
---|