source: trunk/src/binutils/bfd/hppabsd-core.c@ 29

Last change on this file since 29 was 10, checked in by bird, 23 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 9.2 KB
Line 
1/* BFD back-end for HPPA BSD core files.
2 Copyright 1993, 1994, 1995, 1998, 1999, 2001
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
51static asection *make_bfd_asection PARAMS ((bfd *, CONST char *,
52 flagword, bfd_size_type,
53 file_ptr, unsigned int));
54static asymbol *hppabsd_core_make_empty_symbol PARAMS ((bfd *));
55static const bfd_target *hppabsd_core_core_file_p PARAMS ((bfd *));
56static char *hppabsd_core_core_file_failing_command PARAMS ((bfd *));
57static int hppabsd_core_core_file_failing_signal PARAMS ((bfd *));
58static boolean hppabsd_core_core_file_matches_executable_p
59 PARAMS ((bfd *, bfd *));
60static void swap_abort PARAMS ((void));
61
62/* These are stored in the bfd's tdata. */
63
64struct hppabsd_core_struct
65 {
66 int sig;
67 char cmd[MAXCOMLEN + 1];
68 asection *data_section;
69 asection *stack_section;
70 asection *reg_section;
71 };
72
73#define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
74#define core_signal(bfd) (core_hdr(bfd)->sig)
75#define core_command(bfd) (core_hdr(bfd)->cmd)
76#define core_datasec(bfd) (core_hdr(bfd)->data_section)
77#define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
78#define core_regsec(bfd) (core_hdr(bfd)->reg_section)
79
80static asection *
81make_bfd_asection (abfd, name, flags, _raw_size, offset, alignment_power)
82 bfd *abfd;
83 CONST char *name;
84 flagword flags;
85 bfd_size_type _raw_size;
86 file_ptr offset;
87 unsigned int alignment_power;
88{
89 asection *asect;
90
91 asect = bfd_make_section (abfd, name);
92 if (!asect)
93 return NULL;
94
95 asect->flags = flags;
96 asect->_raw_size = _raw_size;
97 asect->filepos = offset;
98 asect->alignment_power = alignment_power;
99
100 return asect;
101}
102
103static asymbol *
104hppabsd_core_make_empty_symbol (abfd)
105 bfd *abfd;
106{
107 asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol));
108 if (new)
109 new->the_bfd = abfd;
110 return new;
111}
112
113static const bfd_target *
114hppabsd_core_core_file_p (abfd)
115 bfd *abfd;
116{
117 int val;
118 struct user u;
119 struct hppabsd_core_struct *coredata;
120 int clicksz;
121
122 /* Try to read in the u-area. We will need information from this
123 to know how to grok the rest of the core structures. */
124 val = bfd_read ((void *) &u, 1, sizeof u, abfd);
125 if (val != sizeof u)
126 {
127 if (bfd_get_error () != bfd_error_system_call)
128 bfd_set_error (bfd_error_wrong_format);
129 return NULL;
130 }
131
132 /* Get the page size out of the u structure. This will be different
133 for PA 1.0 machines and PA 1.1 machines. Yuk! */
134 clicksz = u.u_pcb.pcb_pgsz;
135
136 /* clicksz must be a power of two >= 2k. */
137 if (clicksz < 0x800
138 || clicksz != (clicksz & -clicksz))
139 {
140 bfd_set_error (bfd_error_wrong_format);
141 return NULL;
142 }
143
144 /* Sanity checks. Make sure the size of the core file matches the
145 the size computed from information within the core itself. */
146 {
147 FILE *stream = bfd_cache_lookup (abfd);
148 struct stat statbuf;
149 if (stream == NULL || fstat (fileno (stream), &statbuf) < 0)
150 {
151 bfd_set_error (bfd_error_system_call);
152 return NULL;
153 }
154 if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
155 {
156 bfd_set_error (bfd_error_file_truncated);
157 return NULL;
158 }
159 if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
160 {
161 /* The file is too big. Maybe it's not a core file
162 or we otherwise have bad values for u_dsize and u_ssize). */
163 bfd_set_error (bfd_error_wrong_format);
164 return NULL;
165 }
166 }
167
168 /* OK, we believe you. You're a core file (sure, sure). */
169
170 coredata = (struct hppabsd_core_struct *)
171 bfd_zalloc (abfd, sizeof (struct hppabsd_core_struct));
172 if (!coredata)
173 return NULL;
174
175 /* Make the core data and available via the tdata part of the BFD. */
176 abfd->tdata.hppabsd_core_data = coredata;
177
178 /* Create the sections. */
179 core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
180 SEC_ALLOC + SEC_HAS_CONTENTS,
181 clicksz * u.u_ssize,
182 NBPG * (USIZE + KSTAKSIZE)
183 + clicksz * u.u_dsize, 2);
184 core_stacksec (abfd)->vma = USRSTACK;
185
186 core_datasec (abfd) = make_bfd_asection (abfd, ".data",
187 SEC_ALLOC + SEC_LOAD
188 + SEC_HAS_CONTENTS,
189 clicksz * u.u_dsize,
190 NBPG * (USIZE + KSTAKSIZE), 2);
191 core_datasec (abfd)->vma = UDATASEG;
192
193 core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
194 SEC_HAS_CONTENTS,
195 KSTAKSIZE * NBPG,
196 NBPG * USIZE, 2);
197 core_regsec (abfd)->vma = 0;
198
199 strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
200 core_signal (abfd) = u.u_code;
201 return abfd->xvec;
202}
203
204static char *
205hppabsd_core_core_file_failing_command (abfd)
206 bfd *abfd;
207{
208 return core_command (abfd);
209}
210
211/* ARGSUSED */
212static int
213hppabsd_core_core_file_failing_signal (abfd)
214 bfd *abfd;
215{
216 return core_signal (abfd);
217}
218
219/* ARGSUSED */
220static boolean
221hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
222 bfd *core_bfd, *exec_bfd;
223{
224 /* There's no way to know this... */
225 return true;
226}
227
228
229#define hppabsd_core_get_symtab_upper_bound \
230 _bfd_nosymbols_get_symtab_upper_bound
231#define hppabsd_core_get_symtab _bfd_nosymbols_get_symtab
232#define hppabsd_core_print_symbol _bfd_nosymbols_print_symbol
233#define hppabsd_core_get_symbol_info _bfd_nosymbols_get_symbol_info
234#define hppabsd_core_bfd_is_local_label_name \
235 _bfd_nosymbols_bfd_is_local_label_name
236#define hppabsd_core_get_lineno _bfd_nosymbols_get_lineno
237#define hppabsd_core_find_nearest_line _bfd_nosymbols_find_nearest_line
238#define hppabsd_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
239#define hppabsd_core_read_minisymbols _bfd_nosymbols_read_minisymbols
240#define hppabsd_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
241
242/* If somebody calls any byte-swapping routines, shoot them. */
243static void
244swap_abort ()
245{
246 /* This way doesn't require any declaration for ANSI to fuck up. */
247 abort ();
248}
249
250#define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
251#define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
252#define NO_SIGNED_GET \
253 ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
254
255const bfd_target hppabsd_core_vec =
256 {
257 "hppabsd-core",
258 bfd_target_unknown_flavour,
259 BFD_ENDIAN_BIG, /* target byte order */
260 BFD_ENDIAN_BIG, /* target headers byte order */
261 (HAS_RELOC | EXEC_P | /* object flags */
262 HAS_LINENO | HAS_DEBUG |
263 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
264 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
265 0, /* symbol prefix */
266 ' ', /* ar_pad_char */
267 16, /* ar_max_namelen */
268 NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
269 NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
270 NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
271 NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
272 NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
273 NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
274
275 { /* bfd_check_format */
276 _bfd_dummy_target, /* unknown format */
277 _bfd_dummy_target, /* object file */
278 _bfd_dummy_target, /* archive */
279 hppabsd_core_core_file_p /* a core file */
280 },
281 { /* bfd_set_format */
282 bfd_false, bfd_false,
283 bfd_false, bfd_false
284 },
285 { /* bfd_write_contents */
286 bfd_false, bfd_false,
287 bfd_false, bfd_false
288 },
289
290 BFD_JUMP_TABLE_GENERIC (_bfd_generic),
291 BFD_JUMP_TABLE_COPY (_bfd_generic),
292 BFD_JUMP_TABLE_CORE (hppabsd_core),
293 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
294 BFD_JUMP_TABLE_SYMBOLS (hppabsd_core),
295 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
296 BFD_JUMP_TABLE_WRITE (_bfd_generic),
297 BFD_JUMP_TABLE_LINK (_bfd_nolink),
298 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
299
300 NULL,
301
302 (PTR) 0 /* backend_data */
303};
304#endif
Note: See TracBrowser for help on using the repository browser.