X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=libs%2Fpbd%2Fstacktrace.cc;h=3b308f7db2dea749695a72036706880054d37182;hb=28f211c5d27098bcbafea2996733712a63b35d24;hp=805b9a2e840e211fd1dac478e364db0071c776f3;hpb=ebb1271b6f666dadcaf6a73a6cb81231a70d8ad7;p=ardour.git

diff --git a/libs/pbd/stacktrace.cc b/libs/pbd/stacktrace.cc
index 805b9a2e84..3b308f7db2 100644
--- a/libs/pbd/stacktrace.cc
+++ b/libs/pbd/stacktrace.cc
@@ -1,5 +1,5 @@
 /*
-    Copyright (C) 2000-2007 Paul Davis 
+    Copyright (C) 2000-2007 Paul Davis
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
@@ -20,8 +20,19 @@
 #include "libpbd-config.h"
 
 #include "pbd/stacktrace.h"
+#include "pbd/debug.h"
+#include "pbd/demangle.h"
+#include "pbd/compose.h"
+#include "pbd/pthread_utils.h"
+
 #include <cstdio>
 #include <iostream>
+#include <string>
+
+#ifdef PLATFORM_WINDOWS
+#include <windows.h>
+#include <dbghelp.h>
+#endif
 
 void
 PBD::trace_twb ()
@@ -33,40 +44,6 @@ PBD::trace_twb ()
 #ifdef HAVE_EXECINFO
 
 #include <execinfo.h>
-#include <cxxabi.h>
-
-std::string demangle (std::string const & l)
-{
-	std::string::size_type const b = l.find_first_of ("(");
-	if (b == std::string::npos) {
-		return l;
-	}
-
-	std::string::size_type const p = l.find_last_of ("+");
-	if (p == std::string::npos) {
-		return l;
-	}
-
-	if ((p - b) <= 1) {
-		return l;
-	}
-	
-	std::string const fn = l.substr (b + 1, p - b - 1);
-
-	int status;
-	try {
-		
-		char* realname = abi::__cxa_demangle (fn.c_str(), 0, 0, &status);
-		std::string d (realname);
-		free (realname);
-		return d;
-		
-	} catch (std::exception) {
-		
-	}
-	
-	return l;
-}
 
 void
 PBD::stacktrace (std::ostream& out, int levels)
@@ -75,18 +52,18 @@ PBD::stacktrace (std::ostream& out, int levels)
 	size_t size;
 	char **strings;
 	size_t i;
-     
+
 	size = backtrace (array, 200);
 
 	if (size) {
 		strings = backtrace_symbols (array, size);
-     
+
 		if (strings) {
-			
+
 			for (i = 0; i < size && (levels == 0 || i < size_t(levels)); i++) {
 				out << "  " << demangle (strings[i]) << std::endl;
 			}
-			
+
 			free (strings);
 		}
 	} else {
@@ -94,6 +71,57 @@ PBD::stacktrace (std::ostream& out, int levels)
 	}
 }
 
+#elif defined (PLATFORM_WINDOWS)
+
+#if defined DEBUG && !defined CaptureStackBackTrace
+#define CaptureStackBackTrace RtlCaptureStackBackTrace
+
+extern "C" {
+    __declspec(dllimport) USHORT WINAPI CaptureStackBackTrace (
+                                 ULONG  SamplesToSkip,
+                                 ULONG  SamplesToCapture,
+                                 PVOID  *BackTrace,
+                                 PULONG BackTraceHash
+	                      );
+}
+#endif
+
+void
+PBD::stacktrace( std::ostream& out, int)
+{
+#ifdef DEBUG
+	const size_t levels = 62; // does not support more then 62 levels of stacktrace
+	unsigned int   i;
+	void         * stack[ levels ];
+	unsigned short samples;
+	SYMBOL_INFO  * symbol;
+	HANDLE         process;
+
+	process = GetCurrentProcess();
+	out << "+++++Backtrace process: " <<  DEBUG_THREAD_SELF << std::endl;
+
+	SymInitialize( process, NULL, TRUE );
+
+	samples               = CaptureStackBackTrace( 0, levels, stack, NULL );
+
+	out << "+++++Backtrace samples: " <<  samples << std::endl;
+
+	symbol               = ( SYMBOL_INFO * )calloc( sizeof( SYMBOL_INFO ) + 256 * sizeof( char ), 1 );
+	symbol->MaxNameLen   = 255;
+	symbol->SizeOfStruct = sizeof( SYMBOL_INFO );
+
+	for( i = 0; i < samples; i++ )
+	{
+		SymFromAddr( process, ( DWORD64 )( stack[ i ] ), 0, symbol );
+		out << string_compose( "%1: %2 - %3\n", samples - i - 1, symbol->Name, symbol->Address );
+	}
+
+	out.flush();
+
+	free( symbol );
+#endif
+}
+
 #else
 
 void
@@ -102,10 +130,10 @@ PBD::stacktrace (std::ostream& out, int /*levels*/)
 	out << "stack tracing is not enabled on this platform" << std::endl;
 }
 
+#endif
+
 void
 c_stacktrace ()
 {
 	PBD::stacktrace (std::cout);
 }
-
-#endif /* HAVE_EXECINFO */