9c10932a313e5f74d03dba7eb491071a539a2156
[kopensolaris-gnu/glibc.git] / nptl / unwind-forcedunwind.c
1 /* Copyright (C) 2003 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Jakub Jelinek <jakub@redhat.com>.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public License as
7    published by the Free Software Foundation; either version 2.1 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 #include <dlfcn.h>
21 #include <stdio.h>
22 #include <unwind.h>
23 #include <pthreadP.h>
24
25 static void (*libgcc_s_resume) (struct _Unwind_Exception *exc);
26 static _Unwind_Reason_Code (*libgcc_s_personality)
27   (int, _Unwind_Action, _Unwind_Exception_Class, struct _Unwind_Exception *,
28    struct _Unwind_Context *);
29 static _Unwind_Reason_Code (*libgcc_s_forcedunwind)
30   (struct _Unwind_Exception *, _Unwind_Stop_Fn, void *);
31 static _Unwind_Word (*libgcc_s_getcfa) (struct _Unwind_Context *);
32
33 void
34 pthread_cancel_init (void)
35 {
36   void *resume, *personality, *forcedunwind, *getcfa;
37   void *handle;
38
39   if (__builtin_expect (libgcc_s_getcfa != NULL, 1))
40     return;
41
42   handle = __libc_dlopen ("libgcc_s.so.1");
43
44   if (handle == NULL
45       || (resume = __libc_dlsym (handle, "_Unwind_Resume")) == NULL
46       || (personality = __libc_dlsym (handle, "__gcc_personality_v0")) == NULL
47       || (forcedunwind = __libc_dlsym (handle, "_Unwind_ForcedUnwind"))
48          == NULL
49       || (getcfa = __libc_dlsym (handle, "_Unwind_GetCFA")) == NULL)
50     __libc_fatal ("libgcc_s.so.1 must be installed for pthread_cancel to work\n");
51
52   libgcc_s_resume = resume;
53   libgcc_s_personality = personality;
54   libgcc_s_forcedunwind = forcedunwind;
55   libgcc_s_getcfa = getcfa;
56 }
57
58 void
59 _Unwind_Resume (struct _Unwind_Exception *exc)
60 {
61   if (__builtin_expect (libgcc_s_resume == NULL, 0))
62     pthread_cancel_init ();
63   libgcc_s_resume (exc);
64 }
65
66 _Unwind_Reason_Code
67 __gcc_personality_v0 (int version, _Unwind_Action actions,
68                       _Unwind_Exception_Class exception_class,
69                       struct _Unwind_Exception *ue_header,
70                       struct _Unwind_Context *context)
71 {
72   if (__builtin_expect (libgcc_s_personality == NULL, 0))
73     pthread_cancel_init ();
74   return libgcc_s_personality (version, actions, exception_class,
75                                ue_header, context);
76 }
77
78 _Unwind_Reason_Code
79 _Unwind_ForcedUnwind (struct _Unwind_Exception *exc, _Unwind_Stop_Fn stop,
80                       void *stop_argument)
81 {
82   if (__builtin_expect (libgcc_s_forcedunwind == NULL, 0))
83     pthread_cancel_init ();
84   return libgcc_s_forcedunwind (exc, stop, stop_argument);
85 }
86
87 _Unwind_Word
88 _Unwind_GetCFA (struct _Unwind_Context *context)
89 {
90   if (__builtin_expect (libgcc_s_getcfa == NULL, 0))
91     pthread_cancel_init ();
92   return libgcc_s_getcfa (context);
93 }