perf/scripts: Move common code out of Perl-specific files

This stuff is needed by all scripting engines; move it from the Perl
engine source to a more common place.

Signed-off-by: Tom Zanussi <tzanussi@gmail.com>
Cc: Ingo Molnar <mingo@elte.hu>
Cc: Steven Rostedt <rostedt@goodmis.org>
Cc: Keiichi KII <k-keiichi@bx.jp.nec.com>
Cc: Peter Zijlstra <a.p.zijlstra@chello.nl>
Cc: Paul Mackerras <paulus@samba.org>
Cc: Arnaldo Carvalho de Melo <acme@redhat.com>
LKML-Reference: <1264580883-15324-4-git-send-email-tzanussi@gmail.com>
Signed-off-by: Frederic Weisbecker <fweisbec@gmail.com>

1 files changed, 0 insertions, 27 deletions

diff --git a/tools/perf/util/trace-event-perl.c b/tools/perf/util/trace-event-perl.c
index 6d6d76b8a21e..5b49df067df0 100644
--- a/tools/perf/util/trace-event-perl.c
+++ b/tools/perf/util/trace-event-perl.c
@@ -239,33 +239,6 @@ static inline struct event *find_cache_event(int type)
         return event;
 }
 
-int common_pc(struct scripting_context *context)
-{
-        int pc;
-
-        pc = parse_common_pc(context->event_data);
-
-        return pc;
-}
-
-int common_flags(struct scripting_context *context)
-{
-        int flags;
-
-        flags = parse_common_flags(context->event_data);
-
-        return flags;
-}
-
-int common_lock_depth(struct scripting_context *context)
-{
-        int lock_depth;
-
-        lock_depth = parse_common_lock_depth(context->event_data);
-
-        return lock_depth;
-}
-
 static void perl_process_event(int cpu, void *data,
                                int size __unused,
                                unsigned long long nsecs, char *comm)