glibc/ports/sysdeps/m68k/dl-trampoline.S

223 lines
4.7 KiB
ArmAsm

/* PLT trampolines. m68k version.
Copyright (C) 2005-2013 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<http://www.gnu.org/licenses/>. */
#include <sysdep.h>
#if !defined (__mcoldfire__)
# define FMOVE fmove.x
# define FPSPACE 12
#elif defined (__mcffpu__)
# define FMOVE fmove.d
# define FPSPACE 8
#else
# define FPSPACE 0
#endif
.text
.globl _dl_runtime_resolve
.type _dl_runtime_resolve, @function
_dl_runtime_resolve:
cfi_startproc
cfi_adjust_cfa_offset (8)
| Save %a0 (struct return address) and %a1.
move.l %a0, -(%sp)
cfi_adjust_cfa_offset (4)
move.l %a1, -(%sp)
cfi_adjust_cfa_offset (4)
| Call the real address resolver.
jbsr _dl_fixup
| Restore register %a0 and %a1.
move.l (%sp)+, %a1
cfi_adjust_cfa_offset (-4)
move.l (%sp)+, %a0
cfi_adjust_cfa_offset (-4)
| Pop parameters
addq.l #8, %sp
cfi_adjust_cfa_offset (-8)
| Call real function.
#ifdef __mcoldfire__
move.l %d0,-(%sp)
cfi_adjust_cfa_offset (4)
rts
#else
jmp (%d0)
#endif
cfi_endproc
.size _dl_runtime_resolve, . - _dl_runtime_resolve
.text
.globl _dl_runtime_profile
.type _dl_runtime_profile, @function
_dl_runtime_profile:
cfi_startproc
cfi_adjust_cfa_offset (8)
pea 8(%sp)
cfi_adjust_cfa_offset (4)
move.l %a1, -(%sp)
cfi_adjust_cfa_offset (4)
move.l %a0, -(%sp)
cfi_adjust_cfa_offset (4)
pea -1.w
cfi_adjust_cfa_offset (4)
| Push parameters for _dl_profile_fixup
pea (%sp)
cfi_adjust_cfa_offset (4)
pea 8(%sp)
cfi_adjust_cfa_offset (4)
move.l 32(%sp), -(%sp)
cfi_adjust_cfa_offset (4)
move.l 32(%sp), -(%sp)
cfi_adjust_cfa_offset (4)
move.l 32(%sp), -(%sp)
cfi_adjust_cfa_offset (4)
subq.l #8, %sp
cfi_adjust_cfa_offset (8)
| Call the real address resolver.
jbsr _dl_profile_fixup
| Pop parameters
lea 28(%sp), %sp
cfi_adjust_cfa_offset (-28)
move.l (%sp), %d1
jpl 1f
addq.l #4, %sp
cfi_adjust_cfa_offset (-4)
| Restore register %a0 and %a1.
move.l (%sp)+, %a0
cfi_adjust_cfa_offset (-4)
move.l (%sp)+, %a1
cfi_adjust_cfa_offset (-4)
lea 12(%sp), %sp
cfi_adjust_cfa_offset (-12)
| Call real function.
#ifdef __mcoldfire__
move.l %d0,-(%sp)
cfi_adjust_cfa_offset (4)
rts
#else
jmp (%d0)
#endif
/*
+24 return address
+20 PLT1
+16 PLT2
+12 %sp
+8 %a1
+4 %a0
%sp free
*/
#ifdef __mcoldfire__
cfi_adjust_cfa_offset (20)
#else
cfi_adjust_cfa_offset (24)
#endif
1: move.l %a2, (%sp)
cfi_rel_offset (%a2, 0)
move.l %sp, %a2
move.l %sp, %a0
lea 28(%sp), %a1
| Round framesize up to longword alignment
addq.l #3, %d1
and.l #-3, %d1
sub.l %d1, %a0
move.l %a0, %sp
cfi_def_cfa_register (%a2)
#ifdef __mcoldfire__
tst.l %d1
beq 2f
1: move.l (%a1)+, (%a0)+
subq.l #4,%d1
bne 1b
2:
#else
lsr.l #2,%d1
jra 2f
1: move.l (%a1)+, (%a0)+
2: dbra %d1,1b
#endif
/*
%a2+24 return address
%a2+20 PLT1
%a2+16 PLT2
%a2+12 %sp
%a2+8 %a1
%a2+4 %a0
%a2 %a2
%sp copied stack frame
*/
move.l 4(%a2), %a0
move.l 8(%a2), %a1
#ifdef __mcoldfire__
pea 2f(%pc)
move.l %d0,-(%sp)
rts
2:
#else
jsr (%d0)
#endif
move.l %a2, %sp
cfi_def_cfa_register (%sp)
move.l (%sp)+, %a2
cfi_adjust_cfa_offset (4)
cfi_restore (%a2)
/*
+20 return address
+16 PLT1
+12 PLT2
+8 %sp
+4 %a1
%sp %a0
*/
#ifdef FMOVE
FMOVE %fp0, -(%sp)
cfi_adjust_cfa_offset (FPSPACE)
#endif
move.l %a0, -(%sp)
cfi_adjust_cfa_offset (4)
move.l %d1, -(%sp)
cfi_adjust_cfa_offset (4)
move.l %d0, -(%sp)
cfi_adjust_cfa_offset (4)
pea (%sp)
cfi_adjust_cfa_offset (4)
pea (16+FPSPACE)(%sp)
cfi_adjust_cfa_offset (4)
move.l (32+FPSPACE)(%sp), -(%sp)
cfi_adjust_cfa_offset (4)
move.l (32+FPSPACE)(%sp), -(%sp)
cfi_adjust_cfa_offset (4)
jbsr _dl_call_pltexit
lea 16(%sp), %sp
cfi_adjust_cfa_offset (-16)
move.l (%sp)+, %d0
cfi_adjust_cfa_offset (-4)
move.l (%sp)+, %d1
cfi_adjust_cfa_offset (-4)
move.l (%sp)+, %a0
cfi_adjust_cfa_offset (-4)
#ifdef FMOVE
FMOVE (%sp)+, %fp0
cfi_adjust_cfa_offset (-FPSPACE)
#endif
lea 20(%sp), %sp
cfi_adjust_cfa_offset (-20)
rts
cfi_endproc
.size _dl_runtime_profile, . - _dl_runtime_profile