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
typo
[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 f2ccce710176c9d53e48853a536e21023df505d3..d2ec57b3123b09d922715c859d3d3b486a16e356 100755
(executable)
--- a/
tools/cmake/scripts/my_valgrind.pl
+++ b/
tools/cmake/scripts/my_valgrind.pl
@@
-1,6
+1,6
@@
#!/usr/bin/env perl
#!/usr/bin/env perl
-# Copyright (c) 2012-20
18
. The SimGrid Team. All rights reserved.
+# Copyright (c) 2012-20
23
. 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.
@@
-8,13
+8,14
@@
use strict;
use warnings;
use strict;
use warnings;
-my @argv = ("valgrind");
+# Many other parameters (such as trace-children) are set in Tests.cmake
+my @argv = ("valgrind", "--quiet");
my $count = 0;
while (defined(my $arg = shift)) {
# print "arg($count)$arg\n";
if ($arg =~ m!/smpirun$!) {
my $count = 0;
while (defined(my $arg = shift)) {
# print "arg($count)$arg\n";
if ($arg =~ m!/smpirun$!) {
- @argv = ( $arg, "-keep-temps", "-wrapper", "@argv" );
+ @argv = ( $arg, "-keep-temps", "-
quiet", "-
wrapper", "@argv" );
} elsif ($arg eq "--cd") {
$arg = shift;
print "cd $arg\n";
} elsif ($arg eq "--cd") {
$arg = shift;
print "cd $arg\n";
@@
-30,4
+31,4
@@
while (defined(my $arg = shift)) {
# map { print "$_ " } @argv;
# print "\n";
# map { print "$_ " } @argv;
# print "\n";
-
system
@argv;
+
exec
@argv;