[Eva] Do not emit kernel warnings, emit Eva warnings instead

src/plugins/value/domains/multidim/abstract_structure.ml

@@ -256,7 +256,7 @@ struct
 
   let pick (m : t) =
     match Map.choose_opt m with
-    | None -> Kernel.fatal "The disjunction should never be empty"
+    | None -> assert false (* the disjunction should never be empty *)
     | Some (k,s) -> k,s,Map.remove k m
 
   let pretty fmt (m : t) =

src/plugins/value/domains/multidim/segmentation.ml

@@ -292,7 +292,7 @@ struct
     match Int_val.min_int (to_int_val ~oracle b) with
     | Some l -> `Value l
     | None ->
-      Kernel.warning ~current:true "cannot retrieve a lower bound for %a"
+      Self.warning ~current:true "cannot retrieve a lower bound for %a"
         pretty b;
       `Top
 
@@ -300,7 +300,7 @@ struct
     match Int_val.max_int (to_int_val ~oracle b) with
     | Some u -> `Value u
     | None ->
-      Kernel.warning ~current:true "cannot retrieve an upper bound for %a"
+      Self.warning ~current:true "cannot retrieve an upper bound for %a"
         pretty b;
       `Top
 
@@ -870,7 +870,7 @@ struct
       | `Value m -> m
       | `Bottom -> assert false
       | `Top ->
-        Kernel.warning ~current:true
+        Self.warning ~current:true
           "failed to introduce %a inside the array segmentation"
           Bound.pretty b;
         m