projects
/
linux-2.6-microblaze.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perf scripting python: Add 'addr_location' for 'addr'
[linux-2.6-microblaze.git]
/
tools
/
perf
/
util
/
scripting-engines
/
trace-event-perl.c
diff --git
a/tools/perf/util/scripting-engines/trace-event-perl.c
b/tools/perf/util/scripting-engines/trace-event-perl.c
index
0e608a5
..
a837aee
100644
(file)
--- a/
tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/
tools/perf/util/scripting-engines/trace-event-perl.c
@@
-456,7
+456,8
@@
static void perl_process_event_generic(union perf_event *event,
static void perl_process_event(union perf_event *event,
struct perf_sample *sample,
struct evsel *evsel,
static void perl_process_event(union perf_event *event,
struct perf_sample *sample,
struct evsel *evsel,
- struct addr_location *al)
+ struct addr_location *al,
+ struct addr_location *addr_al __maybe_unused)
{
perl_process_tracepoint(sample, evsel, al);
perl_process_event_generic(event, sample, evsel);
{
perl_process_tracepoint(sample, evsel, al);
perl_process_event_generic(event, sample, evsel);
@@
-750,6
+751,7
@@
sub print_backtrace\n\
struct scripting_ops perl_scripting_ops = {
.name = "Perl",
struct scripting_ops perl_scripting_ops = {
.name = "Perl",
+ .dirname = "perl",
.start_script = perl_start_script,
.flush_script = perl_flush_script,
.stop_script = perl_stop_script,
.start_script = perl_start_script,
.flush_script = perl_flush_script,
.stop_script = perl_stop_script,