[thirdparty/glibc.git] / sysdeps / m68k / dl-trampoline.S

/* PLT trampolines.  m68k version.
   Copyright (C) 2005-2015 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
Commit	Line	Data
00f36bfb	1	/* PLT trampolines. m68k version.
b168057a	2	Copyright (C) 2005-2015 Free Software Foundation, Inc.
00f36bfb AS	3	This file is part of the GNU C Library.
	4
	5	The GNU C Library is free software; you can redistribute it and/or
	6	modify it under the terms of the GNU Lesser General Public
	7	License as published by the Free Software Foundation; either
	8	version 2.1 of the License, or (at your option) any later version.
	9
	10	The GNU C Library is distributed in the hope that it will be useful,
	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	13	Lesser General Public License for more details.
	14
	15	You should have received a copy of the GNU Lesser General Public
ab84e3ff PE	16	License along with the GNU C Library. If not, see
ab84e3ff PE	17	<http://www.gnu.org/licenses/>. */
00f36bfb AS	18
	19	#include <sysdep.h>
	20
c53e2f0a JM	21	#if !defined (__mcoldfire__)
	22	# define FMOVE fmove.x
	23	# define FPSPACE 12
	24	#elif defined (__mcffpu__)
	25	# define FMOVE fmove.d
	26	# define FPSPACE 8
	27	#else
	28	# define FPSPACE 0
	29	#endif
	30
00f36bfb AS	31	.text
	32	.globl _dl_runtime_resolve
	33	.type _dl_runtime_resolve, @function
	34	_dl_runtime_resolve:
50e73d13 AS	35	cfi_startproc
50e73d13 AS	36	cfi_adjust_cfa_offset (8)
00f36bfb AS	37	\| Save %a0 (struct return address) and %a1.
00f36bfb AS	38	move.l %a0, -(%sp)
50e73d13	39	cfi_adjust_cfa_offset (4)
00f36bfb	40	move.l %a1, -(%sp)
50e73d13	41	cfi_adjust_cfa_offset (4)
00f36bfb AS	42	\| Call the real address resolver.
	43	jbsr _dl_fixup
	44	\| Restore register %a0 and %a1.
	45	move.l (%sp)+, %a1
50e73d13	46	cfi_adjust_cfa_offset (-4)
00f36bfb	47	move.l (%sp)+, %a0
50e73d13	48	cfi_adjust_cfa_offset (-4)
00f36bfb AS	49	\| Pop parameters
00f36bfb AS	50	addq.l #8, %sp
50e73d13	51	cfi_adjust_cfa_offset (-8)
00f36bfb	52	\| Call real function.
9c986f87 AS	53	#ifdef __mcoldfire__
9c986f87 AS	54	move.l %d0,-(%sp)
50e73d13	55	cfi_adjust_cfa_offset (4)
9c986f87 AS	56	rts
9c986f87 AS	57	#else
00f36bfb	58	jmp (%d0)
9c986f87	59	#endif
50e73d13	60	cfi_endproc
00f36bfb AS	61	.size _dl_runtime_resolve, . - _dl_runtime_resolve
	62
	63	.text
	64	.globl _dl_runtime_profile
	65	.type _dl_runtime_profile, @function
	66	_dl_runtime_profile:
50e73d13 AS	67	cfi_startproc
50e73d13 AS	68	cfi_adjust_cfa_offset (8)
00f36bfb	69	pea 8(%sp)
50e73d13	70	cfi_adjust_cfa_offset (4)
00f36bfb	71	move.l %a1, -(%sp)
50e73d13	72	cfi_adjust_cfa_offset (4)
00f36bfb	73	move.l %a0, -(%sp)
50e73d13	74	cfi_adjust_cfa_offset (4)
00f36bfb	75	pea -1.w
50e73d13	76	cfi_adjust_cfa_offset (4)
00f36bfb AS	77	\| Push parameters for _dl_profile_fixup
00f36bfb AS	78	pea (%sp)
50e73d13	79	cfi_adjust_cfa_offset (4)
00f36bfb	80	pea 8(%sp)
50e73d13	81	cfi_adjust_cfa_offset (4)
00f36bfb	82	move.l 32(%sp), -(%sp)
50e73d13	83	cfi_adjust_cfa_offset (4)
00f36bfb	84	move.l 32(%sp), -(%sp)
50e73d13	85	cfi_adjust_cfa_offset (4)
00f36bfb	86	move.l 32(%sp), -(%sp)
50e73d13	87	cfi_adjust_cfa_offset (4)
00f36bfb	88	subq.l #8, %sp
50e73d13	89	cfi_adjust_cfa_offset (8)
00f36bfb AS	90	\| Call the real address resolver.
	91	jbsr _dl_profile_fixup
	92	\| Pop parameters
	93	lea 28(%sp), %sp
50e73d13	94	cfi_adjust_cfa_offset (-28)
00f36bfb AS	95	move.l (%sp), %d1
	96	jpl 1f
	97	addq.l #4, %sp
