database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-08-08 11:22:35 +03:00
Code Activity

mtr: --client-gdb='<gdb commands>'

Browse Source
This commit is contained in:
Sergei Golubchik
2021-01-22 13:43:06 +01:00
parent 29bbcac0ee
commit 1a99958545
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mysql-test/mysql-test-run.pl
View File

@@ -1323,7 +1323,7 @@ sub command_line_setup {
'rr' => \$opt_rr, 'rr' => \$opt_rr,
'rr-arg=s' => \@rr_record_args, 'rr-arg=s' => \@rr_record_args,
'rr-dir=s' => \$opt_rr_dir, 'rr-dir=s' => \$opt_rr_dir,
'client-gdb' => \$opt_client_gdb, 'client-gdb=s' => \$opt_client_gdb,
'manual-gdb' => \$opt_manual_gdb, 'manual-gdb' => \$opt_manual_gdb,
'manual-lldb' => \$opt_manual_lldb, 'manual-lldb' => \$opt_manual_lldb,
'boot-gdb' => \$opt_boot_gdb, 'boot-gdb' => \$opt_boot_gdb,
@@ -1420,7 +1420,7 @@ sub command_line_setup {
); );
# fix options (that take an optional argument and *only* after = sign # fix options (that take an optional argument and *only* after = sign
my %fixopt = ( '--gdb' => '--gdb=#' ); my %fixopt = ( '--gdb' => '--gdb=#', '--client-gdb' => '--client-gdb=#' );
@ARGV = map { $fixopt{$_} or $_ } @ARGV; @ARGV = map { $fixopt{$_} or $_ } @ARGV;
GetOptions(%options) or usage("Can't read options"); GetOptions(%options) or usage("Can't read options");
usage("") if $opt_usage; usage("") if $opt_usage;
@@ -6064,7 +6064,11 @@ sub gdb_arguments {
$input = $input ? "< $input" : ""; $input = $input ? "< $input" : "";
if ($type eq 'client') { if ($type eq 'client') {
mtr_tofile($gdb_init_file, "set args @$$args $input"); mtr_tofile($gdb_init_file,
join("\n",
"set args @$$args $input",
split /;/, $opt_client_gdb || ""
));
} elsif ($opt_valgrind_mysqld) { } elsif ($opt_valgrind_mysqld) {
my $v = $$exe; my $v = $$exe;
my $vargs = []; my $vargs = [];