libubacktrace: Provide uClibc with backtrace functions
[stm/uclibc.git] / libubacktrace / sysdeps / sh / backtrace.c
1 /*
2  * Perform stack unwinding by using the _Unwind_Backtrace.
3  *
4  * User application that wants to use backtrace needs to be
5  * compiled with -fexceptions option and -rdynamic to get full
6  * symbols printed.
7  *
8  * Copyright (C) 2009, 2010 STMicroelectronics Ltd.
9  *
10  * Author(s): Giuseppe Cavallaro <peppe.cavallaro@st.com>
11  * - Initial implementation for glibc
12  *
13  * Author(s): Carmelo Amoroso <carmelo.amoroso@st.com>
14  * - Reworked for uClibc
15  *   - use dlsym/dlopen from libdl
16  *   - rewrite initialisation to not use libc_once
17  *   - make it available in static link too
18  *
19  * Licensed under the LGPL v2.1, see the file COPYING.LIB in this tarball.
20  *
21  */
22
23 #include <execinfo.h>
24 #include <dlfcn.h>
25 #include <stdlib.h>
26 #include <unwind.h>
27 #include <assert.h>
28 #include <stdio.h>
29
30 struct trace_arg
31 {
32   void **array;
33   int cnt, size;
34 };
35
36 static _Unwind_Reason_Code (*unwind_backtrace) (_Unwind_Trace_Fn, void *);
37 static _Unwind_Ptr (*unwind_getip) (struct _Unwind_Context *);
38
39 static void backtrace_init (void)
40 {
41         void *handle = dlopen ("libgcc_s.so.1", RTLD_LAZY);
42
43         if (handle == NULL
44                 || ((unwind_backtrace = dlsym (handle, "_Unwind_Backtrace")) == NULL)
45                 || ((unwind_getip = dlsym (handle, "_Unwind_GetIP")) == NULL)) {
46                 printf("libgcc_s.so.1 must be installed for backtrace to work\n");
47                 abort();
48         }
49 }
50
51 static _Unwind_Reason_Code
52 backtrace_helper (struct _Unwind_Context *ctx, void *a)
53 {
54         struct trace_arg *arg = a;
55
56         assert (unwind_getip != NULL);
57
58         /* We are first called with address in the __backtrace function. Skip it. */
59         if (arg->cnt != -1)
60                 arg->array[arg->cnt] = (void *) unwind_getip (ctx);
61         if (++arg->cnt == arg->size)
62                 return _URC_END_OF_STACK;
63         return _URC_NO_REASON;
64 }
65
66 /*
67  * Perform stack unwinding by using the _Unwind_Backtrace.
68  *
69  * User application that wants to use backtrace needs to be
70  * compiled with -fexceptions option and -rdynamic to get full
71  * symbols printed.
72  */
73 int backtrace (void **array, int size)
74 {
75         struct trace_arg arg = { .array = array, .size = size, .cnt = -1 };
76
77         if (unwind_backtrace == NULL)
78                 backtrace_init();
79
80         if (size >= 1)
81                 unwind_backtrace (backtrace_helper, &arg);
82
83         return arg.cnt != -1 ? arg.cnt : 0;
84 }