1 /* Copyright (C) 2006-2015 Free Software Foundation, Inc.
2 Contributed by François-Xavier Coudert
4 This file is part of the GNU Fortran runtime library (libgfortran).
6 Libgfortran 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)
11 Libgfortran 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 #include "libgfortran.h"
35 #include "backtrace-supported.h"
36 #include "backtrace.h"
39 /* Store our own state while backtracing. */
44 bool in_signal_handler
;
48 /* Does a function name have "_gfortran_" or "_gfortrani_" prefix, possibly
49 with additional underscore(s) at the beginning? Cannot use strncmp()
50 because we might be called from a signal handler. */
53 has_gfortran_prefix (const char *s
)
61 return (s
[0] == 'g' && s
[1] == 'f' && s
[2] == 'o' && s
[3] == 'r'
62 && s
[4] == 't' && s
[5] == 'r' && s
[6] == 'a' && s
[7] == 'n'
63 && (s
[8] == '_' || (s
[8] == 'i' && s
[9] == '_')));
67 error_callback (void *data
, const char *msg
, int errnum
)
69 struct mystate
*state
= (struct mystate
*) data
;
70 #define ERRHDR "\nCould not print backtrace: "
74 state
->try_simple
= true;
86 if (state
->in_signal_handler
)
90 estr_write (", errno: ");
91 const char *p
= gfc_itoa (errnum
, errbuf
, sizeof (errbuf
));
96 st_printf (ERRHDR
"%s: %s\n", msg
,
97 gf_strerror (errnum
, errbuf
, sizeof (errbuf
)));
102 simple_callback (void *data
, uintptr_t pc
)
104 struct mystate
*state
= (struct mystate
*) data
;
105 st_printf ("#%d 0x%lx\n", state
->frame
, (unsigned long) pc
);
111 full_callback (void *data
, uintptr_t pc
, const char *filename
,
112 int lineno
, const char *function
)
114 struct mystate
*state
= (struct mystate
*) data
;
116 if (has_gfortran_prefix (function
))
119 st_printf ("#%d 0x%lx in %s\n", state
->frame
,
120 (unsigned long) pc
, function
== NULL
? "???" : function
);
121 if (filename
|| lineno
!= 0)
122 st_printf ("\tat %s:%d\n", filename
== NULL
? "???" : filename
, lineno
);
125 if (function
!= NULL
&& strcmp (function
, "main") == 0)
132 /* Display the backtrace. */
135 show_backtrace (bool in_signal_handler
)
137 struct backtrace_state
*lbstate
;
138 struct mystate state
= { 0, false, in_signal_handler
};
140 lbstate
= backtrace_create_state (NULL
, 1, error_callback
, NULL
);
142 if (!BACKTRACE_SUPPORTED
|| (in_signal_handler
&& BACKTRACE_USES_MALLOC
))
144 /* If symbolic backtrace is not supported on this target, or would
145 require malloc() and we are in a signal handler, go with a
148 backtrace_simple (lbstate
, 0, simple_callback
, error_callback
, &state
);
152 /* libbacktrace uses mmap, which is safe to call from a signal handler
153 (in practice, if not in theory). Thus we can generate a symbolic
154 backtrace, if debug symbols are available. */
156 backtrace_full (lbstate
, 0, full_callback
, error_callback
, &state
);
157 if (state
.try_simple
)
158 backtrace_simple (lbstate
, 0, simple_callback
, error_callback
, &state
);
164 /* Function called by the front-end translating the BACKTRACE intrinsic. */
166 extern void backtrace (void);
167 export_proto (backtrace
);
172 show_backtrace (false);