File ffcall/trampoline/tramp-arm.s artifact 236140451b part of check-in f09bb87b61


@ Trampoline for arm CPU

@ Copyright 1995 Bruno Haible, <bruno@clisp.org>
@
@ This is free software distributed under the GNU General Public Licence
@ described in the file COPYING. Contact the author if you don't have this
@ or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
@ on this software.

@ Available registers: ip.

rfp	.req	r9
sl	.req	r10
fp	.req	r11
ip	.req	r12
sp	.req	r13
lr	.req	r14
pc	.req	r15
.text
	.align	0
	.global	_tramp
_tramp:
	@ Immediate constants are a problem. I take the indirect load approach
	@ because I don't want 4 instructions for each constant.
	stmfd	sp!,{r0}
	ldr	r0,[pc,#_data-.-8]
	ldr	ip,[r0,#0]
	ldr	r0,[pc,#_variable-.-8]
	str	ip,[r0,#0]
	ldmfd	sp!,{r0}^
	ldr	ip,[pc,#_function-.-8]
	ldr	pc,[ip,#0]

	.global	_data
	.align	0
_data:
	.word	0x73554711

	.global	_variable
	.align	0
_variable:
	.word	0x12345678

	.global	_function
	.align	0
_function:
	.word	0xbabebec0