OSDN Git Service

8f2f5c43fe05dc5088d5727abbc2e5c04303e8ff
[pf3gnuchains/gcc-fork.git] / gcc / unwind-c.c
1 /* Supporting functions for C exception handling.
2    Copyright (C) 2002, 2003 Free Software Foundation, Inc.
3    Contributed by Aldy Hernandez <aldy@quesejoda.com>.
4    Shamelessly stolen from the Java front end.
5
6 This file is part of GCC.
7
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2, or (at your option) any later
11 version.
12
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
16 for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING.  If not, write to the Free
20 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
21 02111-1307, USA.  */
22
23 #include "tconfig.h"
24 #include "tsystem.h"
25 #include "unwind.h"
26 #define NO_SIZE_OF_ENCODED_VALUE
27 #include "unwind-pe.h"
28
29 typedef struct
30 {
31   _Unwind_Ptr Start;
32   _Unwind_Ptr LPStart;
33   _Unwind_Ptr ttype_base;
34   const unsigned char *TType;
35   const unsigned char *action_table;
36   unsigned char ttype_encoding;
37   unsigned char call_site_encoding;
38 } lsda_header_info;
39
40 static const unsigned char *
41 parse_lsda_header (struct _Unwind_Context *context, const unsigned char *p,
42                    lsda_header_info *info)
43 {
44   _Unwind_Word tmp;
45   unsigned char lpstart_encoding;
46
47   info->Start = (context ? _Unwind_GetRegionStart (context) : 0);
48
49   /* Find @LPStart, the base to which landing pad offsets are relative.  */
50   lpstart_encoding = *p++;
51   if (lpstart_encoding != DW_EH_PE_omit)
52     p = read_encoded_value (context, lpstart_encoding, p, &info->LPStart);
53   else
54     info->LPStart = info->Start;
55
56   /* Find @TType, the base of the handler and exception spec type data.  */
57   info->ttype_encoding = *p++;
58   if (info->ttype_encoding != DW_EH_PE_omit)
59     {
60       p = read_uleb128 (p, &tmp);
61       info->TType = p + tmp;
62     }
63   else
64     info->TType = 0;
65
66   /* The encoding and length of the call-site table; the action table
67      immediately follows.  */
68   info->call_site_encoding = *p++;
69   p = read_uleb128 (p, &tmp);
70   info->action_table = p + tmp;
71
72   return p;
73 }
74
75 #ifdef __USING_SJLJ_EXCEPTIONS__
76 #define PERSONALITY_FUNCTION    __gcc_personality_sj0
77 #define __builtin_eh_return_data_regno(x) x
78 #else
79 #define PERSONALITY_FUNCTION    __gcc_personality_v0
80 #endif
81 #define PERSONALITY_FUNCTION    __gcc_personality_v0
82
83 _Unwind_Reason_Code
84 PERSONALITY_FUNCTION (int, _Unwind_Action, _Unwind_Exception_Class,
85                       struct _Unwind_Exception *, struct _Unwind_Context *);
86
87 _Unwind_Reason_Code
88 PERSONALITY_FUNCTION (int version,
89                       _Unwind_Action actions,
90                       _Unwind_Exception_Class exception_class ATTRIBUTE_UNUSED,
91                       struct _Unwind_Exception *ue_header,
92                       struct _Unwind_Context *context)
93 {
94   lsda_header_info info;
95   const unsigned char *language_specific_data, *p, *action_record;
96   _Unwind_Ptr landing_pad, ip;
97
98   if (version != 1)
99     return _URC_FATAL_PHASE1_ERROR;
100
101   /* Currently we only support cleanups for C.  */
102   if ((actions & _UA_CLEANUP_PHASE) == 0)
103     return _URC_CONTINUE_UNWIND;
104
105   language_specific_data = (const unsigned char *)
106     _Unwind_GetLanguageSpecificData (context);
107
108   /* If no LSDA, then there are no handlers or cleanups.  */
109   if (! language_specific_data)
110     return _URC_CONTINUE_UNWIND;
111
112   /* Parse the LSDA header.  */
113   p = parse_lsda_header (context, language_specific_data, &info);
114   ip = _Unwind_GetIP (context) - 1;
115   landing_pad = 0;
116
117 #ifdef __USING_SJLJ_EXCEPTIONS__
118   /* The given "IP" is an index into the call-site table, with two
119      exceptions -- -1 means no-action, and 0 means terminate.  But
120      since we're using uleb128 values, we've not got random access
121      to the array.  */
122   if ((int) ip <= 0)
123     return _URC_CONTINUE_UNWIND;
124   else
125     {
126       _Unwind_Word cs_lp, cs_action;
127       do
128         {
129           p = read_uleb128 (p, &cs_lp);
130           p = read_uleb128 (p, &cs_action);
131         }
132       while (--ip);
133
134       /* Can never have null landing pad for sjlj -- that would have
135          been indicated by a -1 call site index.  */
136       landing_pad = cs_lp + 1;
137       if (cs_action)
138         action_record = info.action_table + cs_action - 1;
139       goto found_something;
140     }
141 #else
142   /* Search the call-site table for the action associated with this IP.  */
143   while (p < info.action_table)
144     {
145       _Unwind_Ptr cs_start, cs_len, cs_lp;
146       _Unwind_Word cs_action;
147
148       /* Note that all call-site encodings are "absolute" displacements.  */
149       p = read_encoded_value (0, info.call_site_encoding, p, &cs_start);
150       p = read_encoded_value (0, info.call_site_encoding, p, &cs_len);
151       p = read_encoded_value (0, info.call_site_encoding, p, &cs_lp);
152       p = read_uleb128 (p, &cs_action);
153
154       /* The table is sorted, so if we've passed the ip, stop.  */
155       if (ip < info.Start + cs_start)
156         p = info.action_table;
157       else if (ip < info.Start + cs_start + cs_len)
158         {
159           if (cs_lp)
160             landing_pad = info.LPStart + cs_lp;
161           if (cs_action)
162             action_record = info.action_table + cs_action - 1;
163           goto found_something;
164         }
165     }
166   
167 #endif
168
169   /* IP is not in table.  No associated cleanups.  */
170   /* ??? This is where C++ calls std::terminate to catch throw
171      from a destructor.  */
172   return _URC_CONTINUE_UNWIND;
173
174  found_something:
175   if (landing_pad == 0)
176     {
177       /* IP is present, but has a null landing pad.
178          No handler to be run.  */
179       return _URC_CONTINUE_UNWIND;
180     }
181
182   _Unwind_SetGR (context, __builtin_eh_return_data_regno (0),
183                  (_Unwind_Ptr) ue_header);
184   _Unwind_SetGR (context, __builtin_eh_return_data_regno (1), 0);
185   _Unwind_SetIP (context, landing_pad);
186   return _URC_INSTALL_CONTEXT;
187 }