aboutsummaryrefslogtreecommitdiffstats
path: root/tools/perf/scripts/perl/Perf-Trace-Util/Context.c
diff options
context:
space:
mode:
Diffstat (limited to 'tools/perf/scripts/perl/Perf-Trace-Util/Context.c')
-rw-r--r--tools/perf/scripts/perl/Perf-Trace-Util/Context.c30
1 files changed, 15 insertions, 15 deletions
diff --git a/tools/perf/scripts/perl/Perf-Trace-Util/Context.c b/tools/perf/scripts/perl/Perf-Trace-Util/Context.c
index 3ba3ffc54164..af78d9a52a7d 100644
--- a/tools/perf/scripts/perl/Perf-Trace-Util/Context.c
+++ b/tools/perf/scripts/perl/Perf-Trace-Util/Context.c
@@ -39,8 +39,8 @@
39 39
40#line 41 "Context.c" 40#line 41 "Context.c"
41 41
42XS(XS_Perf__Trace__Context_get_common_pc); /* prototype to pass -Wmissing-prototypes */ 42XS(XS_Perf__Trace__Context_common_pc); /* prototype to pass -Wmissing-prototypes */
43XS(XS_Perf__Trace__Context_get_common_pc) 43XS(XS_Perf__Trace__Context_common_pc)
44{ 44{
45#ifdef dVAR 45#ifdef dVAR
46 dVAR; dXSARGS; 46 dVAR; dXSARGS;
@@ -48,22 +48,22 @@ XS(XS_Perf__Trace__Context_get_common_pc)
48 dXSARGS; 48 dXSARGS;
49#endif 49#endif
50 if (items != 1) 50 if (items != 1)
51 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::get_common_pc", "context"); 51 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_pc", "context");
52 PERL_UNUSED_VAR(cv); /* -W */ 52 PERL_UNUSED_VAR(cv); /* -W */
53 { 53 {
54 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0))); 54 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
55 int RETVAL; 55 int RETVAL;
56 dXSTARG; 56 dXSTARG;
57 57
58 RETVAL = get_common_pc(context); 58 RETVAL = common_pc(context);
59 XSprePUSH; PUSHi((IV)RETVAL); 59 XSprePUSH; PUSHi((IV)RETVAL);
60 } 60 }
61 XSRETURN(1); 61 XSRETURN(1);
62} 62}
63 63
64 64
65XS(XS_Perf__Trace__Context_get_common_flags); /* prototype to pass -Wmissing-prototypes */ 65XS(XS_Perf__Trace__Context_common_flags); /* prototype to pass -Wmissing-prototypes */
66XS(XS_Perf__Trace__Context_get_common_flags) 66XS(XS_Perf__Trace__Context_common_flags)
67{ 67{
68#ifdef dVAR 68#ifdef dVAR
69 dVAR; dXSARGS; 69 dVAR; dXSARGS;
@@ -71,22 +71,22 @@ XS(XS_Perf__Trace__Context_get_common_flags)
71 dXSARGS; 71 dXSARGS;
72#endif 72#endif
73 if (items != 1) 73 if (items != 1)
74 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::get_common_flags", "context"); 74 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_flags", "context");
75 PERL_UNUSED_VAR(cv); /* -W */ 75 PERL_UNUSED_VAR(cv); /* -W */
76 { 76 {
77 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0))); 77 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
78 int RETVAL; 78 int RETVAL;
79 dXSTARG; 79 dXSTARG;
80 80
81 RETVAL = get_common_flags(context); 81 RETVAL = common_flags(context);
82 XSprePUSH; PUSHi((IV)RETVAL); 82 XSprePUSH; PUSHi((IV)RETVAL);
83 } 83 }
84 XSRETURN(1); 84 XSRETURN(1);
85} 85}
86 86
87 87
88XS(XS_Perf__Trace__Context_get_common_lock_depth); /* prototype to pass -Wmissing-prototypes */ 88XS(XS_Perf__Trace__Context_common_lock_depth); /* prototype to pass -Wmissing-prototypes */
89XS(XS_Perf__Trace__Context_get_common_lock_depth) 89XS(XS_Perf__Trace__Context_common_lock_depth)
90{ 90{
91#ifdef dVAR 91#ifdef dVAR
92 dVAR; dXSARGS; 92 dVAR; dXSARGS;
@@ -94,14 +94,14 @@ XS(XS_Perf__Trace__Context_get_common_lock_depth)
94 dXSARGS; 94 dXSARGS;
95#endif 95#endif
96 if (items != 1) 96 if (items != 1)
97 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::get_common_lock_depth", "context"); 97 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_lock_depth", "context");
98 PERL_UNUSED_VAR(cv); /* -W */ 98 PERL_UNUSED_VAR(cv); /* -W */
99 { 99 {
100 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0))); 100 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
101 int RETVAL; 101 int RETVAL;
102 dXSTARG; 102 dXSTARG;
103 103
104 RETVAL = get_common_lock_depth(context); 104 RETVAL = common_lock_depth(context);
105 XSprePUSH; PUSHi((IV)RETVAL); 105 XSprePUSH; PUSHi((IV)RETVAL);
106 } 106 }
107 XSRETURN(1); 107 XSRETURN(1);
@@ -124,9 +124,9 @@ XS(boot_Perf__Trace__Context)
124 PERL_UNUSED_VAR(items); /* -W */ 124 PERL_UNUSED_VAR(items); /* -W */
125 XS_VERSION_BOOTCHECK ; 125 XS_VERSION_BOOTCHECK ;
126 126
127 newXSproto("Perf::Trace::Context::get_common_pc", XS_Perf__Trace__Context_get_common_pc, file, "$"); 127 newXSproto("Perf::Trace::Context::common_pc", XS_Perf__Trace__Context_common_pc, file, "$");
128 newXSproto("Perf::Trace::Context::get_common_flags", XS_Perf__Trace__Context_get_common_flags, file, "$"); 128 newXSproto("Perf::Trace::Context::common_flags", XS_Perf__Trace__Context_common_flags, file, "$");
129 newXSproto("Perf::Trace::Context::get_common_lock_depth", XS_Perf__Trace__Context_get_common_lock_depth, file, "$"); 129 newXSproto("Perf::Trace::Context::common_lock_depth", XS_Perf__Trace__Context_common_lock_depth, file, "$");
130 if (PL_unitcheckav) 130 if (PL_unitcheckav)
131 call_list(PL_scopestack_ix, PL_unitcheckav); 131 call_list(PL_scopestack_ix, PL_unitcheckav);
132 XSRETURN_YES; 132 XSRETURN_YES;