Drop -32 hack: not useful for migration

Signed-off-by: Edwin Török <edwin.torok@citrix.com>

Author: edwintorok

ocaml/xenopsd/xc/domain.ml

@@ -1003,7 +1003,7 @@ let numa_placement domid ~vcpus ~cores ~memory affinity =
               __FUNCTION__ domid ;
             None
       in
-      let nr_pages = (Int64.div memory 4096L |> Int64.to_int) - 32 in
+      let nr_pages = (Int64.div memory 4096L |> Int64.to_int) (*- 32*) in
       try
         D.debug "NUMAClaim domid %d: local claim on node %d: %d pages" domid
           node nr_pages ;
@@ -1138,7 +1138,7 @@ let build_pre ~xc ~xs ~vcpus ~memory ~hard_affinity domid =
                      memory later anyway
                   *)
                   let nr_pages =
-                    (Int64.div memory 4096L |> Int64.to_int) - 32
+                    (Int64.div memory 4096L |> Int64.to_int)(* - 32*)
                   in
                   let xcext = Xenctrlext.get_handle () in
                   D.debug "NUMAClaim domid %d: global claim: %d pages" domid