Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 3a9a0beb authored by Tom Zanussi's avatar Tom Zanussi Committed by Ingo Molnar
Browse files

perf trace/scripting: Fix compile error when libperl not installed 



When I added the xs callbacks into perf, I forgot to re-check
the no-libperl case. This patch fixes the undefined reference
error for that.

Reported-by: default avatarArnaldo Carvalho de Melo <acme@ghostprotocols.net>
Signed-off-by: default avatarTom Zanussi <tzanussi@gmail.com>
Cc: Frederic Weisbecker <fweisbec@gmail.com>
Cc: Mike Galbraith <efault@gmx.de>
Cc: Peter Zijlstra <a.p.zijlstra@chello.nl>
Cc: Paul Mackerras <paulus@samba.org>
LKML-Reference: <1260153712.6564.4.camel@tropicana>
Signed-off-by: default avatarIngo Molnar <mingo@elte.hu>
parent f48f669d

tools/perf/util/trace-event-perl.c

+0 −3
Original line number Diff line number Diff line
@@ -32,9 +32,6 @@ 


void xs_init(pTHX);



void boot_Perf__Trace__Context(pTHX_ CV *cv);

void boot_DynaLoader(pTHX_ CV *cv);



void xs_init(pTHX)

{

	const char *file = __FILE__;

tools/perf/util/trace-event-perl.h

+4 −0
Original line number Diff line number Diff line
@@ -34,9 +34,13 @@ typedef int INTERP; 
#define dXSUB_SYS

#define pTHX_

static inline void newXS(const char *a, void *b, const char *c) {}

static void boot_Perf__Trace__Context(pTHX_ CV *cv) {}

static void boot_DynaLoader(pTHX_ CV *cv) {}

#else

#include <EXTERN.h>

#include <perl.h>

void boot_Perf__Trace__Context(pTHX_ CV *cv);

void boot_DynaLoader(pTHX_ CV *cv);

typedef PerlInterpreter * INTERP;

#endif