libgcc/config/frv/frvbegin.c

   1 /* Frv initialization file linked before all user modules
   2    Copyright (C) 1999-2022 Free Software Foundation, Inc.
   3     Contributed by Red Hat, Inc.
   4
   5    This file is part of GCC.
   6
   7    GCC is free software ; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3, or (at your option)
  10    any later version.
  11
  12    GCC is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY ; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    Under Section 7 of GPL version 3, you are granted additional
  18    permissions described in the GCC Runtime Library Exception, version
  19    3.1, as published by the Free Software Foundation.
  20
  21    You should have received a copy of the GNU General Public License and
  22    a copy of the GCC Runtime Library Exception along with this program;
  23    see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  24    <http://www.gnu.org/licenses/>.
  25
  26    This file was originally taken from the file crtstuff.c in the
  27    main compiler directory, and simplified.  */
  28
  29 #include <stddef.h>
  30 #include "../libgcc/unwind-dw2-fde.h"
  31 #include "gbl-ctors.h"
  32
  33 /*  Declare a pointer to void function type.  */
  34 #define STATIC static
  35
  36 #ifdef __FRV_UNDERSCORE__
  37 #define UNDERSCORE "_"
  38 #else
  39 #define UNDERSCORE ""
  40 #endif
  41
  42 #define INIT_SECTION_NEG_ONE(SECTION, FLAGS, NAME)                      \
  43 __asm__ (".section " SECTION "," FLAGS "\n\t"                           \
  44          ".globl   " UNDERSCORE NAME "\n\t"                             \
  45          ".type    " UNDERSCORE NAME ",@object\n\t"                     \
  46          ".p2align  2\n"                                                \
  47          UNDERSCORE NAME ":\n\t"                                        \
  48          ".word     -1\n\t"                                             \
  49          ".previous")
  50
  51 #define INIT_SECTION(SECTION, FLAGS, NAME)                              \
  52 __asm__ (".section " SECTION "," FLAGS "\n\t"                           \
  53          ".globl   " UNDERSCORE NAME "\n\t"                             \
  54          ".type    " UNDERSCORE NAME ",@object\n\t"                     \
  55          ".p2align  2\n"                                                \
  56          UNDERSCORE NAME ":\n\t"                                        \
  57          ".previous")
  58
  59 /* Beginning of .ctor/.dtor sections that provides a list of constructors and
  60    destructors to run.  */
  61
  62 INIT_SECTION_NEG_ONE (".ctors", "\"a\"", "__CTOR_LIST__");
  63 INIT_SECTION_NEG_ONE (".dtors", "\"a\"", "__DTOR_LIST__");
  64
  65 /* Beginning of .eh_frame section that provides all of the exception handling
  66    tables.  */
  67
  68 INIT_SECTION (".eh_frame", "\"aw\"", "__EH_FRAME_BEGIN__");
  69
  70 #if ! __FRV_FDPIC__
  71 /* In FDPIC, the linker itself generates this.  */
  72 /* Beginning of .rofixup section that provides a list of pointers that we
  73    need to adjust.  */
  74
  75 INIT_SECTION (".rofixup", "\"a\"", "__ROFIXUP_LIST__");
  76 #endif /* __FRV_FDPIC__ */
  77
  78 extern void __frv_register_eh(void) __attribute__((__constructor__));
  79 extern void __frv_deregister_eh(void) __attribute__((__destructor__));
  80
  81 extern func_ptr __EH_FRAME_BEGIN__[];
  82
  83 /* Register the exception handling table as the first constructor.  */
  84 void
  85 __frv_register_eh (void)
  86 {
  87   static struct object object;
  88   if (__register_frame_info)
  89     __register_frame_info (__EH_FRAME_BEGIN__, &object);
  90 }
  91
  92 /* Note, do not declare __{,de}register_frame_info weak as it seems
  93    to interfere with the pic support.  */
  94
  95 /* Unregister the exception handling table as a deconstructor.  */
  96 void
  97 __frv_deregister_eh (void)
  98 {
  99   static int completed = 0;
 100
 101   if (completed)
 102     return;
 103
 104   if (__deregister_frame_info)
 105     __deregister_frame_info (__EH_FRAME_BEGIN__);
 106
 107   completed = 1;
 108 }
 109
 110 /* Run the global destructors.  */
 111 void
 112 __do_global_dtors (void)
 113 {
 114   static func_ptr *p = __DTOR_LIST__ + 1;
 115   while (*p)
 116     {
 117       p++;
 118       (*(p-1)) ();
 119     }
 120 }
 121
 122 /* Run the global constructors.  */
 123 void
 124 __do_global_ctors (void)
 125 {
 126   unsigned long nptrs = (unsigned long) __CTOR_LIST__[0];
 127   unsigned i;
 128
 129   if (nptrs == (unsigned long)-1)
 130     for (nptrs = 0; __CTOR_LIST__[nptrs + 1] != 0; nptrs++);
 131
 132   for (i = nptrs; i >= 1; i--)
 133     __CTOR_LIST__[i] ();
 134
 135   atexit (__do_global_dtors);
 136 }
 137
 138 /* Subroutine called automatically by `main'.
 139    Compiling a global function named `main'
 140    produces an automatic call to this function at the beginning.
 141
 142    For many systems, this routine calls __do_global_ctors.
 143    For systems which support a .init section we use the .init section
 144    to run __do_global_ctors, so we need not do anything here.  */
 145
 146 void
 147 __main (void)
 148 {
 149   /* Support recursive calls to `main': run initializers just once.  */
 150   static int initialized;
 151   if (! initialized)
 152     {
 153       initialized = 1;
 154       __do_global_ctors ();
 155     }
 156 }