1/* ELF core file support for BFD. 2 Copyright 1995, 1996, 1997, 1998, 2000, 2001 3 Free Software Foundation, Inc. 4 5This file is part of BFD, the Binary File Descriptor library. 6 7This program is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2 of the License, or 10(at your option) any later version. 11 12This program is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with this program; if not, write to the Free Software 19Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ 20 21char* 22elf_core_file_failing_command (abfd) 23 bfd *abfd; 24{ 25 return elf_tdata (abfd)->core_command; 26} 27 28int 29elf_core_file_failing_signal (abfd) 30 bfd *abfd; 31{ 32 return elf_tdata (abfd)->core_signal; 33} 34 35boolean 36elf_core_file_matches_executable_p (core_bfd, exec_bfd) 37 bfd *core_bfd; 38 bfd *exec_bfd; 39{ 40 char* corename; 41 42 /* xvecs must match if both are ELF files for the same target. */ 43 44 if (core_bfd->xvec != exec_bfd->xvec) 45 { 46 bfd_set_error (bfd_error_system_call); 47 return false; 48 } 49 50 /* See if the name in the corefile matches the executable name. */ 51 52 corename = elf_tdata (core_bfd)->core_program; 53 if (corename != NULL) 54 { 55 const char* execname = strrchr (exec_bfd->filename, '/'); 56 execname = execname ? execname + 1 : exec_bfd->filename; 57 58 if (strcmp(execname, corename) != 0) 59 return false; 60 } 61 62 return true; 63} 64 65/* Core files are simply standard ELF formatted files that partition 66 the file using the execution view of the file (program header table) 67 rather than the linking view. In fact, there is no section header 68 table in a core file. 69 70 The process status information (including the contents of the general 71 register set) and the floating point register set are stored in a 72 segment of type PT_NOTE. We handcraft a couple of extra bfd sections 73 that allow standard bfd access to the general registers (.reg) and the 74 floating point registers (.reg2). 75 76 */ 77 78const bfd_target * 79elf_core_file_p (abfd) 80 bfd *abfd; 81{ 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 */ 85 unsigned int phindex; 86 struct elf_backend_data *ebd; 87 struct bfd_preserve preserve; 88 struct elf_obj_tdata *new_tdata = NULL; 89 bfd_size_type amt; 90 91 preserve.arch_info = abfd->arch_info; 92 93 /* Read in the ELF header in external format. */ 94 if (bfd_bread ((PTR) &x_ehdr, (bfd_size_type) sizeof (x_ehdr), abfd) 95 != sizeof (x_ehdr)) 96 { 97 if (bfd_get_error () != bfd_error_system_call) 98 bfd_set_error (bfd_error_wrong_format); 99 return NULL; 100 } 101 102 /* Check the magic number. */ 103 if (elf_file_p (&x_ehdr) == false) 104 goto wrong; 105 106 /* FIXME: Check EI_VERSION here ! */ 107 108 /* Check the address size ("class"). */ 109 if (x_ehdr.e_ident[EI_CLASS] != ELFCLASS) 110 goto wrong; 111 112 /* Check the byteorder. */ 113 switch (x_ehdr.e_ident[EI_DATA]) 114 { 115 case ELFDATA2MSB: /* Big-endian */ 116 if (! bfd_big_endian (abfd)) 117 goto wrong; 118 break; 119 case ELFDATA2LSB: /* Little-endian */ 120 if (! bfd_little_endian (abfd)) 121 goto wrong; 122 break; 123 default: 124 goto wrong; 125 } 126 127 /* Give abfd an elf_obj_tdata. */ 128 amt = sizeof (struct elf_obj_tdata); 129 new_tdata = (struct elf_obj_tdata *) bfd_zalloc (abfd, amt); 130 if (new_tdata == NULL) 131 return NULL; 132 preserve.tdata = elf_tdata (abfd); 133 elf_tdata (abfd) = new_tdata; 134 135 /* Clear section information, since there might be a recognized bfd that 136 we now check if we can replace, and we don't want to append to it. */ 137 preserve.sections = abfd->sections; 138 preserve.section_tail = abfd->section_tail; 139 preserve.section_count = abfd->section_count; 140 preserve.section_htab = abfd->section_htab; 141 abfd->sections = NULL; 142 abfd->section_tail = &abfd->sections; 143 abfd->section_count = 0; 144 if (!bfd_hash_table_init (&abfd->section_htab, bfd_section_hash_newfunc)) 145 goto fail; 146 147 /* Swap in the rest of the header, now that we have the byte order. */ 148 i_ehdrp = elf_elfheader (abfd); 149 elf_swap_ehdr_in (abfd, &x_ehdr, i_ehdrp); 150 151#if DEBUG & 1 152 elf_debug_file (i_ehdrp); 153#endif 154 155 ebd = get_elf_backend_data (abfd); 156 157 /* Check that the ELF e_machine field matches what this particular 158 BFD format expects. */ 159 160 if (ebd->elf_machine_code != i_ehdrp->e_machine 161 && (ebd->elf_machine_alt1 == 0 162 || i_ehdrp->e_machine != ebd->elf_machine_alt1) 163 && (ebd->elf_machine_alt2 == 0 164 || i_ehdrp->e_machine != ebd->elf_machine_alt2)) 165 { 166 const bfd_target * const *target_ptr; 167 168 if (ebd->elf_machine_code != EM_NONE) 169 goto wrong; 170 171 /* This is the generic ELF target. Let it match any ELF target 172 for which we do not have a specific backend. */ 173 174 for (target_ptr = bfd_target_vector; *target_ptr != NULL; target_ptr++) 175 { 176 struct elf_backend_data *back; 177 178 if ((*target_ptr)->flavour != bfd_target_elf_flavour) 179 continue; 180 back = (struct elf_backend_data *) (*target_ptr)->backend_data; 181 if (back->elf_machine_code == i_ehdrp->e_machine) 182 { 183 /* target_ptr is an ELF backend which matches this 184 object file, so reject the generic ELF target. */ 185 goto wrong; 186 } 187 } 188 } 189 190 /* If there is no program header, or the type is not a core file, then 191 we are hosed. */ 192 if (i_ehdrp->e_phoff == 0 || i_ehdrp->e_type != ET_CORE) 193 goto wrong; 194 195 /* Does BFD's idea of the phdr size match the size 196 recorded in the file? */ 197 if (i_ehdrp->e_phentsize != sizeof (Elf_External_Phdr)) 198 goto wrong; 199 200 /* Move to the start of the program headers. */ 201 if (bfd_seek (abfd, (file_ptr) i_ehdrp->e_phoff, SEEK_SET) != 0) 202 goto wrong; 203 204 /* Allocate space for the program headers. */ 205 amt = sizeof (*i_phdrp) * i_ehdrp->e_phnum; 206 i_phdrp = (Elf_Internal_Phdr *) bfd_alloc (abfd, amt); 207 if (!i_phdrp) 208 goto fail; 209 210 elf_tdata (abfd)->phdr = i_phdrp; 211 212 /* Read and convert to internal form. */ 213 for (phindex = 0; phindex < i_ehdrp->e_phnum; ++phindex) 214 { 215 Elf_External_Phdr x_phdr; 216 if (bfd_bread ((PTR) &x_phdr, (bfd_size_type) sizeof (x_phdr), abfd) 217 != sizeof (x_phdr)) 218 goto fail; 219 220 elf_swap_phdr_in (abfd, &x_phdr, i_phdrp + phindex); 221 } 222
| 1/* ELF core file support for BFD. 2 Copyright 1995, 1996, 1997, 1998, 2000, 2001 3 Free Software Foundation, Inc. 4 5This file is part of BFD, the Binary File Descriptor library. 6 7This program is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2 of the License, or 10(at your option) any later version. 11 12This program is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with this program; if not, write to the Free Software 19Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ 20 21char* 22elf_core_file_failing_command (abfd) 23 bfd *abfd; 24{ 25 return elf_tdata (abfd)->core_command; 26} 27 28int 29elf_core_file_failing_signal (abfd) 30 bfd *abfd; 31{ 32 return elf_tdata (abfd)->core_signal; 33} 34 35boolean 36elf_core_file_matches_executable_p (core_bfd, exec_bfd) 37 bfd *core_bfd; 38 bfd *exec_bfd; 39{ 40 char* corename; 41 42 /* xvecs must match if both are ELF files for the same target. */ 43 44 if (core_bfd->xvec != exec_bfd->xvec) 45 { 46 bfd_set_error (bfd_error_system_call); 47 return false; 48 } 49 50 /* See if the name in the corefile matches the executable name. */ 51 52 corename = elf_tdata (core_bfd)->core_program; 53 if (corename != NULL) 54 { 55 const char* execname = strrchr (exec_bfd->filename, '/'); 56 execname = execname ? execname + 1 : exec_bfd->filename; 57 58 if (strcmp(execname, corename) != 0) 59 return false; 60 } 61 62 return true; 63} 64 65/* Core files are simply standard ELF formatted files that partition 66 the file using the execution view of the file (program header table) 67 rather than the linking view. In fact, there is no section header 68 table in a core file. 69 70 The process status information (including the contents of the general 71 register set) and the floating point register set are stored in a 72 segment of type PT_NOTE. We handcraft a couple of extra bfd sections 73 that allow standard bfd access to the general registers (.reg) and the 74 floating point registers (.reg2). 75 76 */ 77 78const bfd_target * 79elf_core_file_p (abfd) 80 bfd *abfd; 81{ 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 */ 85 unsigned int phindex; 86 struct elf_backend_data *ebd; 87 struct bfd_preserve preserve; 88 struct elf_obj_tdata *new_tdata = NULL; 89 bfd_size_type amt; 90 91 preserve.arch_info = abfd->arch_info; 92 93 /* Read in the ELF header in external format. */ 94 if (bfd_bread ((PTR) &x_ehdr, (bfd_size_type) sizeof (x_ehdr), abfd) 95 != sizeof (x_ehdr)) 96 { 97 if (bfd_get_error () != bfd_error_system_call) 98 bfd_set_error (bfd_error_wrong_format); 99 return NULL; 100 } 101 102 /* Check the magic number. */ 103 if (elf_file_p (&x_ehdr) == false) 104 goto wrong; 105 106 /* FIXME: Check EI_VERSION here ! */ 107 108 /* Check the address size ("class"). */ 109 if (x_ehdr.e_ident[EI_CLASS] != ELFCLASS) 110 goto wrong; 111 112 /* Check the byteorder. */ 113 switch (x_ehdr.e_ident[EI_DATA]) 114 { 115 case ELFDATA2MSB: /* Big-endian */ 116 if (! bfd_big_endian (abfd)) 117 goto wrong; 118 break; 119 case ELFDATA2LSB: /* Little-endian */ 120 if (! bfd_little_endian (abfd)) 121 goto wrong; 122 break; 123 default: 124 goto wrong; 125 } 126 127 /* Give abfd an elf_obj_tdata. */ 128 amt = sizeof (struct elf_obj_tdata); 129 new_tdata = (struct elf_obj_tdata *) bfd_zalloc (abfd, amt); 130 if (new_tdata == NULL) 131 return NULL; 132 preserve.tdata = elf_tdata (abfd); 133 elf_tdata (abfd) = new_tdata; 134 135 /* Clear section information, since there might be a recognized bfd that 136 we now check if we can replace, and we don't want to append to it. */ 137 preserve.sections = abfd->sections; 138 preserve.section_tail = abfd->section_tail; 139 preserve.section_count = abfd->section_count; 140 preserve.section_htab = abfd->section_htab; 141 abfd->sections = NULL; 142 abfd->section_tail = &abfd->sections; 143 abfd->section_count = 0; 144 if (!bfd_hash_table_init (&abfd->section_htab, bfd_section_hash_newfunc)) 145 goto fail; 146 147 /* Swap in the rest of the header, now that we have the byte order. */ 148 i_ehdrp = elf_elfheader (abfd); 149 elf_swap_ehdr_in (abfd, &x_ehdr, i_ehdrp); 150 151#if DEBUG & 1 152 elf_debug_file (i_ehdrp); 153#endif 154 155 ebd = get_elf_backend_data (abfd); 156 157 /* Check that the ELF e_machine field matches what this particular 158 BFD format expects. */ 159 160 if (ebd->elf_machine_code != i_ehdrp->e_machine 161 && (ebd->elf_machine_alt1 == 0 162 || i_ehdrp->e_machine != ebd->elf_machine_alt1) 163 && (ebd->elf_machine_alt2 == 0 164 || i_ehdrp->e_machine != ebd->elf_machine_alt2)) 165 { 166 const bfd_target * const *target_ptr; 167 168 if (ebd->elf_machine_code != EM_NONE) 169 goto wrong; 170 171 /* This is the generic ELF target. Let it match any ELF target 172 for which we do not have a specific backend. */ 173 174 for (target_ptr = bfd_target_vector; *target_ptr != NULL; target_ptr++) 175 { 176 struct elf_backend_data *back; 177 178 if ((*target_ptr)->flavour != bfd_target_elf_flavour) 179 continue; 180 back = (struct elf_backend_data *) (*target_ptr)->backend_data; 181 if (back->elf_machine_code == i_ehdrp->e_machine) 182 { 183 /* target_ptr is an ELF backend which matches this 184 object file, so reject the generic ELF target. */ 185 goto wrong; 186 } 187 } 188 } 189 190 /* If there is no program header, or the type is not a core file, then 191 we are hosed. */ 192 if (i_ehdrp->e_phoff == 0 || i_ehdrp->e_type != ET_CORE) 193 goto wrong; 194 195 /* Does BFD's idea of the phdr size match the size 196 recorded in the file? */ 197 if (i_ehdrp->e_phentsize != sizeof (Elf_External_Phdr)) 198 goto wrong; 199 200 /* Move to the start of the program headers. */ 201 if (bfd_seek (abfd, (file_ptr) i_ehdrp->e_phoff, SEEK_SET) != 0) 202 goto wrong; 203 204 /* Allocate space for the program headers. */ 205 amt = sizeof (*i_phdrp) * i_ehdrp->e_phnum; 206 i_phdrp = (Elf_Internal_Phdr *) bfd_alloc (abfd, amt); 207 if (!i_phdrp) 208 goto fail; 209 210 elf_tdata (abfd)->phdr = i_phdrp; 211 212 /* Read and convert to internal form. */ 213 for (phindex = 0; phindex < i_ehdrp->e_phnum; ++phindex) 214 { 215 Elf_External_Phdr x_phdr; 216 if (bfd_bread ((PTR) &x_phdr, (bfd_size_type) sizeof (x_phdr), abfd) 217 != sizeof (x_phdr)) 218 goto fail; 219 220 elf_swap_phdr_in (abfd, &x_phdr, i_phdrp + phindex); 221 } 222
|
235 goto fail; 236 } 237 238 /* Save the entry point from the ELF header. */ 239 bfd_get_start_address (abfd) = i_ehdrp->e_entry; 240 241 /* Let the backend double check the format and override global 242 information. */ 243 if (ebd->elf_backend_object_p) 244 { 245 if ((*ebd->elf_backend_object_p) (abfd) == false) 246 goto wrong; 247 } 248 249 bfd_hash_table_free (&preserve.section_htab); 250 return abfd->xvec; 251 252wrong: 253 /* There is way too much undoing of half-known state here. The caller, 254 bfd_check_format_matches, really shouldn't iterate on live bfd's to 255 check match/no-match like it does. We have to rely on that a call to 256 bfd_default_set_arch_mach with the previously known mach, undoes what 257 was done by the first bfd_default_set_arch_mach (with mach 0) here. 258 For this to work, only elf-data and the mach may be changed by the 259 target-specific elf_backend_object_p function. Note that saving the 260 whole bfd here and restoring it would be even worse; the first thing 261 you notice is that the cached bfd file position gets out of sync. */ 262 bfd_set_error (bfd_error_wrong_format); 263 264fail: 265 abfd->arch_info = preserve.arch_info; 266 if (new_tdata != NULL) 267 { 268 /* bfd_release frees all memory more recently bfd_alloc'd than 269 its arg, as well as its arg. */ 270 bfd_release (abfd, new_tdata); 271 elf_tdata (abfd) = preserve.tdata; 272 abfd->section_htab = preserve.section_htab; 273 abfd->sections = preserve.sections; 274 abfd->section_tail = preserve.section_tail; 275 abfd->section_count = preserve.section_count; 276 } 277 return NULL; 278}
| 237 goto fail; 238 } 239 240 /* Save the entry point from the ELF header. */ 241 bfd_get_start_address (abfd) = i_ehdrp->e_entry; 242 243 /* Let the backend double check the format and override global 244 information. */ 245 if (ebd->elf_backend_object_p) 246 { 247 if ((*ebd->elf_backend_object_p) (abfd) == false) 248 goto wrong; 249 } 250 251 bfd_hash_table_free (&preserve.section_htab); 252 return abfd->xvec; 253 254wrong: 255 /* There is way too much undoing of half-known state here. The caller, 256 bfd_check_format_matches, really shouldn't iterate on live bfd's to 257 check match/no-match like it does. We have to rely on that a call to 258 bfd_default_set_arch_mach with the previously known mach, undoes what 259 was done by the first bfd_default_set_arch_mach (with mach 0) here. 260 For this to work, only elf-data and the mach may be changed by the 261 target-specific elf_backend_object_p function. Note that saving the 262 whole bfd here and restoring it would be even worse; the first thing 263 you notice is that the cached bfd file position gets out of sync. */ 264 bfd_set_error (bfd_error_wrong_format); 265 266fail: 267 abfd->arch_info = preserve.arch_info; 268 if (new_tdata != NULL) 269 { 270 /* bfd_release frees all memory more recently bfd_alloc'd than 271 its arg, as well as its arg. */ 272 bfd_release (abfd, new_tdata); 273 elf_tdata (abfd) = preserve.tdata; 274 abfd->section_htab = preserve.section_htab; 275 abfd->sections = preserve.sections; 276 abfd->section_tail = preserve.section_tail; 277 abfd->section_count = preserve.section_count; 278 } 279 return NULL; 280}
|