diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-03 08:39:56 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-07 21:26:59 -0400 |
| commit | 470dd224e4b587137a482c6db3d765860bcba19c (patch) | |
| tree | a54e1dc2948089c51d297db55fa14fc575c02517 /embed.h | |
| parent | 26c014b2af00ac88008218a92a598f8644e0d236 (diff) | |
| download | perl-470dd224e4b587137a482c6db3d765860bcba19c.tar.gz | |
Add C backtrace API.
Useful for at least debugging.
Supported in Linux and OS X (possibly to some extent in *BSD).
See perlhacktips for details.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -812,6 +812,10 @@ #if defined(UNLINK_ALL_VERSIONS) #define unlnk(a) Perl_unlnk(aTHX_ a) #endif +#if defined(USE_C_BACKTRACE) +#define dump_c_backtrace(a,b,c) Perl_dump_c_backtrace(aTHX_ a,b,c) +#define get_c_backtrace_dump(a,b) Perl_get_c_backtrace_dump(aTHX_ a,b) +#endif #if defined(USE_ITHREADS) #define alloccopstash(a) Perl_alloccopstash(aTHX_ a) #define any_dup(a,b) Perl_any_dup(aTHX_ a,b) @@ -1757,6 +1761,9 @@ # if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C) #define pidgone(a,b) S_pidgone(aTHX_ a,b) # endif +# if defined(USE_C_BACKTRACE) +#define get_c_backtrace(a,b) Perl_get_c_backtrace(aTHX_ a,b) +# endif # if defined(USE_ITHREADS) #define mro_meta_dup(a,b) Perl_mro_meta_dup(aTHX_ a,b) #define padlist_dup(a,b) Perl_padlist_dup(aTHX_ a,b) |