1 /****************************************************************************
3 * GNAT COMPILER COMPONENTS *
5 * T R A C E B A C K - G C C t a b l e s *
7 * C Implementation File *
9 * Copyright (C) 2004-2009, Free Software Foundation, Inc. *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 2, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
17 * for more details. You should have received a copy of the GNU General *
18 * Public License distributed with GNAT; see file COPYING. If not, write *
19 * to the Free Software Foundation, 51 Franklin Street, Fifth Floor, *
20 * Boston, MA 02110-1301, USA. *
22 * As a special exception, if you link this file with other files to *
23 * produce an executable, this file does not by itself cause the resulting *
24 * executable to be covered by the GNU General Public License. This except- *
25 * ion does not however invalidate any other reasons why the executable *
26 * file might be covered by the GNU Public License. *
28 * GNAT was originally developed by the GNAT team at New York University. *
29 * Extensive contributions were provided by Ada Core Technologies Inc. *
31 ****************************************************************************/
33 /* This is an implementation of the __gnat_backtrace routine using the
34 underlying GCC unwinding support associated with the exception handling
35 infrastructure. This will only work for ZCX based applications. */
39 /* The implementation boils down to a call to _Unwind_Backtrace with a
40 tailored callback and carried-on data structure to keep track of the
41 input parameters we got as well as of the basic processing state. */
47 #if !defined (__USING_SJLJ_EXCEPTIONS__)
59 #if defined (__ia64__) && defined (__hpux__)
63 static _Unwind_Reason_Code
64 trace_callback (struct _Unwind_Context
* uw_context
, uw_data_t
* uw_data
)
68 #if defined (__ia64__) && defined (__hpux__)
69 /* Work around problem with _Unwind_GetIP on ia64 HP-UX. */
70 uwx_get_reg ((struct uwx_env
*) uw_context
, UWX_REG_IP
, (uint64_t *) &pc
);
72 pc
= (char *) _Unwind_GetIP (uw_context
);
75 if (uw_data
->n_frames_skipped
< uw_data
->n_frames_to_skip
)
77 uw_data
->n_frames_skipped
++;
78 return _URC_NO_REASON
;
81 if (uw_data
->n_entries_filled
>= uw_data
->max_len
)
82 return _URC_NORMAL_STOP
;
84 if (pc
< uw_data
->exclude_min
|| pc
> uw_data
->exclude_max
)
85 uw_data
->traceback
[uw_data
->n_entries_filled
++] = pc
+ PC_ADJUST
;
87 return _URC_NO_REASON
;
97 __gnat_backtrace (void ** traceback
, int max_len
,
98 void * exclude_min
, void * exclude_max
,
101 #if defined (__USING_SJLJ_EXCEPTIONS__)
102 /* We have no unwind material (tables) at hand with sjlj eh, and no
103 way to retrieve complete and accurate call chain information from
104 the context stack we maintain. */
108 /* State carried over during the whole unwinding process. */
110 uw_data
.traceback
= traceback
;
111 uw_data
.max_len
= max_len
;
112 uw_data
.exclude_min
= exclude_min
;
113 uw_data
.exclude_max
= exclude_max
;
115 uw_data
.n_frames_to_skip
= skip_frames
;
117 uw_data
.n_frames_skipped
= 0;
118 uw_data
.n_entries_filled
= 0;
120 _Unwind_Backtrace ((_Unwind_Trace_Fn
)trace_callback
, &uw_data
);
122 return uw_data
.n_entries_filled
;