OSDN Git Service

Fix copyright problems reported by Doug Evans.
[pf3gnuchains/gcc-fork.git] / gcc / config / frv / frvbegin.c
1 /* Frv initialization file linked before all user modules
2    Copyright (C) 1999, 2000, 2003 Free Software Foundation, Inc.
3     Contributed by Red Hat, Inc.
4   
5    This file is part of GNU CC.
6   
7    GNU CC 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 2, or (at your option)
10    any later version.
11   
12    GNU CC 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    You should have received a copy of the GNU General Public License
18    along with GNU CC; see the file COPYING.  If not, write to
19    the Free Software Foundation, 59 Temple Place - Suite 330,
20    Boston, MA 02111-1307, USA.
21
22    This file was originally taken from the file crtstuff.c in the
23    main compiler directory, and simplified. */
24
25 /* As a special exception, if you link this library with other files,
26    some of which are compiled with GCC, to produce an executable,
27    this library does not by itself cause the resulting executable
28    to be covered by the GNU General Public License.
29    This exception does not however invalidate any other reasons why
30    the executable file might be covered by the GNU General Public License.  */
31
32 #include "defaults.h"
33 #include <stddef.h>
34 #include "unwind-dw2-fde.h"
35 #include "gbl-ctors.h"
36
37 /*  Declare a pointer to void function type.  */
38 #define STATIC static
39
40 #ifdef __FRV_UNDERSCORE__
41 #define UNDERSCORE "_"
42 #else
43 #define UNDERSCORE ""
44 #endif
45
46 #define INIT_SECTION_NEG_ONE(SECTION, FLAGS, NAME)                      \
47 __asm__ (".section " SECTION "," FLAGS "\n\t"                           \
48          ".globl   " UNDERSCORE NAME "\n\t"                             \
49          ".type    " UNDERSCORE NAME ",@object\n\t"                     \
50          ".p2align  2\n"                                                \
51          UNDERSCORE NAME ":\n\t"                                        \
52          ".word     -1\n\t"                                             \
53          ".previous")
54
55 #define INIT_SECTION(SECTION, FLAGS, NAME)                              \
56 __asm__ (".section " SECTION "," FLAGS "\n\t"                           \
57          ".globl   " UNDERSCORE NAME "\n\t"                             \
58          ".type    " UNDERSCORE NAME ",@object\n\t"                     \
59          ".p2align  2\n"                                                \
60          UNDERSCORE NAME ":\n\t"                                        \
61          ".previous")
62
63 /* Beginning of .ctor/.dtor sections that provides a list of constructors and
64    destructors to run.  */
65
66 INIT_SECTION_NEG_ONE (".ctors", "\"aw\"", "__CTOR_LIST__");
67 INIT_SECTION_NEG_ONE (".dtors", "\"aw\"", "__DTOR_LIST__");
68
69 /* Beginning of .eh_frame section that provides all of the exception handling
70    tables.  */
71
72 INIT_SECTION (".eh_frame", "\"aw\"", "__EH_FRAME_BEGIN__");
73
74 /* Beginning of .rofixup section that provides a list of pointers that we
75    need to adjust.  */
76
77 INIT_SECTION (".rofixup", "\"a\"", "__ROFIXUP_LIST__");
78
79 extern void __frv_register_eh(void) __attribute__((__constructor__));
80 extern void __frv_deregister_eh(void) __attribute__((__destructor__));
81
82 extern func_ptr __EH_FRAME_BEGIN__[];
83
84 /* Register the exeception handling table as the first constructor */
85 void
86 __frv_register_eh (void)
87 {
88   static struct object object;
89   if (__register_frame_info)
90     __register_frame_info (__EH_FRAME_BEGIN__, &object);
91 }
92
93 /* Note, do not declare __{,de}register_frame_info weak as it seems
94    to interfere with the pic support.  */
95
96 /* Unregister the exeception handling table as a deconstructor */
97 void
98 __frv_deregister_eh (void)
99 {
100   static int completed = 0;
101
102   if (completed)
103     return;
104
105   if (__deregister_frame_info)
106     __deregister_frame_info (__EH_FRAME_BEGIN__);
107
108   completed = 1;
109 }
110
111 /* Run the global destructors */
112 void
113 __do_global_dtors ()
114 {
115   static func_ptr *p = __DTOR_LIST__ + 1;
116   while (*p)
117     {
118       p++;
119       (*(p-1)) ();
120     }
121 }
122
123 /* Run the global constructors */
124 void
125 __do_global_ctors ()
126 {
127   unsigned long nptrs = (unsigned long) __CTOR_LIST__[0];
128   unsigned i;
129
130   if (nptrs == (unsigned long)-1)
131     for (nptrs = 0; __CTOR_LIST__[nptrs + 1] != 0; nptrs++);
132
133   for (i = nptrs; i >= 1; i--)
134     __CTOR_LIST__[i] ();
135
136   atexit (__do_global_dtors);
137 }
138
139 /* Subroutine called automatically by `main'.
140    Compiling a global function named `main'
141    produces an automatic call to this function at the beginning.
142
143    For many systems, this routine calls __do_global_ctors.
144    For systems which support a .init section we use the .init section
145    to run __do_global_ctors, so we need not do anything here.  */
146
147 void
148 __main ()
149 {
150   /* Support recursive calls to `main': run initializers just once.  */
151   static int initialized;
152   if (! initialized)
153     {
154       initialized = 1;
155       __do_global_ctors ();
156     }
157 }