1999-05-03 09:29:11 +02:00
/* BFD back-end for HP/UX core files.
Copyright 1993 , 94 , 95 , 96 , 97 , 1998 Free Software Foundation , Inc .
Written by Stu Grossman , Cygnus Support .
Converted to back - end form by Ian Lance Taylor , Cygnus SUpport
This file is part of BFD , the Binary File Descriptor library .
This program is free software ; you can redistribute it and / or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation ; either version 2 of the License , or
( at your option ) any later version .
This program is distributed in the hope that it will be useful ,
but WITHOUT ANY WARRANTY ; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the
GNU General Public License for more details .
You should have received a copy of the GNU General Public License
along with this program ; if not , write to the Free Software
Foundation , Inc . , 59 Temple Place - Suite 330 , Boston , MA 02111 - 1307 , USA . */
/* This file can only be compiled on systems which use HP/UX style
core files . */
# include "bfd.h"
# include "sysdep.h"
# include "libbfd.h"
# if defined (HOST_HPPAHPUX) || defined (HOST_HP300HPUX) || defined (HOST_HPPAMPEIX)
/* FIXME: sys/core.h doesn't exist for HPUX version 7. HPUX version
5 , 6 , and 7 core files seem to be standard trad - core . c type core
files ; can we just use trad - core . c in addition to this file ? */
# include <sys/core.h>
# include <sys/utsname.h>
# endif /* HOST_HPPAHPUX */
# ifdef HOST_HPPABSD
/* Not a very swift place to put it, but that's where the BSD port
puts them . */
# include "/hpux/usr/include/sys/core.h"
# endif /* HOST_HPPABSD */
# include <sys/param.h>
# ifdef HAVE_DIRENT_H
# include <dirent.h>
# else
# ifdef HAVE_SYS_NDIR_H
# include <sys / ndir.h>
# endif
# ifdef HAVE_SYS_DIR_H
# include <sys / dir.h>
# endif
# ifdef HAVE_NDIR_H
# include <ndir.h>
# endif
# endif
# include <signal.h>
# include <machine/reg.h>
# include <sys/user.h> /* After a.out.h */
# include <sys/file.h>
/* Kludge: There's no explicit mechanism provided by sys/core.h to
conditionally know whether a proc_info has thread id fields .
However , CORE_ANON_SHMEM shows up first at 10.30 , which is
happily also when meaningful thread id ' s show up in proc_info . */
# if defined(CORE_ANON_SHMEM)
# define PROC_INFO_HAS_THREAD_ID (1)
# endif
/* This type appears at HP-UX 10.30. Defining it if not defined
by sys / core . h allows us to build for older HP - UX ' s , and ( since
it won ' t be encountered in core - dumps from older HP - UX ' s ) is
harmless . */
# if !defined(CORE_ANON_SHMEM)
# define CORE_ANON_SHMEM 0x00000200 /* anonymous shared memory */
# endif
/* These are stored in the bfd's tdata */
/* .lwpid and .user_tid are only valid if PROC_INFO_HAS_THREAD_ID, else they
are set to 0. Also , until HP - UX implements MxN threads , . user_tid and
. lwpid are synonymous . */
struct hpux_core_struct
{
int sig ;
int lwpid ; /* Kernel thread ID. */
unsigned long user_tid ; /* User thread ID. */
char cmd [ MAXCOMLEN + 1 ] ;
} ;
# define core_hdr(bfd) ((bfd)->tdata.hpux_core_data)
# define core_signal(bfd) (core_hdr(bfd)->sig)
# define core_command(bfd) (core_hdr(bfd)->cmd)
# define core_kernel_thread_id(bfd) (core_hdr(bfd)->lwpid)
# define core_user_thread_id(bfd) (core_hdr(bfd)->user_tid)
static void swap_abort PARAMS ( ( void ) ) ;
static asection *
make_bfd_asection ( abfd , name , flags , _raw_size , vma , alignment_power )
bfd * abfd ;
CONST char * name ;
flagword flags ;
bfd_size_type _raw_size ;
bfd_vma vma ;
unsigned int alignment_power ;
{
asection * asect ;
char * newname ;
newname = bfd_alloc ( abfd , strlen ( name ) + 1 ) ;
if ( ! newname )
return NULL ;
strcpy ( newname , name ) ;
asect = bfd_make_section_anyway ( abfd , newname ) ;
if ( ! asect )
return NULL ;
asect - > flags = flags ;
asect - > _raw_size = _raw_size ;
asect - > vma = vma ;
asect - > filepos = bfd_tell ( abfd ) ;
asect - > alignment_power = alignment_power ;
return asect ;
}
static asymbol *
hpux_core_make_empty_symbol ( abfd )
bfd * abfd ;
{
asymbol * new = ( asymbol * ) bfd_zalloc ( abfd , sizeof ( asymbol ) ) ;
if ( new )
new - > the_bfd = abfd ;
return new ;
}
/* this function builds a bfd target if the file is a corefile.
It returns null or 0 if it finds out thaat it is not a core file .
The way it checks this is by looking for allowed ' type ' field values .
These are declared in sys / core . h
There are some values which are ' reserved for future use ' . In particular
CORE_NONE is actually defined as 0. This may be a catch - all for cases
in which the core file is generated by some non - hpux application .
( I am just guessing here ! )
*/
static const bfd_target *
hpux_core_core_file_p ( abfd )
bfd * abfd ;
{
int good_sections = 0 ;
int unknown_sections = 0 ;
core_hdr ( abfd ) = ( struct hpux_core_struct * )
bfd_zalloc ( abfd , sizeof ( struct hpux_core_struct ) ) ;
if ( ! core_hdr ( abfd ) )
return NULL ;
while ( 1 )
{
int val ;
struct corehead core_header ;
val = bfd_read ( ( void * ) & core_header , 1 , sizeof core_header , abfd ) ;
if ( val < = 0 )
break ;
switch ( core_header . type )
{
case CORE_KERNEL :
case CORE_FORMAT :
bfd_seek ( abfd , core_header . len , SEEK_CUR ) ; /* Just skip this */
good_sections + + ;
break ;
case CORE_EXEC :
{
struct proc_exec proc_exec ;
if ( bfd_read ( ( void * ) & proc_exec , 1 , core_header . len , abfd )
! = core_header . len )
break ;
strncpy ( core_command ( abfd ) , proc_exec . cmd , MAXCOMLEN + 1 ) ;
good_sections + + ;
}
break ;
case CORE_PROC :
{
struct proc_info proc_info ;
char secname [ 100 ] ; /* Of arbitrary size, but plenty large. */
/* We need to read this section, 'cause we need to determine
whether the core - dumped app was threaded before we create
any . reg sections . */
if ( bfd_read ( & proc_info , 1 , core_header . len , abfd )
! = core_header . len )
break ;
/* However, we also want to create those sections with the
file positioned at the start of the record , it seems . */
if ( bfd_seek ( abfd , - core_header . len , SEEK_CUR ) ! = 0 )
break ;
# if defined(PROC_INFO_HAS_THREAD_ID)
core_kernel_thread_id ( abfd ) = proc_info . lwpid ;
core_user_thread_id ( abfd ) = proc_info . user_tid ;
# else
core_kernel_thread_id ( abfd ) = 0 ;
core_user_thread_id ( abfd ) = 0 ;
# endif
/* If the program was unthreaded, then we'll just create a
. reg section .
If the program was threaded , then we ' ll create . reg / XXXXX
section for each thread , where XXXXX is a printable
representation of the kernel thread id . We ' ll also
create a . reg section for the thread that was running
and signalled at the time of the core - dump ( i . e . , this
is effectively an alias , needed to keep GDB happy . )
Note that we use ` . reg / XXXXX ' as opposed to ' . regXXXXX '
because GDB expects that . reg2 will be the floating -
point registers . */
if ( core_kernel_thread_id ( abfd ) = = 0 )
{
if ( ! make_bfd_asection ( abfd , " .reg " ,
SEC_HAS_CONTENTS ,
core_header . len ,
( int ) & proc_info - ( int ) & proc_info . hw_regs ,
2 ) )
return NULL ;
}
else
{
/* There are threads. Is this the one that caused the
core - dump ? We ' ll claim it was the running thread . */
if ( proc_info . sig ! = - 1 )
{
if ( ! make_bfd_asection ( abfd , " .reg " ,
SEC_HAS_CONTENTS ,
core_header . len ,
( int ) & proc_info - ( int ) & proc_info . hw_regs ,
2 ) )
return NULL ;
}
/* We always make one of these sections, for every thread. */
sprintf ( secname , " .reg/%d " , core_kernel_thread_id ( abfd ) ) ;
if ( ! make_bfd_asection ( abfd , secname ,
SEC_HAS_CONTENTS ,
core_header . len ,
( int ) & proc_info - ( int ) & proc_info . hw_regs ,
2 ) )
return NULL ;
}
core_signal ( abfd ) = proc_info . sig ;
if ( bfd_seek ( abfd , core_header . len , SEEK_CUR ) ! = 0 )
break ;
good_sections + + ;
}
break ;
case CORE_DATA :
case CORE_STACK :
case CORE_TEXT :
case CORE_MMF :
case CORE_SHM :
case CORE_ANON_SHMEM :
if ( ! make_bfd_asection ( abfd , " .data " ,
SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS ,
core_header . len , core_header . addr , 2 ) )
return NULL ;
bfd_seek ( abfd , core_header . len , SEEK_CUR ) ;
good_sections + + ;
break ;
case CORE_NONE :
/* Let's not punt if we encounter a section of unknown
type . Rather , let ' s make a note of it . If we later
see that there were also " good " sections , then we ' ll
declare that this a core file , but we ' ll also warn that
it may be incompatible with this gdb .
*/
unknown_sections + + ;
break ;
default : return 0 ; /*unrecognized core file type */
}
}
/* OK, we believe you. You're a core file (sure, sure). */
/* Were there sections of unknown type? If so, yet there were
at least some complete sections of known type , then , issue
a warning . Possibly the core file was generated on a version
of HP - UX that is incompatible with that for which this gdb was
built .
*/
if ( ( unknown_sections > 0 ) & & ( good_sections > 0 ) )
( * _bfd_error_handler )
( " %s appears to be a core file, \n but contains unknown sections. It may have been created on an incompatible \n version of HP-UX. As a result, some information may be unavailable. \n " ,
abfd - > filename ) ;
return abfd - > xvec ;
}
static char *
hpux_core_core_file_failing_command ( abfd )
bfd * abfd ;
{
return core_command ( abfd ) ;
}
/* ARGSUSED */
static int
hpux_core_core_file_failing_signal ( abfd )
bfd * abfd ;
{
return core_signal ( abfd ) ;
}
/* ARGSUSED */
static boolean
hpux_core_core_file_matches_executable_p ( core_bfd , exec_bfd )
bfd * core_bfd , * exec_bfd ;
{
return true ; /* FIXME, We have no way of telling at this point */
}
# define hpux_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
# define hpux_core_get_symtab _bfd_nosymbols_get_symtab
# define hpux_core_print_symbol _bfd_nosymbols_print_symbol
# define hpux_core_get_symbol_info _bfd_nosymbols_get_symbol_info
# define hpux_core_bfd_is_local_label_name \
_bfd_nosymbols_bfd_is_local_label_name
# define hpux_core_get_lineno _bfd_nosymbols_get_lineno
# define hpux_core_find_nearest_line _bfd_nosymbols_find_nearest_line
# define hpux_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
# define hpux_core_read_minisymbols _bfd_nosymbols_read_minisymbols
# define hpux_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
/* If somebody calls any byte-swapping routines, shoot them. */
static void
swap_abort ( )
{
abort ( ) ; /* This way doesn't require any declaration for ANSI to fuck up */
}
# define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort )
# define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
# define NO_SIGNED_GET \
( ( bfd_signed_vma ( * ) PARAMS ( ( const bfd_byte * ) ) ) swap_abort )
const bfd_target hpux_core_vec =
{
" hpux-core " ,
bfd_target_unknown_flavour ,
BFD_ENDIAN_BIG , /* target byte order */
BFD_ENDIAN_BIG , /* target headers byte order */
( HAS_RELOC | EXEC_P | /* object flags */
HAS_LINENO | HAS_DEBUG |
HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED ) ,
( SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC ) , /* section flags */
0 , /* symbol prefix */
' ' , /* ar_pad_char */
16 , /* ar_max_namelen */
NO_GET , NO_SIGNED_GET , NO_PUT , /* 64 bit data */
NO_GET , NO_SIGNED_GET , NO_PUT , /* 32 bit data */
NO_GET , NO_SIGNED_GET , NO_PUT , /* 16 bit data */
NO_GET , NO_SIGNED_GET , NO_PUT , /* 64 bit hdrs */
NO_GET , NO_SIGNED_GET , NO_PUT , /* 32 bit hdrs */
NO_GET , NO_SIGNED_GET , NO_PUT , /* 16 bit hdrs */
{ /* bfd_check_format */
_bfd_dummy_target , /* unknown format */
_bfd_dummy_target , /* object file */
_bfd_dummy_target , /* archive */
hpux_core_core_file_p /* a core file */
} ,
{ /* bfd_set_format */
bfd_false , bfd_false ,
bfd_false , bfd_false
} ,
{ /* bfd_write_contents */
bfd_false , bfd_false ,
bfd_false , bfd_false
} ,
BFD_JUMP_TABLE_GENERIC ( _bfd_generic ) ,
BFD_JUMP_TABLE_COPY ( _bfd_generic ) ,
BFD_JUMP_TABLE_CORE ( hpux_core ) ,
BFD_JUMP_TABLE_ARCHIVE ( _bfd_noarchive ) ,
BFD_JUMP_TABLE_SYMBOLS ( hpux_core ) ,
BFD_JUMP_TABLE_RELOCS ( _bfd_norelocs ) ,
BFD_JUMP_TABLE_WRITE ( _bfd_generic ) ,
BFD_JUMP_TABLE_LINK ( _bfd_nolink ) ,
BFD_JUMP_TABLE_DYNAMIC ( _bfd_nodynamic ) ,
1999-07-19 16:55:16 +02:00
NULL ,
1999-05-03 09:29:11 +02:00
( PTR ) 0 /* backend_data */
} ;