summaryrefslogtreecommitdiffstats
path: root/tools/perf/util/scripting-engines/trace-event-perl.c
diff options
context:
space:
mode:
authorIngo Molnar <mingo@elte.hu>2011-03-16 13:42:48 +0100
committerIngo Molnar <mingo@elte.hu>2011-03-16 13:44:06 +0100
commit8b7cdd08fe304b41a2399eaaa5225159ac6db0d8 (patch)
tree77aecdeaf0a9127717211d27c0fdff6e357846e4 /tools/perf/util/scripting-engines/trace-event-perl.c
parentd10902812c9cd5583130a4ebb9ad19c60b68149d (diff)
parent43adec955edd116c3e98c6e2f85fbd63281f5221 (diff)
downloadblackbird-op-linux-8b7cdd08fe304b41a2399eaaa5225159ac6db0d8.tar.gz
blackbird-op-linux-8b7cdd08fe304b41a2399eaaa5225159ac6db0d8.zip
Merge branch 'perf/core' of git://git.kernel.org/pub/scm/linux/kernel/git/acme/linux-2.6 into perf/urgent
Diffstat (limited to 'tools/perf/util/scripting-engines/trace-event-perl.c')
-rw-r--r--tools/perf/util/scripting-engines/trace-event-perl.c11
1 files changed, 8 insertions, 3 deletions
diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index 93680818e244..621427212e86 100644
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -245,9 +245,10 @@ static inline struct event *find_cache_event(int type)
return event;
}
-static void perl_process_event(int cpu, void *data,
- int size __unused,
- unsigned long long nsecs, char *comm)
+static void perl_process_event(union perf_event *pevent __unused,
+ struct perf_sample *sample,
+ struct perf_session *session __unused,
+ struct thread *thread)
{
struct format_field *field;
static char handler[256];
@@ -256,6 +257,10 @@ static void perl_process_event(int cpu, void *data,
struct event *event;
int type;
int pid;
+ int cpu = sample->cpu;
+ void *data = sample->raw_data;
+ unsigned long long nsecs = sample->time;
+ char *comm = thread->comm;
dSP;
OpenPOWER on IntegriCloud