Mercurial > hg > CbC > CbC_gcc

comparison gcc/unwind-sjlj.c @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 /* SJLJ exception handling and frame unwind runtime interface routines.
2 Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006,
3 2009 Free Software Foundation, Inc.
4
5 This file is part of GCC.
6
7 GCC is free software; you can redistribute it and/or modify it
8 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, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
15 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 #include "tconfig.h"
27 #include "tsystem.h"
28 #include "coretypes.h"
29 #include "tm.h"
30 #include "unwind.h"
31 #include "gthr.h"
32
33 #ifdef __USING_SJLJ_EXCEPTIONS__
34
35 #ifdef DONT_USE_BUILTIN_SETJMP
36 #ifndef inhibit_libc
37 #include <setjmp.h>
38 #else
39 typedef void *jmp_buf[JMP_BUF_SIZE];
40 extern void longjmp(jmp_buf, int) __attribute__((noreturn));
41 #endif
42 #else
43 #define longjmp __builtin_longjmp
44 #endif
45
46 /* The setjmp side is dealt with in the except.c file. */
47 #undef setjmp
48 #define setjmp setjmp_should_not_be_used_in_this_file
49
50
51 /* This structure is allocated on the stack of the target function.
52 This must match the definition created in except.c:init_eh. */
53 struct SjLj_Function_Context
54 {
55 /* This is the chain through all registered contexts. It is
56 filled in by _Unwind_SjLj_Register. */
57 struct SjLj_Function_Context *prev;
58
59 /* This is assigned in by the target function before every call
60 to the index of the call site in the lsda. It is assigned by
61 the personality routine to the landing pad index. */
62 int call_site;
63
64 /* This is how data is returned from the personality routine to
65 the target function's handler. */
66 _Unwind_Word data[4];
67
68 /* These are filled in once by the target function before any
69 exceptions are expected to be handled. */
70 _Unwind_Personality_Fn personality;
71 void *lsda;
72
73 #ifdef DONT_USE_BUILTIN_SETJMP
74 /* We don't know what sort of alignment requirements the system
75 jmp_buf has. We over estimated in except.c, and now we have
76 to match that here just in case the system *didn't* have more
77 restrictive requirements. */
78 jmp_buf jbuf __attribute__((aligned));
79 #else
80 void *jbuf[];
81 #endif
82 };
83
84 struct _Unwind_Context
85 {
86 struct SjLj_Function_Context *fc;
87 };
88
89 typedef struct
90 {
91 _Unwind_Personality_Fn personality;
92 } _Unwind_FrameState;
93
94
95 /* Manage the chain of registered function contexts. */
96
97 /* Single threaded fallback chain. */
98 static struct SjLj_Function_Context *fc_static;
99
100 #if __GTHREADS
101 static __gthread_key_t fc_key;
102 static int use_fc_key = -1;
103
104 static void
105 fc_key_init (void)
106 {
107 use_fc_key = __gthread_key_create (&fc_key, 0) == 0;
108 }
109
110 static void
111 fc_key_init_once (void)
112 {
113 static __gthread_once_t once = __GTHREAD_ONCE_INIT;
114 if (__gthread_once (&once, fc_key_init) != 0 || use_fc_key < 0)
115 use_fc_key = 0;
116 }
117 #endif
118
119 void
120 _Unwind_SjLj_Register (struct SjLj_Function_Context *fc)
121 {
122 #if __GTHREADS
123 if (use_fc_key < 0)
124 fc_key_init_once ();
125
126 if (use_fc_key)
127 {
128 fc->prev = __gthread_getspecific (fc_key);
129 __gthread_setspecific (fc_key, fc);
130 }
131 else
132 #endif
133 {
134 fc->prev = fc_static;
135 fc_static = fc;
136 }
137 }
138
139 static inline struct SjLj_Function_Context *
140 _Unwind_SjLj_GetContext (void)
141 {
142 #if __GTHREADS
143 if (use_fc_key < 0)
144 fc_key_init_once ();
145
146 if (use_fc_key)
147 return __gthread_getspecific (fc_key);
148 #endif
149 return fc_static;
150 }
151
152 static inline void
153 _Unwind_SjLj_SetContext (struct SjLj_Function_Context *fc)
154 {
155 #if __GTHREADS
156 if (use_fc_key < 0)
157 fc_key_init_once ();
158
159 if (use_fc_key)
160 __gthread_setspecific (fc_key, fc);
161 else
162 #endif
163 fc_static = fc;
164 }
165
166 void
167 _Unwind_SjLj_Unregister (struct SjLj_Function_Context *fc)
168 {
169 _Unwind_SjLj_SetContext (fc->prev);
170 }
171
172
173 /* Get/set the return data value at INDEX in CONTEXT. */
174
175 _Unwind_Word
176 _Unwind_GetGR (struct _Unwind_Context *context, int index)
177 {
178 return context->fc->data[index];
179 }
180
181 /* Get the value of the CFA as saved in CONTEXT. */
182
183 _Unwind_Word
184 _Unwind_GetCFA (struct _Unwind_Context *context __attribute__((unused)))
185 {
186 /* ??? Ideally __builtin_setjmp places the CFA in the jmpbuf. */
187
188 #ifndef DONT_USE_BUILTIN_SETJMP
189 /* This is a crude imitation of the CFA: the saved stack pointer.
190 This is roughly the CFA of the frame before CONTEXT. When using the
191 DWARF-2 unwinder _Unwind_GetCFA returns the CFA of the frame described
192 by CONTEXT instead; but for DWARF-2 the cleanups associated with
193 CONTEXT have already been run, and for SJLJ they have not yet been. */
194 if (context->fc != NULL)
195 return (_Unwind_Word) context->fc->jbuf[2];
196 #endif
197
198 /* Otherwise we're out of luck for now. */
199 return (_Unwind_Word) 0;
200 }
201
202 void
203 _Unwind_SetGR (struct _Unwind_Context *context, int index, _Unwind_Word val)
204 {
205 context->fc->data[index] = val;
206 }
207
208 /* Get the call-site index as saved in CONTEXT. */
209
210 _Unwind_Ptr
211 _Unwind_GetIP (struct _Unwind_Context *context)
212 {
213 return context->fc->call_site + 1;
214 }
215
216 _Unwind_Ptr
217 _Unwind_GetIPInfo (struct _Unwind_Context *context, int *ip_before_insn)
218 {
219 *ip_before_insn = 0;
220 if (context->fc != NULL)
221 return context->fc->call_site + 1;
222 else
223 return 0;
224 }
225
226 /* Set the return landing pad index in CONTEXT. */
227
228 void
229 _Unwind_SetIP (struct _Unwind_Context *context, _Unwind_Ptr val)
230 {
231 context->fc->call_site = val - 1;
232 }
233
234 void *
235 _Unwind_GetLanguageSpecificData (struct _Unwind_Context *context)
236 {
237 return context->fc->lsda;
238 }
239
240 _Unwind_Ptr
241 _Unwind_GetRegionStart (struct _Unwind_Context *context __attribute__((unused)) )
242 {
243 return 0;
244 }
245
246 void *
247 _Unwind_FindEnclosingFunction (void *pc __attribute__((unused)))
248 {
249 return NULL;
250 }
251
252 #ifndef __ia64__
253 _Unwind_Ptr
254 _Unwind_GetDataRelBase (struct _Unwind_Context *context __attribute__((unused)) )
255 {
256 return 0;
257 }
258
259 _Unwind_Ptr
260 _Unwind_GetTextRelBase (struct _Unwind_Context *context __attribute__((unused)) )
261 {
262 return 0;
263 }
264 #endif
265
266 static inline _Unwind_Reason_Code
267 uw_frame_state_for (struct _Unwind_Context *context, _Unwind_FrameState *fs)
268 {
269 if (context->fc == NULL)
270 {
271 fs->personality = NULL;
272 return _URC_END_OF_STACK;
273 }
274 else
275 {
276 fs->personality = context->fc->personality;
277 return _URC_NO_REASON;
278 }
279 }
280
281 static inline void
282 uw_update_context (struct _Unwind_Context *context,
283 _Unwind_FrameState *fs __attribute__((unused)) )
284 {
285 context->fc = context->fc->prev;
286 }
287
288 static void
289 uw_advance_context (struct _Unwind_Context *context, _Unwind_FrameState *fs)
290 {
291 _Unwind_SjLj_Unregister (context->fc);
292 uw_update_context (context, fs);
293 }
294
295 static inline void
296 uw_init_context (struct _Unwind_Context *context)
297 {
298 context->fc = _Unwind_SjLj_GetContext ();
299 }
300
301 static void __attribute__((noreturn))
302 uw_install_context (struct _Unwind_Context *current __attribute__((unused)),
303 struct _Unwind_Context *target)
304 {
305 _Unwind_SjLj_SetContext (target->fc);
306 longjmp (target->fc->jbuf, 1);
307 }
308
309 static inline _Unwind_Ptr
310 uw_identify_context (struct _Unwind_Context *context)
311 {
312 return (_Unwind_Ptr) context->fc;
313 }
314
315
316 /* Play games with unwind symbols so that we can have call frame
317 and sjlj symbols in the same shared library. Not that you can
318 use them simultaneously... */
319 #define _Unwind_RaiseException _Unwind_SjLj_RaiseException
320 #define _Unwind_ForcedUnwind _Unwind_SjLj_ForcedUnwind
321 #define _Unwind_Resume _Unwind_SjLj_Resume
322 #define _Unwind_Resume_or_Rethrow _Unwind_SjLj_Resume_or_Rethrow
323
324 #include "unwind.inc"
325
326 #endif /* USING_SJLJ_EXCEPTIONS */