This test was failing with -m64 because it was forcing -m32
[official-gcc.git] / libgcc / unwind-dw2-fde-dip.c
blobd84d9b67bf2fb83a86b167115c1b25dba9201fc8
1 /* Copyright (C) 2001-2013 Free Software Foundation, Inc.
2 Contributed by Jakub Jelinek <jakub@redhat.com>.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
11 GCC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 Under Section 7 of GPL version 3, you are granted additional
17 permissions described in the GCC Runtime Library Exception, version
18 3.1, as published by the Free Software Foundation.
20 You should have received a copy of the GNU General Public License and
21 a copy of the GCC Runtime Library Exception along with this program;
22 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 <http://www.gnu.org/licenses/>. */
25 /* Locate the FDE entry for a given address, using PT_GNU_EH_FRAME ELF
26 segment and dl_iterate_phdr to avoid register/deregister calls at
27 DSO load/unload. */
29 #ifndef _GNU_SOURCE
30 #define _GNU_SOURCE 1
31 #endif
33 #include "tconfig.h"
34 #include "tsystem.h"
35 #if !defined(inhibit_libc) && !defined(__OpenBSD__)
36 #include <elf.h> /* Get DT_CONFIG. */
37 #endif
38 #include "coretypes.h"
39 #include "tm.h"
40 #include "libgcc_tm.h"
41 #include "dwarf2.h"
42 #include "unwind.h"
43 #define NO_BASE_OF_ENCODED_VALUE
44 #include "unwind-pe.h"
45 #include "unwind-dw2-fde.h"
46 #include "unwind-compat.h"
47 #include "gthr.h"
49 #if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
50 && (__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 2) \
51 || (__GLIBC__ == 2 && __GLIBC_MINOR__ == 2 && defined(DT_CONFIG)))
52 # define USE_PT_GNU_EH_FRAME
53 #endif
55 #if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
56 && defined(__BIONIC__)
57 # define USE_PT_GNU_EH_FRAME
58 #endif
60 #if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
61 && defined(__FreeBSD__) && __FreeBSD__ >= 7
62 # define ElfW __ElfN
63 # define USE_PT_GNU_EH_FRAME
64 #endif
66 #if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
67 && defined(__OpenBSD__)
68 # define ElfW(type) Elf_##type
69 # define USE_PT_GNU_EH_FRAME
70 #endif
72 #if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
73 && defined(TARGET_DL_ITERATE_PHDR) \
74 && defined(__sun__) && defined(__svr4__)
75 # define USE_PT_GNU_EH_FRAME
76 #endif
78 #if defined(USE_PT_GNU_EH_FRAME)
80 #include <link.h>
82 #ifndef __RELOC_POINTER
83 # define __RELOC_POINTER(ptr, base) ((ptr) + (base))
84 #endif
86 static const fde * _Unwind_Find_registered_FDE (void *pc, struct dwarf_eh_bases *bases);
88 #define _Unwind_Find_FDE _Unwind_Find_registered_FDE
89 #include "unwind-dw2-fde.c"
90 #undef _Unwind_Find_FDE
92 #ifndef PT_GNU_EH_FRAME
93 #define PT_GNU_EH_FRAME (PT_LOOS + 0x474e550)
94 #endif
96 struct unw_eh_callback_data
98 _Unwind_Ptr pc;
99 void *tbase;
100 void *dbase;
101 void *func;
102 const fde *ret;
103 int check_cache;
106 struct unw_eh_frame_hdr
108 unsigned char version;
109 unsigned char eh_frame_ptr_enc;
110 unsigned char fde_count_enc;
111 unsigned char table_enc;
114 #define FRAME_HDR_CACHE_SIZE 8
116 static struct frame_hdr_cache_element
118 _Unwind_Ptr pc_low;
119 _Unwind_Ptr pc_high;
120 _Unwind_Ptr load_base;
121 const ElfW(Phdr) *p_eh_frame_hdr;
122 const ElfW(Phdr) *p_dynamic;
123 struct frame_hdr_cache_element *link;
124 } frame_hdr_cache[FRAME_HDR_CACHE_SIZE];
126 static struct frame_hdr_cache_element *frame_hdr_cache_head;
128 /* Like base_of_encoded_value, but take the base from a struct
129 unw_eh_callback_data instead of an _Unwind_Context. */
131 static _Unwind_Ptr
132 base_from_cb_data (unsigned char encoding, struct unw_eh_callback_data *data)
134 if (encoding == DW_EH_PE_omit)
135 return 0;
137 switch (encoding & 0x70)
139 case DW_EH_PE_absptr:
140 case DW_EH_PE_pcrel:
141 case DW_EH_PE_aligned:
142 return 0;
144 case DW_EH_PE_textrel:
145 return (_Unwind_Ptr) data->tbase;
146 case DW_EH_PE_datarel:
147 return (_Unwind_Ptr) data->dbase;
148 default:
149 gcc_unreachable ();
153 static int
154 _Unwind_IteratePhdrCallback (struct dl_phdr_info *info, size_t size, void *ptr)
156 struct unw_eh_callback_data *data = (struct unw_eh_callback_data *) ptr;
157 const ElfW(Phdr) *phdr, *p_eh_frame_hdr, *p_dynamic;
158 long n, match;
159 #ifdef __FRV_FDPIC__
160 struct elf32_fdpic_loadaddr load_base;
161 #else
162 _Unwind_Ptr load_base;
163 #endif
164 const unsigned char *p;
165 const struct unw_eh_frame_hdr *hdr;
166 _Unwind_Ptr eh_frame;
167 struct object ob;
168 _Unwind_Ptr pc_low = 0, pc_high = 0;
170 struct ext_dl_phdr_info
172 ElfW(Addr) dlpi_addr;
173 const char *dlpi_name;
174 const ElfW(Phdr) *dlpi_phdr;
175 ElfW(Half) dlpi_phnum;
176 unsigned long long int dlpi_adds;
177 unsigned long long int dlpi_subs;
180 match = 0;
181 phdr = info->dlpi_phdr;
182 load_base = info->dlpi_addr;
183 p_eh_frame_hdr = NULL;
184 p_dynamic = NULL;
186 struct frame_hdr_cache_element *prev_cache_entry = NULL,
187 *last_cache_entry = NULL;
189 if (data->check_cache && size >= sizeof (struct ext_dl_phdr_info))
191 static unsigned long long adds = -1ULL, subs;
192 struct ext_dl_phdr_info *einfo = (struct ext_dl_phdr_info *) info;
194 /* We use a least recently used cache replacement policy. Also,
195 the most recently used cache entries are placed at the head
196 of the search chain. */
198 if (einfo->dlpi_adds == adds && einfo->dlpi_subs == subs)
200 /* Find data->pc in shared library cache.
201 Set load_base, p_eh_frame_hdr and p_dynamic
202 plus match from the cache and goto
203 "Read .eh_frame_hdr header." below. */
205 struct frame_hdr_cache_element *cache_entry;
207 for (cache_entry = frame_hdr_cache_head;
208 cache_entry;
209 cache_entry = cache_entry->link)
211 if (data->pc >= cache_entry->pc_low
212 && data->pc < cache_entry->pc_high)
214 load_base = cache_entry->load_base;
215 p_eh_frame_hdr = cache_entry->p_eh_frame_hdr;
216 p_dynamic = cache_entry->p_dynamic;
218 /* And move the entry we're using to the head. */
219 if (cache_entry != frame_hdr_cache_head)
221 prev_cache_entry->link = cache_entry->link;
222 cache_entry->link = frame_hdr_cache_head;
223 frame_hdr_cache_head = cache_entry;
225 goto found;
228 last_cache_entry = cache_entry;
229 /* Exit early if we found an unused entry. */
230 if ((cache_entry->pc_low | cache_entry->pc_high) == 0)
231 break;
232 if (cache_entry->link != NULL)
233 prev_cache_entry = cache_entry;
236 else
238 adds = einfo->dlpi_adds;
239 subs = einfo->dlpi_subs;
240 /* Initialize the cache. Create a chain of cache entries,
241 with the final one terminated by a NULL link. */
242 int i;
243 for (i = 0; i < FRAME_HDR_CACHE_SIZE; i++)
245 frame_hdr_cache[i].pc_low = 0;
246 frame_hdr_cache[i].pc_high = 0;
247 frame_hdr_cache[i].link = &frame_hdr_cache[i+1];
249 frame_hdr_cache[i-1].link = NULL;
250 frame_hdr_cache_head = &frame_hdr_cache[0];
251 data->check_cache = 0;
255 /* Make sure struct dl_phdr_info is at least as big as we need. */
256 if (size < offsetof (struct dl_phdr_info, dlpi_phnum)
257 + sizeof (info->dlpi_phnum))
258 return -1;
260 /* See if PC falls into one of the loaded segments. Find the eh_frame
261 segment at the same time. */
262 for (n = info->dlpi_phnum; --n >= 0; phdr++)
264 if (phdr->p_type == PT_LOAD)
266 _Unwind_Ptr vaddr = (_Unwind_Ptr)
267 __RELOC_POINTER (phdr->p_vaddr, load_base);
268 if (data->pc >= vaddr && data->pc < vaddr + phdr->p_memsz)
270 match = 1;
271 pc_low = vaddr;
272 pc_high = vaddr + phdr->p_memsz;
275 else if (phdr->p_type == PT_GNU_EH_FRAME)
276 p_eh_frame_hdr = phdr;
277 #ifdef PT_SUNW_UNWIND
278 /* Sun ld emits PT_SUNW_UNWIND .eh_frame_hdr sections instead of
279 PT_SUNW_EH_FRAME/PT_GNU_EH_FRAME, so accept them as well. */
280 else if (phdr->p_type == PT_SUNW_UNWIND)
281 p_eh_frame_hdr = phdr;
282 #endif
283 else if (phdr->p_type == PT_DYNAMIC)
284 p_dynamic = phdr;
287 if (!match)
288 return 0;
290 if (size >= sizeof (struct ext_dl_phdr_info))
292 /* Move the cache entry we're about to overwrite to the head of
293 the list. If either last_cache_entry or prev_cache_entry are
294 NULL, that cache entry is already at the head. */
295 if (last_cache_entry != NULL && prev_cache_entry != NULL)
297 prev_cache_entry->link = last_cache_entry->link;
298 last_cache_entry->link = frame_hdr_cache_head;
299 frame_hdr_cache_head = last_cache_entry;
302 frame_hdr_cache_head->load_base = load_base;
303 frame_hdr_cache_head->p_eh_frame_hdr = p_eh_frame_hdr;
304 frame_hdr_cache_head->p_dynamic = p_dynamic;
305 frame_hdr_cache_head->pc_low = pc_low;
306 frame_hdr_cache_head->pc_high = pc_high;
309 found:
311 if (!p_eh_frame_hdr)
312 return 0;
314 /* Read .eh_frame_hdr header. */
315 hdr = (const struct unw_eh_frame_hdr *)
316 __RELOC_POINTER (p_eh_frame_hdr->p_vaddr, load_base);
317 if (hdr->version != 1)
318 return 1;
320 #ifdef CRT_GET_RFIB_DATA
321 # ifdef __i386__
322 data->dbase = NULL;
323 if (p_dynamic)
325 /* For dynamically linked executables and shared libraries,
326 DT_PLTGOT is the gp value for that object. */
327 ElfW(Dyn) *dyn = (ElfW(Dyn) *)
328 __RELOC_POINTER (p_dynamic->p_vaddr, load_base);
329 for (; dyn->d_tag != DT_NULL ; dyn++)
330 if (dyn->d_tag == DT_PLTGOT)
332 data->dbase = (void *) dyn->d_un.d_ptr;
333 #if defined __linux__
334 /* On IA-32 Linux, _DYNAMIC is writable and GLIBC has
335 relocated it. */
336 #elif defined __sun__ && defined __svr4__
337 /* On Solaris 2/x86, we need to do this ourselves. */
338 data->dbase += load_base;
339 #endif
340 break;
343 # elif defined __FRV_FDPIC__ && defined __linux__
344 data->dbase = load_base.got_value;
345 # elif defined __x86_64__ && defined __sun__ && defined __svr4__
346 /* While CRT_GET_RFIB_DATA is also defined for 64-bit Solaris 10+/x86, it
347 doesn't apply since it uses DW_EH_PE_pcrel encoding. */
348 # else
349 # error What is DW_EH_PE_datarel base on this platform?
350 # endif
351 #endif
353 p = read_encoded_value_with_base (hdr->eh_frame_ptr_enc,
354 base_from_cb_data (hdr->eh_frame_ptr_enc,
355 data),
356 (const unsigned char *) (hdr + 1),
357 &eh_frame);
359 /* We require here specific table encoding to speed things up.
360 Also, DW_EH_PE_datarel here means using PT_GNU_EH_FRAME start
361 as base, not the processor specific DW_EH_PE_datarel. */
362 if (hdr->fde_count_enc != DW_EH_PE_omit
363 && hdr->table_enc == (DW_EH_PE_datarel | DW_EH_PE_sdata4))
365 _Unwind_Ptr fde_count;
367 p = read_encoded_value_with_base (hdr->fde_count_enc,
368 base_from_cb_data (hdr->fde_count_enc,
369 data),
370 p, &fde_count);
371 /* Shouldn't happen. */
372 if (fde_count == 0)
373 return 1;
374 if ((((_Unwind_Ptr) p) & 3) == 0)
376 struct fde_table {
377 signed initial_loc __attribute__ ((mode (SI)));
378 signed fde __attribute__ ((mode (SI)));
380 const struct fde_table *table = (const struct fde_table *) p;
381 size_t lo, hi, mid;
382 _Unwind_Ptr data_base = (_Unwind_Ptr) hdr;
383 fde *f;
384 unsigned int f_enc, f_enc_size;
385 _Unwind_Ptr range;
387 mid = fde_count - 1;
388 if (data->pc < table[0].initial_loc + data_base)
389 return 1;
390 else if (data->pc < table[mid].initial_loc + data_base)
392 lo = 0;
393 hi = mid;
395 while (lo < hi)
397 mid = (lo + hi) / 2;
398 if (data->pc < table[mid].initial_loc + data_base)
399 hi = mid;
400 else if (data->pc >= table[mid + 1].initial_loc + data_base)
401 lo = mid + 1;
402 else
403 break;
406 gcc_assert (lo < hi);
409 f = (fde *) (table[mid].fde + data_base);
410 f_enc = get_fde_encoding (f);
411 f_enc_size = size_of_encoded_value (f_enc);
412 read_encoded_value_with_base (f_enc & 0x0f, 0,
413 &f->pc_begin[f_enc_size], &range);
414 if (data->pc < table[mid].initial_loc + data_base + range)
415 data->ret = f;
416 data->func = (void *) (table[mid].initial_loc + data_base);
417 return 1;
421 /* We have no sorted search table, so need to go the slow way.
422 As soon as GLIBC will provide API so to notify that a library has been
423 removed, we could cache this (and thus use search_object). */
424 ob.pc_begin = NULL;
425 ob.tbase = data->tbase;
426 ob.dbase = data->dbase;
427 ob.u.single = (fde *) eh_frame;
428 ob.s.i = 0;
429 ob.s.b.mixed_encoding = 1; /* Need to assume worst case. */
430 data->ret = linear_search_fdes (&ob, (fde *) eh_frame, (void *) data->pc);
431 if (data->ret != NULL)
433 _Unwind_Ptr func;
434 unsigned int encoding = get_fde_encoding (data->ret);
436 read_encoded_value_with_base (encoding,
437 base_from_cb_data (encoding, data),
438 data->ret->pc_begin, &func);
439 data->func = (void *) func;
441 return 1;
444 const fde *
445 _Unwind_Find_FDE (void *pc, struct dwarf_eh_bases *bases)
447 struct unw_eh_callback_data data;
448 const fde *ret;
450 ret = _Unwind_Find_registered_FDE (pc, bases);
451 if (ret != NULL)
452 return ret;
454 data.pc = (_Unwind_Ptr) pc;
455 data.tbase = NULL;
456 data.dbase = NULL;
457 data.func = NULL;
458 data.ret = NULL;
459 data.check_cache = 1;
461 if (dl_iterate_phdr (_Unwind_IteratePhdrCallback, &data) < 0)
462 return NULL;
464 if (data.ret)
466 bases->tbase = data.tbase;
467 bases->dbase = data.dbase;
468 bases->func = data.func;
470 return data.ret;
473 #else
474 /* Prevent multiple include of header files. */
475 #define _Unwind_Find_FDE _Unwind_Find_FDE
476 #include "unwind-dw2-fde.c"
477 #endif
479 #if defined (USE_GAS_SYMVER) && defined (SHARED) && defined (USE_LIBUNWIND_EXCEPTIONS)
480 alias (_Unwind_Find_FDE);
481 #endif