X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/bc259c183b5a43c6f899d648b4c350bf09dc7eac..1f53e33771f1e35a28358934a12e3a057fe56a4c:/src/xbt/backtrace.cpp diff --git a/src/xbt/backtrace.cpp b/src/xbt/backtrace.cpp index 7af4ee60e3..ec5c0a0059 100644 --- a/src/xbt/backtrace.cpp +++ b/src/xbt/backtrace.cpp @@ -1,38 +1,29 @@ -/* Copyright (c) 2005-2019. The SimGrid Team. All rights reserved. */ +/* Copyright (c) 2005-2021. The SimGrid Team. All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ #include "src/internal_config.h" -#include "simgrid/simix.h" /* SIMIX_process_self_get_name() */ #include -#include #include #include +#include -#include +#include #include -#include -#include #include -#include -#include -#include - -// Try to detect and use the C++ itanium ABI for name demangling: -#ifdef __GXX_ABI_VERSION -#include -#endif - -#if HAVE_BOOST_STACKTRACE +#if HAVE_BOOST_STACKTRACE_BACKTRACE #define BOOST_STACKTRACE_USE_BACKTRACE #include +#include +#elif HAVE_BOOST_STACKTRACE_ADDR2LINE +#define BOOST_STACKTRACE_USE_ADDR2LINE +#include +#include #endif -XBT_LOG_NEW_DEFAULT_SUBCATEGORY(xbt_backtrace, xbt, "Backtrace"); - /** @brief show the backtrace of the current point (lovely while debugging) */ void xbt_backtrace_display_current() { @@ -42,76 +33,54 @@ void xbt_backtrace_display_current() namespace simgrid { namespace xbt { -std::unique_ptr demangle(const char* name) -{ -#ifdef __GXX_ABI_VERSION - int status; - auto res = std::unique_ptr(abi::__cxa_demangle(name, nullptr, nullptr, &status), &std::free); - if (res != nullptr) - return res; - // We did not manage to resolve this. Probably because this is not a mangled symbol: -#endif - // Return the symbol: - return std::unique_ptr(xbt_strdup(name), &std::free); -} - class BacktraceImpl { - short refcount_ = 1; +#if HAVE_BOOST_STACKTRACE_BACKTRACE || HAVE_BOOST_STACKTRACE_ADDR2LINE + const boost::stacktrace::stacktrace st; public: - void ref() { refcount_++; } - bool unref() + std::string resolve() const { - refcount_--; - return refcount_ == 0; + std::stringstream ss; + + int frame_count = 0; + bool print = false; + + for (boost::stacktrace::frame const& frame : st) { + const std::string frame_name = frame.name(); + if (print) { + if (frame_name.rfind("simgrid::xbt::MainFunction", 0) == 0 || + frame_name.rfind("simgrid::kernel::context::Context::operator()()", 0) == 0) + break; + ss << " -> " << frame_count++ << "# " << frame << "\n"; + if (frame_name == "main") + break; + } else { + if (frame_name == "simgrid::xbt::Backtrace::Backtrace()") + print = true; + } + } + + return ss.str(); } -#if HAVE_BOOST_STACKTRACE - boost::stacktrace::stacktrace st; -#endif -}; +#else -Backtrace::Backtrace() -{ -#if HAVE_BOOST_STACKTRACE - impl_ = new BacktraceImpl(); - impl_->st = boost::stacktrace::stacktrace(); +public: + std::string resolve() const { return ""; } // fallback value #endif -} -Backtrace::Backtrace(const Backtrace& bt) -{ - impl_ = bt.impl_; - if (impl_) - impl_->ref(); -} +}; -Backtrace::~Backtrace() -{ - if (impl_ != nullptr && impl_->unref()) { - delete impl_; - } -} +Backtrace::Backtrace() : impl_(std::make_shared()) {} -std::string const Backtrace::resolve() const +std::string Backtrace::resolve() const { - std::string result(""); - -#if HAVE_BOOST_STACKTRACE - std::stringstream ss; - ss << impl_->st; - result.append(ss.str()); -#endif - return result; + return impl_->resolve(); } void Backtrace::display() const { std::string backtrace = resolve(); - if (backtrace.empty()) { - fprintf(stderr, "(backtrace not set -- did you install Boost.Stacktrace?)\n"); - return; - } - fprintf(stderr, "Backtrace (displayed in actor %s):\n", SIMIX_process_self_get_name()); - std::fprintf(stderr, "%s\n", backtrace.c_str()); + std::fprintf(stderr, "Backtrace (displayed in actor %s):\n%s\n", xbt_procname(), + backtrace.empty() ? "(backtrace not set -- did you install Boost.Stacktrace?)" : backtrace.c_str()); } } // namespace xbt