Fix duplicated pci dev entries when doing pci-list

diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml
index 2bdf2cf826461cc07a2460d3c97cc5093981eae4..113eaa5e5743a2097c9b76fa7150bc19164f09c0 100644 (file)
--- a/xenvm/vmact.ml
+++ b/xenvm/vmact.ml
@@ -248,6 +248,7 @@ let add_devices xc xs domid state restore =
        for i = 0 to cfg.vcpus - 1 do Device.Vcpu.add ~xs ~devid:i domid done;
 
        (* add pcis *)
+       state.vm_pcis <- [];
        List.iter (fun (devid, devs) ->
                let bind = ref false in
                let dev_msitranslate = ref None in