gnmvalgrind (gnumeric-1.12.49.tar.xz) | : | gnmvalgrind (gnumeric-1.12.50.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 40 | skipping to change at line 40 | |||
die "$0: usage $0 [valgrind options] gnumeric [gnumeric-options]\n" | die "$0: usage $0 [valgrind options] gnumeric [gnumeric-options]\n" | |||
unless $program; | unless $program; | |||
&add_debug_flag ('G_SLICE', 'always-malloc'); | &add_debug_flag ('G_SLICE', 'always-malloc'); | |||
&add_debug_flag ('GNM_DEBUG', 'valgrind-bitfield-workarounds'); | &add_debug_flag ('GNM_DEBUG', 'valgrind-bitfield-workarounds'); | |||
if ($seen_leak_check) { | if ($seen_leak_check) { | |||
&add_debug_flag ('G_DEBUG', 'resident-modules'); | &add_debug_flag ('G_DEBUG', 'resident-modules'); | |||
&add_debug_flag ('GNM_DEBUG', 'close-displays'); | &add_debug_flag ('GNM_DEBUG', 'close-displays'); | |||
} | } | |||
$ENV{'PYTHONMALLOC'} = 'malloc'; | ||||
push @cmd, 'valgrind'; | push @cmd, 'valgrind'; | |||
push @cmd, '--num-callers=40' unless $seen_num_callers; | push @cmd, '--num-callers=40' unless $seen_num_callers; | |||
push @cmd, "--suppressions=$topsrc/test/common.supp"; | push @cmd, "--suppressions=$topsrc/test/common.supp"; | |||
push @cmd, "--suppressions=$topsrc/test/gui.supp"; | push @cmd, "--suppressions=$topsrc/test/gui.supp"; | |||
push @cmd, @ARGV; | push @cmd, @ARGV; | |||
print STDERR "Executing ", join (' ', map { "earg ($_) } @cmd), "\n" if $ver bose; | print STDERR "Executing ", join (' ', map { "earg ($_) } @cmd), "\n" if $ver bose; | |||
exec { $cmd[0] } @cmd | exec { $cmd[0] } @cmd | |||
or die "$0: failed to execute valgrind.\n"; | or die "$0: failed to execute valgrind.\n"; | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 2 lines changed or added |