minix/libexec/ld.elf_so/arch/sh3/rtld_start.S
Ben Gras e83f7ba2c9 switch to netbsd csu
. file- and functionality-compatible with previous situation
          (FreeBSD csu) (with a crt1.o -> crt0.o symlink in /usr/lib)
        . harmonizes source with netbsd
        . harmonizes linker invocation (e.g. clang) with netbsd
        . helpful to get some arm code in there for the arm port project
2012-04-12 13:26:24 +02:00

117 lines
3.4 KiB
ArmAsm

/* $NetBSD: rtld_start.S,v 1.7 2008/04/28 20:23:03 martin Exp $ */
/*-
* Copyright (c) 2001, 2002 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Marcus Comstedt.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <machine/asm.h>
.text
.align 2
.globl .rtld_start
.type .rtld_start,@function
.rtld_start:
mova 2f,r0
mov.l @r0,r2
add r0,r2 /* GOT */
mov.l @(4,r0),r4 /* _DYNAMIC@GOTOFF */
add r2,r4 /* _DYNAMIC */
mov.l @(12,r0),r1 /* _rtld_relocate_nonplt_self offset */
mov.l @(8,r0),r0 /* _DYNAMIC@GOT */
mov r4,r5
mov.l @(r0,r2),r0 /* where linker thinks _DYNAMIC is */
sub r0,r5 /* compute relocation base */
bsrf r1 /* _rtld_relocate_nonplt_self(dynp, relocbase) */
mov.l r5,@-r15 /* save relocbase */
4:
mov.l @r15+,r5 /* restore relocbase */
add #-8,r15 /* room for values returned by _rtld */
mov r15,r4
mov.l 1f,r0
bsrf r0 /* _rtld(sp, relocbase) */
mov.l r9,@-r15 /* save ps_strings */
3:
mov.l @r15+,r9 /* restore ps_strings */
mov.l @r15+,r7 /* from _rtld: exit procedure */
mov.l @r15+,r8 /* from _rtld: main object */
mov.l @r15,r4 /* restore argc */
mov r15,r5 /* restore argv */
add #4,r5
mov r4,r6 /* restore envp */
shll2 r6
add r15,r6
jmp @r0 /* entry point returned by _rtld */
add #8,r6
.align 2
1: .long _rtld-3b
2: .long _GLOBAL_OFFSET_TABLE_
.long _DYNAMIC@GOTOFF
.long _DYNAMIC@GOT
.long _rtld_relocate_nonplt_self-4b
.size .rtld_start,.-.rtld_start
.align 2
.globl _rtld_bind_start
.type _rtld_bind_start,@function
_rtld_bind_start: /* r0 = obj, r1 = reloff */
mov.l r2,@-r15 /* save registers */
mov.l r3,@-r15
mov.l r4,@-r15
mov.l r5,@-r15
mov.l r6,@-r15
mov.l r7,@-r15
sts.l mach,@-r15
sts.l macl,@-r15
sts.l pr,@-r15
mov r0,r4 /* copy of obj */
mov.l 2f,r0
bsrf r0 /* call the binder */
mov r1,r5 /* copy of reloff */
4:
lds.l @r15+,pr /* restore registers */
lds.l @r15+,macl
lds.l @r15+,mach
mov.l @r15+,r7
mov.l @r15+,r6
mov.l @r15+,r5
mov.l @r15+,r4
mov.l @r15+,r3
jmp @r0
mov.l @r15+,r2
.align 2
2: .long _rtld_bind-4b
.size _rtld_bind_start,.-_rtld_bind_start
.end