X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/09ed52534cf15775853dd0d3ada5bf59ac668d64..f17b9a490a2fc481082483fce016d57605d429a0:/src/xbt/backtrace.cpp?ds=sidebyside

diff --git a/src/xbt/backtrace.cpp b/src/xbt/backtrace.cpp
index cd3c902bb7..baa1f647b7 100644
--- a/src/xbt/backtrace.cpp
+++ b/src/xbt/backtrace.cpp
@@ -36,9 +36,9 @@ static bool startWith(std::string str, const char* prefix)
   return strncmp(str.c_str(), prefix, strlen(prefix)) == 0;
 }
 
-void xbt_backtrace_display(xbt_backtrace_location_t* loc, std::size_t count)
+void xbt_backtrace_display(const simgrid::xbt::Backtrace& bt)
 {
-  std::vector<std::string> backtrace = simgrid::xbt::resolve_backtrace(loc, count);
+  std::vector<std::string> backtrace = simgrid::xbt::resolve_backtrace(bt);
   if (backtrace.empty()) {
     fprintf(stderr, "(backtrace not set -- maybe unavailable on this architecture?)\n");
     return;
@@ -58,10 +58,8 @@ void xbt_backtrace_display(xbt_backtrace_location_t* loc, std::size_t count)
 /** @brief show the backtrace of the current point (lovely while debugging) */
 void xbt_backtrace_display_current()
 {
-  const std::size_t size = 10;
-  xbt_backtrace_location_t bt[size];
-  size_t used = xbt_backtrace_current(bt, size);
-  xbt_backtrace_display(bt, used);
+  simgrid::xbt::Backtrace bt = simgrid::xbt::Backtrace();
+  xbt_backtrace_display(bt);
 }
 
 namespace simgrid {
@@ -83,31 +81,52 @@ std::unique_ptr<char, void(*)(void*)> demangle(const char* name)
   return std::unique_ptr<char, void(*)(void*)>(xbt_strdup(name), std::free);
 }
 
-Backtrace backtrace()
-{
-  const std::size_t size = 10;
-  xbt_backtrace_location_t loc[size];
-  size_t used = xbt_backtrace_current(loc, size);
-  return Backtrace(loc, loc + used);
-}
+class BacktraceImpl {
+  short refcount_ = 1;
 
-}
-}
+public:
+  void ref() { refcount_++; }
+  bool unref()
+  {
+    refcount_--;
+    return refcount_ == 0;
+  }
+#if HAVE_BACKTRACE
+  std::vector<void*> frames;
+#endif
+};
 
-size_t xbt_backtrace_current(xbt_backtrace_location_t* loc, std::size_t count)
+Backtrace::Backtrace()
 {
-  std::size_t used = 0;
 #if HAVE_BACKTRACE
-  used = backtrace(loc, count);
+  impl_ = new BacktraceImpl();
+  impl_->frames.resize(15);
+  int used = backtrace(impl_->frames.data(), impl_->frames.size());
   if (used == 0) {
     std::fprintf(stderr, "The backtrace() function failed, which probably means that the memory is exhausted\n.");
     std::fprintf(stderr, "Bailing out now since there is nothing I can do without a decent amount of memory\n.");
     std::fprintf(stderr, "Please go fix the memleaks\n");
     std::exit(1);
   }
+  impl_->frames.shrink_to_fit();
+#endif
+}
+Backtrace::Backtrace(const Backtrace& bt)
+{
+  impl_ = bt.impl_;
+  impl_->ref();
+}
+
+Backtrace::~Backtrace()
+{
+  if (impl_->unref()) {
+#if HAVE_BACKTRACE
+    delete impl_;
 #endif
-  return used;
+  }
 }
