1/* Frv initialization file linked before all user modules
2   Copyright (C) 1999-2020 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
62INIT_SECTION_NEG_ONE (".ctors", "\"a\"", "__CTOR_LIST__");
63INIT_SECTION_NEG_ONE (".dtors", "\"a\"", "__DTOR_LIST__");
64
65/* Beginning of .eh_frame section that provides all of the exception handling
66   tables.  */
67
68INIT_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
75INIT_SECTION (".rofixup", "\"a\"", "__ROFIXUP_LIST__");
76#endif /* __FRV_FDPIC__ */
77
78extern void __frv_register_eh(void) __attribute__((__constructor__));
79extern void __frv_deregister_eh(void) __attribute__((__destructor__));
80
81extern func_ptr __EH_FRAME_BEGIN__[];
82
83/* Register the exception handling table as the first constructor.  */
84void
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.  */
96void
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.  */
111void
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.  */
123void
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
146void
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}
157