A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
MC: allow compile optimizations in src/kernel/lmm/.
[simgrid.git]
/
tools
/
cmake
/
scripts
/
my_valgrind.pl
diff --git
a/tools/cmake/scripts/my_valgrind.pl
b/tools/cmake/scripts/my_valgrind.pl
index
3b273d5
..
6892b52
100755
(executable)
--- a/
tools/cmake/scripts/my_valgrind.pl
+++ b/
tools/cmake/scripts/my_valgrind.pl
@@
-1,7
+1,6
@@
#!/usr/bin/env perl
#!/usr/bin/env perl
-# Copyright (c) 2012-2014. The SimGrid Team.
-# All rights reserved.
+# Copyright (c) 2012-2016. The SimGrid Team. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the terms of the license (GNU LGPL) which comes with this package.
# This program is free software; you can redistribute it and/or modify it
# under the terms of the license (GNU LGPL) which comes with this package.
@@
-13,7
+12,7
@@
my @argv = ("valgrind");
my $count = 0;
while (defined(my $arg = shift)) {
my $count = 0;
while (defined(my $arg = shift)) {
- print "arg($count)$arg\n";
+
#
print "arg($count)$arg\n";
if ($arg =~ m!/smpirun$!) {
@argv = ( $arg, "-wrapper", "@argv" );
} elsif ($arg eq "--cd") {
if ($arg =~ m!/smpirun$!) {
@argv = ( $arg, "-wrapper", "@argv" );
} elsif ($arg eq "--cd") {
@@
-27,8
+26,8
@@
while (defined(my $arg = shift)) {
$count++;
}
$count++;
}
-#
print "COMMAND : $bin $option $cd $path\n
";
-#
print "cd $path\n"
;
-#
print "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option
\n";
-print "@argv\n\n";
+#
print "COMMAND:
";
+#
map { print "$_ " } @argv
;
+#
print "
\n";
+
system @argv;
system @argv;