+} // namespace xbt
+} // namespace simgrid
 
 namespace simgrid {
 namespace xbt {
@@ -128,10 +147,11 @@ static std::string get_binary_path()
   char* path = getenv("PATH");
   if (path == nullptr)
     return "";
+
   XBT_DEBUG("Looking in the PATH: %s\n", path);
   std::vector<std::string> path_list;
-  // TODO, on Windows, this is ";"
-  boost::split(path_list, path, boost::is_any_of(":"));
+  boost::split(path_list, path, boost::is_any_of(":;"));
+
   for (std::string const& path_item : path_list) {
     std::string binary_name = simgrid::xbt::string_printf("%s/%s", path_item.c_str(), xbt_binary_name);
     bool found              = (stat(binary_name.c_str(), &stat_buf) == 0);
@@ -144,37 +164,33 @@ static std::string get_binary_path()
   return "";
 }
 
-std::vector<std::string> resolve_backtrace(xbt_backtrace_location_t const* loc, std::size_t count)
+std::vector<std::string> resolve_backtrace(const Backtrace& bt)
 {
   std::vector<std::string> result;
 
 #if HAVE_BACKTRACE && HAVE_EXECINFO_H && HAVE_POPEN && defined(ADDR2LINE)
   // FIXME: This code could be greatly improved/simplified with
   //   http://cairo.sourcearchive.com/documentation/1.9.4/backtrace-symbols_8c-source.html
-  if (count == 0)
+  if (bt.impl_->frames.size() == 0)
     return result;
 
   if (xbt_binary_name == nullptr)
     XBT_WARN("XBT not initialized, the backtrace will not be resolved.");
 
-  // Drop the first one:
-  loc++;
-  count--;
-
-  char** backtrace_syms   = backtrace_symbols(loc, count);
+  char** backtrace_syms   = backtrace_symbols(bt.impl_->frames.data(), bt.impl_->frames.size());
   std::string binary_name = get_binary_path();
 
   if (binary_name.empty()) {
-    for (std::size_t i = 0; i < count; i++)
-      result.push_back(simgrid::xbt::string_printf("%p", loc[i]));
+    for (std::size_t i = 1; i < bt.impl_->frames.size(); i++) // the first one is not interesting
+      result.push_back(simgrid::xbt::string_printf("%p", bt.impl_->frames[i]));
     return result;
   }
 
   // Create the system command for add2line:
   std::ostringstream stream;
   stream << ADDR2LINE << " -f -e " << binary_name << ' ';
-  std::vector<std::string> addrs(count);
-  for (std::size_t i = 0; i < count; i++) {
+  std::vector<std::string> addrs(bt.impl_->frames.size());
+  for (std::size_t i = 1; i < bt.impl_->frames.size(); i++) { // the first one is not interesting
     /* retrieve this address */
     XBT_DEBUG("Retrieving address number %zu from '%s'", i, backtrace_syms[i]);
     char buff[256];
@@ -201,7 +217,7 @@ std::vector<std::string> resolve_backtrace(xbt_backtrace_location_t const* loc,
   /* To read the output of addr2line */
   char line_func[1024];
   char line_pos[1024];
-  for (std::size_t i = 0; i < count; i++) {
+  for (std::size_t i = 1; i < bt.impl_->frames.size(); i++) { // The first one is not interesting
     XBT_DEBUG("Looking for symbol %zu, addr = '%s'", i, addrs[i].c_str());
     if (fgets(line_func, 1024, pipe)) {
       line_func[strlen(line_func) - 1] = '\0';
@@ -219,7 +235,7 @@ std::vector<std::string> resolve_backtrace(xbt_backtrace_location_t const* loc,
     if (strcmp("??", line_func) != 0) {
       auto name = simgrid::xbt::demangle(line_func);
       XBT_DEBUG("Found static symbol %s at %s", name.get(), line_pos);
-      result.push_back(simgrid::xbt::string_printf("%s at %s, %p", name.get(), line_pos, loc[i]));
+      result.push_back(simgrid::xbt::string_printf("%s at %s, %p", name.get(), line_pos, bt.impl_->frames[i]));
     } else {
       /* Damn. The symbol is in a dynamic library. Let's get wild */
 
@@ -315,7 +331,7 @@ std::vector<std::string> resolve_backtrace(xbt_backtrace_location_t const* loc,
       if (strcmp("??", line_func)) {
         auto name = simgrid::xbt::demangle(line_func);
         XBT_DEBUG("Found dynamic symbol %s at %s", name.get(), line_pos);
-        result.push_back(simgrid::xbt::string_printf("%s at %s, %p", name.get(), line_pos, loc[i]));
+        result.push_back(simgrid::xbt::string_printf("%s at %s, %p", name.get(), line_pos, bt.impl_->frames[i]));
       } else {
         /* damn, nothing to do here. Let's print the raw address */
         XBT_DEBUG("Dynamic symbol not found. Raw address = %s", backtrace_syms[i]);
@@ -341,7 +357,7 @@ std::vector<std::string> resolve_backtrace(xbt_backtrace_location_t const* loc,
       break;
   }
   pclose(pipe);
-  free(backtrace_syms);
+  xbt_free(backtrace_syms);
 #endif /* ADDR2LINE usable to resolve the backtrace */
   return result;
 }