-extern char **environ; /* the environment, as specified by the opengroup */
-
-#include <unwind.h>
-struct trace_arg {
- void** array;
- int cnt;
- int size;
-};
-
-static _Unwind_Reason_Code backtrace_helper(_Unwind_Context* ctx, void* a)
-{
- trace_arg* arg = static_cast<trace_arg*>(a);
-
- /* We are first called with address in the __backtrace function.
- Skip it. */
- if (arg->cnt != -1)
- {
- arg->array[arg->cnt] = (void *) _Unwind_GetIP(ctx);
-
- /* Check whether we make any progress. */
- if (arg->cnt > 0 && arg->array[arg->cnt - 1] == arg->array[arg->cnt])
- return _URC_END_OF_STACK;
- }
- if (++arg->cnt == arg->size)
- return _URC_END_OF_STACK;
- return _URC_NO_REASON;
-}
-
-/** @brief reimplementation of glibc backtrace based directly on gcc library, without implicit malloc
- *
- * See http://people.irisa.fr/Martin.Quinson/blog/2012/0208/system_programming_fun_in_SimGrid/
- * for the motivation behind this function
- * */
-
-int xbt_backtrace_no_malloc(void **array, int size) {
- int i = 0;
- for(i=0; i < size; i++)
- array[i] = nullptr;
-
- struct trace_arg arg;
- arg .array = array;
- arg.size = size;
- arg.cnt = -1;
-
- if (size >= 1)
- _Unwind_Backtrace(backtrace_helper, &arg);
-
- /* _Unwind_Backtrace on IA-64 seems to put nullptr address above
- _start. Fix it up here. */
- if (arg.cnt > 1 && arg.array[arg.cnt - 1] == nullptr)
- --arg.cnt;
- return arg.cnt != -1 ? arg.cnt : 0;
-}
-