/usr/share/mysql/mysql-test/lib/process-purecov-annotations.pl is in mariadb-test-5.5 5.5.36-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | #!/usr/bin/perl
# -*- cperl -*-
# This script processes a .gcov coverage report to honor purecov
# annotations: lines marked as inspected or as deadcode are changed
# from looking like lines with code that was never executed to look
# like lines that have no executable code.
use strict;
use warnings;
foreach my $in_file_name ( @ARGV )
{
my $out_file_name=$in_file_name . ".tmp";
my $skipping=0;
open(IN, "<", $in_file_name) || next;
open(OUT, ">", $out_file_name);
while(<IN>)
{
my $line= $_;
my $check= $line;
# process purecov: start/end multi-blocks
my $started=0;
my $ended= 0;
while (($started=($check =~ s/purecov: *begin *(deadcode|inspected)//)) ||
($ended=($check =~ s/purecov: *end//)))
{
$skipping= $skipping + $started - $ended;
}
if ($skipping < 0)
{
print OUT "WARNING: #####: incorrect order of purecov begin/end annotations\n";
$skipping= 0;
}
# Besides purecov annotations, also remove uncovered code mark from cases
# like the following:
#
# -: 211:*/
# -: 212:class Field_value : public Value_dep
# #####: 213:{
# -: 214:public:
#
# I have no idea why would gcov think there is uncovered code there
#
my @arr= split(/:/, $line);
if ($skipping || $line =~ /purecov: *(inspected|deadcode)/ ||
$arr[2] =~ m/^{ *$/)
{
# Change '####' to '-'.
$arr[0] =~ s/#####/ -/g;
$line= join(":", @arr);
}
print OUT $line;
}
close(IN);
close(OUT);
system("mv", "-f", $out_file_name, $in_file_name);
}
|