mirror/glibc
2
0
Fork 0
mirror of git://sourceware.org/git/glibc.git synced 2025-01-18 12:16:13 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add support for shared library profiling.

Browse Source
This commit is contained in:
Ulrich Drepper 1997-08-02 20:56:48 +00:00
parent 1d928c6a5c
commit 6e8e1d85e0
1 changed files with 35 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
sysdeps/m68k/dl-machine.h
View File

@ -80,6 +80,7 @@ elf_machine_runtime_setup (struct link_map *l, int lazy, int profile)
{ {
Elf32_Addr *got; Elf32_Addr *got;
extern void _dl_runtime_resolve (Elf32_Word); extern void _dl_runtime_resolve (Elf32_Word);
extern void _dl_runtime_profile (Elf32_Word);
if (l->l_info[DT_JMPREL] && lazy) if (l->l_info[DT_JMPREL] && lazy)
{ {
@ -90,9 +91,22 @@ elf_machine_runtime_setup (struct link_map *l, int lazy, int profile)
_GLOBAL_OFFSET_TABLE_[2]. */ _GLOBAL_OFFSET_TABLE_[2]. */
got = (Elf32_Addr *) (l->l_addr + l->l_info[DT_PLTGOT]->d_un.d_ptr); got = (Elf32_Addr *) (l->l_addr + l->l_info[DT_PLTGOT]->d_un.d_ptr);
got[1] = (Elf32_Addr) l; /* Identify this shared object. */ got[1] = (Elf32_Addr) l; /* Identify this shared object. */
/* This function will get called to fix up the GOT entry
indicated by the offset on the stack, and then jump to the /* The got[2] entry contains the address of a function which gets
resolved address. */ called to get the address of a so far unresolved function and
jump to it. The profiling extension of the dynamic linker allows
to intercept the calls to collect information. In this case we
don't store the address in the GOT so that all future calls also
end in this function. */
if (profile)
{
got[2] = (Elf32_Addr) &_dl_runtime_profile;
/* Say that we really want profiling and the timers are started. */
_dl_profile_map = l;
}
else
/* This function will get called to fix up the GOT entry indicated by
the offset on the stack, and then jump to the resolved address. */
got[2] = (Elf32_Addr) &_dl_runtime_resolve; got[2] = (Elf32_Addr) &_dl_runtime_resolve;
} }
@ -101,16 +115,16 @@ elf_machine_runtime_setup (struct link_map *l, int lazy, int profile)
/* This code is used in dl-runtime.c to call the `fixup' function /* This code is used in dl-runtime.c to call the `fixup' function
and then redirect to the address it returns. */ and then redirect to the address it returns. */
#define ELF_MACHINE_RUNTIME_TRAMPOLINE asm ("\ #define TRAMPOLINE_TEMPLATE(tramp_name, fixup_name) \
| Trampoline for _dl_runtime_resolver "| Trampoline for " #fixup_name "
.globl _dl_runtime_resolve .globl " #tramp_name "
.type _dl_runtime_resolve, @function .type " #tramp_name ", @function
_dl_runtime_resolve: " #tramp_name ":
| Save %a0 (struct return address) and %a1. | Save %a0 (struct return address) and %a1.
move.l %a0, -(%sp) move.l %a0, -(%sp)
move.l %a1, -(%sp) move.l %a1, -(%sp)
| Call the real address resolver. | Call the real address resolver.
jbsr fixup jbsr " #fixup_name "
| Restore register %a0 and %a1. | Restore register %a0 and %a1.
move.l (%sp)+, %a1 move.l (%sp)+, %a1
move.l (%sp)+, %a0 move.l (%sp)+, %a0
@ -118,8 +132,17 @@ _dl_runtime_resolve:
addq.l #8, %sp addq.l #8, %sp
| Call real function. | Call real function.
jmp (%d0) jmp (%d0)
.size _dl_runtime_resolve, . - _dl_runtime_resolve .size " #tramp_name ", . - " #tramp_name "\n"
"); #ifndef PROF
#define ELF_MACHINE_RUNTIME_TRAMPOLINE \
asm (TRAMPOLINE_TEMPLATE (_dl_runtime_resolve, fixup) \
TRAMPOLINE_TEMPLATE (_dl_runtime_profile, profile_fixup));
#else
#define ELF_MACHINE_RUNTIME_TRAMPOLINE \
asm (TRAMPOLINE_TEMPLATE (_dl_runtime_resolve, fixup) \
".globl _dl_runtime_profile\n" \
".set _dl_runtime_profile, _dl_runtime_resolve");
#endif
#define ELF_MACHINE_RUNTIME_FIXUP_ARGS long int save_a0, long int save_a1 #define ELF_MACHINE_RUNTIME_FIXUP_ARGS long int save_a0, long int save_a1
/* The PLT uses Elf32_Rela relocs. */ /* The PLT uses Elf32_Rela relocs. */
#define elf_machine_relplt elf_machine_rela #define elf_machine_relplt elf_machine_rela