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

[safe/jmp/linux-2.6] / tools / perf / util / trace-event-parse.c

diff --git a/tools/perf/util/trace-event-parse.c b/tools/perf/util/trace-event-parse.c
index c4b3cb8..9b3c20f 100644 (file)
--- a/tools/perf/util/trace-event-parse.c
+++ b/tools/perf/util/trace-event-parse.c
@@ -3286,3 +3286,18 @@ void parse_set_info(int nr_cpus, int long_sz)
        cpus = nr_cpus;
        long_size = long_sz;
 }
+
+int common_pc(struct scripting_context *context)
+{
+       return parse_common_pc(context->event_data);
+}
+
+int common_flags(struct scripting_context *context)
+{
+       return parse_common_flags(context->event_data);
+}
+
+int common_lock_depth(struct scripting_context *context)
+{
+       return parse_common_lock_depth(context->event_data);
+}