proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-05-01 13:36:15 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

migration : enable auto-converge capability v2

Browse Source 
This reduce guest cpu speed if dirtied bytes is 50% more than the approx.amount of bytes that just got transferred since the last time we were in this routine.

qemu commit :
http://git.qemu.org/?p=qemu.git;a=commit;h=bde1e2ec2176c363c1783bf8887b6b1beb08dfee

tested with "stress -m 2 -c 2" under debian

without autoconvergence : downtime 12s - duration 12min
with autoconvergence : downtime 2s - duration 4min

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
This commit is contained in:
Alexandre Derumier 2014-01-09 10:58:48 +01:00 committed by Dietmar Maurer
parent 4623ea3421
commit a89fded11f
2 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
PVE/QemuMigrate.pm
View File

@ -385,13 +385,10 @@ sub phase2 {
$self->log('info', "migrate_set_downtime error: $@") if $@;
}
my $capabilities = {};
$capabilities->{capability} = "xbzrle";
$capabilities->{state} = JSON::false;
eval {
PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "migrate-set-capabilities", capabilities => [$capabilities]);
PVE::QemuServer::set_migration_caps($vmid);
};
warn $@ if $@;
#set cachesize 10% of the total memory
my $cachesize = int($conf->{memory}*1048576/10);

36
PVE/QemuServer.pm
View File

@ -3094,6 +3094,32 @@ sub qga_unfreezefs {
#need to impplement call to qemu-ga
}
sub PVE::QemuServer::set_migration_caps {
my ($vmid) = @_;
my @capabilities = ();
my $cap_ref = \@capabilities;
my $enabled_cap = {
"auto-converge" => 1,
"xbzrle" => 0,
"x-rdma-pin-all" => 0,
"zero-blocks" => 0,
};
my $supported_capabilities = PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "query-migrate-capabilities");
for my $supported_capability (@$supported_capabilities){
if($enabled_cap->{$supported_capability->{capability}} eq 1){
my $capability->{capability} = $supported_capability->{capability};
$capability->{state} = JSON::true;
push(@$cap_ref,$capability);
}
}
PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "migrate-set-capabilities", capabilities => $cap_ref);
}
sub vm_start {
my ($storecfg, $vmid, $statefile, $skiplock, $migratedfrom, $paused, $forcemachine, $spice_ticket) = @_;
@ -3160,12 +3186,12 @@ sub vm_start {
}
if ($migratedfrom) {
my $capabilities = {};
$capabilities->{capability} = "xbzrle";
$capabilities->{state} = JSON::true;
eval { vm_mon_cmd_nocheck($vmid, "migrate-set-capabilities", capabilities => [$capabilities]); };
eval {
PVE::QemuServer::set_migration_caps($vmid);
};
warn $@ if $@;
if ($spice_port) {
print "spice listens on port $spice_port\n";
if ($spice_ticket) {