[Eva] In partition.ml, renames initial key [zero] to [empty].

src/plugins/value/engine/compute_functions.ml

@@ -312,7 +312,7 @@ module Make (Abstract: Abstractions.Eva) = struct
           Builtins.apply_builtin builtin cvalue_call ~pre:cvalue_state ~post
         in
         let insert cvalue_state =
-          Partition.Key.zero,
+          Partition.Key.empty,
           Abstract.Dom.set Cvalue_domain.State.key cvalue_state final_state
         in
         let states = List.map insert cvalue_states in

src/plugins/value/engine/transfer_specification.ml

@@ -582,6 +582,6 @@ module Make
       let states =
         compute_specification ~warn kinstr call.kf call.return spec state
       in
-      List.map (fun s -> Partition.Key.zero, s) (States.to_list states)
+      List.map (fun s -> Partition.Key.empty, s) (States.to_list states)
 
 end

src/plugins/value/engine/transfer_stmt.ml

@@ -753,7 +753,7 @@ module Make (Abstract: Abstractions.Eva) = struct
         if apply_special_directives ~subdivnb kf args state
         then
           let () = apply_cvalue_callback kf ki_call state in
-          [(Partition.Key.zero,state)]
+          [(Partition.Key.empty, state)]
         else
           (* Create the call. *)
           let eval, alarms = make_call ~subdivnb kf args valuation state in

src/plugins/value/partitioning/partition.ml

@@ -177,7 +177,7 @@ struct
   module DSplits = SplitMap.Make (SplitMonitor)
 
   (* Initial key, before any partitioning *)
-  let zero = {
+  let empty = {
     ration_stamp = None;
     branches = [];
     loops = [];
@@ -192,7 +192,7 @@ struct
 
       let name = "Partition.Key"
 
-      let reprs = [ zero ]
+      let reprs = [ empty ]
 
       let structural_descr =
         Structural_descr.t_record [|
@@ -324,7 +324,7 @@ struct
   let empty = []
 
   let initial (p : 'a list) : t =
-    List.map (fun state -> Key.zero, state) p
+    List.map (fun state -> Key.empty, state) p
 
   let to_list (f : t) : state list =
     List.map snd f

src/plugins/value/partitioning/partition.mli

@@ -50,7 +50,7 @@ type call_return_policy = {
 
 module Key : sig
   include Datatype.S_with_collections with type t = key
-  val zero : t (** Initial key: no partitioning. *)
+  val empty : t (** Initial key: no partitioning. *)
   val exceed_rationing: t -> bool
   val combine : policy:call_return_policy -> caller:t -> callee:t -> t
   (** Recombinaison of keys after a call *)