1 /* ELF core file support for BFD.
2 Copyright 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, 2005, 2007,
3 2008, 2010 Free Software Foundation, Inc.
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 3 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., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
23 elf_core_file_failing_command (bfd
*abfd
)
25 return elf_tdata (abfd
)->core
->command
;
29 elf_core_file_failing_signal (bfd
*abfd
)
31 return elf_tdata (abfd
)->core
->signal
;
35 elf_core_file_pid (bfd
*abfd
)
37 return elf_tdata (abfd
)->core
->pid
;
41 elf_core_file_matches_executable_p (bfd
*core_bfd
, bfd
*exec_bfd
)
45 /* xvecs must match if both are ELF files for the same target. */
47 if (core_bfd
->xvec
!= exec_bfd
->xvec
)
49 bfd_set_error (bfd_error_system_call
);
53 /* See if the name in the corefile matches the executable name. */
54 corename
= elf_tdata (core_bfd
)->core
->program
;
57 const char* execname
= strrchr (exec_bfd
->filename
, '/');
59 execname
= execname
? execname
+ 1 : exec_bfd
->filename
;
61 if (strcmp (execname
, corename
) != 0)
68 /* Core files are simply standard ELF formatted files that partition
69 the file using the execution view of the file (program header table)
70 rather than the linking view. In fact, there is no section header
73 The process status information (including the contents of the general
74 register set) and the floating point register set are stored in a
75 segment of type PT_NOTE. We handcraft a couple of extra bfd sections
76 that allow standard bfd access to the general registers (.reg) and the
77 floating point registers (.reg2). */
80 elf_core_file_p (bfd
*abfd
)
82 Elf_External_Ehdr x_ehdr
; /* Elf file header, external form. */
83 Elf_Internal_Ehdr
*i_ehdrp
; /* Elf file header, internal form. */
84 Elf_Internal_Phdr
*i_phdrp
; /* Elf program header, internal form. */
86 const struct elf_backend_data
*ebd
;
89 /* Read in the ELF header in external format. */
90 if (bfd_bread (&x_ehdr
, sizeof (x_ehdr
), abfd
) != sizeof (x_ehdr
))
92 if (bfd_get_error () != bfd_error_system_call
)
98 /* Check the magic number. */
99 if (! elf_file_p (&x_ehdr
))
102 /* FIXME: Check EI_VERSION here ! */
104 /* Check the address size ("class"). */
105 if (x_ehdr
.e_ident
[EI_CLASS
] != ELFCLASS
)
108 /* Check the byteorder. */
109 switch (x_ehdr
.e_ident
[EI_DATA
])
111 case ELFDATA2MSB
: /* Big-endian. */
112 if (! bfd_big_endian (abfd
))
115 case ELFDATA2LSB
: /* Little-endian. */
116 if (! bfd_little_endian (abfd
))
123 /* Give abfd an elf_obj_tdata. */
124 if (! (*abfd
->xvec
->_bfd_set_format
[bfd_core
]) (abfd
))
127 /* Swap in the rest of the header, now that we have the byte order. */
128 i_ehdrp
= elf_elfheader (abfd
);
129 elf_swap_ehdr_in (abfd
, &x_ehdr
, i_ehdrp
);
132 elf_debug_file (i_ehdrp
);
135 ebd
= get_elf_backend_data (abfd
);
137 /* Check that the ELF e_machine field matches what this particular
138 BFD format expects. */
140 if (ebd
->elf_machine_code
!= i_ehdrp
->e_machine
141 && (ebd
->elf_machine_alt1
== 0
142 || i_ehdrp
->e_machine
!= ebd
->elf_machine_alt1
)
143 && (ebd
->elf_machine_alt2
== 0
144 || i_ehdrp
->e_machine
!= ebd
->elf_machine_alt2
))
146 const bfd_target
* const *target_ptr
;
148 if (ebd
->elf_machine_code
!= EM_NONE
)
151 /* This is the generic ELF target. Let it match any ELF target
152 for which we do not have a specific backend. */
154 for (target_ptr
= bfd_target_vector
; *target_ptr
!= NULL
; target_ptr
++)
156 const struct elf_backend_data
*back
;
158 if ((*target_ptr
)->flavour
!= bfd_target_elf_flavour
)
160 back
= xvec_get_elf_backend_data (*target_ptr
);
161 if (back
->s
->arch_size
!= ARCH_SIZE
)
163 if (back
->elf_machine_code
== i_ehdrp
->e_machine
164 || (back
->elf_machine_alt1
!= 0
165 && i_ehdrp
->e_machine
== back
->elf_machine_alt1
)
166 || (back
->elf_machine_alt2
!= 0
167 && i_ehdrp
->e_machine
== back
->elf_machine_alt2
))
169 /* target_ptr is an ELF backend which matches this
170 object file, so reject the generic ELF target. */
176 /* If there is no program header, or the type is not a core file, then
178 if (i_ehdrp
->e_phoff
== 0 || i_ehdrp
->e_type
!= ET_CORE
)
181 /* Does BFD's idea of the phdr size match the size
182 recorded in the file? */
183 if (i_ehdrp
->e_phentsize
!= sizeof (Elf_External_Phdr
))
186 /* If the program header count is PN_XNUM(0xffff), the actual
187 count is in the first section header. */
188 if (i_ehdrp
->e_shoff
!= 0 && i_ehdrp
->e_phnum
== PN_XNUM
)
190 Elf_External_Shdr x_shdr
;
191 Elf_Internal_Shdr i_shdr
;
192 bfd_signed_vma where
= i_ehdrp
->e_shoff
;
194 if (where
!= (file_ptr
) where
)
197 /* Seek to the section header table in the file. */
198 if (bfd_seek (abfd
, (file_ptr
) where
, SEEK_SET
) != 0)
201 /* Read the first section header at index 0, and convert to internal
203 if (bfd_bread (&x_shdr
, sizeof (x_shdr
), abfd
) != sizeof (x_shdr
))
205 elf_swap_shdr_in (abfd
, &x_shdr
, &i_shdr
);
207 if (i_shdr
.sh_info
!= 0)
209 i_ehdrp
->e_phnum
= i_shdr
.sh_info
;
210 if (i_ehdrp
->e_phnum
!= i_shdr
.sh_info
)
215 /* Sanity check that we can read all of the program headers.
216 It ought to be good enough to just read the last one. */
217 if (i_ehdrp
->e_phnum
> 1)
219 Elf_External_Phdr x_phdr
;
220 Elf_Internal_Phdr i_phdr
;
221 bfd_signed_vma where
;
223 /* Check that we don't have a totally silly number of
225 if (i_ehdrp
->e_phnum
> (unsigned int) -1 / sizeof (x_phdr
)
226 || i_ehdrp
->e_phnum
> (unsigned int) -1 / sizeof (i_phdr
))
229 where
= i_ehdrp
->e_phoff
+ (i_ehdrp
->e_phnum
- 1) * sizeof (x_phdr
);
230 if (where
!= (file_ptr
) where
)
232 if ((bfd_size_type
) where
<= i_ehdrp
->e_phoff
)
235 if (bfd_seek (abfd
, (file_ptr
) where
, SEEK_SET
) != 0)
237 if (bfd_bread (&x_phdr
, sizeof (x_phdr
), abfd
) != sizeof (x_phdr
))
241 /* Move to the start of the program headers. */
242 if (bfd_seek (abfd
, (file_ptr
) i_ehdrp
->e_phoff
, SEEK_SET
) != 0)
245 /* Allocate space for the program headers. */
246 amt
= sizeof (*i_phdrp
) * i_ehdrp
->e_phnum
;
247 i_phdrp
= (Elf_Internal_Phdr
*) bfd_alloc (abfd
, amt
);
251 elf_tdata (abfd
)->phdr
= i_phdrp
;
253 /* Read and convert to internal form. */
254 for (phindex
= 0; phindex
< i_ehdrp
->e_phnum
; ++phindex
)
256 Elf_External_Phdr x_phdr
;
258 if (bfd_bread (&x_phdr
, sizeof (x_phdr
), abfd
) != sizeof (x_phdr
))
261 elf_swap_phdr_in (abfd
, &x_phdr
, i_phdrp
+ phindex
);
264 /* Set the machine architecture. Do this before processing the
265 program headers since we need to know the architecture type
266 when processing the notes of some systems' core files. */
267 if (! bfd_default_set_arch_mach (abfd
, ebd
->arch
, 0)
268 /* It's OK if this fails for the generic target. */
269 && ebd
->elf_machine_code
!= EM_NONE
)
272 /* Let the backend double check the format and override global
273 information. We do this before processing the program headers
274 to allow the correct machine (as opposed to just the default
275 machine) to be set, making it possible for grok_prstatus and
276 grok_psinfo to rely on the mach setting. */
277 if (ebd
->elf_backend_object_p
!= NULL
278 && ! ebd
->elf_backend_object_p (abfd
))
281 /* Process each program header. */
282 for (phindex
= 0; phindex
< i_ehdrp
->e_phnum
; ++phindex
)
283 if (! bfd_section_from_phdr (abfd
, i_phdrp
+ phindex
, (int) phindex
))
286 /* Check for core truncation. */
288 bfd_size_type high
= 0;
290 for (phindex
= 0; phindex
< i_ehdrp
->e_phnum
; ++phindex
)
292 Elf_Internal_Phdr
*p
= i_phdrp
+ phindex
;
295 bfd_size_type current
= p
->p_offset
+ p
->p_filesz
;
300 if (bfd_stat (abfd
, &statbuf
) == 0)
302 if ((bfd_size_type
) statbuf
.st_size
< high
)
304 (*_bfd_error_handler
)
305 (_("Warning: %B is truncated: expected core file "
306 "size >= %lu, found: %lu."),
307 abfd
, (unsigned long) high
, (unsigned long) statbuf
.st_size
);
312 /* Save the entry point from the ELF header. */
313 bfd_get_start_address (abfd
) = i_ehdrp
->e_entry
;
317 bfd_set_error (bfd_error_wrong_format
);
This page took 0.035816 seconds and 4 git commands to generate.