diff options
Diffstat (limited to 'perl-install/c')
| -rwxr-xr-x | perl-install/c/stuff.xs.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 1dbc9686a..d3dfd41ab 100755 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -37,6 +37,7 @@ print ' #include <netinet/in.h> #include <linux/sockios.h> #include <linux/input.h> +#include <execinfo.h> // for ethtool structs: typedef unsigned long long u64; @@ -701,6 +702,34 @@ disk_add_partition(char * device_path, double start, double length, const char * OUTPUT: RETVAL +#define BACKTRACE_DEPTH 20 + + +char* +C_backtrace() + CODE: + static char buf[1024]; + int nAddresses, i; + unsigned long idx = 0; + void * addresses[BACKTRACE_DEPTH]; + char ** symbols = NULL; + nAddresses = backtrace(addresses, BACKTRACE_DEPTH); + symbols = backtrace_symbols(addresses, nAddresses); + if (symbols == NULL) { + idx += sprintf(buf+idx, "ERROR: Retrieving symbols failed.\n"); + } else { + fprintf(stderr, "HERE 5\n"); + /* dump stack trace */ + for (i = 0; i < nAddresses; ++i) + idx += sprintf(buf+idx, "%d: %s\n", i, symbols[i]); + } + RETVAL = strdup(buf); + OUTPUT: + RETVAL + + + + '; @macros = ( |