perf scripting perl: Shorten function signatures

Removing unused parameters.

Cc: Adrian Hunter <adrian.hunter@intel.com>
Cc: David Ahern <dsahern@gmail.com>
Cc: Frederic Weisbecker <fweisbec@gmail.com>
Cc: Jiri Olsa <jolsa@redhat.com>
Cc: Mike Galbraith <efault@gmx.de>
Cc: Namhyung Kim <namhyung@kernel.org>
Cc: Paul Mackerras <paulus@samba.org>
Cc: Peter Zijlstra <peterz@infradead.org>
Cc: Stephane Eranian <eranian@google.com>
Link: http://lkml.kernel.org/n/tip-b7r7o80o2xwwtlzgqxv50foe@git.kernel.org
Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>

diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index d5e5969f6fea4fce43974a748f3069e869ab9fca..b672ef0ae46d42426aec2aabc110b351fb593a82 100644 (file)
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -257,12 +257,9 @@ static inline struct event_format *find_cache_event(struct perf_evsel *evsel)
        return event;
 }
 
-static void perl_process_tracepoint(union perf_event *perf_event __maybe_unused,
-                                   struct perf_sample *sample,
+static void perl_process_tracepoint(struct perf_sample *sample,
                                    struct perf_evsel *evsel,
-                                   struct machine *machine __maybe_unused,
-                                   struct thread *thread,
-                                       struct addr_location *al)
+                                   struct thread *thread)
 {
        struct format_field *field;
        static char handler[256];
@@ -349,10 +346,7 @@ static void perl_process_tracepoint(union perf_event *perf_event __maybe_unused,
 
 static void perl_process_event_generic(union perf_event *event,
                                       struct perf_sample *sample,
-                                      struct perf_evsel *evsel,
-                                      struct machine *machine __maybe_unused,
-                                      struct thread *thread __maybe_unused,
-                                          struct addr_location *al __maybe_unused)
+                                      struct perf_evsel *evsel)
 {
        dSP;
 
@@ -377,12 +371,12 @@ static void perl_process_event_generic(union perf_event *event,
 static void perl_process_event(union perf_event *event,
                               struct perf_sample *sample,
                               struct perf_evsel *evsel,
-                              struct machine *machine,
+                              struct machine *machine __maybe_unused,
                               struct thread *thread,
-                                  struct addr_location *al)
+                              struct addr_location *al __maybe_unused)
 {
-       perl_process_tracepoint(event, sample, evsel, machine, thread, al);
-       perl_process_event_generic(event, sample, evsel, machine, thread, al);
+       perl_process_tracepoint(sample, evsel, thread);
+       perl_process_event_generic(event, sample, evsel);
 }
 
 static void run_start_sub(void)