diff --git a/Fast.c b/Fast.c deleted file mode 100644 index 3bfd118..0000000 --- a/Fast.c +++ /dev/null @@ -1,114 +0,0 @@ -/* - * This file was generated automatically by ExtUtils::ParseXS version 2.19 from the - * contents of Fast.xs. Do not edit this file, edit Fast.xs instead. - * - * ANY CHANGES MADE HERE WILL BE LOST! - * - */ - -#line 1 "Fast.xs" -#include "common.h" -#include "tools.h" - -#ifndef PERL_UNUSED_VAR -# define PERL_UNUSED_VAR(var) if (0) var = var -#endif - -#line 18 "Fast.c" - -XS(XS_Devel__LeakTrace__Fast__hook_runops); /* prototype to pass -Wmissing-prototypes */ -XS(XS_Devel__LeakTrace__Fast__hook_runops) -{ -#ifdef dVAR - dVAR; dXSARGS; -#else - dXSARGS; -#endif - if (items != 0) - Perl_croak(aTHX_ "Usage: %s(%s)", "Devel::LeakTrace::Fast::_hook_runops", ""); - PERL_UNUSED_VAR(cv); /* -W */ - PERL_UNUSED_VAR(ax); /* -Wall */ - SP -= items; - { -#line 11 "Fast.xs" -{ - tools_hook_runops(); -} -#line 38 "Fast.c" - PUTBACK; - return; - } -} - - -XS(XS_Devel__LeakTrace__Fast__reset_counters); /* prototype to pass -Wmissing-prototypes */ -XS(XS_Devel__LeakTrace__Fast__reset_counters) -{ -#ifdef dVAR - dVAR; dXSARGS; -#else - dXSARGS; -#endif - if (items != 0) - Perl_croak(aTHX_ "Usage: %s(%s)", "Devel::LeakTrace::Fast::_reset_counters", ""); - PERL_UNUSED_VAR(cv); /* -W */ - PERL_UNUSED_VAR(ax); /* -Wall */ - SP -= items; - { -#line 18 "Fast.xs" -{ - tools_reset_counters(); -} -#line 63 "Fast.c" - PUTBACK; - return; - } -} - - -XS(XS_Devel__LeakTrace__Fast__show_used); /* prototype to pass -Wmissing-prototypes */ -XS(XS_Devel__LeakTrace__Fast__show_used) -{ -#ifdef dVAR - dVAR; dXSARGS; -#else - dXSARGS; -#endif - if (items != 0) - Perl_croak(aTHX_ "Usage: %s(%s)", "Devel::LeakTrace::Fast::_show_used", ""); - PERL_UNUSED_VAR(cv); /* -W */ - { -#line 25 "Fast.xs" -{ - tools_show_used(); -} -#line 86 "Fast.c" - } - XSRETURN_EMPTY; -} - -#ifdef __cplusplus -extern "C" -#endif -XS(boot_Devel__LeakTrace__Fast); /* prototype to pass -Wmissing-prototypes */ -XS(boot_Devel__LeakTrace__Fast) -{ -#ifdef dVAR - dVAR; dXSARGS; -#else - dXSARGS; -#endif - char* file = __FILE__; - - PERL_UNUSED_VAR(cv); /* -W */ - PERL_UNUSED_VAR(items); /* -W */ - XS_VERSION_BOOTCHECK ; - - newXSproto("Devel::LeakTrace::Fast::_hook_runops", XS_Devel__LeakTrace__Fast__hook_runops, file, ""); - newXSproto("Devel::LeakTrace::Fast::_reset_counters", XS_Devel__LeakTrace__Fast__reset_counters, file, ""); - newXSproto("Devel::LeakTrace::Fast::_show_used", XS_Devel__LeakTrace__Fast__show_used, file, ""); - if (PL_unitcheckav) - call_list(PL_scopestack_ix, PL_unitcheckav); - XSRETURN_YES; -} - diff --git a/tools.c b/tools.c index 9025541..55fa028 100644 --- a/tools.c +++ b/tools.c @@ -33,8 +33,7 @@ static hash *brute = NULL; /* Perl opcodes which trigger a memory scan */ #define interesting_op(o) \ ((o) == OP_NEXTSTATE || \ - (o) == OP_DBSTATE || \ - (o) == OP_SETSTATE) + (o) == OP_DBSTATE) static void nomem( void ) {