1107572Sgrehan/* $NetBSD: rtld_start.S,v 1.4 2001/09/26 04:06:43 mycroft Exp $ */ 2107572Sgrehan 3107572Sgrehan/*- 4107572Sgrehan * Copyright (C) 1998 Tsubai Masanari 5107572Sgrehan * All rights reserved. 6107572Sgrehan * 7107572Sgrehan * Redistribution and use in source and binary forms, with or without 8107572Sgrehan * modification, are permitted provided that the following conditions 9107572Sgrehan * are met: 10107572Sgrehan * 1. Redistributions of source code must retain the above copyright 11107572Sgrehan * notice, this list of conditions and the following disclaimer. 12107572Sgrehan * 2. Redistributions in binary form must reproduce the above copyright 13107572Sgrehan * notice, this list of conditions and the following disclaimer in the 14107572Sgrehan * documentation and/or other materials provided with the distribution. 15107572Sgrehan * 3. The name of the author may not be used to endorse or promote products 16107572Sgrehan * derived from this software without specific prior written permission. 17107572Sgrehan * 18107572Sgrehan * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 19107572Sgrehan * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 20107572Sgrehan * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 21107572Sgrehan * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 22107572Sgrehan * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 23107572Sgrehan * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 24107572Sgrehan * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 25107572Sgrehan * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 26107572Sgrehan * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 27107572Sgrehan * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28107572Sgrehan * 29107572Sgrehan * $FreeBSD$ 30107572Sgrehan */ 31107572Sgrehan 32107572Sgrehan#include <machine/asm.h> 33107572Sgrehan 34107572Sgrehan.extern _GLOBAL_OFFSET_TABLE_ 35107572Sgrehan.extern _DYNAMIC 36115396Skan 37209885Snwhitehorn_ENTRY(_rtld_start) 38216780Snwhitehorn stdu %r1,-144(%r1) /* 16-byte aligned stack for reg saves + 39115396Skan exit_proc & obj _rtld args + 40107572Sgrehan backchain & lrsave stack frame */ 41216780Snwhitehorn std %r3,96(%r1) /* argc */ 42216780Snwhitehorn std %r4,104(%r1) /* argv */ 43216780Snwhitehorn std %r5,112(%r1) /* envp */ 44216780Snwhitehorn/* std %r6,120(%r1) *//* obj (always 0) */ 45216780Snwhitehorn/* std %r7,128(%r1) *//* cleanup (always 0) */ 46216780Snwhitehorn std %r8,136(%r1) /* ps_strings */ 47107572Sgrehan 48107572Sgrehan /* 49107572Sgrehan * Perform initial relocation of ld-elf.so. Not as easy as it 50107572Sgrehan * sounds. 51107572Sgrehan * - perform small forward branch to put PC into link reg 52107572Sgrehan * - use link-time constants to determine offset to the 53107572Sgrehan * _DYNAMIC section and the GOT. Add these to the PC to 54107572Sgrehan * convert to absolute addresses. 55107572Sgrehan * - call reloc_non_plt_self() to fix up ld-elf.so's relocations 56107572Sgrehan */ 57209885Snwhitehorn 58107572Sgrehan bl 1f 59209885Snwhitehorn .llong _DYNAMIC-. 60107572Sgrehan1: 61209885Snwhitehorn mflr %r3 /* PC value at .llong */ 62209885Snwhitehorn ld %r4,0(%r3) /* offset to _DYNAMIC */ 63107572Sgrehan add %r3,%r4,%r3 /* r3 = &_DYNAMIC, absolute value */ 64107572Sgrehan 65209885Snwhitehorn ld %r4,-0x8000(%r2) /* First TOC entry is TOC base */ 66209885Snwhitehorn subf %r4,%r4,%r2 /* Subtract from real TOC base to get base */ 67115396Skan 68218824Snwhitehorn bl reloc_non_plt_self /* reloc_non_plt_self(&_DYNAMIC,base) */ 69209885Snwhitehorn nop 70107572Sgrehan 71107572Sgrehan /* 72107572Sgrehan * The _rtld() function likes to see a stack layout containing 73107572Sgrehan * { argc, argv[0], argv[1] ... argv[N], 0, env[0], ... , env[N] } 74107572Sgrehan * Since the PowerPC stack was 16-byte aligned at exec time, the 75107572Sgrehan * original stack layout has to be found by moving back a word 76107572Sgrehan * from the argv pointer. 77107572Sgrehan */ 78216780Snwhitehorn ld %r4,104(%r1) 79209885Snwhitehorn addi %r3,%r4,-8 /* locate argc ptr, &argv[-1] */ 80216780Snwhitehorn addi %r4,%r1,128 /* &exit_proc on stack */ 81216780Snwhitehorn addi %r5,%r1,120 /* &obj_main on stack */ 82107572Sgrehan 83218824Snwhitehorn bl _rtld /* &_start = _rtld(sp, &exit_proc, &obj_main)*/ 84209885Snwhitehorn nop 85291668Snwhitehorn#if !defined(_CALL_ELF) || _CALL_ELF == 1 86209885Snwhitehorn ld %r2,8(%r3) 87209885Snwhitehorn ld %r11,16(%r3) 88209885Snwhitehorn ld %r3,0(%r3) 89291668Snwhitehorn#else 90291668Snwhitehorn mr %r12,%r3 91291668Snwhitehorn#endif 92107572Sgrehan mtlr %r3 93107572Sgrehan 94107572Sgrehan /* 95107572Sgrehan * Restore args, with new obj/exit proc 96107572Sgrehan */ 97216780Snwhitehorn ld %r3,96(%r1) /* argc */ 98216780Snwhitehorn ld %r4,104(%r1) /* argv */ 99216780Snwhitehorn ld %r5,112(%r1) /* envp */ 100216780Snwhitehorn ld %r6,120(%r1) /* obj */ 101216780Snwhitehorn ld %r7,128(%r1) /* exit proc */ 102216780Snwhitehorn ld %r8,136(%r1) /* ps_strings */ 103107572Sgrehan 104107572Sgrehan blrl /* _start(argc, argv, envp, obj, cleanup, ps_strings) */ 105107572Sgrehan 106107572Sgrehan li %r0,1 /* _exit() */ 107107572Sgrehan sc 108107572Sgrehan 109107572Sgrehan/* 110107572Sgrehan * _rtld_bind_start() 111107572Sgrehan * 112209885Snwhitehorn * Call into the MI binder. This routine is reached via the PLT call cell 113209885Snwhitehorn * 114293018Snwhitehorn * On entry, %r11 contains an object pointer and %r0 contains the PLT index. 115291668Snwhitehorn * 116209885Snwhitehorn * Save all registers, call into the binder to resolve and fixup the external 117107572Sgrehan * routine, and then transfer to the external routine on return. 118107572Sgrehan */ 119107572Sgrehan .globl _rtld_bind 120107572Sgrehan 121107572Sgrehan_ENTRY(_rtld_bind_start) 122293018Snwhitehorn mr %r12,%r0 # save r0 (index) immediately to r12 123107572Sgrehan mflr %r0 124209885Snwhitehorn std %r0,16(%r1) # save lr 125107572Sgrehan mfcr %r0 126209885Snwhitehorn std %r0,8(%r1) # save cr 127107572Sgrehan 128216780Snwhitehorn stdu %r1,-48-12*8(%r1) # stack space for 8 regs + header 129216780Snwhitehorn # + 2 save regs 130291668Snwhitehorn std %r3,64+0*8(%r1) # save r3-r10 (arguments) 131216780Snwhitehorn std %r4,64+1*8(%r1) 132216780Snwhitehorn std %r5,64+2*8(%r1) 133216780Snwhitehorn std %r6,64+3*8(%r1) 134216780Snwhitehorn std %r7,64+4*8(%r1) 135216780Snwhitehorn std %r8,64+5*8(%r1) 136216780Snwhitehorn std %r9,64+6*8(%r1) 137216780Snwhitehorn std %r10,64+7*8(%r1) 138209885Snwhitehorn 139291668Snwhitehorn mr %r3,%r11 140293018Snwhitehorn mulli %r4,%r12,24 # Multiply index by sizeof(Elf_Rela) 141293018Snwhitehorn 142218824Snwhitehorn bl _rtld_bind # target addr = _rtld_bind(obj, reloff) 143209885Snwhitehorn nop 144209885Snwhitehorn 145291668Snwhitehorn#if !defined(_CALL_ELF) || _CALL_ELF == 1 146209885Snwhitehorn ld %r2,8(%r3) 147209885Snwhitehorn ld %r11,16(%r3) 148209885Snwhitehorn ld %r3,0(%r3) 149291668Snwhitehorn#else 150291668Snwhitehorn mr %r12,%r3 151291668Snwhitehorn#endif 152107572Sgrehan mtctr %r3 # move absolute target addr into ctr 153107572Sgrehan 154291668Snwhitehorn ld %r3,64+0*8(%r1) # restore r3-r10 155216780Snwhitehorn ld %r4,64+1*8(%r1) 156216780Snwhitehorn ld %r5,64+2*8(%r1) 157216780Snwhitehorn ld %r6,64+3*8(%r1) 158216780Snwhitehorn ld %r7,64+4*8(%r1) 159216780Snwhitehorn ld %r8,64+5*8(%r1) 160216780Snwhitehorn ld %r9,64+6*8(%r1) 161216780Snwhitehorn ld %r10,64+7*8(%r1) 162209885Snwhitehorn 163216780Snwhitehorn ld %r1,0(%r1) # restore stack 164216780Snwhitehorn ld %r0,8(%r1) # restore cr 165216780Snwhitehorn mtcr %r0 166216780Snwhitehorn ld %r0,16(%r1) # restore lr 167216780Snwhitehorn mtlr %r0 168209885Snwhitehorn 169216780Snwhitehorn bctr # jump to target 170107572Sgrehan 171217397Skib .section .note.GNU-stack,"",%progbits 172