60 lines
1.6 KiB
Perl
60 lines
1.6 KiB
Perl
package Mnemonics;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use diagnostics;
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../Modules";
|
|
use Filters;
|
|
|
|
use feature 'say';
|
|
|
|
sub query {
|
|
my ( $experiment, $experiment_dir, @filter_config_names ) = @_;
|
|
|
|
my $filters =
|
|
Filters::build_filter_clause( $experiment_dir, @filter_config_names );
|
|
|
|
# The fspgroup/fsppilot joins are only needed for the filters
|
|
my $filter_joins = "";
|
|
if ( $filters =~ /\b(?:g|p)\./ ) {
|
|
$filter_joins .=
|
|
"\nLEFT JOIN fspgroup g ON g.variant_id = t.variant_id AND g.instr2 = t.instr2 AND g.data_physical_address = t.data_physical_address";
|
|
}
|
|
if ( $filters =~ /\bp\./ ) {
|
|
$filter_joins .= "\nLEFT JOIN fsppilot p ON p.id = g.pilot_id";
|
|
}
|
|
|
|
my $querystring = "SELECT
|
|
CASE
|
|
WHEN o.disassemble IS NOT NULL AND SUBSTRING_INDEX(TRIM(o.disassemble), ' ', 1) REGEXP '^[a-zA-Z][a-zA-Z0-9 ]*\$'
|
|
THEN SUBSTRING_INDEX(TRIM(o.disassemble), ' ', 1)
|
|
ELSE NULL
|
|
END AS mnemonic,
|
|
COUNT(DISTINCT t.instr2, t.data_physical_address) AS count
|
|
FROM variant v
|
|
JOIN trace t ON v.id = t.variant_id$filter_joins
|
|
JOIN objdump o ON o.variant_id = v.id AND o.instr_address = t.instr2_absolute
|
|
WHERE v.variant = '$experiment'$filters
|
|
GROUP BY mnemonic
|
|
ORDER BY count DESC;";
|
|
|
|
say $querystring;
|
|
|
|
return $querystring;
|
|
}
|
|
|
|
sub args { return "--batch --raw"; }
|
|
|
|
sub filename {
|
|
my @filter_config_names = grep { defined && length } @_;
|
|
my $suffix =
|
|
@filter_config_names ? "_" . join( "+", sort @filter_config_names ) : "";
|
|
return "mnemonics${suffix}.csv";
|
|
}
|
|
|
|
sub postprocess { $_[0] =~ s/\t/,/g; }
|
|
|
|
1;
|