/* PLT trampolines.  m68k version.

   Copyright (C) 2005-2018 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