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-2005, AdaCore *
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 datastructure to keep track of the
41 input parameters we got as well as of the basic processing state. */
57 #if defined (__ia64__) && defined (__hpux__)
61 static _Unwind_Reason_Code
62 trace_callback (struct _Unwind_Context * uw_context, uw_data_t * uw_data)
66 #if defined (__ia64__) && defined (__hpux__)
67 /* Work around problem with _Unwind_GetIP on ia64 HP-UX. */
68 uwx_get_reg ((struct uwx_env *) uw_context, UWX_REG_IP, (uint64_t *) &pc);
70 pc = (void *) _Unwind_GetIP (uw_context);
73 if (uw_data->n_frames_skipped < uw_data->n_frames_to_skip)
75 uw_data->n_frames_skipped ++;
76 return _URC_NO_REASON;
79 if (uw_data->n_entries_filled >= uw_data->max_len)
80 return _URC_NORMAL_STOP;
82 if (pc < uw_data->exclude_min || pc > uw_data->exclude_max)
83 uw_data->traceback [uw_data->n_entries_filled ++] = pc + PC_ADJUST;
85 return _URC_NO_REASON;
93 __gnat_backtrace (void ** traceback, int max_len,
94 void * exclude_min, void * exclude_max,
98 /* State carried over during the whole unwinding process. */
100 uw_data.traceback = traceback;
101 uw_data.max_len = max_len;
102 uw_data.exclude_min = exclude_min;
103 uw_data.exclude_max = exclude_max;
105 uw_data.n_frames_to_skip = skip_frames;
107 uw_data.n_frames_skipped = 0;
108 uw_data.n_entries_filled = 0;
110 _Unwind_Backtrace ((_Unwind_Trace_Fn)trace_callback, &uw_data);
112 return uw_data.n_entries_filled;