1 /* IBM RS/6000 "XCOFF" back-end for BFD. 2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 3 2001, 2002, 2004 4 Free Software Foundation, Inc. 5 FIXME: Can someone provide a transliteration of this name into ASCII? 6 Using the following chars caused a compiler warning on HIUX (so I replaced 7 them with octal escapes), and isn't useful without an understanding of what 8 character set it is. 9 Written by Metin G. Ozisik, Mimi Ph\373\364ng-Th\345o V\365, 10 and John Gilmore. 11 Archive support from Damon A. Permezel. 12 Contributed by IBM Corporation and Cygnus Support. 13 14 This file is part of BFD, the Binary File Descriptor library. 15 16 This program is free software; you can redistribute it and/or modify 17 it under the terms of the GNU General Public License as published by 18 the Free Software Foundation; either version 2 of the License, or 19 (at your option) any later version. 20 21 This program is distributed in the hope that it will be useful, 22 but WITHOUT ANY WARRANTY; without even the implied warranty of 23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 24 GNU General Public License for more details. 25 26 You should have received a copy of the GNU General Public License 27 along with this program; if not, write to the Free Software 28 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ 29 30 /* This port currently only handles reading object files, except when 31 compiled on an RS/6000 host. -- no archive support, no core files. 32 In all cases, it does not support writing. 33 34 This is in a separate file from coff-rs6000.c, because it includes 35 system include files that conflict with coff/rs6000.h. */ 36 37 /* Internalcoff.h and coffcode.h modify themselves based on this flag. */ 38 #define RS6000COFF_C 1 39 40 /* The AIX 4.1 kernel is obviously compiled with -D_LONG_LONG, so 41 we have to define _LONG_LONG for older versions of gcc to get the 42 proper alignments in the user structure. */ 43 #if defined(_AIX41) && !defined(_LONG_LONG) 44 #define _LONG_LONG 45 #endif 46 47 #include "bfd.h" 48 #include "sysdep.h" 49 #include "libbfd.h" 50 51 #ifdef AIX_CORE 52 53 /* AOUTHDR is defined by the above. We need another defn of it, from the 54 system include files. Punt the old one and get us a new name for the 55 typedef in the system include files. */ 56 #ifdef AOUTHDR 57 #undef AOUTHDR 58 #endif 59 #define AOUTHDR second_AOUTHDR 60 61 #undef SCNHDR 62 63 /* ------------------------------------------------------------------------ */ 64 /* Support for core file stuff.. */ 65 /* ------------------------------------------------------------------------ */ 66 67 #include <sys/user.h> 68 #define __LDINFO_PTRACE32__ /* for __ld_info32 */ 69 #define __LDINFO_PTRACE64__ /* for __ld_info64 */ 70 #include <sys/ldr.h> 71 #include <sys/core.h> 72 #include <sys/systemcfg.h> 73 74 /* Borrowed from <sys/inttypes.h> on recent AIX versions. */ 75 typedef unsigned long ptr_to_uint; 76 77 #define core_hdr(bfd) ((CoreHdr *) bfd->tdata.any) 78 79 /* AIX 4.1 changed the names and locations of a few items in the core file. 80 AIX 4.3 defined an entirely new structure, core_dumpx, but kept support for 81 the previous 4.1 structure, core_dump. 82 83 AIX_CORE_DUMPX_CORE is defined (by configure) on AIX 4.3+, and 84 CORE_VERSION_1 is defined (by AIX core.h) as 2 on AIX 4.3+ and as 1 on AIX 85 4.1 and 4.2. AIX pre-4.1 (aka 3.x) either doesn't define CORE_VERSION_1 86 or else defines it as 0. */ 87 88 #if defined(CORE_VERSION_1) && !CORE_VERSION_1 89 # undef CORE_VERSION_1 90 #endif 91 92 /* The following union and macros allow this module to compile on all AIX 93 versions and to handle both core_dumpx and core_dump on 4.3+. CNEW_*() 94 and COLD_*() macros respectively retrieve core_dumpx and core_dump 95 values. */ 96 97 /* Union of 32-bit and 64-bit versions of ld_info. */ 98 99 typedef union { 100 #ifdef __ld_info32 101 struct __ld_info32 l32; 102 struct __ld_info64 l64; 103 #else 104 struct ld_info l32; 105 struct ld_info l64; 106 #endif 107 } LdInfo; 108 109 /* Union of old and new core dump structures. */ 110 111 typedef union { 112 #ifdef AIX_CORE_DUMPX_CORE 113 struct core_dumpx new; /* new AIX 4.3+ core dump */ 114 #else 115 struct core_dump new; /* for simpler coding */ 116 #endif 117 struct core_dump old; /* old AIX 4.2- core dump, still used on 118 4.3+ with appropriate SMIT config */ 119 } CoreHdr; 120 121 /* Union of old and new vm_info structures. */ 122 123 #ifdef CORE_VERSION_1 124 typedef union { 125 #ifdef AIX_CORE_DUMPX_CORE 126 struct vm_infox new; 127 #else 128 struct vm_info new; 129 #endif 130 struct vm_info old; 131 } VmInfo; 132 #endif 133 134 /* Return whether CoreHdr C is in new or old format. */ 135 136 #ifdef AIX_CORE_DUMPX_CORE 137 # define CORE_NEW(c) (!(c).old.c_entries) 138 #else 139 # define CORE_NEW(c) 0 140 #endif 141 142 /* Return the c_stackorg field from struct core_dumpx C. */ 143 144 #ifdef AIX_CORE_DUMPX_CORE 145 # define CNEW_STACKORG(c) (c).c_stackorg 146 #else 147 # define CNEW_STACKORG(c) 0 148 #endif 149 150 /* Return the offset to the loader region from struct core_dump C. */ 151 152 #ifdef AIX_CORE_DUMPX_CORE 153 # define CNEW_LOADER(c) (c).c_loader 154 #else 155 # define CNEW_LOADER(c) 0 156 #endif 157 158 /* Return the offset to the loader region from struct core_dump C. */ 159 160 #define COLD_LOADER(c) (c).c_tab 161 162 /* Return the c_lsize field from struct core_dumpx C. */ 163 164 #ifdef AIX_CORE_DUMPX_CORE 165 # define CNEW_LSIZE(c) (c).c_lsize 166 #else 167 # define CNEW_LSIZE(c) 0 168 #endif 169 170 /* Return the c_dataorg field from struct core_dumpx C. */ 171 172 #ifdef AIX_CORE_DUMPX_CORE 173 # define CNEW_DATAORG(c) (c).c_dataorg 174 #else 175 # define CNEW_DATAORG(c) 0 176 #endif 177 178 /* Return the c_datasize field from struct core_dumpx C. */ 179 180 #ifdef AIX_CORE_DUMPX_CORE 181 # define CNEW_DATASIZE(c) (c).c_datasize 182 #else 183 # define CNEW_DATASIZE(c) 0 184 #endif 185 186 /* Return the c_impl field from struct core_dumpx C. */ 187 188 #if defined (HAVE_ST_C_IMPL) || defined (AIX_5_CORE) 189 # define CNEW_IMPL(c) (c).c_impl 190 #else 191 # define CNEW_IMPL(c) 0 192 #endif 193 194 /* Return the command string from struct core_dumpx C. */ 195 196 #ifdef AIX_CORE_DUMPX_CORE 197 # define CNEW_COMM(c) (c).c_u.U_proc.pi_comm 198 #else 199 # define CNEW_COMM(c) 0 200 #endif 201 202 /* Return the command string from struct core_dump C. */ 203 204 #ifdef CORE_VERSION_1 205 # define COLD_COMM(c) (c).c_u.U_comm 206 #else 207 # define COLD_COMM(c) (c).c_u.u_comm 208 #endif 209 210 /* Return the struct __context64 pointer from struct core_dumpx C. */ 211 212 #ifdef AIX_CORE_DUMPX_CORE 213 # define CNEW_CONTEXT64(c) (c).c_flt.hctx.r64 214 #else 215 # define CNEW_CONTEXT64(c) c 216 #endif 217 218 /* Return the struct mstsave pointer from struct core_dumpx C. */ 219 220 #ifdef AIX_CORE_DUMPX_CORE 221 # define CNEW_MSTSAVE(c) (c).c_flt.hctx.r32 222 #else 223 # define CNEW_MSTSAVE(c) c 224 #endif 225 226 /* Return the struct mstsave pointer from struct core_dump C. */ 227 228 #ifdef CORE_VERSION_1 229 # define COLD_MSTSAVE(c) (c).c_mst 230 #else 231 # define COLD_MSTSAVE(c) (c).c_u.u_save 232 #endif 233 234 /* Return whether struct core_dumpx is from a 64-bit process. */ 235 236 #ifdef AIX_CORE_DUMPX_CORE 237 # define CNEW_PROC64(c) IS_PROC64(&(c).c_u.U_proc) 238 #else 239 # define CNEW_PROC64(c) 0 240 #endif 241 242 /* Magic end-of-stack addresses for old core dumps. This is _very_ fragile, 243 but I don't see any easy way to get that info right now. */ 244 245 #ifdef CORE_VERSION_1 246 # define COLD_STACKEND 0x2ff23000 247 #else 248 # define COLD_STACKEND 0x2ff80000 249 #endif 250 251 /* Size of the leading portion that old and new core dump structures have in 252 common. */ 253 #define CORE_COMMONSZ ((int) &((struct core_dump *) 0)->c_entries \ 254 + sizeof (((struct core_dump *) 0)->c_entries)) 255 256 /* Define prototypes for certain functions, to avoid a compiler warning 257 saying that they are missing. */ 258 259 const bfd_target * rs6000coff_core_p (bfd *abfd); 260 bfd_boolean rs6000coff_core_file_matches_executable_p (bfd *core_bfd, 261 bfd *exec_bfd); 262 char * rs6000coff_core_file_failing_command (bfd *abfd); 263 int rs6000coff_core_file_failing_signal (bfd *abfd); 264 265 /* Try to read into CORE the header from the core file associated with ABFD. 266 Return success. */ 267 268 static bfd_boolean 269 read_hdr (bfd *abfd, CoreHdr *core) 270 { 271 bfd_size_type size; 272 273 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) 274 return FALSE; 275 276 /* Read the leading portion that old and new core dump structures have in 277 common. */ 278 size = CORE_COMMONSZ; 279 if (bfd_bread (core, size, abfd) != size) 280 return FALSE; 281 282 /* Read the trailing portion of the structure. */ 283 if (CORE_NEW (*core)) 284 size = sizeof (core->new); 285 else 286 size = sizeof (core->old); 287 size -= CORE_COMMONSZ; 288 return bfd_bread ((char *) core + CORE_COMMONSZ, size, abfd) == size; 289 } 290 291 static asection * 292 make_bfd_asection (bfd *abfd, const char *name, flagword flags, 293 bfd_size_type size, bfd_vma vma, file_ptr filepos) 294 { 295 asection *asect; 296 297 asect = bfd_make_section_anyway (abfd, name); 298 if (!asect) 299 return NULL; 300 301 asect->flags = flags; 302 asect->size = size; 303 asect->vma = vma; 304 asect->filepos = filepos; 305 asect->alignment_power = 8; 306 307 return asect; 308 } 309 310 /* Decide if a given bfd represents a `core' file or not. There really is no 311 magic number or anything like, in rs6000coff. */ 312 313 const bfd_target * 314 rs6000coff_core_p (bfd *abfd) 315 { 316 CoreHdr core; 317 struct stat statbuf; 318 bfd_size_type size; 319 char *tmpptr; 320 321 /* Values from new and old core structures. */ 322 int c_flag; 323 file_ptr c_stack, c_regoff, c_loader; 324 bfd_size_type c_size, c_regsize, c_lsize; 325 bfd_vma c_stackend; 326 void *c_regptr; 327 int proc64; 328 329 if (!read_hdr (abfd, &core)) 330 { 331 if (bfd_get_error () != bfd_error_system_call) 332 bfd_set_error (bfd_error_wrong_format); 333 return NULL; 334 } 335 336 /* Copy fields from new or old core structure. */ 337 if (CORE_NEW (core)) 338 { 339 c_flag = core.new.c_flag; 340 c_stack = (file_ptr) core.new.c_stack; 341 c_size = core.new.c_size; 342 c_stackend = CNEW_STACKORG (core.new) + c_size; 343 c_lsize = CNEW_LSIZE (core.new); 344 c_loader = CNEW_LOADER (core.new); 345 proc64 = CNEW_PROC64 (core.new); 346 } 347 else 348 { 349 c_flag = core.old.c_flag; 350 c_stack = (file_ptr) (ptr_to_uint) core.old.c_stack; 351 c_size = core.old.c_size; 352 c_stackend = COLD_STACKEND; 353 c_lsize = 0x7ffffff; 354 c_loader = (file_ptr) (ptr_to_uint) COLD_LOADER (core.old); 355 proc64 = 0; 356 } 357 358 if (proc64) 359 { 360 c_regsize = sizeof (CNEW_CONTEXT64 (core.new)); 361 c_regptr = &CNEW_CONTEXT64 (core.new); 362 } 363 else if (CORE_NEW (core)) 364 { 365 c_regsize = sizeof (CNEW_MSTSAVE (core.new)); 366 c_regptr = &CNEW_MSTSAVE (core.new); 367 } 368 else 369 { 370 c_regsize = sizeof (COLD_MSTSAVE (core.old)); 371 c_regptr = &COLD_MSTSAVE (core.old); 372 } 373 c_regoff = (char *) c_regptr - (char *) &core; 374 375 if (bfd_stat (abfd, &statbuf) < 0) 376 { 377 bfd_set_error (bfd_error_system_call); 378 return NULL; 379 } 380 381 /* If the core file ulimit is too small, the system will first 382 omit the data segment, then omit the stack, then decline to 383 dump core altogether (as far as I know UBLOCK_VALID and LE_VALID 384 are always set) (this is based on experimentation on AIX 3.2). 385 Now, the thing is that GDB users will be surprised 386 if segments just silently don't appear (well, maybe they would 387 think to check "info files", I don't know). 388 389 For the data segment, we have no choice but to keep going if it's 390 not there, since the default behavior is not to dump it (regardless 391 of the ulimit, it's based on SA_FULLDUMP). But for the stack segment, 392 if it's not there, we refuse to have anything to do with this core 393 file. The usefulness of a core dump without a stack segment is pretty 394 limited anyway. */ 395 396 if (!(c_flag & UBLOCK_VALID) 397 || !(c_flag & LE_VALID)) 398 { 399 bfd_set_error (bfd_error_wrong_format); 400 return NULL; 401 } 402 403 if (!(c_flag & USTACK_VALID)) 404 { 405 bfd_set_error (bfd_error_file_truncated); 406 return NULL; 407 } 408 409 /* Don't check the core file size for a full core, AIX 4.1 includes 410 additional shared library sections in a full core. */ 411 if (!(c_flag & (FULL_CORE | CORE_TRUNC))) 412 { 413 /* If the size is wrong, it means we're misinterpreting something. */ 414 if (c_stack + (file_ptr) c_size != statbuf.st_size) 415 { 416 bfd_set_error (bfd_error_wrong_format); 417 return NULL; 418 } 419 } 420 421 /* Sanity check on the c_tab field. */ 422 if (!CORE_NEW (core) && (c_loader < (file_ptr) sizeof core.old || 423 c_loader >= statbuf.st_size || 424 c_loader >= c_stack)) 425 { 426 bfd_set_error (bfd_error_wrong_format); 427 return NULL; 428 } 429 430 /* Issue warning if the core file was truncated during writing. */ 431 if (c_flag & CORE_TRUNC) 432 (*_bfd_error_handler) (_("%s: warning core file truncated"), 433 bfd_get_filename (abfd)); 434 435 /* Allocate core file header. */ 436 size = CORE_NEW (core) ? sizeof (core.new) : sizeof (core.old); 437 tmpptr = (char *) bfd_zalloc (abfd, (bfd_size_type) size); 438 if (!tmpptr) 439 return NULL; 440 441 /* Copy core file header. */ 442 memcpy (tmpptr, &core, size); 443 set_tdata (abfd, tmpptr); 444 445 /* Set architecture. */ 446 if (CORE_NEW (core)) 447 { 448 enum bfd_architecture arch; 449 unsigned long mach; 450 451 switch (CNEW_IMPL (core.new)) 452 { 453 case POWER_RS1: 454 case POWER_RSC: 455 case POWER_RS2: 456 arch = bfd_arch_rs6000; 457 mach = bfd_mach_rs6k; 458 break; 459 default: 460 arch = bfd_arch_powerpc; 461 mach = bfd_mach_ppc; 462 break; 463 } 464 bfd_default_set_arch_mach (abfd, arch, mach); 465 } 466 467 /* .stack section. */ 468 if (!make_bfd_asection (abfd, ".stack", 469 SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS, 470 c_size, c_stackend - c_size, c_stack)) 471 goto fail; 472 473 /* .reg section for all registers. */ 474 if (!make_bfd_asection (abfd, ".reg", 475 SEC_HAS_CONTENTS, 476 c_regsize, (bfd_vma) 0, c_regoff)) 477 goto fail; 478 479 /* .ldinfo section. 480 To actually find out how long this section is in this particular 481 core dump would require going down the whole list of struct ld_info's. 482 See if we can just fake it. */ 483 if (!make_bfd_asection (abfd, ".ldinfo", 484 SEC_HAS_CONTENTS, 485 c_lsize, (bfd_vma) 0, c_loader)) 486 goto fail; 487 488 #ifndef CORE_VERSION_1 489 /* .data section if present. 490 AIX 3 dumps the complete data section and sets FULL_CORE if the 491 ulimit is large enough, otherwise the data section is omitted. 492 AIX 4 sets FULL_CORE even if the core file is truncated, we have 493 to examine core.c_datasize below to find out the actual size of 494 the .data section. */ 495 if (c_flag & FULL_CORE) 496 { 497 if (!make_bfd_asection (abfd, ".data", 498 SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS, 499 (bfd_size_type) core.old.c_u.u_dsize, 500 (bfd_vma) 501 CDATA_ADDR (core.old.c_u.u_dsize), 502 c_stack + c_size)) 503 goto fail; 504 } 505 #endif 506 507 #ifdef CORE_VERSION_1 508 /* AIX 4 adds data sections from loaded objects to the core file, 509 which can be found by examining ldinfo, and anonymously mmapped 510 regions. */ 511 { 512 LdInfo ldinfo; 513 bfd_size_type ldi_datasize; 514 file_ptr ldi_core; 515 uint ldi_next; 516 bfd_vma ldi_dataorg; 517 518 /* Fields from new and old core structures. */ 519 bfd_size_type c_datasize, c_vmregions; 520 file_ptr c_data, c_vmm; 521 522 if (CORE_NEW (core)) 523 { 524 c_datasize = CNEW_DATASIZE (core.new); 525 c_data = (file_ptr) core.new.c_data; 526 c_vmregions = core.new.c_vmregions; 527 c_vmm = (file_ptr) core.new.c_vmm; 528 } 529 else 530 { 531 c_datasize = core.old.c_datasize; 532 c_data = (file_ptr) (ptr_to_uint) core.old.c_data; 533 c_vmregions = core.old.c_vmregions; 534 c_vmm = (file_ptr) (ptr_to_uint) core.old.c_vmm; 535 } 536 537 /* .data section from executable. */ 538 if (c_datasize) 539 { 540 if (!make_bfd_asection (abfd, ".data", 541 SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS, 542 c_datasize, 543 (bfd_vma) CDATA_ADDR (c_datasize), 544 c_data)) 545 goto fail; 546 } 547 548 /* .data sections from loaded objects. */ 549 if (proc64) 550 size = (int) ((LdInfo *) 0)->l64.ldinfo_filename; 551 else 552 size = (int) ((LdInfo *) 0)->l32.ldinfo_filename; 553 554 while (1) 555 { 556 if (bfd_seek (abfd, c_loader, SEEK_SET) != 0) 557 goto fail; 558 if (bfd_bread (&ldinfo, size, abfd) != size) 559 goto fail; 560 561 if (proc64) 562 { 563 ldi_core = ldinfo.l64.ldinfo_core; 564 ldi_datasize = ldinfo.l64.ldinfo_datasize; 565 ldi_dataorg = (bfd_vma) ldinfo.l64.ldinfo_dataorg; 566 ldi_next = ldinfo.l64.ldinfo_next; 567 } 568 else 569 { 570 ldi_core = ldinfo.l32.ldinfo_core; 571 ldi_datasize = ldinfo.l32.ldinfo_datasize; 572 ldi_dataorg = (bfd_vma) (long) ldinfo.l32.ldinfo_dataorg; 573 ldi_next = ldinfo.l32.ldinfo_next; 574 } 575 576 if (ldi_core) 577 if (!make_bfd_asection (abfd, ".data", 578 SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS, 579 ldi_datasize, ldi_dataorg, ldi_core)) 580 goto fail; 581 582 if (ldi_next == 0) 583 break; 584 c_loader += ldi_next; 585 } 586 587 /* .vmdata sections from anonymously mmapped regions. */ 588 if (c_vmregions) 589 { 590 bfd_size_type i; 591 592 if (bfd_seek (abfd, c_vmm, SEEK_SET) != 0) 593 goto fail; 594 595 for (i = 0; i < c_vmregions; i++) 596 { 597 VmInfo vminfo; 598 bfd_size_type vminfo_size; 599 file_ptr vminfo_offset; 600 bfd_vma vminfo_addr; 601 602 size = CORE_NEW (core) ? sizeof (vminfo.new) : sizeof (vminfo.old); 603 if (bfd_bread (&vminfo, size, abfd) != size) 604 goto fail; 605 606 if (CORE_NEW (core)) 607 { 608 vminfo_addr = (bfd_vma) vminfo.new.vminfo_addr; 609 vminfo_size = vminfo.new.vminfo_size; 610 vminfo_offset = vminfo.new.vminfo_offset; 611 } 612 else 613 { 614 vminfo_addr = (bfd_vma) (long) vminfo.old.vminfo_addr; 615 vminfo_size = vminfo.old.vminfo_size; 616 vminfo_offset = vminfo.old.vminfo_offset; 617 } 618 619 if (vminfo_offset) 620 if (!make_bfd_asection (abfd, ".vmdata", 621 SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS, 622 vminfo_size, vminfo_addr, 623 vminfo_offset)) 624 goto fail; 625 } 626 } 627 } 628 #endif 629 630 return abfd->xvec; /* This is garbage for now. */ 631 632 fail: 633 bfd_release (abfd, abfd->tdata.any); 634 abfd->tdata.any = NULL; 635 bfd_section_list_clear (abfd); 636 return NULL; 637 } 638 639 /* Return `TRUE' if given core is from the given executable. */ 640 641 bfd_boolean 642 rs6000coff_core_file_matches_executable_p (bfd *core_bfd, bfd *exec_bfd) 643 { 644 CoreHdr core; 645 bfd_size_type size; 646 char *path, *s; 647 size_t alloc; 648 const char *str1, *str2; 649 bfd_boolean ret; 650 file_ptr c_loader; 651 652 if (!read_hdr (core_bfd, &core)) 653 return FALSE; 654 655 if (CORE_NEW (core)) 656 c_loader = CNEW_LOADER (core.new); 657 else 658 c_loader = (file_ptr) (ptr_to_uint) COLD_LOADER (core.old); 659 660 if (CORE_NEW (core) && CNEW_PROC64 (core.new)) 661 size = (int) ((LdInfo *) 0)->l64.ldinfo_filename; 662 else 663 size = (int) ((LdInfo *) 0)->l32.ldinfo_filename; 664 665 if (bfd_seek (core_bfd, c_loader + size, SEEK_SET) != 0) 666 return FALSE; 667 668 alloc = 100; 669 path = bfd_malloc ((bfd_size_type) alloc); 670 if (path == NULL) 671 return FALSE; 672 s = path; 673 674 while (1) 675 { 676 if (bfd_bread (s, (bfd_size_type) 1, core_bfd) != 1) 677 { 678 free (path); 679 return FALSE; 680 } 681 if (*s == '\0') 682 break; 683 ++s; 684 if (s == path + alloc) 685 { 686 char *n; 687 688 alloc *= 2; 689 n = bfd_realloc (path, (bfd_size_type) alloc); 690 if (n == NULL) 691 { 692 free (path); 693 return FALSE; 694 } 695 s = n + (path - s); 696 path = n; 697 } 698 } 699 700 str1 = strrchr (path, '/'); 701 str2 = strrchr (exec_bfd->filename, '/'); 702 703 /* step over character '/' */ 704 str1 = str1 != NULL ? str1 + 1 : path; 705 str2 = str2 != NULL ? str2 + 1 : exec_bfd->filename; 706 707 if (strcmp (str1, str2) == 0) 708 ret = TRUE; 709 else 710 ret = FALSE; 711 712 free (path); 713 714 return ret; 715 } 716 717 char * 718 rs6000coff_core_file_failing_command (bfd *abfd) 719 { 720 CoreHdr *core = core_hdr (abfd); 721 char *com = CORE_NEW (*core) ? 722 CNEW_COMM (core->new) : COLD_COMM (core->old); 723 724 if (*com) 725 return com; 726 else 727 return 0; 728 } 729 730 int 731 rs6000coff_core_file_failing_signal (bfd *abfd) 732 { 733 CoreHdr *core = core_hdr (abfd); 734 return CORE_NEW (*core) ? core->new.c_signo : core->old.c_signo; 735 } 736 737 #endif /* AIX_CORE */ 738