-
Notifications
You must be signed in to change notification settings - Fork 0
/
Fast.c
114 lines (102 loc) · 2.48 KB
/
Fast.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
/*
* 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;
}