Fix automatic memory assignment.

diff --git a/virt-p2v.ml b/virt-p2v.ml
index 7801a21..a6ff2f0 100755 (executable)
--- a/virt-p2v.ml
+++ b/virt-p2v.ml
@@ -1078,8 +1078,8 @@ MAC address:  %s"
     | Some arch -> arch in
   let memory =
     match state.memory with
-    | Some memory -> memory
-    | None -> system_memory in
+    | Some 0 | None -> system_memory
+    | Some memory -> memory in
   let vcpus =
     match state.vcpus with
     | Some 0 | None -> system_nr_cpus