# HG changeset patch # User Jonathan Knowles # Date 1265039944 0 # Node ID 79d00bde5fb4f7c1b175b52ff99c7830c6cd437f # Parent 5de74d499b798f5029454ae8c630b1525037cf08 [PCR0047] Replaces inline memory constraint validation code with calls to function "VM_memory_constraints.assert_valid_for_current_context". Signed-off-by: Jonathan Knowles diff -r 5de74d499b79 -r 79d00bde5fb4 ocaml/xapi/xapi_vm.ml --- a/ocaml/xapi/xapi_vm.ml Mon Feb 01 15:59:04 2010 +0000 +++ b/ocaml/xapi/xapi_vm.ml Mon Feb 01 15:59:04 2010 +0000 @@ -139,10 +139,8 @@ static_min = min; static_max = max; } in - if not (Vm_memory_constraints.are_valid ~constraints) - then raise ( - Api_errors.Server_error ( - Api_errors.memory_constraint_violation, ["min or max"])); + Vm_memory_constraints.assert_valid_for_current_context + ~__context ~constraints; Db.VM.set_memory_static_min ~__context ~self ~value:min; Db.VM.set_memory_static_max ~__context ~self ~value:max; update_memory_overhead ~__context ~vm:self @@ -172,11 +170,8 @@ dynamic_max = dynamic_max; static_max = static_max; } in - if not (Vm_memory_constraints.are_valid ~constraints) - then raise (Api_errors.Server_error ( - Api_errors.memory_constraint_violation, - ["Memory limits must be in valid order: \ - static_min ≤ dynamic_min ≤ dynamic_max ≤ static_max"])); + Vm_memory_constraints.assert_valid_for_current_context + ~__context ~constraints; Vm_memory_constraints.set ~__context ~vm_ref:self ~constraints; update_memory_overhead ~__context ~vm:self diff -r 5de74d499b79 -r 79d00bde5fb4 ocaml/xapi/xapi_vm_helpers.ml --- a/ocaml/xapi/xapi_vm_helpers.ml Mon Feb 01 15:59:04 2010 +0000 +++ b/ocaml/xapi/xapi_vm_helpers.ml Mon Feb 01 15:59:04 2010 +0000 @@ -578,9 +578,8 @@ dynamic_min = min; target = min; dynamic_max = max } in - if not (Vm_memory_constraints.are_valid ~constraints) - then raise (Api_errors.Server_error(Api_errors.memory_constraint_violation, - ["min or max"])); + Vm_memory_constraints.assert_valid_for_current_context + ~__context ~constraints; (* memory_target is now unused but setting it equal *) (* to dynamic_min avoids tripping validation code. *)