| 1 | /* BFD back-end for HP/UX core files.
|
|---|
| 2 | Copyright 1993, 1994, 1996, 1998, 1999, 2001
|
|---|
| 3 | Free Software Foundation, Inc.
|
|---|
| 4 | Written by Stu Grossman, Cygnus Support.
|
|---|
| 5 | Converted to back-end form by Ian Lance Taylor, Cygnus SUpport
|
|---|
| 6 |
|
|---|
| 7 | This file is part of BFD, the Binary File Descriptor library.
|
|---|
| 8 |
|
|---|
| 9 | This program is free software; you can redistribute it and/or modify
|
|---|
| 10 | it under the terms of the GNU General Public License as published by
|
|---|
| 11 | the Free Software Foundation; either version 2 of the License, or
|
|---|
| 12 | (at your option) any later version.
|
|---|
| 13 |
|
|---|
| 14 | This program is distributed in the hope that it will be useful,
|
|---|
| 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|---|
| 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|---|
| 17 | GNU General Public License for more details.
|
|---|
| 18 |
|
|---|
| 19 | You should have received a copy of the GNU General Public License
|
|---|
| 20 | along with this program; if not, write to the Free Software
|
|---|
| 21 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|---|
| 22 |
|
|---|
| 23 | /* This file can only be compiled on systems which use HP/UX style
|
|---|
| 24 | core files. */
|
|---|
| 25 |
|
|---|
| 26 | #include "bfd.h"
|
|---|
| 27 | #include "sysdep.h"
|
|---|
| 28 | #include "libbfd.h"
|
|---|
| 29 |
|
|---|
| 30 | #if defined (HOST_HPPAHPUX) || defined (HOST_HP300HPUX) || defined (HOST_HPPAMPEIX)
|
|---|
| 31 |
|
|---|
| 32 | /* FIXME: sys/core.h doesn't exist for HPUX version 7. HPUX version
|
|---|
| 33 | 5, 6, and 7 core files seem to be standard trad-core.c type core
|
|---|
| 34 | files; can we just use trad-core.c in addition to this file? */
|
|---|
| 35 |
|
|---|
| 36 | #include <sys/core.h>
|
|---|
| 37 | #include <sys/utsname.h>
|
|---|
| 38 |
|
|---|
| 39 | #endif /* HOST_HPPAHPUX */
|
|---|
| 40 |
|
|---|
| 41 | #ifdef HOST_HPPABSD
|
|---|
| 42 |
|
|---|
| 43 | /* Not a very swift place to put it, but that's where the BSD port
|
|---|
| 44 | puts them. */
|
|---|
| 45 | #include "/hpux/usr/include/sys/core.h"
|
|---|
| 46 |
|
|---|
| 47 | #endif /* HOST_HPPABSD */
|
|---|
| 48 |
|
|---|
| 49 | #include <sys/param.h>
|
|---|
| 50 | #ifdef HAVE_DIRENT_H
|
|---|
| 51 | # include <dirent.h>
|
|---|
| 52 | #else
|
|---|
| 53 | # ifdef HAVE_SYS_NDIR_H
|
|---|
| 54 | # include <sys/ndir.h>
|
|---|
| 55 | # endif
|
|---|
| 56 | # ifdef HAVE_SYS_DIR_H
|
|---|
| 57 | # include <sys/dir.h>
|
|---|
| 58 | # endif
|
|---|
| 59 | # ifdef HAVE_NDIR_H
|
|---|
| 60 | # include <ndir.h>
|
|---|
| 61 | # endif
|
|---|
| 62 | #endif
|
|---|
| 63 | #include <signal.h>
|
|---|
| 64 | #include <machine/reg.h>
|
|---|
| 65 | #include <sys/user.h> /* After a.out.h */
|
|---|
| 66 | #include <sys/file.h>
|
|---|
| 67 |
|
|---|
| 68 | /* Kludge: There's no explicit mechanism provided by sys/core.h to
|
|---|
| 69 | conditionally know whether a proc_info has thread id fields.
|
|---|
| 70 | However, CORE_ANON_SHMEM shows up first at 10.30, which is
|
|---|
| 71 | happily also when meaningful thread id's show up in proc_info. */
|
|---|
| 72 | #if defined(CORE_ANON_SHMEM)
|
|---|
| 73 | #define PROC_INFO_HAS_THREAD_ID (1)
|
|---|
| 74 | #endif
|
|---|
| 75 |
|
|---|
| 76 | /* This type appears at HP-UX 10.30. Defining it if not defined
|
|---|
| 77 | by sys/core.h allows us to build for older HP-UX's, and (since
|
|---|
| 78 | it won't be encountered in core-dumps from older HP-UX's) is
|
|---|
| 79 | harmless. */
|
|---|
| 80 | #if !defined(CORE_ANON_SHMEM)
|
|---|
| 81 | #define CORE_ANON_SHMEM 0x00000200 /* anonymous shared memory */
|
|---|
| 82 | #endif
|
|---|
| 83 |
|
|---|
| 84 | /* These are stored in the bfd's tdata */
|
|---|
| 85 |
|
|---|
| 86 | /* .lwpid and .user_tid are only valid if PROC_INFO_HAS_THREAD_ID, else they
|
|---|
| 87 | are set to 0. Also, until HP-UX implements MxN threads, .user_tid and
|
|---|
| 88 | .lwpid are synonymous. */
|
|---|
| 89 | struct hpux_core_struct
|
|---|
| 90 | {
|
|---|
| 91 | int sig;
|
|---|
| 92 | int lwpid; /* Kernel thread ID. */
|
|---|
| 93 | unsigned long user_tid; /* User thread ID. */
|
|---|
| 94 | char cmd[MAXCOMLEN + 1];
|
|---|
| 95 | };
|
|---|
| 96 |
|
|---|
| 97 | #define core_hdr(bfd) ((bfd)->tdata.hpux_core_data)
|
|---|
| 98 | #define core_signal(bfd) (core_hdr(bfd)->sig)
|
|---|
| 99 | #define core_command(bfd) (core_hdr(bfd)->cmd)
|
|---|
| 100 | #define core_kernel_thread_id(bfd) (core_hdr(bfd)->lwpid)
|
|---|
| 101 | #define core_user_thread_id(bfd) (core_hdr(bfd)->user_tid)
|
|---|
| 102 |
|
|---|
| 103 | static void swap_abort PARAMS ((void));
|
|---|
| 104 |
|
|---|
| 105 | static asection *
|
|---|
| 106 | make_bfd_asection (abfd, name, flags, _raw_size, vma, alignment_power)
|
|---|
| 107 | bfd *abfd;
|
|---|
| 108 | CONST char *name;
|
|---|
| 109 | flagword flags;
|
|---|
| 110 | bfd_size_type _raw_size;
|
|---|
| 111 | bfd_vma vma;
|
|---|
| 112 | unsigned int alignment_power;
|
|---|
| 113 | {
|
|---|
| 114 | asection *asect;
|
|---|
| 115 | char *newname;
|
|---|
| 116 |
|
|---|
| 117 | newname = bfd_alloc (abfd, strlen (name) + 1);
|
|---|
| 118 | if (!newname)
|
|---|
| 119 | return NULL;
|
|---|
| 120 |
|
|---|
| 121 | strcpy (newname, name);
|
|---|
| 122 |
|
|---|
| 123 | asect = bfd_make_section_anyway (abfd, newname);
|
|---|
| 124 | if (!asect)
|
|---|
| 125 | return NULL;
|
|---|
| 126 |
|
|---|
| 127 | asect->flags = flags;
|
|---|
| 128 | asect->_raw_size = _raw_size;
|
|---|
| 129 | asect->vma = vma;
|
|---|
| 130 | asect->filepos = bfd_tell (abfd);
|
|---|
| 131 | asect->alignment_power = alignment_power;
|
|---|
| 132 |
|
|---|
| 133 | return asect;
|
|---|
| 134 | }
|
|---|
| 135 |
|
|---|
| 136 | static asymbol *
|
|---|
| 137 | hpux_core_make_empty_symbol (abfd)
|
|---|
| 138 | bfd *abfd;
|
|---|
| 139 | {
|
|---|
| 140 | asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol));
|
|---|
| 141 | if (new)
|
|---|
| 142 | new->the_bfd = abfd;
|
|---|
| 143 | return new;
|
|---|
| 144 | }
|
|---|
| 145 |
|
|---|
| 146 | /* this function builds a bfd target if the file is a corefile.
|
|---|
| 147 | It returns null or 0 if it finds out thaat it is not a core file.
|
|---|
| 148 | The way it checks this is by looking for allowed 'type' field values.
|
|---|
| 149 | These are declared in sys/core.h
|
|---|
| 150 | There are some values which are 'reserved for future use'. In particular
|
|---|
| 151 | CORE_NONE is actually defined as 0. This may be a catch-all for cases
|
|---|
| 152 | in which the core file is generated by some non-hpux application.
|
|---|
| 153 | (I am just guessing here!)
|
|---|
| 154 | */
|
|---|
| 155 | static const bfd_target *
|
|---|
| 156 | hpux_core_core_file_p (abfd)
|
|---|
| 157 | bfd *abfd;
|
|---|
| 158 | {
|
|---|
| 159 | int good_sections = 0;
|
|---|
| 160 | int unknown_sections = 0;
|
|---|
| 161 |
|
|---|
| 162 | core_hdr (abfd) = (struct hpux_core_struct *)
|
|---|
| 163 | bfd_zalloc (abfd, sizeof (struct hpux_core_struct));
|
|---|
| 164 | if (!core_hdr (abfd))
|
|---|
| 165 | return NULL;
|
|---|
| 166 |
|
|---|
| 167 | while (1)
|
|---|
| 168 | {
|
|---|
| 169 | int val;
|
|---|
| 170 | struct corehead core_header;
|
|---|
| 171 |
|
|---|
| 172 | val = bfd_read ((void *) &core_header, 1, sizeof core_header, abfd);
|
|---|
| 173 | if (val <= 0)
|
|---|
| 174 | break;
|
|---|
| 175 | switch (core_header.type)
|
|---|
| 176 | {
|
|---|
| 177 | case CORE_KERNEL:
|
|---|
| 178 | case CORE_FORMAT:
|
|---|
| 179 | bfd_seek (abfd, core_header.len, SEEK_CUR); /* Just skip this */
|
|---|
| 180 | good_sections++;
|
|---|
| 181 | break;
|
|---|
| 182 | case CORE_EXEC:
|
|---|
| 183 | {
|
|---|
| 184 | struct proc_exec proc_exec;
|
|---|
| 185 | if (bfd_read ((void *) &proc_exec, 1, core_header.len, abfd)
|
|---|
| 186 | != core_header.len)
|
|---|
| 187 | break;
|
|---|
| 188 | strncpy (core_command (abfd), proc_exec.cmd, MAXCOMLEN + 1);
|
|---|
| 189 | good_sections++;
|
|---|
| 190 | }
|
|---|
| 191 | break;
|
|---|
| 192 | case CORE_PROC:
|
|---|
| 193 | {
|
|---|
| 194 | struct proc_info proc_info;
|
|---|
| 195 | char secname[100]; /* Of arbitrary size, but plenty large. */
|
|---|
| 196 |
|
|---|
| 197 | /* We need to read this section, 'cause we need to determine
|
|---|
| 198 | whether the core-dumped app was threaded before we create
|
|---|
| 199 | any .reg sections. */
|
|---|
| 200 | if (bfd_read (&proc_info, 1, core_header.len, abfd)
|
|---|
| 201 | != core_header.len)
|
|---|
| 202 | break;
|
|---|
| 203 |
|
|---|
| 204 | /* However, we also want to create those sections with the
|
|---|
| 205 | file positioned at the start of the record, it seems. */
|
|---|
| 206 | if (bfd_seek (abfd, -core_header.len, SEEK_CUR) != 0)
|
|---|
| 207 | break;
|
|---|
| 208 |
|
|---|
| 209 | #if defined(PROC_INFO_HAS_THREAD_ID)
|
|---|
| 210 | core_kernel_thread_id (abfd) = proc_info.lwpid;
|
|---|
| 211 | core_user_thread_id (abfd) = proc_info.user_tid;
|
|---|
| 212 | #else
|
|---|
| 213 | core_kernel_thread_id (abfd) = 0;
|
|---|
| 214 | core_user_thread_id (abfd) = 0;
|
|---|
| 215 | #endif
|
|---|
| 216 | /* If the program was unthreaded, then we'll just create a
|
|---|
| 217 | .reg section.
|
|---|
| 218 |
|
|---|
| 219 | If the program was threaded, then we'll create .reg/XXXXX
|
|---|
| 220 | section for each thread, where XXXXX is a printable
|
|---|
| 221 | representation of the kernel thread id. We'll also
|
|---|
| 222 | create a .reg section for the thread that was running
|
|---|
| 223 | and signalled at the time of the core-dump (i.e., this
|
|---|
| 224 | is effectively an alias, needed to keep GDB happy.)
|
|---|
| 225 |
|
|---|
| 226 | Note that we use `.reg/XXXXX' as opposed to '.regXXXXX'
|
|---|
| 227 | because GDB expects that .reg2 will be the floating-
|
|---|
| 228 | point registers. */
|
|---|
| 229 | if (core_kernel_thread_id (abfd) == 0)
|
|---|
| 230 | {
|
|---|
| 231 | if (!make_bfd_asection (abfd, ".reg",
|
|---|
| 232 | SEC_HAS_CONTENTS,
|
|---|
| 233 | core_header.len,
|
|---|
| 234 | (int) &proc_info - (int) & proc_info.hw_regs,
|
|---|
| 235 | 2))
|
|---|
| 236 | return NULL;
|
|---|
| 237 | }
|
|---|
| 238 | else
|
|---|
| 239 | {
|
|---|
| 240 | /* There are threads. Is this the one that caused the
|
|---|
| 241 | core-dump? We'll claim it was the running thread. */
|
|---|
| 242 | if (proc_info.sig != -1)
|
|---|
| 243 | {
|
|---|
| 244 | if (!make_bfd_asection (abfd, ".reg",
|
|---|
| 245 | SEC_HAS_CONTENTS,
|
|---|
| 246 | core_header.len,
|
|---|
| 247 | (int) &proc_info - (int) & proc_info.hw_regs,
|
|---|
| 248 | 2))
|
|---|
| 249 | return NULL;
|
|---|
| 250 | }
|
|---|
| 251 | /* We always make one of these sections, for every thread. */
|
|---|
| 252 | sprintf (secname, ".reg/%d", core_kernel_thread_id (abfd));
|
|---|
| 253 | if (!make_bfd_asection (abfd, secname,
|
|---|
| 254 | SEC_HAS_CONTENTS,
|
|---|
| 255 | core_header.len,
|
|---|
| 256 | (int) &proc_info - (int) & proc_info.hw_regs,
|
|---|
| 257 | 2))
|
|---|
| 258 | return NULL;
|
|---|
| 259 | }
|
|---|
| 260 | core_signal (abfd) = proc_info.sig;
|
|---|
| 261 | if (bfd_seek (abfd, core_header.len, SEEK_CUR) != 0)
|
|---|
| 262 | break;
|
|---|
| 263 | good_sections++;
|
|---|
| 264 | }
|
|---|
| 265 | break;
|
|---|
| 266 |
|
|---|
| 267 | case CORE_DATA:
|
|---|
| 268 | case CORE_STACK:
|
|---|
| 269 | case CORE_TEXT:
|
|---|
| 270 | case CORE_MMF:
|
|---|
| 271 | case CORE_SHM:
|
|---|
| 272 | case CORE_ANON_SHMEM:
|
|---|
| 273 | if (!make_bfd_asection (abfd, ".data",
|
|---|
| 274 | SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
|
|---|
| 275 | core_header.len, core_header.addr, 2))
|
|---|
| 276 | return NULL;
|
|---|
| 277 |
|
|---|
| 278 | bfd_seek (abfd, core_header.len, SEEK_CUR);
|
|---|
| 279 | good_sections++;
|
|---|
| 280 | break;
|
|---|
| 281 |
|
|---|
| 282 | case CORE_NONE:
|
|---|
| 283 | /* Let's not punt if we encounter a section of unknown
|
|---|
| 284 | type. Rather, let's make a note of it. If we later
|
|---|
| 285 | see that there were also "good" sections, then we'll
|
|---|
| 286 | declare that this a core file, but we'll also warn that
|
|---|
| 287 | it may be incompatible with this gdb.
|
|---|
| 288 | */
|
|---|
| 289 | unknown_sections++;
|
|---|
| 290 | break;
|
|---|
| 291 |
|
|---|
| 292 | default: return 0; /*unrecognized core file type */
|
|---|
| 293 | }
|
|---|
| 294 | }
|
|---|
| 295 |
|
|---|
| 296 | /* OK, we believe you. You're a core file (sure, sure). */
|
|---|
| 297 |
|
|---|
| 298 | /* Were there sections of unknown type? If so, yet there were
|
|---|
| 299 | at least some complete sections of known type, then, issue
|
|---|
| 300 | a warning. Possibly the core file was generated on a version
|
|---|
| 301 | of HP-UX that is incompatible with that for which this gdb was
|
|---|
| 302 | built.
|
|---|
| 303 | */
|
|---|
| 304 | if ((unknown_sections > 0) && (good_sections > 0))
|
|---|
| 305 | (*_bfd_error_handler)
|
|---|
| 306 | ("%s appears to be a core file,\nbut contains unknown sections. It may have been created on an incompatible\nversion of HP-UX. As a result, some information may be unavailable.\n",
|
|---|
| 307 | abfd->filename);
|
|---|
| 308 |
|
|---|
| 309 | return abfd->xvec;
|
|---|
| 310 | }
|
|---|
| 311 |
|
|---|
| 312 | static char *
|
|---|
| 313 | hpux_core_core_file_failing_command (abfd)
|
|---|
| 314 | bfd *abfd;
|
|---|
| 315 | {
|
|---|
| 316 | return core_command (abfd);
|
|---|
| 317 | }
|
|---|
| 318 |
|
|---|
| 319 | /* ARGSUSED */
|
|---|
| 320 | static int
|
|---|
| 321 | hpux_core_core_file_failing_signal (abfd)
|
|---|
| 322 | bfd *abfd;
|
|---|
| 323 | {
|
|---|
| 324 | return core_signal (abfd);
|
|---|
| 325 | }
|
|---|
| 326 |
|
|---|
| 327 | /* ARGSUSED */
|
|---|
| 328 | static boolean
|
|---|
| 329 | hpux_core_core_file_matches_executable_p (core_bfd, exec_bfd)
|
|---|
| 330 | bfd *core_bfd, *exec_bfd;
|
|---|
| 331 | {
|
|---|
| 332 | return true; /* FIXME, We have no way of telling at this point */
|
|---|
| 333 | }
|
|---|
| 334 | |
|---|
| 335 |
|
|---|
| 336 | #define hpux_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
|
|---|
| 337 | #define hpux_core_get_symtab _bfd_nosymbols_get_symtab
|
|---|
| 338 | #define hpux_core_print_symbol _bfd_nosymbols_print_symbol
|
|---|
| 339 | #define hpux_core_get_symbol_info _bfd_nosymbols_get_symbol_info
|
|---|
| 340 | #define hpux_core_bfd_is_local_label_name \
|
|---|
| 341 | _bfd_nosymbols_bfd_is_local_label_name
|
|---|
| 342 | #define hpux_core_get_lineno _bfd_nosymbols_get_lineno
|
|---|
| 343 | #define hpux_core_find_nearest_line _bfd_nosymbols_find_nearest_line
|
|---|
| 344 | #define hpux_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
|
|---|
| 345 | #define hpux_core_read_minisymbols _bfd_nosymbols_read_minisymbols
|
|---|
| 346 | #define hpux_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
|
|---|
| 347 |
|
|---|
| 348 | /* If somebody calls any byte-swapping routines, shoot them. */
|
|---|
| 349 | static void
|
|---|
| 350 | swap_abort()
|
|---|
| 351 | {
|
|---|
| 352 | abort(); /* This way doesn't require any declaration for ANSI to fuck up */
|
|---|
| 353 | }
|
|---|
| 354 | #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
|
|---|
| 355 | #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
|
|---|
| 356 | #define NO_SIGNED_GET \
|
|---|
| 357 | ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
|
|---|
| 358 |
|
|---|
| 359 | const bfd_target hpux_core_vec =
|
|---|
| 360 | {
|
|---|
| 361 | "hpux-core",
|
|---|
| 362 | bfd_target_unknown_flavour,
|
|---|
| 363 | BFD_ENDIAN_BIG, /* target byte order */
|
|---|
| 364 | BFD_ENDIAN_BIG, /* target headers byte order */
|
|---|
| 365 | (HAS_RELOC | EXEC_P | /* object flags */
|
|---|
| 366 | HAS_LINENO | HAS_DEBUG |
|
|---|
| 367 | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
|
|---|
| 368 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
|
|---|
| 369 | 0, /* symbol prefix */
|
|---|
| 370 | ' ', /* ar_pad_char */
|
|---|
| 371 | 16, /* ar_max_namelen */
|
|---|
| 372 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
|
|---|
| 373 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
|
|---|
| 374 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
|
|---|
| 375 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
|
|---|
| 376 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
|
|---|
| 377 | NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
|
|---|
| 378 |
|
|---|
| 379 | { /* bfd_check_format */
|
|---|
| 380 | _bfd_dummy_target, /* unknown format */
|
|---|
| 381 | _bfd_dummy_target, /* object file */
|
|---|
| 382 | _bfd_dummy_target, /* archive */
|
|---|
| 383 | hpux_core_core_file_p /* a core file */
|
|---|
| 384 | },
|
|---|
| 385 | { /* bfd_set_format */
|
|---|
| 386 | bfd_false, bfd_false,
|
|---|
| 387 | bfd_false, bfd_false
|
|---|
| 388 | },
|
|---|
| 389 | { /* bfd_write_contents */
|
|---|
| 390 | bfd_false, bfd_false,
|
|---|
| 391 | bfd_false, bfd_false
|
|---|
| 392 | },
|
|---|
| 393 |
|
|---|
| 394 | BFD_JUMP_TABLE_GENERIC (_bfd_generic),
|
|---|
| 395 | BFD_JUMP_TABLE_COPY (_bfd_generic),
|
|---|
| 396 | BFD_JUMP_TABLE_CORE (hpux_core),
|
|---|
| 397 | BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
|
|---|
| 398 | BFD_JUMP_TABLE_SYMBOLS (hpux_core),
|
|---|
| 399 | BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
|
|---|
| 400 | BFD_JUMP_TABLE_WRITE (_bfd_generic),
|
|---|
| 401 | BFD_JUMP_TABLE_LINK (_bfd_nolink),
|
|---|
| 402 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
|
|---|
| 403 |
|
|---|
| 404 | NULL,
|
|---|
| 405 |
|
|---|
| 406 | (PTR) 0 /* backend_data */
|
|---|
| 407 | };
|
|---|
