sysdeps/s390/s390-64/crti.S

   1 /* Special .init and .fini section support for 64 bit S/390.
   2    Copyright (C) 2001-2015 Free Software Foundation, Inc.
   3    Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
   4    This file is part of the GNU C Library.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    In addition to the permissions in the GNU Lesser General Public
  12    License, the Free Software Foundation gives you unlimited
  13    permission to link the compiled version of this file with other
  14    programs, and to distribute those programs without any restriction
  15    coming from the use of this file. (The GNU Lesser General Public
  16    License restrictions do apply in other respects; for example, they
  17    cover modification of the file, and distribution when not linked
  18    into another program.)
  19
  20    Note that people who make modified versions of this file are not
  21    obligated to grant this special exception for their modified
  22    versions; it is their choice whether to do so. The GNU Lesser
  23    General Public License gives permission to release a modified
  24    version without this exception; this exception also makes it
  25    possible to release a modified version which carries forward this
  26    exception.
  27
  28    The GNU C Library is distributed in the hope that it will be useful,
  29    but WITHOUT ANY WARRANTY; without even the implied warranty of
  30    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  31    Lesser General Public License for more details.
  32
  33    You should have received a copy of the GNU Lesser General Public
  34    License along with the GNU C Library; if not, see
  35    <http://www.gnu.org/licenses/>.  */
  36
  37 /* crti.S puts a function prologue at the beginning of the .init and
  38    .fini sections and defines global symbols for those addresses, so
  39    they can be called as functions.  The symbols _init and _fini are
  40    magic and cause the linker to emit DT_INIT and DT_FINI.  */
  41
  42 #include <libc-symbols.h>
  43 #include <sysdep.h>
  44
  45 #ifndef PREINIT_FUNCTION
  46 # define PREINIT_FUNCTION __gmon_start__
  47 #endif
  48
  49 #ifndef PREINIT_FUNCTION_WEAK
  50 # define PREINIT_FUNCTION_WEAK 1
  51 #endif
  52
  53 #if PREINIT_FUNCTION_WEAK
  54         weak_extern (PREINIT_FUNCTION)
  55 #else
  56         .hidden PREINIT_FUNCTION
  57 #endif
  58
  59         .section .init,"ax",@progbits
  60         .align 4
  61         .globl  _init
  62         .type   _init,@function
  63 _init:
  64         stmg    %r6,%r15,48(%r15)
  65         lgr     %r1,%r15
  66         aghi    %r15,-160
  67         stg     %r1,0(%r15)
  68         larl    %r12,_GLOBAL_OFFSET_TABLE_
  69 #if PREINIT_FUNCTION_WEAK
  70         larl    %r1,PREINIT_FUNCTION@GOTENT
  71         lg      %r1,0(%r1)
  72         ltgr    %r1,%r1
  73         je      1f
  74         basr    %r14,%r1
  75 #else
  76         brasl   %r14,PREINIT_FUNCTION
  77 #endif
  78         .align  4,0x07
  79 1:
  80
  81         .section .fini,"ax",@progbits
  82         .align 4
  83         .globl  _fini
  84         .type   _fini,@function
  85 _fini:
  86         stmg    %r6,%r15,48(%r15)
  87         lgr     %r1,%r15
  88         aghi    %r15,-160
  89         stg     %r1,0(%r15)
  90         larl    %r12,_GLOBAL_OFFSET_TABLE_
  91         .align  4,0x07