leandrof/linux
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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: Arnaldo Carvalho de Melo <acme@ghostprotocols.net>
Signed-off-by: Tom 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: Ingo Molnar <mingo@elte.hu>
This commit is contained in:
Tom Zanussi 2009-12-06 20:41:52 -06:00 committed by Ingo Molnar
parent f48f669d42
commit 3a9a0beba2
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tools/perf/util/trace-event-perl.c
View File

@ -32,9 +32,6 @@
void xs_init(pTHX); void xs_init(pTHX);
void boot_Perf__Trace__Context(pTHX_ CV *cv);
void boot_DynaLoader(pTHX_ CV *cv);
void xs_init(pTHX) void xs_init(pTHX)
{ {
const char *file = __FILE__; const char *file = __FILE__;

4
tools/perf/util/trace-event-perl.h
View File

@ -34,9 +34,13 @@ typedef int INTERP;
#define dXSUB_SYS #define dXSUB_SYS
#define pTHX_ #define pTHX_
static inline void newXS(const char *a, void *b, const char *c) {} 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 #else
#include <EXTERN.h> #include <EXTERN.h>
#include <perl.h> #include <perl.h>
void boot_Perf__Trace__Context(pTHX_ CV *cv);
void boot_DynaLoader(pTHX_ CV *cv);
typedef PerlInterpreter * INTERP; typedef PerlInterpreter * INTERP;
#endif #endif