229 lines
4.9 KiB
ArmAsm
229 lines
4.9 KiB
ArmAsm
/* PLT trampolines. m68k version.
|
|
Copyright (C) 2005, 2011, 2012 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, write to the Free
|
|
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
02111-1307 USA. */
|
|
|
|
#include <sysdep.h>
|
|
|
|
.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 (%a0)+, (%a1)+
|
|
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 __mcoldfire__
|
|
fmove.d %fp0, -(%sp)
|
|
cfi_adjust_cfa_offset (8)
|
|
#else
|
|
fmove.x %fp0, -(%sp)
|
|
cfi_adjust_cfa_offset (12)
|
|
#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)
|
|
#ifdef __mcoldfire__
|
|
pea 24(%sp)
|
|
cfi_adjust_cfa_offset (4)
|
|
move.l 40(%sp), -(%sp)
|
|
cfi_adjust_cfa_offset (4)
|
|
move.l 40(%sp), -(%sp)
|
|
cfi_adjust_cfa_offset (4)
|
|
#else
|
|
pea 28(%sp)
|
|
cfi_adjust_cfa_offset (4)
|
|
move.l 44(%sp), -(%sp)
|
|
cfi_adjust_cfa_offset (4)
|
|
move.l 44(%sp), -(%sp)
|
|
cfi_adjust_cfa_offset (4)
|
|
#endif
|
|
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 __mcoldfire__
|
|
fmove.d (%sp)+, %fp0
|
|
cfi_adjust_cfa_offset (-8)
|
|
#else
|
|
fmove.x (%sp)+, %fp0
|
|
cfi_adjust_cfa_offset (-12)
|
|
#endif
|
|
lea 20(%sp), %sp
|
|
cfi_adjust_cfa_offset (-20)
|
|
rts
|
|
cfi_endproc
|
|
.size _dl_runtime_profile, . - _dl_runtime_profile
|