daily update
[binutils.git] / bfd / sco5-core.c
bloba84ef45c5b1de7d9c8438a9ffee2f73baffecb4b
1 /* BFD back end for SCO5 core files (U-area and raw sections)
2 Copyright 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
3 Written by Jouke Numan <jnuman@hiscom.nl>
5 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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. */
21 #include "bfd.h"
22 #include "sysdep.h"
23 #include "libbfd.h"
24 #include "libaout.h" /* BFD a.out internal data structures */
26 #include <stdio.h>
27 #include <sys/types.h>
28 #include <sys/param.h>
29 #include <sys/dir.h>
30 #include <signal.h>
32 #include <sys/user.h> /* After a.out.h */
33 #include <sys/paccess.h>
34 #include <sys/region.h>
36 struct sco5_core_struct
38 struct user u;
41 /* forward declarations */
43 static asection *
44 make_bfd_asection PARAMS ((bfd *, const char *, flagword, bfd_size_type,
45 bfd_vma, file_ptr));
46 static asymbol *sco5_core_make_empty_symbol PARAMS ((bfd *));
47 static struct user *read_uarea PARAMS ((bfd *, int));
48 const bfd_target *sco5_core_file_p PARAMS ((bfd *abfd));
49 char *sco5_core_file_failing_command PARAMS ((bfd *abfd));
50 int sco5_core_file_failing_signal PARAMS ((bfd *abfd));
51 boolean sco5_core_file_matches_executable_p PARAMS ((bfd *core_bfd,
52 bfd *exec_bfd));
53 static void swap_abort PARAMS ((void));
55 static asection *
56 make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos)
57 bfd *abfd;
58 const char *name;
59 flagword flags;
60 bfd_size_type _raw_size;
61 bfd_vma vma;
62 file_ptr filepos;
64 asection *asect;
66 asect = bfd_make_section_anyway (abfd, name);
67 if (!asect)
68 return NULL;
69 asect->flags = flags;
70 asect->_raw_size = _raw_size;
71 asect->vma = vma;
72 asect->filepos = filepos;
73 asect->alignment_power = 2;
75 return asect;
78 static asymbol *
79 sco5_core_make_empty_symbol (abfd)
80 bfd *abfd;
82 asymbol *new;
84 new = (asymbol *) bfd_zalloc (abfd, (bfd_size_type) sizeof (asymbol));
85 if (new)
86 new->the_bfd = abfd;
87 return new;
90 static struct user *
91 read_uarea(abfd, filepos)
92 bfd *abfd;
93 int filepos;
96 struct sco5_core_struct *rawptr;
97 bfd_size_type amt = sizeof (struct sco5_core_struct);
99 rawptr = (struct sco5_core_struct *) bfd_zmalloc (amt);
100 if (rawptr == NULL)
101 return NULL;
103 abfd->tdata.sco5_core_data = rawptr;
105 if (bfd_seek (abfd, (file_ptr) filepos, SEEK_SET) != 0
106 || bfd_bread ((void *) &rawptr->u, (bfd_size_type) sizeof rawptr->u,
107 abfd) != sizeof rawptr->u)
109 bfd_set_error (bfd_error_wrong_format);
110 return NULL;
113 /* Sanity check perhaps??? */
114 if (rawptr->u.u_dsize > 0x1000000) /* Remember, it's in pages... */
116 bfd_set_error (bfd_error_wrong_format);
117 return NULL;
119 if (rawptr->u.u_ssize > 0x1000000)
121 bfd_set_error (bfd_error_wrong_format);
122 return NULL;
124 return &rawptr->u;
127 /* ARGSUSED */
128 const bfd_target *
129 sco5_core_file_p (abfd)
130 bfd *abfd;
132 int coffset_siz, val, nsecs, cheadoffs;
133 int coresize;
134 struct user *u;
135 struct coreoffsets coffsets;
136 struct coresecthead chead;
137 char *secname;
138 flagword flags;
140 /* Read coreoffsets region at end of core (see core(FP)) */
143 FILE *stream = bfd_cache_lookup (abfd);
144 struct stat statbuf;
145 if (stream == NULL)
146 return NULL;
147 if (fstat (fileno (stream), &statbuf) < 0)
149 bfd_set_error (bfd_error_system_call);
150 return NULL;
152 coresize = statbuf.st_size;
154 /* Last long in core is sizeof struct coreoffsets, read it */
155 if ((bfd_seek (abfd, (file_ptr) (coresize - sizeof coffset_siz),
156 SEEK_SET) != 0)
157 || bfd_bread ((void *) &coffset_siz, (bfd_size_type) sizeof coffset_siz,
158 abfd) != sizeof coffset_siz)
160 bfd_set_error (bfd_error_wrong_format);
161 return NULL;
164 /* Use it to seek start of coreoffsets region, read it and determine
165 validity */
166 if ((bfd_seek (abfd, (file_ptr) (coresize - coffset_siz), SEEK_SET) != 0)
167 || (bfd_bread ((void *) &coffsets, (bfd_size_type) sizeof coffsets, abfd)
168 != sizeof coffsets)
169 || ((coffsets.u_info != 1) && (coffsets.u_info != C_VERSION)))
171 bfd_set_error (bfd_error_wrong_format);
172 return NULL;
175 if (coffsets.u_info == 1)
177 /* Old version, no section heads, read info from user struct */
179 u = read_uarea(abfd, coffsets.u_user);
180 if (! u)
181 return NULL;
183 if (!make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS,
184 (bfd_size_type) coffsets.u_usize,
185 0 - (bfd_vma) u->u_ar0,
186 (file_ptr) coffsets.u_user))
187 return NULL;
189 if (!make_bfd_asection (abfd, ".data",
190 SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
191 ((bfd_size_type) u->u_exdata.ux_dsize
192 + u->u_exdata.ux_bsize),
193 (bfd_vma) u->u_exdata.ux_datorg,
194 (file_ptr) coffsets.u_data))
195 return NULL;
197 if (!make_bfd_asection (abfd, ".stack",
198 SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
199 (bfd_size_type) u->u_ssize * NBPC,
200 (bfd_vma) u->u_sub,
201 (file_ptr) coffsets.u_stack))
202 return NULL;
204 return abfd->xvec; /* Done for version 1 */
207 /* Immediately before coreoffsets region is a long with offset in core
208 to first coresecthead (CORES_OFFSETS), the long before this is the
209 number of section heads in the list. Read both longs and read the
210 coresecthead and check its validity */
212 if ((bfd_seek (abfd,
213 (file_ptr) (coresize - coffset_siz - 2 * sizeof coffset_siz),
214 SEEK_SET) != 0)
215 || (bfd_bread ((void *) &nsecs, (bfd_size_type) sizeof nsecs, abfd)
216 != sizeof nsecs)
217 || (bfd_bread ((void *) &cheadoffs, (bfd_size_type) sizeof cheadoffs,
218 abfd) != sizeof cheadoffs)
219 || (bfd_seek (abfd, (file_ptr) cheadoffs, SEEK_SET) != 0)
220 || (bfd_bread ((void *) &chead, (bfd_size_type) sizeof chead, abfd)
221 != sizeof chead)
222 || (chead.cs_stype != CORES_OFFSETS)
223 || (chead.cs_x.csx_magic != COREMAGIC_NUMBER))
225 bfd_set_error (bfd_error_wrong_format);
226 return NULL;
229 /* OK, we believe you. You're a core file (sure, sure). */
231 /* Now loop over all regions and map them */
232 nsecs--; /* We've seen CORES_OFFSETS already */
233 for (; nsecs; nsecs--)
235 if ((bfd_seek (abfd, (file_ptr) chead.cs_hseek, SEEK_SET) != 0)
236 || (bfd_bread ((void *) &chead, (bfd_size_type) sizeof chead, abfd)
237 != sizeof chead))
239 bfd_set_error (bfd_error_wrong_format);
240 return NULL;
243 switch (chead.cs_stype)
245 case CORES_MAGIC: /* Core header, check magic */
246 if (chead.cs_x.csx_magic != COREMAGIC_NUMBER)
248 bfd_set_error (bfd_error_wrong_format);
249 return NULL;
251 secname = NULL;
252 nsecs++; /* MAGIC not in section cnt!*/
253 break;
254 case CORES_UAREA: /* U-area, read in tdata */
255 u = read_uarea(abfd, chead.cs_sseek);
256 if (! u)
257 return NULL;
259 /* This is tricky. As the "register section", we give them
260 the entire upage and stack. u.u_ar0 points to where
261 "register 0" is stored. There are two tricks with this,
262 though. One is that the rest of the registers might be
263 at positive or negative (or both) displacements from
264 *u_ar0. The other is that u_ar0 is sometimes an absolute
265 address in kernel memory, and on other systems it is an
266 offset from the beginning of the `struct user'.
268 As a practical matter, we don't know where the registers
269 actually are, so we have to pass the whole area to GDB.
270 We encode the value of u_ar0 by setting the .regs section
271 up so that its virtual memory address 0 is at the place
272 pointed to by u_ar0 (by setting the vma of the start of
273 the section to -u_ar0). GDB uses this info to locate the
274 regs, using minor trickery to get around the
275 offset-or-absolute-addr problem. */
277 chead.cs_vaddr = 0 - (bfd_vma) u->u_ar0;
279 secname = ".reg";
280 flags = SEC_HAS_CONTENTS;
282 break;
283 case CORES_PREGION: /* A program region, map it */
284 switch (chead.cs_x.csx_preg.csxp_rtyp)
286 case PT_DATA:
287 secname = ".data"; /* Data region. */
288 break;
289 case PT_STACK:
290 secname = ".stack"; /* Stack region. */
291 break;
292 case PT_SHMEM:
293 secname = ".shmem"; /* Shared memory */
294 break;
295 case PT_LIBDAT:
296 secname = ".libdat"; /* Shared library data */
297 break;
298 case PT_V86:
299 secname = ".virt86"; /* Virtual 8086 mode */
300 break;
301 case PT_SHFIL:
302 secname = ".mmfile"; /* Memory mapped file */
303 break;
304 case PT_XDATA0:
305 secname = ".Xdat0"; /* XENIX data region, virtual 0 */
306 break;
307 default:
308 secname = "";
310 flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
311 break;
312 case CORES_PROC: /* struct proc */
313 case CORES_ITIMER: /* interval timers */
314 case CORES_SCOUTSNAME: /* struct scoutsname */
315 secname = NULL; /* Ignore these */
316 break;
317 default:
318 (*_bfd_error_handler) ("Unhandled SCO core file section type %d\n",
319 chead.cs_stype);
320 continue;
323 if (secname
324 && !make_bfd_asection (abfd, secname, flags,
325 (bfd_size_type) chead.cs_vsize,
326 (bfd_vma) chead.cs_vaddr,
327 (file_ptr) chead.cs_sseek))
328 return NULL;
332 return abfd->xvec;
336 char *
337 sco5_core_file_failing_command (abfd)
338 bfd *abfd;
340 char *com = abfd->tdata.sco5_core_data->u.u_comm;
341 if (*com)
342 return com;
343 else
344 return NULL;
347 /* ARGSUSED */
349 sco5_core_file_failing_signal (ignore_abfd)
350 bfd *ignore_abfd;
352 return ((ignore_abfd->tdata.sco5_core_data->u.u_sysabort != 0)
353 ? ignore_abfd->tdata.sco5_core_data->u.u_sysabort
354 : -1);
357 /* ARGSUSED */
358 boolean
359 sco5_core_file_matches_executable_p (core_bfd, exec_bfd)
360 bfd *core_bfd ATTRIBUTE_UNUSED;
361 bfd *exec_bfd ATTRIBUTE_UNUSED;
363 return true; /* FIXME, We have no way of telling at this point */
366 #define sco5_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
367 #define sco5_core_get_symtab _bfd_nosymbols_get_symtab
368 #define sco5_core_print_symbol _bfd_nosymbols_print_symbol
369 #define sco5_core_get_symbol_info _bfd_nosymbols_get_symbol_info
370 #define sco5_core_bfd_is_local_label_name _bfd_nosymbols_bfd_is_local_label_name
371 #define sco5_core_get_lineno _bfd_nosymbols_get_lineno
372 #define sco5_core_find_nearest_line _bfd_nosymbols_find_nearest_line
373 #define sco5_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
374 #define sco5_core_read_minisymbols _bfd_nosymbols_read_minisymbols
375 #define sco5_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
377 /* If somebody calls any byte-swapping routines, shoot them. */
378 static void
379 swap_abort ()
381 abort (); /* This way doesn't require any declaration for ANSI to fuck up */
383 #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
384 #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
385 #define NO_SIGNED_GET \
386 ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
388 const bfd_target sco5_core_vec =
390 "sco5-core",
391 bfd_target_unknown_flavour,
392 BFD_ENDIAN_LITTLE, /* target byte order */
393 BFD_ENDIAN_LITTLE, /* target headers byte order */
394 (HAS_RELOC | EXEC_P | /* object flags */
395 HAS_LINENO | HAS_DEBUG |
396 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
397 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
398 0, /* symbol prefix */
399 ' ', /* ar_pad_char */
400 16, /* ar_max_namelen */
401 NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
402 NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
403 NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
404 NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
405 NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
406 NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
408 { /* bfd_check_format */
409 _bfd_dummy_target, /* unknown format */
410 _bfd_dummy_target, /* object file */
411 _bfd_dummy_target, /* archive */
412 sco5_core_file_p /* a core file */
414 { /* bfd_set_format */
415 bfd_false, bfd_false,
416 bfd_false, bfd_false
418 { /* bfd_write_contents */
419 bfd_false, bfd_false,
420 bfd_false, bfd_false
423 BFD_JUMP_TABLE_GENERIC (_bfd_generic),
424 BFD_JUMP_TABLE_COPY (_bfd_generic),
425 BFD_JUMP_TABLE_CORE (sco5),
426 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
427 BFD_JUMP_TABLE_SYMBOLS (sco5_core),
428 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
429 BFD_JUMP_TABLE_WRITE (_bfd_generic),
430 BFD_JUMP_TABLE_LINK (_bfd_nolink),
431 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
433 NULL,
435 (PTR) 0 /* backend_data */