libc/sysdeps/linux/hppa/crt1.S

   1 /* ELF startup code for HPPA.
   2    Copyright (C) 2002 Free Software Foundation, Inc.
   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    In addition to the permissions in the GNU Lesser General Public
  11    License, the Free Software Foundation gives you unlimited
  12    permission to link the compiled version of this file with other
  13    programs, and to distribute those programs without any restriction
  14    coming from the use of this file. (The GNU Lesser General Public
  15    License restrictions do apply in other respects; for example, they
  16    cover modification of the file, and distribution when not linked
  17    into another program.)
  18
  19    Note that people who make modified versions of this file are not
  20    obligated to grant this special exception for their modified
  21    versions; it is their choice whether to do so. The GNU Lesser
  22    General Public License gives permission to release a modified
  23    version without this exception; this exception also makes it
  24    possible to release a modified version which carries forward this
  25    exception.
  26
  27    The GNU C Library is distributed in the hope that it will be useful,
  28    but WITHOUT ANY WARRANTY; without even the implied warranty of
  29    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  30    Lesser General Public License for more details.
  31
  32    You should have received a copy of the GNU Lesser General Public
  33    License along with the GNU C Library; if not, see
  34    <http://www.gnu.org/licenses/>.  */
  35
  36         .import main, code
  37         .import $global$, data
  38         .import __uClibc_main, code
  39 #if defined(__UCLIBC_CTOR_DTOR__)
  40         .import _fini, code
  41         .import _init, code
  42 #else
  43         .weak _fini
  44         .weak _init
  45 #endif
  46
  47         /* Have the linker create plabel words
  48            so we get PLABEL32 relocs and not 21/14 */
  49         .section        .rodata
  50         .align 4
  51 .Lpmain:
  52         .word P%main
  53 .Lp__uClibc_main:
  54         .word P%__uClibc_main
  55 .Lp_fini:
  56         .word P%_fini
  57 .Lp_init:
  58         .word P%_init
  59
  60         .text
  61         .align 4
  62         .globl _start
  63         .export _start, ENTRY
  64         .type _start,@function
  65 _start:
  66
  67         .proc
  68         .callinfo
  69
  70         /* Expand the stack to store the 5th through 7th args */
  71         ldo     64(%sp), %sp
  72         /* TODO: Follow ABI? Place more things on the stack here... */
  73
  74 #ifdef __PIC__
  75         /* load main (1st argument) */
  76         addil   LR'.Lpmain, %r19
  77         ldw     RR'.Lpmain(%r1), %r26
  78         ldw     0(%r26),%r26
  79         /* argc and argv should be in 25 and 24 (2nd and 3rd argument) */
  80         /* void (*init) (void) (4th argument) */
  81         addil   LR'.Lp_init, %r19
  82         ldw     RR'.Lp_init(%r1), %r23
  83         ldw     0(%r23), %r23
  84         /* void (*fini) (void) (5th argument) */
  85         addil   LR'.Lp_fini, %r19
  86         ldw     RR'.Lp_fini(%r1), %r22
  87         ldw     0(%r22), %r22
  88 #else
  89         /* load main (1st argument) */
  90         ldil    LR'.Lpmain, %r26
  91         ldw     RR'.Lpmain(%r26), %r26
  92         /* argc and argv should be in 25 and 24 (2nd and 3rd argument) */
  93         /* void (*init) (void) (4th argument) */
  94         ldil    LR'.Lp_init, %r23
  95         ldw     RR'.Lp_init(%r23), %r23
  96         /* void (*fini) (void) (5th argument) */
  97         ldil    LR'.Lp_fini, %r22
  98         ldw     RR'.Lp_fini(%r22), %r22
  99 #endif
 100         /* Store 5th argument */
 101         stw     %r22, -52(%sp)
 102         /* void (*rtld_fini) (void) (6th argument) */
 103         stw     %r23, -56(%sp)
 104         /* void *stack_end (7th argument) */
 105         stw     %sp, -60(%sp)
 106
 107         /* load global */
 108         ldil    L%$global$, %dp
 109         ldo     R%$global$(%dp), %dp
 110
 111         bl      __uClibc_main,%r2
 112         nop
 113         /* die horribly if it returned (it shouldn't) */
 114         iitlbp %r0,(%sr0,%r0)
 115         nop
 116
 117         .procend
 118
 119 /* Define a symbol for the first piece of initialized data.  */
 120         .data
 121         .globl __data_start
 122 __data_start:
 123         .long 0
 124         .weak data_start
 125         data_start = __data_start