50e73d13	98	cfi_adjust_cfa_offset (-4)
00f36bfb AS	99	\| Restore register %a0 and %a1.
00f36bfb AS	100	move.l (%sp)+, %a0
50e73d13	101	cfi_adjust_cfa_offset (-4)
00f36bfb	102	move.l (%sp)+, %a1
50e73d13	103	cfi_adjust_cfa_offset (-4)
00f36bfb	104	lea 12(%sp), %sp
50e73d13	105	cfi_adjust_cfa_offset (-12)
00f36bfb	106	\| Call real function.
9c986f87 AS	107	#ifdef __mcoldfire__
9c986f87 AS	108	move.l %d0,-(%sp)
50e73d13	109	cfi_adjust_cfa_offset (4)
9c986f87 AS	110	rts
9c986f87 AS	111	#else
00f36bfb	112	jmp (%d0)
9c986f87	113	#endif
00f36bfb AS	114
	115	/*
	116	+24 return address
	117	+20 PLT1
	118	+16 PLT2
	119	+12 %sp
	120	+8 %a1
	121	+4 %a0
	122	%sp free
	123	*/
50e73d13 AS	124	#ifdef __mcoldfire__
	125	cfi_adjust_cfa_offset (20)
	126	#else
	127	cfi_adjust_cfa_offset (24)
	128	#endif
00f36bfb	129	1: move.l %a2, (%sp)
50e73d13	130	cfi_rel_offset (%a2, 0)
00f36bfb AS	131	move.l %sp, %a2
	132	move.l %sp, %a0
	133	lea 28(%sp), %a1
9c986f87 AS	134	\| Round framesize up to longword alignment
	135	addq.l #3, %d1
	136	and.l #-3, %d1
00f36bfb AS	137	sub.l %d1, %a0
00f36bfb AS	138	move.l %a0, %sp
50e73d13	139	cfi_def_cfa_register (%a2)
9c986f87 AS	140	#ifdef __mcoldfire__
	141	tst.l %d1
	142	beq 2f
3e2e43e2	143	1: move.l (%a1)+, (%a0)+
9c986f87 AS	144	subq.l #4,%d1
	145	bne 1b
	146	2:
	147	#else
	148	lsr.l #2,%d1
00f36bfb	149	jra 2f
9c986f87	150	1: move.l (%a1)+, (%a0)+
00f36bfb	151	2: dbra %d1,1b
9c986f87	152	#endif
00f36bfb AS	153	/*
	154	%a2+24 return address
	155	%a2+20 PLT1
	156	%a2+16 PLT2
	157	%a2+12 %sp
	158	%a2+8 %a1
	159	%a2+4 %a0
	160	%a2 %a2
	161	%sp copied stack frame
	162	*/
	163
	164	move.l 4(%a2), %a0
	165	move.l 8(%a2), %a1
9c986f87 AS	166	#ifdef __mcoldfire__
	167	pea 2f(%pc)
	168	move.l %d0,-(%sp)
	169	rts
	170	2:
	171	#else
00f36bfb	172	jsr (%d0)
9c986f87	173	#endif
00f36bfb	174	move.l %a2, %sp
50e73d13	175	cfi_def_cfa_register (%sp)
00f36bfb	176	move.l (%sp)+, %a2
50e73d13 AS	177	cfi_adjust_cfa_offset (4)
50e73d13 AS	178	cfi_restore (%a2)
00f36bfb AS	179	/*
	180	+20 return address
	181	+16 PLT1
	182	+12 PLT2
	183	+8 %sp
	184	+4 %a1
	185	%sp %a0
	186	*/
c53e2f0a JM	187	#ifdef FMOVE
	188	FMOVE %fp0, -(%sp)
	189	cfi_adjust_cfa_offset (FPSPACE)
9c986f87 AS	190	#endif
9c986f87 AS	191	move.l %a0, -(%sp)
50e73d13	192	cfi_adjust_cfa_offset (4)
00f36bfb	193	move.l %d1, -(%sp)
50e73d13	194	cfi_adjust_cfa_offset (4)
00f36bfb	195	move.l %d0, -(%sp)
50e73d13	196	cfi_adjust_cfa_offset (4)
00f36bfb	197	pea (%sp)
50e73d13	198	cfi_adjust_cfa_offset (4)
c53e2f0a	199	pea (16+FPSPACE)(%sp)
50e73d13	200	cfi_adjust_cfa_offset (4)
c53e2f0a	201	move.l (32+FPSPACE)(%sp), -(%sp)
50e73d13	202	cfi_adjust_cfa_offset (4)
c53e2f0a	203	move.l (32+FPSPACE)(%sp), -(%sp)
50e73d13	204	cfi_adjust_cfa_offset (4)
00f36bfb AS	205	jbsr _dl_call_pltexit
00f36bfb AS	206	lea 16(%sp), %sp
50e73d13	207	cfi_adjust_cfa_offset (-16)
00f36bfb	208	move.l (%sp)+, %d0
50e73d13	209	cfi_adjust_cfa_offset (-4)
00f36bfb	210	move.l (%sp)+, %d1
50e73d13	211	cfi_adjust_cfa_offset (-4)
9c986f87	212	move.l (%sp)+, %a0
50e73d13	213	cfi_adjust_cfa_offset (-4)
c53e2f0a JM	214	#ifdef FMOVE
	215	FMOVE (%sp)+, %fp0
	216	cfi_adjust_cfa_offset (-FPSPACE)
9c986f87	217	#endif
00f36bfb	218	lea 20(%sp), %sp
50e73d13	219	cfi_adjust_cfa_offset (-20)
00f36bfb	220	rts
50e73d13	221	cfi_endproc
00f36bfb	222	.size _dl_runtime_profile, . - _dl_runtime_profile