1 /* BFD back end for SCO5 core files (U-area and raw sections)
2 Copyright 1998, 1999, 2000, 2001, 2002 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. */
24 #include "libaout.h" /* BFD a.out internal data structures */
27 #include <sys/types.h>
28 #include <sys/param.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
41 /* forward declarations */
43 static asection *make_bfd_asection
44 PARAMS ((bfd *, const char *, flagword, bfd_size_type, bfd_vma, file_ptr));
45 static struct user *read_uarea PARAMS ((bfd *, int));
46 const bfd_target *sco5_core_file_p PARAMS ((bfd *abfd));
47 char *sco5_core_file_failing_command PARAMS ((bfd *abfd));
48 int sco5_core_file_failing_signal PARAMS ((bfd *abfd));
49 bfd_boolean sco5_core_file_matches_executable_p
50 PARAMS ((bfd *core_bfd, bfd *exec_bfd));
51 static void swap_abort PARAMS ((void));
54 make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos)
58 bfd_size_type _raw_size;
64 asect = bfd_make_section_anyway (abfd, name);
68 asect->_raw_size = _raw_size;
70 asect->filepos = filepos;
71 asect->alignment_power = 2;
77 read_uarea(abfd, filepos)
82 struct sco5_core_struct *rawptr;
83 bfd_size_type amt = sizeof (struct sco5_core_struct);
85 rawptr = (struct sco5_core_struct *) bfd_zmalloc (amt);
89 abfd->tdata.sco5_core_data = rawptr;
91 if (bfd_seek (abfd, (file_ptr) filepos, SEEK_SET) != 0
92 || bfd_bread ((void *) &rawptr->u, (bfd_size_type) sizeof rawptr->u,
93 abfd) != sizeof rawptr->u)
95 bfd_set_error (bfd_error_wrong_format);
99 /* Sanity check perhaps??? */
100 if (rawptr->u.u_dsize > 0x1000000) /* Remember, it's in pages... */
102 bfd_set_error (bfd_error_wrong_format);
105 if (rawptr->u.u_ssize > 0x1000000)
107 bfd_set_error (bfd_error_wrong_format);
115 sco5_core_file_p (abfd)
118 int coffset_siz, val, nsecs, cheadoffs;
121 struct coreoffsets coffsets;
122 struct coresecthead chead;
126 /* Read coreoffsets region at end of core (see core(FP)) */
129 FILE *stream = bfd_cache_lookup (abfd);
133 if (fstat (fileno (stream), &statbuf) < 0)
135 bfd_set_error (bfd_error_system_call);
138 coresize = statbuf.st_size;
140 /* Last long in core is sizeof struct coreoffsets, read it */
141 if ((bfd_seek (abfd, (file_ptr) (coresize - sizeof coffset_siz),
143 || bfd_bread ((void *) &coffset_siz, (bfd_size_type) sizeof coffset_siz,
144 abfd) != sizeof coffset_siz)
146 bfd_set_error (bfd_error_wrong_format);
150 /* Use it to seek start of coreoffsets region, read it and determine
152 if ((bfd_seek (abfd, (file_ptr) (coresize - coffset_siz), SEEK_SET) != 0)
153 || (bfd_bread ((void *) &coffsets, (bfd_size_type) sizeof coffsets, abfd)
155 || ((coffsets.u_info != 1) && (coffsets.u_info != C_VERSION)))
157 bfd_set_error (bfd_error_wrong_format);
161 if (coffsets.u_info == 1)
163 /* Old version, no section heads, read info from user struct */
165 u = read_uarea (abfd, coffsets.u_user);
169 if (!make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS,
170 (bfd_size_type) coffsets.u_usize,
171 0 - (bfd_vma) u->u_ar0,
172 (file_ptr) coffsets.u_user))
175 if (!make_bfd_asection (abfd, ".data",
176 SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
177 ((bfd_size_type) u->u_exdata.ux_dsize
178 + u->u_exdata.ux_bsize),
179 (bfd_vma) u->u_exdata.ux_datorg,
180 (file_ptr) coffsets.u_data))
183 if (!make_bfd_asection (abfd, ".stack",
184 SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
185 (bfd_size_type) u->u_ssize * NBPC,
187 (file_ptr) coffsets.u_stack))
190 return abfd->xvec; /* Done for version 1 */
193 /* Immediately before coreoffsets region is a long with offset in core
194 to first coresecthead (CORES_OFFSETS), the long before this is the
195 number of section heads in the list. Read both longs and read the
196 coresecthead and check its validity */
199 (file_ptr) (coresize - coffset_siz - 2 * sizeof coffset_siz),
201 || (bfd_bread ((void *) &nsecs, (bfd_size_type) sizeof nsecs, abfd)
203 || (bfd_bread ((void *) &cheadoffs, (bfd_size_type) sizeof cheadoffs,
204 abfd) != sizeof cheadoffs)
205 || (bfd_seek (abfd, (file_ptr) cheadoffs, SEEK_SET) != 0)
206 || (bfd_bread ((void *) &chead, (bfd_size_type) sizeof chead, abfd)
208 || (chead.cs_stype != CORES_OFFSETS)
209 || (chead.cs_x.csx_magic != COREMAGIC_NUMBER))
211 bfd_set_error (bfd_error_wrong_format);
215 /* OK, we believe you. You're a core file (sure, sure). */
217 /* Now loop over all regions and map them */
218 nsecs--; /* We've seen CORES_OFFSETS already */
219 for (; nsecs; nsecs--)
221 if ((bfd_seek (abfd, (file_ptr) chead.cs_hseek, SEEK_SET) != 0)
222 || (bfd_bread ((void *) &chead, (bfd_size_type) sizeof chead, abfd)
225 bfd_set_error (bfd_error_wrong_format);
229 switch (chead.cs_stype)
231 case CORES_MAGIC: /* Core header, check magic */
232 if (chead.cs_x.csx_magic != COREMAGIC_NUMBER)
234 bfd_set_error (bfd_error_wrong_format);
238 nsecs++; /* MAGIC not in section cnt!*/
240 case CORES_UAREA: /* U-area, read in tdata */
241 u = read_uarea (abfd, chead.cs_sseek);
245 /* This is tricky. As the "register section", we give them
246 the entire upage and stack. u.u_ar0 points to where
247 "register 0" is stored. There are two tricks with this,
248 though. One is that the rest of the registers might be
249 at positive or negative (or both) displacements from
250 *u_ar0. The other is that u_ar0 is sometimes an absolute
251 address in kernel memory, and on other systems it is an
252 offset from the beginning of the `struct user'.
254 As a practical matter, we don't know where the registers
255 actually are, so we have to pass the whole area to GDB.
256 We encode the value of u_ar0 by setting the .regs section
257 up so that its virtual memory address 0 is at the place
258 pointed to by u_ar0 (by setting the vma of the start of
259 the section to -u_ar0). GDB uses this info to locate the
260 regs, using minor trickery to get around the
261 offset-or-absolute-addr problem. */
263 chead.cs_vaddr = 0 - (bfd_vma) u->u_ar0;
266 flags = SEC_HAS_CONTENTS;
269 case CORES_PREGION: /* A program region, map it */
270 switch (chead.cs_x.csx_preg.csxp_rtyp)
273 secname = ".data"; /* Data region. */
276 secname = ".stack"; /* Stack region. */
279 secname = ".shmem"; /* Shared memory */
282 secname = ".libdat"; /* Shared library data */
285 secname = ".virt86"; /* Virtual 8086 mode */
288 secname = ".mmfile"; /* Memory mapped file */
291 secname = ".Xdat0"; /* XENIX data region, virtual 0 */
296 flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
298 case CORES_PROC: /* struct proc */
299 case CORES_ITIMER: /* interval timers */
300 case CORES_SCOUTSNAME: /* struct scoutsname */
301 secname = NULL; /* Ignore these */
304 (*_bfd_error_handler) ("Unhandled SCO core file section type %d\n",
310 && !make_bfd_asection (abfd, secname, flags,
311 (bfd_size_type) chead.cs_vsize,
312 (bfd_vma) chead.cs_vaddr,
313 (file_ptr) chead.cs_sseek))
323 bfd_release (abfd, abfd->tdata.any);
324 abfd->tdata.any = NULL;
326 bfd_section_list_clear (abfd);
331 sco5_core_file_failing_command (abfd)
334 char *com = abfd->tdata.sco5_core_data->u.u_comm;
343 sco5_core_file_failing_signal (ignore_abfd)
346 return ((ignore_abfd->tdata.sco5_core_data->u.u_sysabort != 0)
347 ? ignore_abfd->tdata.sco5_core_data->u.u_sysabort
353 sco5_core_file_matches_executable_p (core_bfd, exec_bfd)
354 bfd *core_bfd ATTRIBUTE_UNUSED;
355 bfd *exec_bfd ATTRIBUTE_UNUSED;
357 return TRUE; /* FIXME, We have no way of telling at this point */
360 /* If somebody calls any byte-swapping routines, shoot them. */
364 abort (); /* This way doesn't require any declaration for ANSI to fuck up */
366 #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
367 #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
368 #define NO_SIGNED_GET \
369 ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
371 const bfd_target sco5_core_vec =
374 bfd_target_unknown_flavour,
375 BFD_ENDIAN_LITTLE, /* target byte order */
376 BFD_ENDIAN_LITTLE, /* target headers byte order */
377 (HAS_RELOC | EXEC_P | /* object flags */
378 HAS_LINENO | HAS_DEBUG |
379 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
380 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
381 0, /* symbol prefix */
382 ' ', /* ar_pad_char */
383 16, /* ar_max_namelen */
384 NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
385 NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
386 NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
387 NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
388 NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
389 NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
391 { /* bfd_check_format */
392 _bfd_dummy_target, /* unknown format */
393 _bfd_dummy_target, /* object file */
394 _bfd_dummy_target, /* archive */
395 sco5_core_file_p /* a core file */
397 { /* bfd_set_format */
398 bfd_false, bfd_false,
401 { /* bfd_write_contents */
402 bfd_false, bfd_false,
406 BFD_JUMP_TABLE_GENERIC (_bfd_generic),
407 BFD_JUMP_TABLE_COPY (_bfd_generic),
408 BFD_JUMP_TABLE_CORE (sco5),
409 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
410 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
411 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
412 BFD_JUMP_TABLE_WRITE (_bfd_generic),
413 BFD_JUMP_TABLE_LINK (_bfd_nolink),
414 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
418 (PTR) 0 /* backend_data */