1 /* Return backtrace of current program state.
2 Copyright (C) 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc.
3 Contributed by Martin Schwidefsky <schwidefsky@de.ibm.com>.
4 This file is part of the GNU C Library.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library 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 GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
21 #include <bits/libc-lock.h>
28 /* This is a global variable set at program start time. It marks the
29 highest used stack address. */
30 extern void *__libc_stack_end;
33 /* This is the stack layout we see for every non-leaf function.
35 %r15 -> +------------------+
40 40 | save area r6-r15 | 24
41 16 | save area f4,f6 | 64
44 r14 in the save area holds the return address.
65 static _Unwind_Reason_Code (*unwind_backtrace) (_Unwind_Trace_Fn, void *);
66 static _Unwind_Ptr (*unwind_getip) (struct _Unwind_Context *);
71 void *handle = __libc_dlopen ("libgcc_s.so.1");
76 unwind_backtrace = __libc_dlsym (handle, "_Unwind_Backtrace");
77 unwind_getip = __libc_dlsym (handle, "_Unwind_GetIP");
78 if (unwind_getip == NULL)
79 unwind_backtrace = NULL;
82 # define unwind_backtrace _Unwind_Backtrace
83 # define unwind_getip _Unwind_GetIP
87 __backchain_backtrace (void **array, int size)
89 /* We assume that all the code is generated with frame pointers set. */
93 asm ("LR %0,%%r15" : "=d" (stack) );
94 /* We skip the call to this function, it makes no sense to record it. */
95 stack = (struct layout *) stack->back_chain;
98 if (stack == NULL || (void *) stack > __libc_stack_end)
99 /* This means the address is out of range. Note that for the
100 toplevel we see a frame pointer with value NULL which clearly is
104 array[cnt++] = (void *) (stack->save_grps[8] & 0x7fffffff);
106 stack = (struct layout *) stack->back_chain;
112 static _Unwind_Reason_Code
113 backtrace_helper (struct _Unwind_Context *ctx, void *a)
115 struct trace_arg *arg = a;
117 /* We are first called with address in the __backtrace function.
120 arg->array[arg->cnt] = (void *) unwind_getip (ctx);
121 if (++arg->cnt == arg->size)
122 return _URC_END_OF_STACK;
123 return _URC_NO_REASON;
127 __backtrace (void **array, int size)
129 struct trace_arg arg = { .array = array, .size = size, .cnt = -1 };
131 __libc_once_define (static, once);
133 __libc_once (once, init);
135 if (unwind_backtrace == NULL)
136 return __backchain_backtrace (array, size);
139 unwind_backtrace (backtrace_helper, &arg);
141 return arg.cnt != -1 ? arg.cnt : 0;
144 weak_alias (__backtrace, backtrace)
145 libc_hidden_def (__backtrace)