1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

support for mtr --valgdb

Browse Source 
add a new "debugger" to mtr, that runs the executable
under valgrind in gdb. valgrind pid is auto-detected,
but the delay (sleep) and vgdb path are hard-coded for now
This commit is contained in:
Sergei Golubchik 2021-01-26 11:56:17 +01:00
parent feacc0aaf2
commit 77c23c62ae
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
mysql-test/lib/My/Debugger.pm
View File

@ -79,6 +79,22 @@ my %debuggers = (
if ::mtr_grab_file('/proc/sys/kernel/perf_event_paranoid') > 1; if ::mtr_grab_file('/proc/sys/kernel/perf_event_paranoid') > 1;
} }
}, },
valgdb => {
term => 1,
run => 'gdb',
options => '-x {script} {exe}',
script => <<EEE,
py
import subprocess,shlex,time
valg=subprocess.Popen(shlex.split("""valgrind --tool=memcheck --show-reachable=yes --leak-check=yes --num-callers=16 --quiet --suppressions=valgrind.supp --vgdb-error=0 {exe} {args} --loose-wait-for-pos-timeout=1500"""))
time.sleep(2)
gdb.execute("target remote | /usr/lib64/valgrind/../../bin/vgdb --pid=" + str(valg.pid))
EEE
pre => sub {
my $debug_libraries_path= "/usr/lib/debug";
$ENV{LD_LIBRARY_PATH} .= ":$debug_libraries_path" if -d $debug_libraries_path;
}
},
# aliases # aliases
vsjitdebugger => 'windbg', vsjitdebugger => 'windbg',
@ -147,16 +163,17 @@ sub do_args($$$$$) {
my $options = subst($v->{options}, %vars); my $options = subst($v->{options}, %vars);
@$$args = map { unquote_for_mtr $_ } $options =~ /("[^"]+"|\S+)/g; @$$args = map { unquote_for_mtr $_ } $options =~ /("[^"]+"|\S+)/g;
my $run = $v->{run} || $k;
if ($opt =~ /^manual-/) { if ($opt =~ /^manual-/) {
print "\nTo start $k for $type, type in another window:\n"; print "\nTo start $k for $type, type in another window:\n";
print "$k $options\n"; print "$run $options\n";
$$exe= undef; # Indicate the exe should not be started $$exe= undef; # Indicate the exe should not be started
} elsif ($v->{term}) { } elsif ($v->{term}) {
unshift @$$args, '-title', $type, '-e', $k; unshift @$$args, '-title', $type, '-e', $run;
$$exe = 'xterm'; $$exe = 'xterm';
} else { } else {
$$exe = $k; $$exe = $run;
} }
} }