mirror of
https://github.com/edk2-porting/linux-next.git
synced 2024-12-23 20:53:53 +08:00
d1b93772be
The Perl scripting support for perf trace allows most of a trace event's data to be accessed directly as handler arguments, but not all of it e.g. the less common fields aren't passed in. To give scripts access to the other fields and/or any other data or metadata in the main perf executable that might be useful, a way to access the C data in perf from Perl is needed; this patch uses the Perl XS facility to do it for the common_xxx event fields not passed to handler functions. Context.pm exports three functions to Perl scripts that access fields for the current event by calling back into perf: common_pc(), common_flags() and common_lock_depth(). Support for common_flags() field values was added to Core.pm and a script used to sanity check these and other basic scripting features, check-perf-trace.pl, was also added. Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Cc: fweisbec@gmail.com Cc: rostedt@goodmis.org Cc: anton@samba.org Cc: hch@infradead.org LKML-Reference: <1259133352-23685-6-git-send-email-tzanussi@gmail.com> Signed-off-by: Ingo Molnar <mingo@elte.hu>
18 lines
870 B
Perl
18 lines
870 B
Perl
use 5.010000;
|
|
use ExtUtils::MakeMaker;
|
|
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
|
|
# the contents of the Makefile that is written.
|
|
WriteMakefile(
|
|
NAME => 'Perf::Trace::Context',
|
|
VERSION_FROM => 'lib/Perf/Trace/Context.pm', # finds $VERSION
|
|
PREREQ_PM => {}, # e.g., Module::Name => 1.1
|
|
($] >= 5.005 ? ## Add these new keywords supported since 5.005
|
|
(ABSTRACT_FROM => 'lib/Perf/Trace/Context.pm', # retrieve abstract from module
|
|
AUTHOR => 'Tom Zanussi <tzanussi@gmail.com>') : ()),
|
|
LIBS => [''], # e.g., '-lm'
|
|
DEFINE => '-I ../..', # e.g., '-DHAVE_SOMETHING'
|
|
INC => '-I.', # e.g., '-I. -I/usr/include/other'
|
|
# Un-comment this if you add C files to link with later:
|
|
OBJECT => 'Context.o', # link all the C files too
|
|
);
|