X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/149c63f36e15b8500b1e826bda5138318ff7ba2b..c4c82977e0a105cdf7b04010ddd21bbf15dced4d:/src/xbt/backtrace.cpp diff --git a/src/xbt/backtrace.cpp b/src/xbt/backtrace.cpp index 349ed1163b..b719eaf696 100644 --- a/src/xbt/backtrace.cpp +++ b/src/xbt/backtrace.cpp @@ -1,30 +1,28 @@ -/* Copyright (c) 2005-2020. The SimGrid Team. All rights reserved. */ +/* Copyright (c) 2005-2023. 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 +#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_BACKTRACE #define BOOST_STACKTRACE_USE_BACKTRACE #include +#include #elif HAVE_BOOST_STACKTRACE_ADDR2LINE #define BOOST_STACKTRACE_USE_ADDR2LINE #include +#include #endif /** @brief show the backtrace of the current point (lovely while debugging) */ @@ -33,36 +31,55 @@ void xbt_backtrace_display_current() simgrid::xbt::Backtrace().display(); } -namespace simgrid { -namespace xbt { - -std::unique_ptr> demangle(const char* name) -{ -#ifdef __GXX_ABI_VERSION - int status; - std::unique_ptr> res(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), &xbt_free_f); -} +namespace simgrid::xbt { class BacktraceImpl { #if HAVE_BOOST_STACKTRACE_BACKTRACE || HAVE_BOOST_STACKTRACE_ADDR2LINE - const boost::stacktrace::stacktrace st = boost::stacktrace::stacktrace(); -#else - const char st[1] = ""; // fallback value -#endif + const boost::stacktrace::stacktrace st; + public: std::string resolve() const { std::stringstream ss; - ss << st; + + 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 || + frame_name.rfind("auto sthread_create::{lambda") == 0) + break; + ss << " -> #" << frame_count++ << " "; + if (xbt_log_no_loc) // Don't display file source and line if so + ss << (frame_name.empty() ? "(debug info not found and log:no_loc activated)" : frame_name) << "\n"; + else + ss << frame << "\n"; + // If we are displaying the user side of a simcall, remove the crude details of context switching + if (frame_name.find("simgrid::kernel::actor::simcall_answered") != std::string::npos || + frame_name.find("simgrid::kernel::actor::simcall_blocking") != std::string::npos || + frame_name.find("simcall_run_answered") != std::string::npos || + frame_name.find("simcall_run_blocking") != std::string::npos) { + frame_count = 0; + ss.str(""); // This is how you clear a stringstream in C++. clear() is something else :'( + } + if (frame_name == "main") + break; + } else { + if (frame_name == "simgrid::xbt::Backtrace::Backtrace()") + print = true; + } + } + return ss.str(); } +#else + +public: + std::string resolve() const { return ""; } // fallback value +#endif }; Backtrace::Backtrace() : impl_(std::make_shared()) {} @@ -75,9 +92,10 @@ std::string Backtrace::resolve() const void Backtrace::display() const { std::string backtrace = resolve(); - std::fprintf(stderr, "Backtrace (displayed in actor %s):\n%s\n", xbt_procname(), + std::fprintf(stderr, "Backtrace (displayed in actor %s%s):\n%s\n", + simgrid::s4u::Actor::is_maestro() ? "maestro" : sg_actor_self_get_name(), + (xbt_log_no_loc ? " -- short trace because of --log=no_loc" : ""), backtrace.empty() ? "(backtrace not set -- did you install Boost.Stacktrace?)" : backtrace.c_str()); } -} // namespace xbt -} // namespace simgrid +} // namespace simgrid::xbt