runtime.s

T-kernel 的extension源代码

/*
 *----------------------------------------------------------------------
 *    T-Kernel / Standard Extension
 *
 *    Copyright (C) 2006 by Ken Sakamura. All rights reserved.
 *    T-Kernel / Standard Extension is distributed 
 *      under the T-License for T-Kernel / Standard Extension.
 *----------------------------------------------------------------------
 *
 *    Version:   1.00.00
 *    Released by T-Engine Forum(http://www.t-engine.org) at 2006/8/11.
 *
 *----------------------------------------------------------------------
 */

/*
 *	@(#)runtime.S (solib) 
 *
 *	Shared object(SO)support library
 *	Run time symbol link entry
 */

	.text
	.align	4
	.globl	__so_runtime_resolve
	.type	__so_runtime_resolve,%function
/*
 *	stack[0] = RA			*Original return address at(sp)
 *	ip = &GOT[n+3]			Correspondent "GOT" entry address
 *	lr = &GOT[2]			Memory address that stores the pointer to runtime resolver
 */
__so_runtime_resolve:
	stmdb	sp!,{r0-r4,sl,fp}
	sub	r1, ip, lr
	sub	r1, r1, #4
	add	r1, r1, r1

	ldr	r0, [lr, #-4]

	bl	__so_fixup

	mov	ip, r0
	ldmia	sp!,{r0-r4,sl,fp,lr}
	mov	pc, ip