Commit 255986a5 authored by Bjorn Munch's avatar Bjorn Munch

Bug #12360501 MTR --GCOV DOES NOT WORK WITH CMAKE BUILDS

Changed to use $bindir instead of $basedir
Simplified search for files: find all *.gcno
Also, .msg and .err files had been mixed up
parent 78b5a632
# -*- cperl -*- # -*- cperl -*-
# Copyright (C) 2004, 2006 MySQL AB, 2009 Sun Microsystems, Inc. # Copyright (c) 2004, 2011, Oracle and/or its affiliates. All rights reserved.
# #
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
...@@ -31,7 +31,7 @@ sub gcov_prepare ($) { ...@@ -31,7 +31,7 @@ sub gcov_prepare ($) {
# #
# Collect gcov statistics. # Collect gcov statistics.
# Arguments: # Arguments:
# $dir basedir, normally source directory # $dir basedir, normally build directory
# $gcov gcov utility program [path] name # $gcov gcov utility program [path] name
# $gcov_msg message file name # $gcov_msg message file name
# $gcov_err error file name # $gcov_err error file name
...@@ -43,29 +43,25 @@ sub gcov_collect ($$$) { ...@@ -43,29 +43,25 @@ sub gcov_collect ($$$) {
my $start_dir= cwd(); my $start_dir= cwd();
print "Collecting source coverage info using '$gcov'...\n"; print "Collecting source coverage info using '$gcov'...\n";
-f "$start_dir/$gcov_msg" and unlink("$start_dir/$gcov_msg"); -f "$dir/$gcov_msg" and unlink("$dir/$gcov_msg");
-f "$start_dir/$gcov_err" and unlink("$start_dir/$gcov_err"); -f "$dir/$gcov_err" and unlink("$dir/$gcov_err");
my @dirs= `find "$dir" -type d -print | sort`; my @dirs= `find "$dir" -type d -print | sort`;
#print "List of directories:\n@dirs\n"; #print "List of directories:\n@dirs\n";
foreach my $d ( @dirs ) { foreach my $d ( @dirs ) {
my $dir_reported= 0;
chomp($d); chomp($d);
chdir($d) or next; chdir($d) or next;
foreach my $f ( (glob("*.h"), glob("*.cc"), glob("*.c")) ) { my @flist= glob("*.*.gcno");
$f =~ /(.*)\.[ch]c?/; print ("Collecting in '$d'...\n") if @flist;
-f "$1.gcno" or next;
if (!$dir_reported) { foreach my $f (@flist) {
print "Collecting in '$d'...\n"; system("$gcov $f 2>>$dir/$gcov_err >>$dir/$gcov_msg");
$dir_reported= 1;
}
system("$gcov $f 2>>$start_dir/$gcov_err >>$start_dir/$gcov_msg");
} }
chdir($start_dir); chdir($start_dir);
} }
print "gcov info in $gcov_msg, errors in $gcov_err\n"; print "gcov info in $dir/$gcov_msg, errors in $dir/$gcov_err\n";
} }
......
...@@ -210,8 +210,8 @@ our $opt_clean_vardir= $ENV{'MTR_CLEAN_VARDIR'}; ...@@ -210,8 +210,8 @@ our $opt_clean_vardir= $ENV{'MTR_CLEAN_VARDIR'};
our $opt_gcov; our $opt_gcov;
our $opt_gcov_exe= "gcov"; our $opt_gcov_exe= "gcov";
our $opt_gcov_err= "mysql-test-gcov.msg"; our $opt_gcov_err= "mysql-test-gcov.err";
our $opt_gcov_msg= "mysql-test-gcov.err"; our $opt_gcov_msg= "mysql-test-gcov.msg";
our $opt_gprof; our $opt_gprof;
our %gprof_dirs; our %gprof_dirs;
...@@ -507,7 +507,7 @@ sub main { ...@@ -507,7 +507,7 @@ sub main {
mtr_print_line(); mtr_print_line();
if ( $opt_gcov ) { if ( $opt_gcov ) {
gcov_collect($basedir, $opt_gcov_exe, gcov_collect($bindir, $opt_gcov_exe,
$opt_gcov_msg, $opt_gcov_err); $opt_gcov_msg, $opt_gcov_err);
} }
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment