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,
20 Boston, MA 02111-1307, USA. */
26 #include "xcoffsolib.h"
29 #include "libbfd.h" /* For bfd_cache_lookup (FIXME) */
31 #include "gdb-stabs.h"
33 #include <sys/ptrace.h>
36 #include <sys/param.h>
40 #include <sys/ioctl.h>
51 extern struct vmap
*map_vmap (bfd
* bf
, bfd
* arch
);
53 extern struct target_ops exec_ops
;
55 static void vmap_exec (void);
57 static void vmap_ldinfo (struct ld_info
*);
59 static struct vmap
*add_vmap (struct ld_info
*);
61 static int objfile_symbol_add (char *);
63 static void vmap_symtab (struct vmap
*);
65 static void fetch_core_registers (char *, unsigned int, int, CORE_ADDR
);
67 static void exec_one_dummy_insn (void);
70 fixup_breakpoints (CORE_ADDR low
, CORE_ADDR high
, CORE_ADDR delta
);
72 /* Conversion from gdb-to-system special purpose register numbers.. */
74 static int special_regs
[] =
86 fetch_inferior_registers (regno
)
92 { /* for all registers */
94 /* read 32 general purpose registers. */
96 for (ii
= 0; ii
< 32; ++ii
)
97 *(int *) ®isters
[REGISTER_BYTE (ii
)] =
98 ptrace (PT_READ_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) ii
, 0, 0);
100 /* read general purpose floating point registers. */
102 for (ii
= 0; ii
< 32; ++ii
)
103 ptrace (PT_READ_FPR
, inferior_pid
,
104 (PTRACE_ARG3_TYPE
) & registers
[REGISTER_BYTE (FP0_REGNUM
+ ii
)],
107 /* read special registers. */
108 for (ii
= 0; ii
<= LAST_UISA_SP_REGNUM
- FIRST_UISA_SP_REGNUM
; ++ii
)
109 *(int *) ®isters
[REGISTER_BYTE (FIRST_UISA_SP_REGNUM
+ ii
)] =
110 ptrace (PT_READ_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) special_regs
[ii
],
113 registers_fetched ();
117 /* else an individual register is addressed. */
119 else if (regno
< FP0_REGNUM
)
121 *(int *) ®isters
[REGISTER_BYTE (regno
)] =
122 ptrace (PT_READ_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) regno
, 0, 0);
124 else if (regno
<= FPLAST_REGNUM
)
126 ptrace (PT_READ_FPR
, inferior_pid
,
127 (PTRACE_ARG3_TYPE
) & registers
[REGISTER_BYTE (regno
)],
128 (regno
- FP0_REGNUM
+ FPR0
), 0);
130 else if (regno
<= LAST_UISA_SP_REGNUM
)
131 { /* a special register */
132 *(int *) ®isters
[REGISTER_BYTE (regno
)] =
133 ptrace (PT_READ_GPR
, inferior_pid
,
134 (PTRACE_ARG3_TYPE
) special_regs
[regno
- FIRST_UISA_SP_REGNUM
],
138 fprintf_unfiltered (gdb_stderr
,
139 "gdb error: register no %d not implemented.\n",
142 register_valid
[regno
] = 1;
145 /* Store our register values back into the inferior.
146 If REGNO is -1, do this for all registers.
147 Otherwise, REGNO specifies which register (so we can save time). */
150 store_inferior_registers (regno
)
157 { /* for all registers.. */
160 /* execute one dummy instruction (which is a breakpoint) in inferior
161 process. So give kernel a chance to do internal house keeping.
162 Otherwise the following ptrace(2) calls will mess up user stack
163 since kernel will get confused about the bottom of the stack (%sp) */
165 exec_one_dummy_insn ();
167 /* write general purpose registers first! */
168 for (ii
= GPR0
; ii
<= GPR31
; ++ii
)
170 ptrace (PT_WRITE_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) ii
,
171 *(int *) ®isters
[REGISTER_BYTE (ii
)], 0);
174 perror ("ptrace write_gpr");
179 /* write floating point registers now. */
180 for (ii
= 0; ii
< 32; ++ii
)
182 ptrace (PT_WRITE_FPR
, inferior_pid
,
183 (PTRACE_ARG3_TYPE
) & registers
[REGISTER_BYTE (FP0_REGNUM
+ ii
)],
187 perror ("ptrace write_fpr");
192 /* write special registers. */
193 for (ii
= 0; ii
<= LAST_UISA_SP_REGNUM
- FIRST_UISA_SP_REGNUM
; ++ii
)
195 ptrace (PT_WRITE_GPR
, inferior_pid
,
196 (PTRACE_ARG3_TYPE
) special_regs
[ii
],
197 *(int *) ®isters
[REGISTER_BYTE (FIRST_UISA_SP_REGNUM
+ ii
)],
201 perror ("ptrace write_gpr");
207 /* else, a specific register number is given... */
209 else if (regno
< FP0_REGNUM
) /* a GPR */
211 if (regno
== SP_REGNUM
)
212 exec_one_dummy_insn ();
213 ptrace (PT_WRITE_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) regno
,
214 *(int *) ®isters
[REGISTER_BYTE (regno
)], 0);
217 else if (regno
<= FPLAST_REGNUM
) /* a FPR */
219 ptrace (PT_WRITE_FPR
, inferior_pid
,
220 (PTRACE_ARG3_TYPE
) & registers
[REGISTER_BYTE (regno
)],
221 regno
- FP0_REGNUM
+ FPR0
, 0);
224 else if (regno
<= LAST_UISA_SP_REGNUM
) /* a special register */
226 ptrace (PT_WRITE_GPR
, inferior_pid
,
227 (PTRACE_ARG3_TYPE
) special_regs
[regno
- FIRST_UISA_SP_REGNUM
],
228 *(int *) ®isters
[REGISTER_BYTE (regno
)], 0);
231 else if (regno
< NUM_REGS
)
237 fprintf_unfiltered (gdb_stderr
,
238 "Gdb error: register no %d not implemented.\n",
243 perror ("ptrace write");
248 /* Execute one dummy breakpoint instruction. This way we give the kernel
249 a chance to do some housekeeping and update inferior's internal data,
253 exec_one_dummy_insn ()
255 #define DUMMY_INSN_ADDR (TEXT_SEGMENT_BASE)+0x200
257 char shadow_contents
[BREAKPOINT_MAX
]; /* Stash old bkpt addr contents */
261 /* We plant one dummy breakpoint into DUMMY_INSN_ADDR address. We
262 assume that this address will never be executed again by the real
265 target_insert_breakpoint (DUMMY_INSN_ADDR
, shadow_contents
);
269 /* You might think this could be done with a single ptrace call, and
270 you'd be correct for just about every platform I've ever worked
271 on. However, rs6000-ibm-aix4.1.3 seems to have screwed this up --
272 the inferior never hits the breakpoint (it's also worth noting
273 powerpc-ibm-aix4.1.3 works correctly). */
274 prev_pc
= read_pc ();
275 write_pc (DUMMY_INSN_ADDR
);
276 ptrace (PT_CONTINUE
, inferior_pid
, (PTRACE_ARG3_TYPE
) 1, 0, 0);
279 perror ("pt_continue");
283 pid
= wait (&status
);
285 while (pid
!= inferior_pid
);
288 target_remove_breakpoint (DUMMY_INSN_ADDR
, shadow_contents
);
292 fetch_core_registers (core_reg_sect
, core_reg_size
, which
, reg_addr
)
294 unsigned core_reg_size
;
296 CORE_ADDR reg_addr
; /* Unused in this version */
298 /* fetch GPRs and special registers from the first register section
302 /* copy GPRs first. */
303 memcpy (registers
, core_reg_sect
, 32 * 4);
305 /* gdb's internal register template and bfd's register section layout
306 should share a common include file. FIXMEmgo */
307 /* then comes special registes. They are supposed to be in the same
308 order in gdb template and bfd `.reg' section. */
309 core_reg_sect
+= (32 * 4);
310 memcpy (®isters
[REGISTER_BYTE (FIRST_UISA_SP_REGNUM
)],
312 (LAST_UISA_SP_REGNUM
- FIRST_UISA_SP_REGNUM
+ 1) * 4);
315 /* fetch floating point registers from register section 2 in core bfd. */
317 memcpy (®isters
[REGISTER_BYTE (FP0_REGNUM
)], core_reg_sect
, 32 * 8);
322 "Gdb error: unknown parameter to fetch_core_registers().\n");
325 /* handle symbol translation on vmapping */
329 register struct vmap
*vp
;
331 register struct objfile
*objfile
;
332 struct section_offsets
*new_offsets
;
335 objfile
= vp
->objfile
;
338 /* OK, it's not an objfile we opened ourselves.
339 Currently, that can only happen with the exec file, so
340 relocate the symbols for the symfile. */
341 if (symfile_objfile
== NULL
)
343 objfile
= symfile_objfile
;
346 new_offsets
= (struct section_offsets
*) alloca (SIZEOF_SECTION_OFFSETS
);
348 for (i
= 0; i
< objfile
->num_sections
; ++i
)
349 ANOFFSET (new_offsets
, i
) = ANOFFSET (objfile
->section_offsets
, i
);
351 /* The symbols in the object file are linked to the VMA of the section,
352 relocate them VMA relative. */
353 ANOFFSET (new_offsets
, SECT_OFF_TEXT (objfile
)) = vp
->tstart
- vp
->tvma
;
354 ANOFFSET (new_offsets
, SECT_OFF_DATA (objfile
)) = vp
->dstart
- vp
->dvma
;
355 ANOFFSET (new_offsets
, SECT_OFF_BSS (objfile
)) = vp
->dstart
- vp
->dvma
;
357 objfile_relocate (objfile
, new_offsets
);
360 /* Add symbols for an objfile. */
363 objfile_symbol_add (arg
)
366 struct objfile
*obj
= (struct objfile
*) arg
;
368 syms_from_objfile (obj
, NULL
, 0, 0);
369 new_symfile_objfile (obj
, 0, 0);
373 /* Add a new vmap entry based on ldinfo() information.
375 If ldi->ldinfo_fd is not valid (e.g. this struct ld_info is from a
376 core file), the caller should set it to -1, and we will open the file.
378 Return the vmap new entry. */
382 register struct ld_info
*ldi
;
385 register char *mem
, *objname
;
389 /* This ldi structure was allocated using alloca() in
390 xcoff_relocate_symtab(). Now we need to have persistent object
391 and member names, so we should save them. */
393 mem
= ldi
->ldinfo_filename
+ strlen (ldi
->ldinfo_filename
) + 1;
394 mem
= savestring (mem
, strlen (mem
));
395 objname
= savestring (ldi
->ldinfo_filename
, strlen (ldi
->ldinfo_filename
));
397 if (ldi
->ldinfo_fd
< 0)
398 /* Note that this opens it once for every member; a possible
399 enhancement would be to only open it once for every object. */
400 abfd
= bfd_openr (objname
, gnutarget
);
402 abfd
= bfd_fdopenr (objname
, gnutarget
, ldi
->ldinfo_fd
);
404 error ("Could not open `%s' as an executable file: %s",
405 objname
, bfd_errmsg (bfd_get_error ()));
407 /* make sure we have an object file */
409 if (bfd_check_format (abfd
, bfd_object
))
410 vp
= map_vmap (abfd
, 0);
412 else if (bfd_check_format (abfd
, bfd_archive
))
415 /* FIXME??? am I tossing BFDs? bfd? */
416 while ((last
= bfd_openr_next_archived_file (abfd
, last
)))
417 if (STREQ (mem
, last
->filename
))
423 /* FIXME -- should be error */
424 warning ("\"%s\": member \"%s\" missing.", abfd
->filename
, mem
);
428 if (!bfd_check_format (last
, bfd_object
))
430 bfd_close (last
); /* XXX??? */
434 vp
= map_vmap (last
, abfd
);
440 error ("\"%s\": not in executable format: %s.",
441 objname
, bfd_errmsg (bfd_get_error ()));
444 obj
= allocate_objfile (vp
->bfd
, 0);
447 #ifndef SOLIB_SYMBOLS_MANUAL
448 if (catch_errors (objfile_symbol_add
, (char *) obj
,
449 "Error while reading shared library symbols:\n",
452 /* Note this is only done if symbol reading was successful. */
460 /* update VMAP info with ldinfo() information
461 Input is ptr to ldinfo() results. */
465 register struct ld_info
*ldi
;
468 register struct vmap
*vp
;
469 int got_one
, retried
;
470 int got_exec_file
= 0;
472 /* For each *ldi, see if we have a corresponding *vp.
473 If so, update the mapping, and symbol table.
474 If not, add an entry and symbol table. */
478 char *name
= ldi
->ldinfo_filename
;
479 char *memb
= name
+ strlen (name
) + 1;
483 if (fstat (ldi
->ldinfo_fd
, &ii
) < 0)
485 /* The kernel sets ld_info to -1, if the process is still using the
486 object, and the object is removed. Keep the symbol info for the
487 removed object and issue a warning. */
488 warning ("%s (fd=%d) has disappeared, keeping its symbols",
489 name
, ldi
->ldinfo_fd
);
493 for (got_one
= 0, vp
= vmap
; vp
; vp
= vp
->nxt
)
495 struct objfile
*objfile
;
497 /* First try to find a `vp', which is the same as in ldinfo.
498 If not the same, just continue and grep the next `vp'. If same,
499 relocate its tstart, tend, dstart, dend values. If no such `vp'
500 found, get out of this for loop, add this ldi entry as a new vmap
501 (add_vmap) and come back, find its `vp' and so on... */
503 /* The filenames are not always sufficient to match on. */
505 if ((name
[0] == '/' && !STREQ (name
, vp
->name
))
506 || (memb
[0] && !STREQ (memb
, vp
->member
)))
509 /* See if we are referring to the same file.
510 We have to check objfile->obfd, symfile.c:reread_symbols might
511 have updated the obfd after a change. */
512 objfile
= vp
->objfile
== NULL
? symfile_objfile
: vp
->objfile
;
514 || objfile
->obfd
== NULL
515 || bfd_stat (objfile
->obfd
, &vi
) < 0)
517 warning ("Unable to stat %s, keeping its symbols", name
);
521 if (ii
.st_dev
!= vi
.st_dev
|| ii
.st_ino
!= vi
.st_ino
)
525 close (ldi
->ldinfo_fd
);
529 /* Found a corresponding VMAP. Remap! */
531 /* We can assume pointer == CORE_ADDR, this code is native only. */
532 vp
->tstart
= (CORE_ADDR
) ldi
->ldinfo_textorg
;
533 vp
->tend
= vp
->tstart
+ ldi
->ldinfo_textsize
;
534 vp
->dstart
= (CORE_ADDR
) ldi
->ldinfo_dataorg
;
535 vp
->dend
= vp
->dstart
+ ldi
->ldinfo_datasize
;
537 /* The run time loader maps the file header in addition to the text
538 section and returns a pointer to the header in ldinfo_textorg.
539 Adjust the text start address to point to the real start address
540 of the text section. */
541 vp
->tstart
+= vp
->toffs
;
543 /* The objfile is only NULL for the exec file. */
544 if (vp
->objfile
== NULL
)
547 /* relocate symbol table(s). */
550 /* There may be more, so we don't break out of the loop. */
553 /* if there was no matching *vp, we must perforce create the sucker(s) */
554 if (!got_one
&& !retried
)
561 while (ldi
->ldinfo_next
562 && (ldi
= (void *) (ldi
->ldinfo_next
+ (char *) ldi
)));
564 /* If we don't find the symfile_objfile anywhere in the ldinfo, it
565 is unlikely that the symbol file is relocated to the proper
566 address. And we might have attached to a process which is
567 running a different copy of the same executable. */
568 if (symfile_objfile
!= NULL
&& !got_exec_file
)
571 fputs_unfiltered ("Symbol file ", gdb_stderr
);
572 fputs_unfiltered (symfile_objfile
->name
, gdb_stderr
);
573 fputs_unfiltered ("\nis not mapped; discarding it.\n\
574 If in fact that file has symbols which the mapped files listed by\n\
575 \"info files\" lack, you can load symbols with the \"symbol-file\" or\n\
576 \"add-symbol-file\" commands (note that you must take care of relocating\n\
577 symbols to the proper address).\n", gdb_stderr
);
578 free_objfile (symfile_objfile
);
579 symfile_objfile
= NULL
;
581 breakpoint_re_set ();
584 /* As well as symbol tables, exec_sections need relocation. After
585 the inferior process' termination, there will be a relocated symbol
586 table exist with no corresponding inferior process. At that time, we
587 need to use `exec' bfd, rather than the inferior process's memory space
590 `exec_sections' need to be relocated only once, as long as the exec
591 file remains unchanged.
600 if (execbfd
== exec_bfd
)
605 if (!vmap
|| !exec_ops
.to_sections
)
606 error ("vmap_exec: vmap or exec_ops.to_sections == 0\n");
608 for (i
= 0; &exec_ops
.to_sections
[i
] < exec_ops
.to_sections_end
; i
++)
610 if (STREQ (".text", exec_ops
.to_sections
[i
].the_bfd_section
->name
))
612 exec_ops
.to_sections
[i
].addr
+= vmap
->tstart
- vmap
->tvma
;
613 exec_ops
.to_sections
[i
].endaddr
+= vmap
->tstart
- vmap
->tvma
;
615 else if (STREQ (".data", exec_ops
.to_sections
[i
].the_bfd_section
->name
))
617 exec_ops
.to_sections
[i
].addr
+= vmap
->dstart
- vmap
->dvma
;
618 exec_ops
.to_sections
[i
].endaddr
+= vmap
->dstart
- vmap
->dvma
;
620 else if (STREQ (".bss", exec_ops
.to_sections
[i
].the_bfd_section
->name
))
622 exec_ops
.to_sections
[i
].addr
+= vmap
->dstart
- vmap
->dvma
;
623 exec_ops
.to_sections
[i
].endaddr
+= vmap
->dstart
- vmap
->dvma
;
628 /* xcoff_relocate_symtab - hook for symbol table relocation.
629 also reads shared libraries.. */
632 xcoff_relocate_symtab (pid
)
635 int load_segs
= 64; /* number of load segments */
637 struct ld_info
*ldi
= NULL
;
641 ldi
= (void *) xrealloc (ldi
, load_segs
* sizeof (*ldi
));
643 /* According to my humble theory, AIX has some timing problems and
644 when the user stack grows, kernel doesn't update stack info in time
645 and ptrace calls step on user stack. That is why we sleep here a
646 little, and give kernel to update its internals. */
651 rc
= ptrace (PT_LDINFO
, pid
, (PTRACE_ARG3_TYPE
) ldi
,
652 load_segs
* sizeof (*ldi
), (int *) ldi
);
658 perror_with_name ("ptrace ldinfo");
663 vmap_exec (); /* relocate the exec and core sections as well. */
670 /* Core file stuff. */
672 /* Relocate symtabs and read in shared library info, based on symbols
673 from the core file. */
676 xcoff_relocate_core (target
)
677 struct target_ops
*target
;
679 /* Offset of member MEMBER in a struct of type TYPE. */
681 #define offsetof(TYPE, MEMBER) ((int) &((TYPE *)0)->MEMBER)
684 /* Size of a struct ld_info except for the variable-length filename. */
685 #define LDINFO_SIZE (offsetof (struct ld_info, ldinfo_filename))
689 struct ld_info
*ldip
;
692 /* Allocated size of buffer. */
693 int buffer_size
= LDINFO_SIZE
;
694 char *buffer
= xmalloc (buffer_size
);
695 struct cleanup
*old
= make_cleanup (free_current_contents
, &buffer
);
697 /* FIXME, this restriction should not exist. For now, though I'll
698 avoid coredumps with error() pending a real fix. */
701 ("Can't debug a core file without an executable file (on the RS/6000)");
703 ldinfo_sec
= bfd_get_section_by_name (core_bfd
, ".ldinfo");
704 if (ldinfo_sec
== NULL
)
707 fprintf_filtered (gdb_stderr
, "Couldn't get ldinfo from core file: %s\n",
708 bfd_errmsg (bfd_get_error ()));
717 /* Read in everything but the name. */
718 if (bfd_get_section_contents (core_bfd
, ldinfo_sec
, buffer
,
719 offset
, LDINFO_SIZE
) == 0)
726 if (i
== buffer_size
)
729 buffer
= xrealloc (buffer
, buffer_size
);
731 if (bfd_get_section_contents (core_bfd
, ldinfo_sec
, &buffer
[i
],
734 if (buffer
[i
++] == '\0')
737 while (names_found
< 2);
739 ldip
= (struct ld_info
*) buffer
;
741 /* Can't use a file descriptor from the core file; need to open it. */
742 ldip
->ldinfo_fd
= -1;
744 /* The first ldinfo is for the exec file, allocated elsewhere. */
748 vp
= add_vmap (ldip
);
750 offset
+= ldip
->ldinfo_next
;
752 /* We can assume pointer == CORE_ADDR, this code is native only. */
753 vp
->tstart
= (CORE_ADDR
) ldip
->ldinfo_textorg
;
754 vp
->tend
= vp
->tstart
+ ldip
->ldinfo_textsize
;
755 vp
->dstart
= (CORE_ADDR
) ldip
->ldinfo_dataorg
;
756 vp
->dend
= vp
->dstart
+ ldip
->ldinfo_datasize
;
758 /* The run time loader maps the file header in addition to the text
759 section and returns a pointer to the header in ldinfo_textorg.
760 Adjust the text start address to point to the real start address
761 of the text section. */
762 vp
->tstart
+= vp
->toffs
;
764 /* Unless this is the exec file,
765 add our sections to the section table for the core target. */
768 struct section_table
*stp
;
770 target_resize_to_sections (target
, 2);
771 stp
= target
->to_sections_end
- 2;
774 stp
->the_bfd_section
= bfd_get_section_by_name (stp
->bfd
, ".text");
775 stp
->addr
= vp
->tstart
;
776 stp
->endaddr
= vp
->tend
;
780 stp
->the_bfd_section
= bfd_get_section_by_name (stp
->bfd
, ".data");
781 stp
->addr
= vp
->dstart
;
782 stp
->endaddr
= vp
->dend
;
787 while (ldip
->ldinfo_next
!= 0);
789 breakpoint_re_set ();
796 return (sizeof (struct user
));
799 /* Under AIX, we have to pass the correct TOC pointer to a function
800 when calling functions in the inferior.
801 We try to find the relative toc offset of the objfile containing PC
802 and add the current load address of the data segment from the vmap. */
805 find_toc_address (pc
)
810 for (vp
= vmap
; vp
; vp
= vp
->nxt
)
812 if (pc
>= vp
->tstart
&& pc
< vp
->tend
)
814 /* vp->objfile is only NULL for the exec file. */
815 return vp
->dstart
+ get_toc_offset (vp
->objfile
== NULL
820 error ("Unable to find TOC entry for pc 0x%x\n", pc
);
823 /* Register that we are able to handle rs6000 core file formats. */
825 static struct core_fns rs6000_core_fns
=
827 bfd_target_coff_flavour
, /* core_flavour */
828 default_check_format
, /* check_format */
829 default_core_sniffer
, /* core_sniffer */
830 fetch_core_registers
, /* core_read_registers */
835 _initialize_core_rs6000 ()
837 /* Initialize hook in rs6000-tdep.c for determining the TOC address when
838 calling functions in the inferior. */
839 find_toc_address_hook
= &find_toc_address
;
841 /* For native configurations, where this module is included, inform
842 the xcoffsolib module where it can find the function for symbol table
843 relocation at runtime. */
844 xcoff_relocate_symtab_hook
= &xcoff_relocate_symtab
;
845 add_core_fns (&rs6000_core_fns
);