#include "xbt/log.h"
#include "xbt/module.h" /* xbt_binary_name */
#include "src/xbt_modinter.h" /* backtrace initialization headers */
-#if SIMGRID_HAVE_MC
-#define UNW_LOCAL_ONLY
-#include <libunwind.h>
-#endif
/* end of "useless" inclusions */
-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;
-}
-
size_t xbt_backtrace_current(xbt_backtrace_location_t* loc, std::size_t count)
{
std::size_t used = backtrace(loc, count);
return "";
}
-std::vector<std::string> resolveBacktrace(xbt_backtrace_location_t const* loc, std::size_t count) // deprecated
-{
- return resolve_backtrace(loc, count);
-}
-
//FIXME: This code could be greatly improved/simplifyied with
// http://cairo.sourcearchive.com/documentation/1.9.4/backtrace-symbols_8c-source.html
std::vector<std::string> resolve_backtrace(xbt_backtrace_location_t const* loc, std::size_t count)
}
}
-
-#if SIMGRID_HAVE_MC
-int xbt_libunwind_backtrace(void** bt, int size){
- for (int i = 0; i < size; i++)
- bt[i] = nullptr;
-
- unw_cursor_t c;
- unw_context_t uc;
-
- unw_getcontext (&uc);
- unw_init_local (&c, &uc);
-
- unw_step(&c);
-
- int i;
- for (i = 0; unw_step(&c) >= 0 && i < size; i++) {
- unw_word_t ip;
- unw_get_reg(&c, UNW_REG_IP, &ip);
- bt[i] = (void*)(long)ip;
- }
-
- return i;
-}
-#endif