1 /* IBM RS/6000 native-dependent code for GDB, the GNU debugger.
2 Copyright 1986, 1987, 1989, 1991, 1992, 1994, 1995, 1996, 1997, 1998
3 Free Software Foundation, Inc.
5 This file is part of GDB.
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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
25 #include "xcoffsolib.h"
28 #include "libbfd.h" /* For bfd_cache_lookup (FIXME) */
30 #include "gdb-stabs.h"
32 #include <sys/ptrace.h>
35 #include <sys/param.h>
39 #include <sys/ioctl.h>
50 extern struct vmap * map_vmap PARAMS ((bfd *bf, bfd *arch));
52 extern struct target_ops exec_ops;
55 vmap_exec PARAMS ((void));
58 vmap_ldinfo PARAMS ((struct ld_info *));
61 add_vmap PARAMS ((struct ld_info *));
64 objfile_symbol_add PARAMS ((char *));
67 vmap_symtab PARAMS ((struct vmap *));
70 fetch_core_registers PARAMS ((char *, unsigned int, int, CORE_ADDR));
73 exec_one_dummy_insn PARAMS ((void));
76 fixup_breakpoints PARAMS ((CORE_ADDR low, CORE_ADDR high, CORE_ADDR delta));
78 /* Conversion from gdb-to-system special purpose register numbers.. */
80 static int special_regs[] = {
91 fetch_inferior_registers (regno)
95 extern char registers[];
97 if (regno < 0) { /* for all registers */
99 /* read 32 general purpose registers. */
101 for (ii=0; ii < 32; ++ii)
102 *(int*)®isters[REGISTER_BYTE (ii)] =
103 ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) ii, 0, 0);
105 /* read general purpose floating point registers. */
107 for (ii=0; ii < 32; ++ii)
108 ptrace (PT_READ_FPR, inferior_pid,
109 (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (FP0_REGNUM+ii)],
112 /* read special registers. */
113 for (ii=0; ii <= LAST_UISA_SP_REGNUM-FIRST_UISA_SP_REGNUM; ++ii)
114 *(int*)®isters[REGISTER_BYTE (FIRST_UISA_SP_REGNUM+ii)] =
115 ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) special_regs[ii],
118 registers_fetched ();
122 /* else an individual register is addressed. */
124 else if (regno < FP0_REGNUM) { /* a GPR */
125 *(int*)®isters[REGISTER_BYTE (regno)] =
126 ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0, 0);
128 else if (regno <= FPLAST_REGNUM) { /* a FPR */
129 ptrace (PT_READ_FPR, inferior_pid,
130 (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (regno)],
131 (regno-FP0_REGNUM+FPR0), 0);
133 else if (regno <= LAST_UISA_SP_REGNUM) { /* a special register */
134 *(int*)®isters[REGISTER_BYTE (regno)] =
135 ptrace (PT_READ_GPR, inferior_pid,
136 (PTRACE_ARG3_TYPE) special_regs[regno-FIRST_UISA_SP_REGNUM],
140 fprintf_unfiltered (gdb_stderr,
141 "gdb error: register no %d not implemented.\n",
144 register_valid [regno] = 1;
147 /* Store our register values back into the inferior.
148 If REGNO is -1, do this for all registers.
149 Otherwise, REGNO specifies which register (so we can save time). */
152 store_inferior_registers (regno)
155 extern char registers[];
160 { /* for all registers.. */
163 /* execute one dummy instruction (which is a breakpoint) in inferior
164 process. So give kernel a chance to do internal house keeping.
165 Otherwise the following ptrace(2) calls will mess up user stack
166 since kernel will get confused about the bottom of the stack (%sp) */
168 exec_one_dummy_insn ();
170 /* write general purpose registers first! */
171 for ( ii=GPR0; ii<=GPR31; ++ii)
173 ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) ii,
174 *(int*)®isters[REGISTER_BYTE (ii)], 0);
177 perror ("ptrace write_gpr");
182 /* write floating point registers now. */
183 for ( ii=0; ii < 32; ++ii)
185 ptrace (PT_WRITE_FPR, inferior_pid,
186 (PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (FP0_REGNUM+ii)],
190 perror ("ptrace write_fpr");
195 /* write special registers. */
196 for (ii=0; ii <= LAST_UISA_SP_REGNUM-FIRST_UISA_SP_REGNUM; ++ii)
198 ptrace (PT_WRITE_GPR, inferior_pid,
199 (PTRACE_ARG3_TYPE) special_regs[ii],
200 *(int*)®isters[REGISTER_BYTE (FIRST_UISA_SP_REGNUM+ii)],
204 perror ("ptrace write_gpr");
210 /* else, a specific register number is given... */
212 else if (regno < FP0_REGNUM) /* a GPR */
214 ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) regno,
215 *(int*)®isters[REGISTER_BYTE (regno)], 0);
218 else if (regno <= FPLAST_REGNUM) /* a FPR */
220 ptrace (PT_WRITE_FPR, inferior_pid,
221 (PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (regno)],
222 regno - FP0_REGNUM + FPR0, 0);
225 else if (regno <= LAST_UISA_SP_REGNUM) /* a special register */
227 ptrace (PT_WRITE_GPR, inferior_pid,
228 (PTRACE_ARG3_TYPE) special_regs [regno-FIRST_UISA_SP_REGNUM],
229 *(int*)®isters[REGISTER_BYTE (regno)], 0);
233 fprintf_unfiltered (gdb_stderr,
234 "Gdb error: register no %d not implemented.\n",
239 perror ("ptrace write");
244 /* Execute one dummy breakpoint instruction. This way we give the kernel
245 a chance to do some housekeeping and update inferior's internal data,
249 exec_one_dummy_insn ()
251 #define DUMMY_INSN_ADDR (TEXT_SEGMENT_BASE)+0x200
253 char shadow_contents[BREAKPOINT_MAX]; /* Stash old bkpt addr contents */
257 /* We plant one dummy breakpoint into DUMMY_INSN_ADDR address. We
258 assume that this address will never be executed again by the real
261 target_insert_breakpoint (DUMMY_INSN_ADDR, shadow_contents);
265 /* You might think this could be done with a single ptrace call, and
266 you'd be correct for just about every platform I've ever worked
267 on. However, rs6000-ibm-aix4.1.3 seems to have screwed this up --
268 the inferior never hits the breakpoint (it's also worth noting
269 powerpc-ibm-aix4.1.3 works correctly). */
270 prev_pc = read_pc ();
271 write_pc (DUMMY_INSN_ADDR);
272 ptrace (PT_CONTINUE, inferior_pid, (PTRACE_ARG3_TYPE)1, 0, 0);
275 perror ("pt_continue");
278 pid = wait (&status);
279 } while (pid != inferior_pid);
282 target_remove_breakpoint (DUMMY_INSN_ADDR, shadow_contents);
286 fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
288 unsigned core_reg_size;
290 CORE_ADDR reg_addr; /* Unused in this version */
292 /* fetch GPRs and special registers from the first register section
296 /* copy GPRs first. */
297 memcpy (registers, core_reg_sect, 32 * 4);
299 /* gdb's internal register template and bfd's register section layout
300 should share a common include file. FIXMEmgo */
301 /* then comes special registes. They are supposed to be in the same
302 order in gdb template and bfd `.reg' section. */
303 core_reg_sect += (32 * 4);
304 memcpy (®isters [REGISTER_BYTE (FIRST_UISA_SP_REGNUM)],
306 (LAST_UISA_SP_REGNUM - FIRST_UISA_SP_REGNUM + 1) * 4);
309 /* fetch floating point registers from register section 2 in core bfd. */
311 memcpy (®isters [REGISTER_BYTE (FP0_REGNUM)], core_reg_sect, 32 * 8);
316 "Gdb error: unknown parameter to fetch_core_registers().\n");
319 /* handle symbol translation on vmapping */
323 register struct vmap *vp;
325 register struct objfile *objfile;
326 struct section_offsets *new_offsets;
329 objfile = vp->objfile;
332 /* OK, it's not an objfile we opened ourselves.
333 Currently, that can only happen with the exec file, so
334 relocate the symbols for the symfile. */
335 if (symfile_objfile == NULL)
337 objfile = symfile_objfile;
341 (sizeof (struct section_offsets)
342 + sizeof (new_offsets->offsets) * objfile->num_sections);
344 for (i = 0; i < objfile->num_sections; ++i)
345 ANOFFSET (new_offsets, i) = ANOFFSET (objfile->section_offsets, i);
347 /* The symbols in the object file are linked to the VMA of the section,
348 relocate them VMA relative. */
349 ANOFFSET (new_offsets, SECT_OFF_TEXT) = vp->tstart - vp->tvma;
350 ANOFFSET (new_offsets, SECT_OFF_DATA) = vp->dstart - vp->dvma;
351 ANOFFSET (new_offsets, SECT_OFF_BSS) = vp->dstart - vp->dvma;
353 objfile_relocate (objfile, new_offsets);
356 /* Add symbols for an objfile. */
359 objfile_symbol_add (arg)
362 struct objfile *obj = (struct objfile *) arg;
364 syms_from_objfile (obj, 0, 0, 0);
365 new_symfile_objfile (obj, 0, 0);
369 /* Add a new vmap entry based on ldinfo() information.
371 If ldi->ldinfo_fd is not valid (e.g. this struct ld_info is from a
372 core file), the caller should set it to -1, and we will open the file.
374 Return the vmap new entry. */
378 register struct ld_info *ldi;
381 register char *mem, *objname;
385 /* This ldi structure was allocated using alloca() in
386 xcoff_relocate_symtab(). Now we need to have persistent object
387 and member names, so we should save them. */
389 mem = ldi->ldinfo_filename + strlen (ldi->ldinfo_filename) + 1;
390 mem = savestring (mem, strlen (mem));
391 objname = savestring (ldi->ldinfo_filename, strlen (ldi->ldinfo_filename));
393 if (ldi->ldinfo_fd < 0)
394 /* Note that this opens it once for every member; a possible
395 enhancement would be to only open it once for every object. */
396 abfd = bfd_openr (objname, gnutarget);
398 abfd = bfd_fdopenr (objname, gnutarget, ldi->ldinfo_fd);
400 error ("Could not open `%s' as an executable file: %s",
401 objname, bfd_errmsg (bfd_get_error ()));
403 /* make sure we have an object file */
405 if (bfd_check_format (abfd, bfd_object))
406 vp = map_vmap (abfd, 0);
408 else if (bfd_check_format (abfd, bfd_archive))
411 /* FIXME??? am I tossing BFDs? bfd? */
412 while ((last = bfd_openr_next_archived_file (abfd, last)))
413 if (STREQ (mem, last->filename))
419 /* FIXME -- should be error */
420 warning ("\"%s\": member \"%s\" missing.", abfd->filename, mem);
424 if (!bfd_check_format(last, bfd_object))
426 bfd_close (last); /* XXX??? */
430 vp = map_vmap (last, abfd);
436 error ("\"%s\": not in executable format: %s.",
437 objname, bfd_errmsg (bfd_get_error ()));
440 obj = allocate_objfile (vp->bfd, 0, 0, 0);
443 #ifndef SOLIB_SYMBOLS_MANUAL
444 if (catch_errors (objfile_symbol_add, (char *)obj,
445 "Error while reading shared library symbols:\n",
448 /* Note this is only done if symbol reading was successful. */
456 /* update VMAP info with ldinfo() information
457 Input is ptr to ldinfo() results. */
461 register struct ld_info *ldi;
464 register struct vmap *vp;
465 int got_one, retried;
466 int got_exec_file = 0;
468 /* For each *ldi, see if we have a corresponding *vp.
469 If so, update the mapping, and symbol table.
470 If not, add an entry and symbol table. */
473 char *name = ldi->ldinfo_filename;
474 char *memb = name + strlen(name) + 1;
478 if (fstat (ldi->ldinfo_fd, &ii) < 0)
480 /* The kernel sets ld_info to -1, if the process is still using the
481 object, and the object is removed. Keep the symbol info for the
482 removed object and issue a warning. */
483 warning ("%s (fd=%d) has disappeared, keeping its symbols",
484 name, ldi->ldinfo_fd);
488 for (got_one = 0, vp = vmap; vp; vp = vp->nxt)
490 struct objfile *objfile;
492 /* First try to find a `vp', which is the same as in ldinfo.
493 If not the same, just continue and grep the next `vp'. If same,
494 relocate its tstart, tend, dstart, dend values. If no such `vp'
495 found, get out of this for loop, add this ldi entry as a new vmap
496 (add_vmap) and come back, find its `vp' and so on... */
498 /* The filenames are not always sufficient to match on. */
500 if ((name[0] == '/' && !STREQ(name, vp->name))
501 || (memb[0] && !STREQ(memb, vp->member)))
504 /* See if we are referring to the same file.
505 We have to check objfile->obfd, symfile.c:reread_symbols might
506 have updated the obfd after a change. */
507 objfile = vp->objfile == NULL ? symfile_objfile : vp->objfile;
509 || objfile->obfd == NULL
510 || bfd_stat (objfile->obfd, &vi) < 0)
512 warning ("Unable to stat %s, keeping its symbols", name);
516 if (ii.st_dev != vi.st_dev || ii.st_ino != vi.st_ino)
520 close (ldi->ldinfo_fd);
524 /* Found a corresponding VMAP. Remap! */
526 /* We can assume pointer == CORE_ADDR, this code is native only. */
527 vp->tstart = (CORE_ADDR) ldi->ldinfo_textorg;
528 vp->tend = vp->tstart + ldi->ldinfo_textsize;
529 vp->dstart = (CORE_ADDR) ldi->ldinfo_dataorg;
530 vp->dend = vp->dstart + ldi->ldinfo_datasize;
532 /* The run time loader maps the file header in addition to the text
533 section and returns a pointer to the header in ldinfo_textorg.
534 Adjust the text start address to point to the real start address
535 of the text section. */
536 vp->tstart += vp->toffs;
538 /* The objfile is only NULL for the exec file. */
539 if (vp->objfile == NULL)
542 /* relocate symbol table(s). */
545 /* There may be more, so we don't break out of the loop. */
548 /* if there was no matching *vp, we must perforce create the sucker(s) */
549 if (!got_one && !retried)
555 } while (ldi->ldinfo_next
556 && (ldi = (void *) (ldi->ldinfo_next + (char *) ldi)));
558 /* If we don't find the symfile_objfile anywhere in the ldinfo, it
559 is unlikely that the symbol file is relocated to the proper
560 address. And we might have attached to a process which is
561 running a different copy of the same executable. */
562 if (symfile_objfile != NULL && !got_exec_file)
565 fputs_unfiltered ("Symbol file ", gdb_stderr);
566 fputs_unfiltered (symfile_objfile->name, gdb_stderr);
567 fputs_unfiltered ("\nis not mapped; discarding it.\n\
568 If in fact that file has symbols which the mapped files listed by\n\
569 \"info files\" lack, you can load symbols with the \"symbol-file\" or\n\
570 \"add-symbol-file\" commands (note that you must take care of relocating\n\
571 symbols to the proper address).\n", gdb_stderr);
572 free_objfile (symfile_objfile);
573 symfile_objfile = NULL;
575 breakpoint_re_set ();
578 /* As well as symbol tables, exec_sections need relocation. After
579 the inferior process' termination, there will be a relocated symbol
580 table exist with no corresponding inferior process. At that time, we
581 need to use `exec' bfd, rather than the inferior process's memory space
584 `exec_sections' need to be relocated only once, as long as the exec
585 file remains unchanged.
594 if (execbfd == exec_bfd)
599 if (!vmap || !exec_ops.to_sections)
600 error ("vmap_exec: vmap or exec_ops.to_sections == 0\n");
602 for (i=0; &exec_ops.to_sections[i] < exec_ops.to_sections_end; i++)
604 if (STREQ(".text", exec_ops.to_sections[i].the_bfd_section->name))
606 exec_ops.to_sections[i].addr += vmap->tstart - vmap->tvma;
607 exec_ops.to_sections[i].endaddr += vmap->tstart - vmap->tvma;
609 else if (STREQ(".data", exec_ops.to_sections[i].the_bfd_section->name))
611 exec_ops.to_sections[i].addr += vmap->dstart - vmap->dvma;
612 exec_ops.to_sections[i].endaddr += vmap->dstart - vmap->dvma;
614 else if (STREQ(".bss", exec_ops.to_sections[i].the_bfd_section->name))
616 exec_ops.to_sections[i].addr += vmap->dstart - vmap->dvma;
617 exec_ops.to_sections[i].endaddr += vmap->dstart - vmap->dvma;
622 /* xcoff_relocate_symtab - hook for symbol table relocation.
623 also reads shared libraries.. */
626 xcoff_relocate_symtab (pid)
629 #define MAX_LOAD_SEGS 64 /* maximum number of load segments */
633 ldi = (void *) alloca(MAX_LOAD_SEGS * sizeof (*ldi));
635 /* According to my humble theory, AIX has some timing problems and
636 when the user stack grows, kernel doesn't update stack info in time
637 and ptrace calls step on user stack. That is why we sleep here a little,
638 and give kernel to update its internals. */
643 ptrace (PT_LDINFO, pid, (PTRACE_ARG3_TYPE) ldi,
644 MAX_LOAD_SEGS * sizeof(*ldi), (int *) ldi);
646 perror_with_name ("ptrace ldinfo");
650 /* relocate the exec and core sections as well. */
654 /* Core file stuff. */
656 /* Relocate symtabs and read in shared library info, based on symbols
657 from the core file. */
660 xcoff_relocate_core (target)
661 struct target_ops *target;
663 /* Offset of member MEMBER in a struct of type TYPE. */
665 #define offsetof(TYPE, MEMBER) ((int) &((TYPE *)0)->MEMBER)
668 /* Size of a struct ld_info except for the variable-length filename. */
669 #define LDINFO_SIZE (offsetof (struct ld_info, ldinfo_filename))
673 struct ld_info *ldip;
676 /* Allocated size of buffer. */
677 int buffer_size = LDINFO_SIZE;
678 char *buffer = xmalloc (buffer_size);
679 struct cleanup *old = make_cleanup (free_current_contents, &buffer);
681 /* FIXME, this restriction should not exist. For now, though I'll
682 avoid coredumps with error() pending a real fix. */
685 ("Can't debug a core file without an executable file (on the RS/6000)");
687 ldinfo_sec = bfd_get_section_by_name (core_bfd, ".ldinfo");
688 if (ldinfo_sec == NULL)
691 fprintf_filtered (gdb_stderr, "Couldn't get ldinfo from core file: %s\n",
692 bfd_errmsg (bfd_get_error ()));
701 /* Read in everything but the name. */
702 if (bfd_get_section_contents (core_bfd, ldinfo_sec, buffer,
703 offset, LDINFO_SIZE) == 0)
710 if (i == buffer_size)
713 buffer = xrealloc (buffer, buffer_size);
715 if (bfd_get_section_contents (core_bfd, ldinfo_sec, &buffer[i],
718 if (buffer[i++] == '\0')
720 } while (names_found < 2);
722 ldip = (struct ld_info *) buffer;
724 /* Can't use a file descriptor from the core file; need to open it. */
725 ldip->ldinfo_fd = -1;
727 /* The first ldinfo is for the exec file, allocated elsewhere. */
731 vp = add_vmap (ldip);
733 offset += ldip->ldinfo_next;
735 /* We can assume pointer == CORE_ADDR, this code is native only. */
736 vp->tstart = (CORE_ADDR) ldip->ldinfo_textorg;
737 vp->tend = vp->tstart + ldip->ldinfo_textsize;
738 vp->dstart = (CORE_ADDR) ldip->ldinfo_dataorg;
739 vp->dend = vp->dstart + ldip->ldinfo_datasize;
741 /* The run time loader maps the file header in addition to the text
742 section and returns a pointer to the header in ldinfo_textorg.
743 Adjust the text start address to point to the real start address
744 of the text section. */
745 vp->tstart += vp->toffs;
747 /* Unless this is the exec file,
748 add our sections to the section table for the core target. */
752 struct section_table *stp;
755 /* We must update the to_sections field in the core_ops structure
756 now to avoid dangling pointer dereferences. */
757 update_coreops = core_ops.to_sections == target->to_sections;
759 count = target->to_sections_end - target->to_sections;
761 target->to_sections = (struct section_table *)
762 xrealloc (target->to_sections,
763 sizeof (struct section_table) * count);
764 target->to_sections_end = target->to_sections + count;
766 /* Update the to_sections field in the core_ops structure
770 core_ops.to_sections = target->to_sections;
771 core_ops.to_sections_end = target->to_sections_end;
773 stp = target->to_sections_end - 2;
776 stp->the_bfd_section = bfd_get_section_by_name (stp->bfd, ".text");
777 stp->addr = vp->tstart;
778 stp->endaddr = vp->tend;
782 stp->the_bfd_section = bfd_get_section_by_name (stp->bfd, ".data");
783 stp->addr = vp->dstart;
784 stp->endaddr = vp->dend;
788 } while (ldip->ldinfo_next != 0);
790 breakpoint_re_set ();
797 return (sizeof (struct user));
800 /* Under AIX, we have to pass the correct TOC pointer to a function
801 when calling functions in the inferior.
802 We try to find the relative toc offset of the objfile containing PC
803 and add the current load address of the data segment from the vmap. */
806 find_toc_address (pc)
811 for (vp = vmap; vp; vp = vp->nxt)
813 if (pc >= vp->tstart && pc < vp->tend)
815 /* vp->objfile is only NULL for the exec file. */
816 return vp->dstart + get_toc_offset (vp->objfile == NULL
821 error ("Unable to find TOC entry for pc 0x%x\n", pc);
824 /* Register that we are able to handle rs6000 core file formats. */
826 static struct core_fns rs6000_core_fns =
828 bfd_target_coff_flavour,
829 fetch_core_registers,
834 _initialize_core_rs6000 ()
836 /* Initialize hook in rs6000-tdep.c for determining the TOC address when
837 calling functions in the inferior. */
838 find_toc_address_hook = &find_toc_address;
840 /* For native configurations, where this module is included, inform
841 the xcoffsolib module where it can find the function for symbol table
842 relocation at runtime. */
843 xcoff_relocate_symtab_hook = &xcoff_relocate_symtab;
844 add_core_fns (&rs6000_core_fns);