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
)
96 if (regno
< 0) { /* for all registers */
98 /* read 32 general purpose registers. */
100 for (ii
=0; ii
< 32; ++ii
)
101 *(int*)®isters
[REGISTER_BYTE (ii
)] =
102 ptrace (PT_READ_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) ii
, 0, 0);
104 /* read general purpose floating point registers. */
106 for (ii
=0; ii
< 32; ++ii
)
107 ptrace (PT_READ_FPR
, inferior_pid
,
108 (PTRACE_ARG3_TYPE
) ®isters
[REGISTER_BYTE (FP0_REGNUM
+ii
)],
111 /* read special registers. */
112 for (ii
=0; ii
<= LAST_UISA_SP_REGNUM
-FIRST_UISA_SP_REGNUM
; ++ii
)
113 *(int*)®isters
[REGISTER_BYTE (FIRST_UISA_SP_REGNUM
+ii
)] =
114 ptrace (PT_READ_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) special_regs
[ii
],
117 registers_fetched ();
121 /* else an individual register is addressed. */
123 else if (regno
< FP0_REGNUM
) { /* a GPR */
124 *(int*)®isters
[REGISTER_BYTE (regno
)] =
125 ptrace (PT_READ_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) regno
, 0, 0);
127 else if (regno
<= FPLAST_REGNUM
) { /* a FPR */
128 ptrace (PT_READ_FPR
, inferior_pid
,
129 (PTRACE_ARG3_TYPE
) ®isters
[REGISTER_BYTE (regno
)],
130 (regno
-FP0_REGNUM
+FPR0
), 0);
132 else if (regno
<= LAST_UISA_SP_REGNUM
) { /* a special register */
133 *(int*)®isters
[REGISTER_BYTE (regno
)] =
134 ptrace (PT_READ_GPR
, inferior_pid
,
135 (PTRACE_ARG3_TYPE
) special_regs
[regno
-FIRST_UISA_SP_REGNUM
],
139 fprintf_unfiltered (gdb_stderr
,
140 "gdb error: register no %d not implemented.\n",
143 register_valid
[regno
] = 1;
146 /* Store our register values back into the inferior.
147 If REGNO is -1, do this for all registers.
148 Otherwise, REGNO specifies which register (so we can save time). */
151 store_inferior_registers (regno
)
158 { /* for all registers.. */
161 /* execute one dummy instruction (which is a breakpoint) in inferior
162 process. So give kernel a chance to do internal house keeping.
163 Otherwise the following ptrace(2) calls will mess up user stack
164 since kernel will get confused about the bottom of the stack (%sp) */
166 exec_one_dummy_insn ();
168 /* write general purpose registers first! */
169 for ( ii
=GPR0
; ii
<=GPR31
; ++ii
)
171 ptrace (PT_WRITE_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) ii
,
172 *(int*)®isters
[REGISTER_BYTE (ii
)], 0);
175 perror ("ptrace write_gpr");
180 /* write floating point registers now. */
181 for ( ii
=0; ii
< 32; ++ii
)
183 ptrace (PT_WRITE_FPR
, inferior_pid
,
184 (PTRACE_ARG3_TYPE
) ®isters
[REGISTER_BYTE (FP0_REGNUM
+ii
)],
188 perror ("ptrace write_fpr");
193 /* write special registers. */
194 for (ii
=0; ii
<= LAST_UISA_SP_REGNUM
-FIRST_UISA_SP_REGNUM
; ++ii
)
196 ptrace (PT_WRITE_GPR
, inferior_pid
,
197 (PTRACE_ARG3_TYPE
) special_regs
[ii
],
198 *(int*)®isters
[REGISTER_BYTE (FIRST_UISA_SP_REGNUM
+ii
)],
202 perror ("ptrace write_gpr");
208 /* else, a specific register number is given... */
210 else if (regno
< FP0_REGNUM
) /* a GPR */
212 ptrace (PT_WRITE_GPR
, inferior_pid
, (PTRACE_ARG3_TYPE
) regno
,
213 *(int*)®isters
[REGISTER_BYTE (regno
)], 0);
216 else if (regno
<= FPLAST_REGNUM
) /* a FPR */
218 ptrace (PT_WRITE_FPR
, inferior_pid
,
219 (PTRACE_ARG3_TYPE
) ®isters
[REGISTER_BYTE (regno
)],
220 regno
- FP0_REGNUM
+ FPR0
, 0);
223 else if (regno
<= LAST_UISA_SP_REGNUM
) /* a special register */
225 ptrace (PT_WRITE_GPR
, inferior_pid
,
226 (PTRACE_ARG3_TYPE
) special_regs
[regno
-FIRST_UISA_SP_REGNUM
],
227 *(int*)®isters
[REGISTER_BYTE (regno
)], 0);
231 fprintf_unfiltered (gdb_stderr
,
232 "Gdb error: register no %d not implemented.\n",
237 perror ("ptrace write");
242 /* Execute one dummy breakpoint instruction. This way we give the kernel
243 a chance to do some housekeeping and update inferior's internal data,
247 exec_one_dummy_insn ()
249 #define DUMMY_INSN_ADDR (TEXT_SEGMENT_BASE)+0x200
251 char shadow_contents
[BREAKPOINT_MAX
]; /* Stash old bkpt addr contents */
255 /* We plant one dummy breakpoint into DUMMY_INSN_ADDR address. We
256 assume that this address will never be executed again by the real
259 target_insert_breakpoint (DUMMY_INSN_ADDR
, shadow_contents
);
263 /* You might think this could be done with a single ptrace call, and
264 you'd be correct for just about every platform I've ever worked
265 on. However, rs6000-ibm-aix4.1.3 seems to have screwed this up --
266 the inferior never hits the breakpoint (it's also worth noting
267 powerpc-ibm-aix4.1.3 works correctly). */
268 prev_pc
= read_pc ();
269 write_pc (DUMMY_INSN_ADDR
);
270 ptrace (PT_CONTINUE
, inferior_pid
, (PTRACE_ARG3_TYPE
)1, 0, 0);
273 perror ("pt_continue");
276 pid
= wait (&status
);
277 } while (pid
!= inferior_pid
);
280 target_remove_breakpoint (DUMMY_INSN_ADDR
, shadow_contents
);
284 fetch_core_registers (core_reg_sect
, core_reg_size
, which
, reg_addr
)
286 unsigned core_reg_size
;
288 CORE_ADDR reg_addr
; /* Unused in this version */
290 /* fetch GPRs and special registers from the first register section
294 /* copy GPRs first. */
295 memcpy (registers
, core_reg_sect
, 32 * 4);
297 /* gdb's internal register template and bfd's register section layout
298 should share a common include file. FIXMEmgo */
299 /* then comes special registes. They are supposed to be in the same
300 order in gdb template and bfd `.reg' section. */
301 core_reg_sect
+= (32 * 4);
302 memcpy (®isters
[REGISTER_BYTE (FIRST_UISA_SP_REGNUM
)],
304 (LAST_UISA_SP_REGNUM
- FIRST_UISA_SP_REGNUM
+ 1) * 4);
307 /* fetch floating point registers from register section 2 in core bfd. */
309 memcpy (®isters
[REGISTER_BYTE (FP0_REGNUM
)], core_reg_sect
, 32 * 8);
314 "Gdb error: unknown parameter to fetch_core_registers().\n");
317 /* handle symbol translation on vmapping */
321 register struct vmap
*vp
;
323 register struct objfile
*objfile
;
324 struct section_offsets
*new_offsets
;
327 objfile
= vp
->objfile
;
330 /* OK, it's not an objfile we opened ourselves.
331 Currently, that can only happen with the exec file, so
332 relocate the symbols for the symfile. */
333 if (symfile_objfile
== NULL
)
335 objfile
= symfile_objfile
;
339 (sizeof (struct section_offsets
)
340 + sizeof (new_offsets
->offsets
) * objfile
->num_sections
);
342 for (i
= 0; i
< objfile
->num_sections
; ++i
)
343 ANOFFSET (new_offsets
, i
) = ANOFFSET (objfile
->section_offsets
, i
);
345 /* The symbols in the object file are linked to the VMA of the section,
346 relocate them VMA relative. */
347 ANOFFSET (new_offsets
, SECT_OFF_TEXT
) = vp
->tstart
- vp
->tvma
;
348 ANOFFSET (new_offsets
, SECT_OFF_DATA
) = vp
->dstart
- vp
->dvma
;
349 ANOFFSET (new_offsets
, SECT_OFF_BSS
) = vp
->dstart
- vp
->dvma
;
351 objfile_relocate (objfile
, new_offsets
);
354 /* Add symbols for an objfile. */
357 objfile_symbol_add (arg
)
360 struct objfile
*obj
= (struct objfile
*) arg
;
362 syms_from_objfile (obj
, 0, 0, 0);
363 new_symfile_objfile (obj
, 0, 0);
367 /* Add a new vmap entry based on ldinfo() information.
369 If ldi->ldinfo_fd is not valid (e.g. this struct ld_info is from a
370 core file), the caller should set it to -1, and we will open the file.
372 Return the vmap new entry. */
376 register struct ld_info
*ldi
;
379 register char *mem
, *objname
;
383 /* This ldi structure was allocated using alloca() in
384 xcoff_relocate_symtab(). Now we need to have persistent object
385 and member names, so we should save them. */
387 mem
= ldi
->ldinfo_filename
+ strlen (ldi
->ldinfo_filename
) + 1;
388 mem
= savestring (mem
, strlen (mem
));
389 objname
= savestring (ldi
->ldinfo_filename
, strlen (ldi
->ldinfo_filename
));
391 if (ldi
->ldinfo_fd
< 0)
392 /* Note that this opens it once for every member; a possible
393 enhancement would be to only open it once for every object. */
394 abfd
= bfd_openr (objname
, gnutarget
);
396 abfd
= bfd_fdopenr (objname
, gnutarget
, ldi
->ldinfo_fd
);
398 error ("Could not open `%s' as an executable file: %s",
399 objname
, bfd_errmsg (bfd_get_error ()));
401 /* make sure we have an object file */
403 if (bfd_check_format (abfd
, bfd_object
))
404 vp
= map_vmap (abfd
, 0);
406 else if (bfd_check_format (abfd
, bfd_archive
))
409 /* FIXME??? am I tossing BFDs? bfd? */
410 while ((last
= bfd_openr_next_archived_file (abfd
, last
)))
411 if (STREQ (mem
, last
->filename
))
417 /* FIXME -- should be error */
418 warning ("\"%s\": member \"%s\" missing.", abfd
->filename
, mem
);
422 if (!bfd_check_format(last
, bfd_object
))
424 bfd_close (last
); /* XXX??? */
428 vp
= map_vmap (last
, abfd
);
434 error ("\"%s\": not in executable format: %s.",
435 objname
, bfd_errmsg (bfd_get_error ()));
438 obj
= allocate_objfile (vp
->bfd
, 0, 0, 0);
441 #ifndef SOLIB_SYMBOLS_MANUAL
442 if (catch_errors (objfile_symbol_add
, (char *)obj
,
443 "Error while reading shared library symbols:\n",
446 /* Note this is only done if symbol reading was successful. */
454 /* update VMAP info with ldinfo() information
455 Input is ptr to ldinfo() results. */
459 register struct ld_info
*ldi
;
462 register struct vmap
*vp
;
463 int got_one
, retried
;
464 int got_exec_file
= 0;
466 /* For each *ldi, see if we have a corresponding *vp.
467 If so, update the mapping, and symbol table.
468 If not, add an entry and symbol table. */
471 char *name
= ldi
->ldinfo_filename
;
472 char *memb
= name
+ strlen(name
) + 1;
476 if (fstat (ldi
->ldinfo_fd
, &ii
) < 0)
478 /* The kernel sets ld_info to -1, if the process is still using the
479 object, and the object is removed. Keep the symbol info for the
480 removed object and issue a warning. */
481 warning ("%s (fd=%d) has disappeared, keeping its symbols",
482 name
, ldi
->ldinfo_fd
);
486 for (got_one
= 0, vp
= vmap
; vp
; vp
= vp
->nxt
)
488 struct objfile
*objfile
;
490 /* First try to find a `vp', which is the same as in ldinfo.
491 If not the same, just continue and grep the next `vp'. If same,
492 relocate its tstart, tend, dstart, dend values. If no such `vp'
493 found, get out of this for loop, add this ldi entry as a new vmap
494 (add_vmap) and come back, find its `vp' and so on... */
496 /* The filenames are not always sufficient to match on. */
498 if ((name
[0] == '/' && !STREQ(name
, vp
->name
))
499 || (memb
[0] && !STREQ(memb
, vp
->member
)))
502 /* See if we are referring to the same file.
503 We have to check objfile->obfd, symfile.c:reread_symbols might
504 have updated the obfd after a change. */
505 objfile
= vp
->objfile
== NULL
? symfile_objfile
: vp
->objfile
;
507 || objfile
->obfd
== NULL
508 || bfd_stat (objfile
->obfd
, &vi
) < 0)
510 warning ("Unable to stat %s, keeping its symbols", name
);
514 if (ii
.st_dev
!= vi
.st_dev
|| ii
.st_ino
!= vi
.st_ino
)
518 close (ldi
->ldinfo_fd
);
522 /* Found a corresponding VMAP. Remap! */
524 /* We can assume pointer == CORE_ADDR, this code is native only. */
525 vp
->tstart
= (CORE_ADDR
) ldi
->ldinfo_textorg
;
526 vp
->tend
= vp
->tstart
+ ldi
->ldinfo_textsize
;
527 vp
->dstart
= (CORE_ADDR
) ldi
->ldinfo_dataorg
;
528 vp
->dend
= vp
->dstart
+ ldi
->ldinfo_datasize
;
530 /* The run time loader maps the file header in addition to the text
531 section and returns a pointer to the header in ldinfo_textorg.
532 Adjust the text start address to point to the real start address
533 of the text section. */
534 vp
->tstart
+= vp
->toffs
;
536 /* The objfile is only NULL for the exec file. */
537 if (vp
->objfile
== NULL
)
540 /* relocate symbol table(s). */
543 /* There may be more, so we don't break out of the loop. */
546 /* if there was no matching *vp, we must perforce create the sucker(s) */
547 if (!got_one
&& !retried
)
553 } while (ldi
->ldinfo_next
554 && (ldi
= (void *) (ldi
->ldinfo_next
+ (char *) ldi
)));
556 /* If we don't find the symfile_objfile anywhere in the ldinfo, it
557 is unlikely that the symbol file is relocated to the proper
558 address. And we might have attached to a process which is
559 running a different copy of the same executable. */
560 if (symfile_objfile
!= NULL
&& !got_exec_file
)
563 fputs_unfiltered ("Symbol file ", gdb_stderr
);
564 fputs_unfiltered (symfile_objfile
->name
, gdb_stderr
);
565 fputs_unfiltered ("\nis not mapped; discarding it.\n\
566 If in fact that file has symbols which the mapped files listed by\n\
567 \"info files\" lack, you can load symbols with the \"symbol-file\" or\n\
568 \"add-symbol-file\" commands (note that you must take care of relocating\n\
569 symbols to the proper address).\n", gdb_stderr
);
570 free_objfile (symfile_objfile
);
571 symfile_objfile
= NULL
;
573 breakpoint_re_set ();
576 /* As well as symbol tables, exec_sections need relocation. After
577 the inferior process' termination, there will be a relocated symbol
578 table exist with no corresponding inferior process. At that time, we
579 need to use `exec' bfd, rather than the inferior process's memory space
582 `exec_sections' need to be relocated only once, as long as the exec
583 file remains unchanged.
592 if (execbfd
== exec_bfd
)
597 if (!vmap
|| !exec_ops
.to_sections
)
598 error ("vmap_exec: vmap or exec_ops.to_sections == 0\n");
600 for (i
=0; &exec_ops
.to_sections
[i
] < exec_ops
.to_sections_end
; i
++)
602 if (STREQ(".text", exec_ops
.to_sections
[i
].the_bfd_section
->name
))
604 exec_ops
.to_sections
[i
].addr
+= vmap
->tstart
- vmap
->tvma
;
605 exec_ops
.to_sections
[i
].endaddr
+= vmap
->tstart
- vmap
->tvma
;
607 else if (STREQ(".data", exec_ops
.to_sections
[i
].the_bfd_section
->name
))
609 exec_ops
.to_sections
[i
].addr
+= vmap
->dstart
- vmap
->dvma
;
610 exec_ops
.to_sections
[i
].endaddr
+= vmap
->dstart
- vmap
->dvma
;
612 else if (STREQ(".bss", exec_ops
.to_sections
[i
].the_bfd_section
->name
))
614 exec_ops
.to_sections
[i
].addr
+= vmap
->dstart
- vmap
->dvma
;
615 exec_ops
.to_sections
[i
].endaddr
+= vmap
->dstart
- vmap
->dvma
;
620 /* xcoff_relocate_symtab - hook for symbol table relocation.
621 also reads shared libraries.. */
624 xcoff_relocate_symtab (pid
)
627 #define MAX_LOAD_SEGS 64 /* maximum number of load segments */
631 ldi
= (void *) alloca(MAX_LOAD_SEGS
* sizeof (*ldi
));
633 /* According to my humble theory, AIX has some timing problems and
634 when the user stack grows, kernel doesn't update stack info in time
635 and ptrace calls step on user stack. That is why we sleep here a little,
636 and give kernel to update its internals. */
641 ptrace (PT_LDINFO
, pid
, (PTRACE_ARG3_TYPE
) ldi
,
642 MAX_LOAD_SEGS
* sizeof(*ldi
), (int *) ldi
);
644 perror_with_name ("ptrace ldinfo");
648 /* relocate the exec and core sections as well. */
652 /* Core file stuff. */
654 /* Relocate symtabs and read in shared library info, based on symbols
655 from the core file. */
658 xcoff_relocate_core (target
)
659 struct target_ops
*target
;
661 /* Offset of member MEMBER in a struct of type TYPE. */
663 #define offsetof(TYPE, MEMBER) ((int) &((TYPE *)0)->MEMBER)
666 /* Size of a struct ld_info except for the variable-length filename. */
667 #define LDINFO_SIZE (offsetof (struct ld_info, ldinfo_filename))
671 struct ld_info
*ldip
;
674 /* Allocated size of buffer. */
675 int buffer_size
= LDINFO_SIZE
;
676 char *buffer
= xmalloc (buffer_size
);
677 struct cleanup
*old
= make_cleanup (free_current_contents
, &buffer
);
679 /* FIXME, this restriction should not exist. For now, though I'll
680 avoid coredumps with error() pending a real fix. */
683 ("Can't debug a core file without an executable file (on the RS/6000)");
685 ldinfo_sec
= bfd_get_section_by_name (core_bfd
, ".ldinfo");
686 if (ldinfo_sec
== NULL
)
689 fprintf_filtered (gdb_stderr
, "Couldn't get ldinfo from core file: %s\n",
690 bfd_errmsg (bfd_get_error ()));
699 /* Read in everything but the name. */
700 if (bfd_get_section_contents (core_bfd
, ldinfo_sec
, buffer
,
701 offset
, LDINFO_SIZE
) == 0)
708 if (i
== buffer_size
)
711 buffer
= xrealloc (buffer
, buffer_size
);
713 if (bfd_get_section_contents (core_bfd
, ldinfo_sec
, &buffer
[i
],
716 if (buffer
[i
++] == '\0')
718 } while (names_found
< 2);
720 ldip
= (struct ld_info
*) buffer
;
722 /* Can't use a file descriptor from the core file; need to open it. */
723 ldip
->ldinfo_fd
= -1;
725 /* The first ldinfo is for the exec file, allocated elsewhere. */
729 vp
= add_vmap (ldip
);
731 offset
+= ldip
->ldinfo_next
;
733 /* We can assume pointer == CORE_ADDR, this code is native only. */
734 vp
->tstart
= (CORE_ADDR
) ldip
->ldinfo_textorg
;
735 vp
->tend
= vp
->tstart
+ ldip
->ldinfo_textsize
;
736 vp
->dstart
= (CORE_ADDR
) ldip
->ldinfo_dataorg
;
737 vp
->dend
= vp
->dstart
+ ldip
->ldinfo_datasize
;
739 /* The run time loader maps the file header in addition to the text
740 section and returns a pointer to the header in ldinfo_textorg.
741 Adjust the text start address to point to the real start address
742 of the text section. */
743 vp
->tstart
+= vp
->toffs
;
745 /* Unless this is the exec file,
746 add our sections to the section table for the core target. */
750 struct section_table
*stp
;
753 /* We must update the to_sections field in the core_ops structure
754 now to avoid dangling pointer dereferences. */
755 update_coreops
= core_ops
.to_sections
== target
->to_sections
;
757 count
= target
->to_sections_end
- target
->to_sections
;
759 target
->to_sections
= (struct section_table
*)
760 xrealloc (target
->to_sections
,
761 sizeof (struct section_table
) * count
);
762 target
->to_sections_end
= target
->to_sections
+ count
;
764 /* Update the to_sections field in the core_ops structure
768 core_ops
.to_sections
= target
->to_sections
;
769 core_ops
.to_sections_end
= target
->to_sections_end
;
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
;
786 } while (ldip
->ldinfo_next
!= 0);
788 breakpoint_re_set ();
795 return (sizeof (struct user
));
798 /* Under AIX, we have to pass the correct TOC pointer to a function
799 when calling functions in the inferior.
800 We try to find the relative toc offset of the objfile containing PC
801 and add the current load address of the data segment from the vmap. */
804 find_toc_address (pc
)
809 for (vp
= vmap
; vp
; vp
= vp
->nxt
)
811 if (pc
>= vp
->tstart
&& pc
< vp
->tend
)
813 /* vp->objfile is only NULL for the exec file. */
814 return vp
->dstart
+ get_toc_offset (vp
->objfile
== NULL
819 error ("Unable to find TOC entry for pc 0x%x\n", pc
);
822 /* Register that we are able to handle rs6000 core file formats. */
824 static struct core_fns rs6000_core_fns
=
826 bfd_target_coff_flavour
,
827 fetch_core_registers
,
832 _initialize_core_rs6000 ()
834 /* Initialize hook in rs6000-tdep.c for determining the TOC address when
835 calling functions in the inferior. */
836 find_toc_address_hook
= &find_toc_address
;
838 /* For native configurations, where this module is included, inform
839 the xcoffsolib module where it can find the function for symbol table
840 relocation at runtime. */
841 xcoff_relocate_symtab_hook
= &xcoff_relocate_symtab
;
842 add_core_fns (&rs6000_core_fns
);