gcc/config/ia64/crtbegin.asm

   1 /* Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc.
   2    Contributed by Jes Sorensen, <Jes.Sorensen@cern.ch>
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Library General Public License as
   6    published by the Free Software Foundation; either version 2 of the
   7    License, or (at your option) any later version.
   8
   9    The GNU C Library is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Library General Public License for more details.
  13
  14    You should have received a copy of the GNU Library General Public
  15    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17    Boston, MA 02111-1307, USA.  */
  18
  19 #include "auto-host.h"
  20
  21 .section .ctors,"aw","progbits"
  22         .align  8
  23 __CTOR_LIST__:
  24         data8   -1
  25
  26 .section .dtors,"aw","progbits"
  27         .align  8
  28 __DTOR_LIST__:
  29         data8   -1
  30
  31 .section .jcr,"aw","progbits"
  32         .align  8
  33 __JCR_LIST__:
  34
  35 .section .sdata
  36         .type dtor_ptr,@object
  37         .size dtor_ptr,8
  38 dtor_ptr:
  39         data8   @gprel(__DTOR_LIST__ + 8)
  40
  41         /* A handle for __cxa_finalize to manage c++ local destructors.  */
  42         .global __dso_handle
  43         .type __dso_handle,@object
  44         .size __dso_handle,8
  45 #ifdef SHARED
  46         .section .data
  47 __dso_handle:
  48         data8   __dso_handle
  49 #else
  50         .section .bss
  51 __dso_handle:
  52         data8   0
  53 #endif
  54         .hidden __dso_handle
  55
  56
  57 #ifdef HAVE_INITFINI_ARRAY
  58
  59 .section .fini_array,"a"
  60         data8 @fptr(__do_global_dtors_aux)
  61
  62 .section .init_array,"a"
  63         data8 @fptr(__do_jv_register_classes)
  64         data8 @fptr(__do_global_ctors_aux)
  65
  66 #else /* !HAVE_INITFINI_ARRAY */
  67 /*
  68  * Fragment of the ELF _fini routine that invokes our dtor cleanup.
  69  *
  70  * We make the call by indirection, because in large programs the
  71  * .fini and .init sections are not in range of the destination, and
  72  * we cannot allow the linker to insert a stub at the end of this
  73  * fragment of the _fini function.  Further, Itanium does not implement
  74  * the long branch instructions, and we do not wish every program to
  75  * trap to the kernel for emulation.
  76  *
  77  * Note that we require __do_global_dtors_aux to preserve the GP,
  78  * so that the next fragment in .fini gets the right value.
  79  */
  80 .section .fini,"ax","progbits"
  81         { .mlx
  82           movl r2 = @pcrel(__do_global_dtors_aux - 16)
  83         }
  84         { .mii
  85           mov r3 = ip
  86           ;;
  87           add r2 = r2, r3
  88           ;;
  89         }
  90         { .mib
  91           mov b6 = r2
  92           br.call.sptk.many b0 = b6
  93           ;;
  94         }
  95
  96 /* Likewise for _init.  */
  97
  98 .section .init,"ax","progbits"
  99         { .mlx
 100           movl r2 = @pcrel(__do_jv_register_classes - 16)
 101         }
 102         { .mii
 103           mov r3 = ip
 104           ;;
 105           add r2 = r2, r3
 106           ;;
 107         }
 108         { .mib
 109           mov b6 = r2
 110           br.call.sptk.many b0 = b6
 111           ;;
 112         }
 113 #endif /* !HAVE_INITFINI_ARRAY */
 114
 115 .section .text
 116         .align  32
 117         .proc   __do_global_dtors_aux
 118 __do_global_dtors_aux:
 119         .prologue
 120 #ifndef SHARED
 121         .save ar.pfs, r35
 122         alloc loc3 = ar.pfs, 0, 4, 1, 0
 123         addl loc0 = @gprel(dtor_ptr), gp
 124         .save rp, loc1
 125         mov loc1 = rp
 126         .body
 127
 128         mov loc2 = gp
 129         nop 0
 130         br.sptk.many 1f
 131         ;;
 132 #else
 133         /*
 134                 if (__cxa_finalize)
 135                   __cxa_finalize(__dso_handle)
 136         */
 137         .save ar.pfs, r35
 138         alloc loc3 = ar.pfs, 0, 4, 1, 0
 139         addl loc0 = @gprel(dtor_ptr), gp
 140         addl r16 = @ltoff(@fptr(__cxa_finalize)), gp
 141         ;;
 142
 143         ld8 r16 = [r16]
 144         ;;
 145         addl out0 = @ltoff(__dso_handle), gp
 146         cmp.ne p7, p0 = r0, r16
 147         ;;
 148
 149         ld8 out0 = [out0]
 150 (p7)    ld8 r18 = [r16], 8
 151         .save rp, loc1
 152         mov loc1 = rp
 153         .body
 154         ;;
 155
 156         mov loc2 = gp
 157 (p7)    ld8 gp = [r16]
 158 (p7)    mov b6 = r18
 159
 160         nop 0
 161         nop 0
 162 (p7)    br.call.sptk.many rp = b6
 163         ;;
 164
 165         nop 0
 166         nop 0
 167         br.sptk.many 1f
 168 #endif
 169         /*
 170                 do {
 171                   dtor_ptr++;
 172                   (*(dtor_ptr-1)) ();
 173                 } while (dtor_ptr);
 174         */
 175 0:
 176         st8 [loc0] = r15                // update dtor_ptr (in memory)
 177         ld8 r17 = [r16], 8              // r17 <- dtor's entry-point
 178         nop 0
 179         ;;
 180
 181         ld8 gp = [r16]                  // gp <- dtor's gp
 182         mov b6 = r17
 183         br.call.sptk.many rp = b6
 184
 185 1:      ld8 r15 = [loc0]                // r15 <- dtor_ptr (gp-relative)
 186         ;;
 187         add r16 = r15, loc2             // r16 <- dtor_ptr (absolute)
 188         adds r15 = 8, r15
 189         ;;
 190
 191         ld8 r16 = [r16]                 // r16 <- pointer to dtor's fdesc
 192         mov rp = loc1
 193         mov ar.pfs = loc3
 194         ;;
 195
 196         cmp.ne p6, p0 = r0, r16
 197 (p6)    br.cond.sptk.few 0b
 198         br.ret.sptk.many rp
 199         .endp __do_global_dtors_aux
 200
 201         .align  32
 202         .proc   __do_jv_register_classes
 203 __do_jv_register_classes:
 204         .save ar.pfs, r33
 205         alloc loc1 = ar.pfs, 0, 2, 1, 0
 206         movl out0 = @gprel(__JCR_LIST__)
 207         ;;
 208
 209         addl r14 = @ltoff(@fptr(_Jv_RegisterClasses)), gp
 210         add out0 = out0, gp
 211         .save rp, loc0
 212         mov loc0 = rp
 213         .body
 214         ;;
 215
 216         ld8 r14 = [r14]
 217         ld8 r15 = [out0]
 218         cmp.ne p6, p0 = r0, r0
 219         ;;
 220
 221         cmp.eq.or p6, p0 = r0, r14
 222         cmp.eq.or p6, p0 = r0, r15
 223 (p6)    br.ret.sptk.many rp
 224
 225         ld8 r15 = [r14], 8
 226         ;;
 227         ld8 gp = [r14]
 228         mov b6 = r15
 229
 230         nop 0
 231         nop 0
 232         br.call.sptk.many rp = b6
 233         ;;
 234
 235         nop 0
 236         mov rp = loc0
 237         mov ar.pfs = loc1
 238
 239         nop 0
 240         nop 0
 241         br.ret.sptk.many rp
 242         .endp   __do_jv_register_classes
 243
 244 #ifdef SHARED
 245 .weak __cxa_finalize
 246 #endif
 247 .weak _Jv_RegisterClasses